'                               Luemut.txt
'                      
'                        Ohjelma näyttää ruudulla mahtavan
'                        BootSector4-tekstin punaisena
'
'
'
'
SCREEN 13
w = 1
FOR a = 1 TO 256
q = q + w
IF q = 63 THEN w = -1
IF q = 0 THEN w = 1
PALETTE a, q
NEXT a

FOR s = 1 TO 87
PRINT "B";
PRINT "o";
PRINT "o";
PRINT "t";
PRINT "s";
PRINT "e";
PRINT "c";
PRINT "t";
PRINT "o";
PRINT "r";
PRINT "4";

NEXT s
FOR a = 1 TO 320
FOR z = 1 TO 220
IF POINT(a, z) <> 0 THEN PSET (a, z), (a + z) / 2
NEXT z
NEXT a