TCE Demo 2

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

/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser02.arj / stoser02.msa / SOURCE.4U / DISCOPY.BAS (.txt) < prev next >

Wrap

Atari STOS Basic | 1987-04-22 | 5KB | 128 lines

10 DIR$ 100 PRINT 1000 VARNAME 10000 QWINDOW 10010 PEN 10020 CENTRE 10030 CENTRE 10040 CLEAR KEY 10050 REPEAT 10060 CLW 1010 VARNAME 1020 GOSUB 1030 IF 1040 GOSUB 1050 IF 10500 VARNAME 1051 VARNAME 10510 VARNAME 1052 IF 10520 GOSUB 1053 VARNAME 10530 IF 1054 VARNAME 10540 FILL 10550 TRAP 10560 IF 10570 VARNAME 10580 VARNAME 10590 GOSUB 1060 VARNAME 10600 IF 10610 VARNAME 10620 VARNAME 10630 VARNAME 10640 VARNAME 10650 VARNAME 10660 GOTO 10670 VARNAME 10680 RETURN 1070 VARNAME 1080 VARNAME 1090 GOSUB 110 PRINT 1100 IF 1105 GOSUB 1110 IF 1120 VARNAME 1130 VARNAME 1140 GOSUB 1150 IF 1199 REM copy 120 PEN 1200 PEN 1210 LOCATE 1220 VARNAME 1230 QWINDOW 1240 PEN 1250 CENTRE 1251 VARNAME 1252 IF 1260 TRAP 1261 VARNAME 1262 NEXT 1270 GOSUB 1280 INC 1285 LOCATE 1286 LOCATE 1290 GOTO 130 PRINT 140 PRINT 15 VARNAME 150 PRINT 16 RESERVE 160 PRINT 170 VARNAME 180 VARNAME 190 ON 20 MODE 299 REM Check disc space 30 PEN 300 VARNAME 3000 VARNAME 3010 VARNAME 3012 QWINDOW 3014 PEN 3015 CENTRE 3016 VARNAME 3017 IF 3020 TRAP 3022 VARNAME 3024 NEXT 3030 RETURN 310 VARNAME 320 GOSUB 330 IF 340 ON ERROR 350 VARNAME 360 ON ERROR 370 VARNAME 380 VARNAME 390 GOSUB 40 WINDOPEN 400 GOTO 410 ON ERROR 420 VARNAME 430 VARNAME 440 GOSUB 450 IF 460 RESUME 499 REM Check format 50 QWINDOW 500 GOSUB 520 IF 60 PEN 620 VARNAME 630 VARNAME 632 VARNAME 633 VARNAME 634 VARNAME 635 VARNAME 660 GOTO 70 LOCATE 80 PEN 90 LOCATE 9900 DEFAULT 9920 END 999 REM Copy