10 REM ***** Moving raster number 1 
100 WAIT VBL
110 FOR
120 FOR
130 FOR
140 FOR
150 FOR
160 FOR
170 FOR
180 FOR
190 FOR
20 REM ***** now lets try and get more on screen
200 DOKE
210 DOKE
220 IF
230 IF
240 IF
250 RETURN
30 KEY
40 FLASH
50 EXTENSION (Index #0) (Token 0x80)
60 VARNAME
70 REPEAT
80 REM ***** the routine to do the ratsers
90 DOKE