Falcon 030 Power 2

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

/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI07.ARJ / ictari.07 / STOS / ICTARI.BAS (.txt) next >

Wrap

Atari STOS Basic | 1997-09-18 | 20KB | 357 lines

10 ON ERROR 100 VARNAME 1000 PRINT 1010 PRINT 1020 PRINT 1030 VARNAME 1031 MENU 1032 IF 1033 VARNAME 1034 IF 1035 PRINT 1036 VARNAME 1040 MENU 1050 MENU$ 1060 ON 1070 IF 1075 GOSUB 1080 GOSUB 1090 IF 110 FOR 1100 PRINT 1110 IF 1120 IF 1130 VARNAME 1140 PRINT 1150 VARNAME 1160 INPUT 1170 VARNAME 1180 INPUT 1190 IF 120 FOR 1200 IF 1210 INPUT 1220 IF 1230 IF 1240 PRINT 1250 WAIT KEY 1260 GOTO 1270 MENU 1280 IF 1285 GOSUB 1290 GOSUB 130 NEXT 1300 PRINT 1310 IF 1320 PRINT 1330 PRINT 1340 PRINT 1350 PRINT 1360 PRINT 1370 IF 1380 IF 1390 PRINT 140 FOR 1400 MENU 1410 IF 1415 GOSUB 1420 GOSUB 1430 PRINT 1440 IF 1450 PRINT 1460 PRINT 1470 PRINT 1480 IF 1490 ON 15 COLOUR 150 CLOSE 1500 PRINT 1510 PRINT 1520 PRINT 1530 IF 1540 IF 155 FOR 1550 PRINT 1560 VARNAME 1561 MENU 1562 IF 1563 GOSUB 1564 DEC 1565 PRINT 1570 MENU 1580 ON 1590 IF 1595 GOSUB 160 RESTORE 1600 GOSUB 1610 IF 1620 LPRINT 1630 LPRINT 1640 LPRINT 1650 LPRINT 1660 LPRINT 1670 LPRINT 1680 IF 1690 LPRINT 170 FOR 1700 IF 1710 IF 1720 IF 1730 IF 1740 IF 1750 IF 1760 LPRINT 1770 IF 1780 REM 1790 VARNAME 180 NEXT 1800 LPRINT 1810 LPRINT 1820 IF 1830 VARNAME 1840 FOR 1850 LPRINT 1860 IF 1870 IF 1880 LPRINT 1890 NEXT 190 IF 1900 IF 1910 WAIT KEY 1920 GOTO 1930 CLS 1940 IF 1945 GOSUB 195 FOR 1950 GOSUB 1960 IF 1970 PRINT 1980 PRINT 1990 PRINT 20 KEY 200 MENU$ 2000 PRINT 2010 PRINT 2020 PRINT 2030 PRINT 2040 PRINT 2050 PRINT 2060 IF 2070 VARNAME 2080 FOR 2090 PRINT 210 MENU 2100 IF 2110 IF 2120 PRINT 2130 NEXT 2140 WAIT KEY 2150 GOTO 2160 LPRINT 2170 FOR 2180 LPRINT 2190 NEXT 220 MENU 2200 PRINT 2210 FOR 2220 PRINT 2230 NEXT 2240 WAIT KEY 2250 ON 2260 PRINT 2270 IF 2280 IF 2290 RETURN 230 ON 2300 PRINT 2310 VARNAME 2320 FOR 2330 IF 2340 NEXT 2350 RETURN 2360 PRINT 2370 VARNAME 2380 FOR 2390 IF 240 ON 2400 NEXT 2410 RETURN 2420 PRINT 2430 VARNAME 2440 FOR 2450 IF 2460 NEXT 2470 RETURN 2480 VARNAME 2490 FOR 25 VARNAME 250 GOTO 2500 VARNAME 2510 VARNAME 2520 VARNAME 2530 NEXT 2540 RETURN 2550 PRINT 2560 PRINT 2570 PRINT 2580 PRINT 2590 PRINT 26 POKE 260 ON 2600 INPUT 2610 IF 2620 IF 2630 RETURN 2640 MENU 2650 ON 2660 PRINT 2670 INPUT 2680 PRINT 2690 PRINT 270 VARNAME 2700 VARNAME 2710 IF 2720 INC 2730 IF 2740 VARNAME 2750 VARNAME 2760 VARNAME 2770 VARNAME 2780 VARNAME 2790 VARNAME 280 KILL 2800 PRINT 2810 NEXT 2820 PRINT 2830 WAIT KEY 2840 REM *** STATUS *** 285 OPEN OUT 2850 LOCATE 2860 BOX 2870 LOCATE 2880 LOCATE 2890 REPEAT 290 VARNAME 2900 GOTO 2910 MENU 2920 ON 2930 REM *** keys *** 2940 MENU 2950 WINDOPEN 2960 UNDER 2970 FOR 2980 VARNAME 2990 LOCATE 30 IF 300 FOR 3000 NEXT 3010 LOCATE 3020 FOR 3030 VARNAME 3040 LOCATE 3050 NEXT 3060 LOCATE 3070 WHILE 3080 VARNAME 3090 GOTO 310 FOR 3100 VARNAME 3110 LOCATE 3120 VARNAME 3130 LOCATE 3140 KEY 3150 IF 3155 IF 3160 IF 3170 PRINT 3180 DATA 3190 DATA 320 NEXT 3200 DATA 3210 DATA 3220 DATA 3230 DATA 3240 DATA 330 FOR 340 CLOSE 350 IF 360 DEFAULT 370 ON 380 MENU 390 INC 3999 REM ** inverse ** 40 DIM 400 PRINT 4000 IF 4010 VARNAME 410 PRINT 420 MENU$ 430 VARNAME 440 INPUT 450 INPUT 460 INPUT 470 INPUT 480 INPUT 490 INPUT 50 DIM 500 INPUT 510 INPUT 520 INPUT 530 INPUT 5390 IF 540 PRINT 5400 IF 5405 WAIT VBL 550 WAIT KEY 560 MENU 565 IF 570 GOSUB 580 GOSUB 590 IF 60 DIM 600 PRINT 610 PRINT 620 PRINT 630 PRINT 640 PRINT 650 PRINT 660 PRINT 670 PRINT 680 PRINT 690 PRINT 70 DIM 700 PRINT 710 PRINT 720 PRINT 730 PRINT 740 WAIT KEY 75 FOR 750 MENU 755 IF 760 GOSUB 770 GOSUB 780 IF 790 PRINT 80 VARNAME 800 PRINT 810 PRINT 820 PRINT 830 PRINT 840 PRINT 850 PRINT 860 PRINT 870 PRINT 880 PRINT 890 PRINT 90 INPUT 900 INPUT 910 IF 920 ON 930 PRINT 940 PRINT 950 PRINT 960 PRINT 970 PRINT 980 PRINT 990 PRINT