' tb-screen: 80x25
' Bildschirmsteuerung (Spec textbildschirm): LOCATE mit ausgelassenen
' Argumenten, COLOR, CLS, VIEW PRINT-Scrollen, CSRLIN/POS und das
' Zuruecklesen per SCREEN.
LOCATE 3, 5
PRINT "Position";
PRINT " "; CSRLIN; POS(0)
LOCATE , 1
PRINT "Spalte 1 in Zeile 4"
COLOR 14, 1
PRINT "gelb auf blau"
COLOR 7, 0
LOCATE 12, 1
PRINT "gelesen: "; CHR$(SCREEN(3, 5)); CHR$(SCREEN(3, 6));
PRINT " Attribut "; SCREEN(5, 1, 1)
LOCATE 8, 1
VIEW PRINT 8 TO 10
LOCATE 10, 1
PRINT "a"
PRINT "b"
VIEW PRINT
LOCATE 14, 1
PRINT "fertig"
END
