1 REM  Program .....: SCREEN3
10 MODE
100 REM Place T$ on three screens
1000 VARNAME
1010 GOSUB
1020 RETURN
110 VARNAME
120 FOR
130 LOGIC
140 VARNAME
150 VARNAME
160 VARNAME
170 VARNAME
180 LOCATE
190 PRINT
1999 REM -- Move LEFT 
2 REM  Author ......: Martin Cubitt
20 RESERVE
200 INC
2000 VARNAME
2010 GOSUB
2020 RETURN
210 VARNAME
220 VARNAME
230 IF
240 VARNAME
250 VARNAME
260 LOCATE
270 PRINT
280 INC
290 NEXT
2999 REM -- Copy screen/s onto physical 
3 REM  Date ........: 24/6/93
30 RESERVE
300 LOGIC
3000 HIDE
3010 VARNAME
3020 VARNAME
3030 IF
3040 SCREEN COPY
3050 GOTO
3060 SCREEN COPY
3070 SCREEN COPY
3080 SCREEN COPY
3090 WAIT VBL
310 VARNAME
3100 SHOW
3110 RETURN
320 REM Here we go...
330 REM Set initial position (left most area!) 
340 VARNAME
350 GOSUB
351 REM change mouse 4 :rem Your 1st sprite will be used!
360 SHOW
370 VARNAME
380 REPEAT
390 UNKNOWN OP: 0x3A
3999 REM -- Check under mouse 
4 REM  Description .: Example of using mouse to move between three screens 
40 RESERVE
400 UNKNOWN OP: 0x3A
4000 VARNAME
4010 VARNAME
4020 FOR
4030 IF
4040 VARNAME
410 UNKNOWN OP: 0x3A
4100 NEXT
4110 IF
4120 VARNAME
4130 BELL
4140 REPEAT
4150 UNTIL
420 UNKNOWN OP: 0x3A
430 UNKNOWN OP: 0x3A
440 UNKNOWN OP: 0x3A
4400 RETURN
450 UNKNOWN OP: 0x3A
460 UNKNOWN OP: 0x3A
470 UNTIL
480 CLW
490 IF
5 REM 
50 CLS
500 PRINT
510 GOTO
520 IF
530 PRINT
540 PRINT
550 GOTO
560 PRINT
570 PRINT
580 CURS
590 REPEAT
6 REM Replace SCREEN COPY with faster MISTY extension commands if you have them
60 CLS
600 UNTIL
610 END
7 REM 
70 CLS
8 REM 
80 DIM
9 REM 
90 VARNAME
999 REM --- Move RIGHT 