Fujiology Archive

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

/ Fujiology Archive / fujiology_archive_v1_0.iso / S / STD_CREW / 007_DEMO.ZIP / 007_DEMO.MSA / FORMAT.BAS (.txt) < prev next >

Wrap

Atari STOS Basic | 1987-04-22 | 255KB | 271 lines

10 REM THIS 'ERE PROGRAM WAS BASHED INTO THE ST BY E.DUFFELL, AND WORKS ON ALL STs MADE BEFORE 01/02/91, WHEN IT WAS CREATED ======================================== 100 FOR 1000 PEN 1010 FOR 1020 IF 1030 NEXT 1040 FOR 1050 INK 1060 PLOT 1070 NEXT 1080 VARNAME 1090 NEXT 110 FOR 1100 INK 1110 IF 1120 GOTO 1130 LOCATE 1140 VARNAME 1150 IF 1160 IF 1170 IF 1180 GOTO 1190 IF 120 VARNAME 1200 WAIT 1210 LOCATE 1220 VARNAME 1230 IF 1240 IF 1250 GOTO 1260 VARNAME 1270 VARNAME 1280 IF 1290 IF 130 VARNAME 1300 IF 1310 IF 1320 GOTO 1330 VARNAME 1340 WAIT 1350 VARNAME 1360 IF 1370 IF 1380 IF 1390 GOTO 140 NEXT 1400 FOR 1410 FOR 1420 VARNAME 1430 NEXT 1440 WAIT 1450 VARNAME 1460 IF 1470 IF 1480 IF 1490 IF 150 GOTO 1500 GOTO 1510 LOCATE 1520 VARNAME 1530 IF 1540 IF 1550 IF 1560 IF 1570 IF 1580 GOTO 1590 VARNAME 160 VARNAME 1600 LOCATE 1610 WAIT 1620 EXTENSION (Index #3) (Token 0x88) 1630 EXTENSION (Index #3) (Token 0x8e) 1640 EXTENSION (Index #3) (Token 0x98) 1650 GOTO 1660 EXTENSION (Index #3) (Token 0x88) 1670 VARNAME 1680 IF 1690 GOTO 170 FOR 1700 EXTENSION (Index #3) (Token 0x88) 1710 VARNAME 1720 IF 1730 GOTO 1740 EXTENSION (Index #3) (Token 0x88) 1750 EXTENSION (Index #3) (Token 0x88) 1760 VARNAME 1770 IF 1780 GOTO 1790 VARNAME 180 VARNAME 1800 WAIT VBL 1810 FOR 1820 DOKE 1830 FOR 1840 DOKE 1850 FOR 1860 DOKE 1870 FOR 1880 DOKE 1890 FOR 190 VARNAME 1900 DOKE 1910 FOR 1920 DOKE 1930 FOR 1940 DOKE 1950 FOR 1960 DOKE 1970 FOR 1980 IF 1990 DOKE 20 MODE 200 IF 2000 FOR 2010 DOKE 2020 FOR 2030 DOKE 2040 FOR 2050 DOKE 2060 FOR 2070 DOKE 2080 FOR 2090 DOKE 210 VARNAME 2100 FOR 2110 DOKE 2120 FOR 2130 DOKE 2140 NEXT 2150 FOR 2160 WAIT VBL 2170 FOR 2180 DOKE 2190 FOR 220 NEXT 2200 DOKE 2210 FOR 2220 DOKE 2230 FOR 2240 DOKE 2250 FOR 2260 DOKE 2270 FOR 2280 DOKE 2290 FOR 230 VARNAME 2300 DOKE 2310 FOR 2320 DOKE 2330 FOR 2340 IF 2350 DOKE 2360 FOR 2370 DOKE 2380 FOR 2390 DOKE 240 NEXT 2400 FOR 2410 DOKE 2420 FOR 2430 DOKE 2440 FOR 2450 DOKE 2460 FOR 2470 DOKE 2480 FOR 2490 DOKE 250 GOTO 2500 NEXT 2510 GOTO 2520 VARNAME 2530 FOR 2540 LET 2550 INK 2560 DRAW 2570 DRAW 2580 DRAW 2590 DRAW 260 DREG 2600 VARNAME 2610 NEXT 2620 FOR 2630 VARNAME 2640 INK 2650 DRAW 2660 DRAW 2670 DRAW 2680 DRAW 2690 VARNAME 270 IF 2700 NEXT 280 IF 290 DRIVE 30 GET PALETTE 300 PEN 310 REM f R=6 then bell 320 VARNAME 330 FOR 340 VARNAME 350 NEXT 360 VARNAME 370 NEXT 380 VARNAME 390 FOR 40 SCREEN COPY 400 FOR 410 VARNAME 420 VARNAME 430 NEXT 440 VARNAME 450 NEXT 460 FOR 470 VARNAME 480 VARNAME 490 NEXT 50 WINDOPEN 500 LOCATE 510 LOCATE 520 LOCATE 530 LOCATE 540 FOR 550 FOR 560 VARNAME 570 NEXT 580 LOCATE 590 LOCATE 60 GET PALETTE 600 GOTO 610 FOR 620 VARNAME 630 INK 640 DRAW 650 NEXT 660 FOR 670 VARNAME 680 INK 690 DRAW 70 ERASE 700 NEXT 710 FOR 720 VARNAME 730 GOTO 740 DEF 750 VARNAME 760 VARNAME 770 VARNAME 780 VARNAME 790 VARNAME 80 CLEAR KEY 800 VARNAME 810 VARNAME 820 VARNAME 830 VARNAME 840 VARNAME 850 VARNAME 860 VARNAME 870 IF 880 IF 890 FOR 90 GOTO 900 VARNAME 910 VARNAME 920 IF 930 IF 940 IF 950 IF 960 IF 970 IF 980 IF 990 VARNAME