10 CLEAR ALL
20 BITMAP 1 LOAD "Floyd1.bmp"
30 SPRITE 1 BIND BITMAP 1 SHOW TILE TINT RGB(255,255,255,64)
40 a$="   This is a test message to scroll across the top of the screen.   "
50 sx=1
60 WHEN TIMER 1
70     x=XPOS(1):y=YPOS(1):c=INK.COLOR:h=HIGHLIGHT.COLOR
80     HIGHLIGHT RGB(0,0,0)
90     LOCATE 1,1
100     PRINT SPACE$(128)
110     LOCATE 1,1
120     tx=sx
130     FOR i=1 TO 128
140         INK CLUT("VGA",i/4+32)
150         PRINT MID$(a$,tx,1);
160         tx=tx+1
170         IF tx>LEN(a$) THEN tx=1
180     NEXT i
190     sx=sx+1
200     IF sx>LEN(a$) THEN sx=1
210     LOCATE x,y:INK c:HIGHLIGHT h
220 END WHEN
230 WHEN TIMER 2
240     TARGET BITMAP 1
250     SHIFT BITMAP LEFT 4 UP 4
260 END WHEN
270 TIMER 1 ON EVERY 100
280 TIMER 2 ON EVERY 50
290 LOCATE ,3
300 PRINT "What is your name? ";
310 INK RGB(255,255,0)
320 LINE INPUT n$
330 INK RGB(255,255,255)
340 PRINT
350 PRINT "Hello "+n$+"!"
360 SLEEP
370 TIMER 1 OFF
380 TIMER 2 OFF
390 PRINT
400 PRINT "Goodbye!"
410 SLEEP
