TCE Demo 2

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

/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser22.arj / stoser22.msa / GIVEAWAY._22 / TIME.BAS (.txt) < prev

Wrap

Atari STOS Basic | 1987-04-22 | 12KB | 234 lines

10 MODE 100 PRINT 1000 VARNAME 10000 CLS 1010 VARNAME 103 IF 1030 VARNAME 104 REM cls 1040 VARNAME 1050 RETURN 106 VARNAME 1060 VARNAME 107 IF 1070 VARNAME 108 IF 109 GOSUB 1090 VARNAME 110 REM print A$;" ";B$ 1100 VARNAME 11000 CURS 111 IF 112 IF 1120 VARNAME 113 IF 1130 VARNAME 114 IF 115 IF 1150 VARNAME 116 IF 1160 VARNAME 117 IF 118 IF 1180 VARNAME 119 IF 1190 VARNAME 120 IF 12000 DATA 121 IF 1210 VARNAME 122 IF 1220 VARNAME 123 IF 1240 VARNAME 125 IF 1250 VARNAME 126 IF 127 IF 1270 VARNAME 128 IF 1280 VARNAME 129 IF 1300 VARNAME 1310 VARNAME 1330 VARNAME 1340 VARNAME 1360 CLS 1370 GOTO 1390 VARNAME 14 VARNAME 140 IF 1400 VARNAME 1420 VARNAME 1430 VARNAME 145 IF 1450 VARNAME 1455 VARNAME 1480 VARNAME 1490 VARNAME 150 IF 157 IF 160 IF 17 CLS 170 IF 180 IF 1800 IF 1810 IF 1850 VARNAME 1890 GOTO 190 IF 20 VARNAME 200 IF 2000 IF 2010 IF 2020 VARNAME 2025 FOR 2030 IF 2033 IF 2034 PEN 2035 VARNAME 2045 VARNAME 205 IF 2050 VARNAME 2055 NEXT 2060 IF 2065 GOTO 210 IF 215 IF 22 VARNAME 225 IF 230 IF 24 VARNAME 240 IF 250 IF 2500 IF 2515 IF 2520 IF 2535 IF 26 VARNAME 260 IF 27 VARNAME 28 VARNAME 30 VARNAME 300 IF 3000 IF 3010 IF 3015 IF 3025 IF 3030 IF 3045 IF 3050 IF 3060 GOTO 32 LOCATE 35 GOSUB 3500 IF 3510 IF 3520 IF 3530 IF 3535 IF 3545 VARNAME 3550 WAIT 3551 WAIT 3552 WAIT 3560 VARNAME 3570 GOTO 40 CLS 4000 IF 4010 PRINT 42 INK 44 LOCATE 45 PRINT 4500 IF 4505 FOR 4510 IF 4520 IF 4525 VARNAME 4530 VARNAME 4535 PEN 4540 VARNAME 4545 NEXT 499 GOTO 5 REM Checked GFF א™ 50 VARNAME 500 VARNAME 501 IF 502 VARNAME 503 VARNAME 504 VARNAME 505 VARNAME 506 IF 507 VARNAME 510 RETURN 52 VARNAME 5500 VARNAME 5510 IF 5515 IF 5520 PRINT 5525 VARNAME 5530 NEXT 5540 IF 5550 GOTO 60 GOTO 600 STOP 6000 IF 6002 IF 6005 IF 6010 IF 6020 IF 6040 IF 6060 PRINT 6100 IF 6120 LET 6500 IF 6530 IF 6540 IF 6560 PAPER 7000 IF 7010 CLS 7100 GOTO 7500 IF 7510 IF 7530 IF 7550 IF 7570 PRINT 80 GOTO 8000 CLS 8010 LOCATE 8020 PRINT 8030 LOCATE 8060 IF 8070 GOTO 8075 CURS 90 IF 9000 INPUT 9010 IF 9020 STOP 9030 STOP 9100 CLS 9110 DIM 9120 DIM 9130 FOR 9140 VARNAME 9145 VARNAME 9147 IF 9148 IF 9150 NEXT 9160 VARNAME 9190 VARNAME 9200 DATA 9210 FOR 9425 VARNAME 9480 GOTO 9500 RETURN 9600 FOR 9605 VARNAME 9610 IF 9615 IF 9620 GOTO 9630 IF 9635 PEN 9640 PRINT 9650 NEXT 9660 PEN 9700 GOTO