Soronként változtatható palettájú attribútum képernyő beállítása. 24 soros, de könnyen beállítható más is.
Írni rá nem a PRINT #csat,AT sor,oszlop:, hanem a PRINT #sor, AT 1,oszlop: tud.
Letörölni az egészet nem tudja a CLEAR #csat önmagában, hanem ott van a DEF CLS eljárás erre.
Ha nem attribútum képernyő kell, akkor a SET VIDEO MODE és SET VIDEO COLOR után mást is meg lehet adni.
Szöveges lapoknál a kurzor kikapcsolására is szükség lehet.
(A megfelelő színeket még be kell állítani, a programban az adatok csak tájékoztató jellegűek.)
7000 DEF VIDEO_INI
7005 SET VIDEO Y 1:SET VIDEO X 40
7010 SET VIDEO COLOR 0:SET VIDEO MODE 15
7015 FOR X=1 TO 24 !27
7020 OPEN #X:"video:"
7025 DISPLAY #X:AT X FROM 1 TO 1
7030 !SET #X:PALETTE BLACK,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
7035 NEXT
7040 SET #1:BIAS 24
7045 SET #1:PALETTE 52,255,14,25
7050 SET #2:PALETTE 180,255,14,25
7055 SET #3:PALETTE 52,255,14,25
7060 SET #4:PALETTE 164,255,14,25
7065 SET #5:PALETTE 36,255,14,25
7070 SET #6:PALETTE 4,255,14,25
7075 SET #7:PALETTE 4,255,14,25
7080 SET #8:PALETTE 32,254,14,25
7085 SET #9:PALETTE 32,254,14,25
7090 SET #10:PALETTE 32,254,14,25
7095 SET #11:PALETTE 52,255,14,25
7100 SET #12:PALETTE 180,255,14,25
7105 SET #13:PALETTE 52,255,14,25
7110 SET #14:PALETTE 164,255,14,25
7115 SET #15:PALETTE 36,255,14,25
7120 SET #16:PALETTE 4,255,14,25
7125 SET #17:PALETTE 4,255,14,25
7130 SET #18:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
7135 SET #19:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
7140 SET #20:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
7145 SET #21:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
7150 SET #22:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
7155 SET #23:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
7160 SET #24:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
7165 !SET #25:PALETTE 32,254,14,25
7170 !SET #26:PALETTE 32,254,14,25
7175 !SET #27:PALETTE 32,254,14,25
7180 END DEF
7200 DEF CLS
7205 FOR X=24 TO 1 STEP-1 !27 TO
7210 CLEAR #X
7215 NEXT
7220 END DEF