10 REM       Fruit Machine
100 IF
1000 RETURN
1010 VARNAME
1020 IF
1030 SPRITE
1040 VARNAME
1050 WHILE
1060 VARNAME
1070 IF
1080 WEND
1090 ANIM
110 GOSUB
1100 FOR
1110 SPRITE
1120 RETURN
1130 VARNAME
1140 IF
1150 IF
1160 IF
1170 WHILE
1180 RETURN
1190 VARNAME
120 VARNAME
1200 VARNAME
1210 SPRITE
1220 SPRITE
1230 INC
1240 NEXT
1250 REPEAT
1260 VARNAME
1270 VARNAME
1280 IF
1290 IF
130 GOSUB
1300 IF
1310 IF
1320 IF
1330 IF
1340 WHILE
1350 VARNAME
1360 DEC
1370 GOSUB
1380 UNTIL
1390 IF
140 GOSUB
1400 RETURN
1410 DIM
1420 VARNAME
1430 VARNAME
1440 VARNAME
1450 RESERVE
1460 FOR
1470 SPRITE
1480 SCREEN$
1490 NEXT
150 GOSUB
1500 CLS
1510 FOR
1520 FOR
1530 READ
1540 NEXT
1550 NEXT
1560 FOR
1570 VARNAME
1580 NEXT
1590 VARNAME
160 LOGIC
1600 FOR
1610 EXTENSION (Index #0) (Token 0x80)
1620 SCREEN$
1630 SCREEN$
1640 SCREEN$
1650 VARNAME
1660 SPRITE
1670 SET ZONE
1680 SPRITE
1690 SET ZONE
170 IF
1700 SPRITE
1710 SET ZONE
1720 NEXT
1730 SCREEN COPY
1740 VARNAME
1750 FOR
1760 FOR
1770 FOR
1780 FOR
1790 SPRITE
180 WEND
1800 SET ZONE
1810 SPRITE
1820 SET ZONE
1830 SPRITE
1840 SET ZONE
1850 RETURN
1860 DATA
1870 DATA
1880 DATA
1890 DATA
190 CLS
1900 DATA
1910 DATA
20 REM    By David McLachlan
200 VARNAME
210 VARNAME
220 IF
230 VARNAME
240 WHILE
250 INC
260 SPRITE
270 WEND
280 NEXT
290 SPRITE
30 REM  (c) Atari ST User 1989
300 SCREEN COPY
310 RETURN
320 VARNAME
330 SPRITE
340 SPRITE
350 WHILE
360 VARNAME
370 IF
380 WEND
390 SPRITE
40 KEY
400 IF
410 VARNAME
420 RETURN
430 VARNAME
440 IF
450 IF
460 SPRITE
470 ANIM
480 ANIM
490 ANIM
50 PALETTE
500 SPRITE
510 WAIT
520 SPRITE
530 SPRITE
540 WHILE
550 RETURN
560 IF
570 IF
580 IF
590 IF
60 GOSUB
600 VARNAME
610 HIDE
620 WHILE
630 GOSUB
640 VARNAME
650 IF
660 VARNAME
670 IF
680 VARNAME
690 IF
70 VARNAME
700 WEND
710 VARNAME
720 RETURN
730 VOLUME
740 VARNAME
750 VARNAME
760 VARNAME
770 VARNAME
780 GOSUB
790 GOSUB
80 SHOW
800 GOSUB
810 SCREEN SWAP
820 RETURN
830 SCREEN$
840 SCREEN$
850 SCREEN$
860 RETURN
870 SCREEN$
880 SCREEN$
890 SCREEN$
90 WHILE
900 RETURN
910 SCREEN$
920 SCREEN$
930 SCREEN$
940 RETURN
950 VARNAME
960 IF
970 RETURN
980 VARNAME
990 IF