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