No Fragments Archive 10: Diskmags

home *** CD-ROM | disk | FTP | other *** search

/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1989 / USER0889.MSA / STOS_FRUITMA3.BAS (.txt) < prev next >

Wrap

Atari STOS Basic | 1985-11-19 | 38KB | 192 lines

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