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 / SECTEDIT.BAS (.txt) < prev next >

Wrap

Atari STOS Basic | 1987-04-22 | 10KB | 328 lines

10 CURS 100 WEND 1000 LOCATE 10000 CHANGE MOUSE 10001 VARNAME 10010 VARNAME 10020 TRAP 10030 IF 10031 CHANGE MOUSE 10040 RETURN 1010 PRINT 1020 GOSUB 1030 IF 1040 INC 1050 REM Allow more than MXCT (error will trap max) 1060 LOCATE 1070 PRINT 1080 GOSUB 1090 IF 11 VARNAME 110 RESERVE 1100 VARNAME 11000 CHANGE MOUSE 11001 VARNAME 11010 VARNAME 11020 TRAP 11030 IF 11031 CHANGE MOUSE 11040 RETURN 1110 GOTO 1120 DEC 1130 IF 1140 LOCATE 1150 PRINT 1160 GOSUB 1170 IF 1180 INC 1190 REM Allow more than MXCSC (error will trap max) 1200 LOCATE 121 PALETTE 1210 PRINT 1220 GOSUB 1230 IF 1240 VARNAME 1250 GOTO 1260 GOTO 1270 GOSUB 1271 IF 1272 FOR 1273 COLOUR 1274 BELL 1275 WAIT 1276 COLOUR 1277 WAIT 1278 NEXT 1280 GOTO 1290 CHANGE MOUSE 130 CLW 1300 VARNAME 1301 CLS 1302 CLS 1310 TRAP 1320 VARNAME 1330 VARNAME 1340 VARNAME 1350 VARNAME 1360 LOCATE 1361 PRINT 1370 LOCATE 1371 PRINT 1380 LOCATE 1381 PRINT 1382 LOCATE 1383 CENTRE 1384 REPEAT 1385 UNTIL 1386 CLS 1387 CLS 1390 CHANGE MOUSE 140 PEN 1400 GOTO 150 PRINT 160 LOCATE 170 PRINT 180 FOR 190 LOCATE 19999 REM Put CBYTE back to normal 20 DIM 200 PRINT 2000 IF 20000 IF 20001 VARNAME 20002 LOCATE 20003 PRINT 2001 HIDE 20010 DEC 2002 PEN 20020 IF 20030 VARNAME 20040 LOCATE 20050 VARNAME 20060 IF 20070 PRINT 20080 GOTO 20090 VARNAME 2010 VARNAME 20100 LOCATE 20110 PRINT 20120 VARNAME 20130 RETURN 2020 REM gosub 20000 : rem Put back CBYTE 2030 REM Get input (until RETURN) or Esc 2031 CLEAR KEY 2033 VARNAME 2034 VARNAME 2035 FOR 2036 VARNAME 2037 NEXT 2038 VARNAME 2039 GOSUB 2040 REPEAT 2042 UNKNOWN OP: 0x3A 2050 UNKNOWN OP: 0x3A 2051 UNKNOWN OP: 0x3A 2060 UNKNOWN OP: 0x3A 2062 UNKNOWN OP: 0x3A 2070 UNKNOWN OP: 0x3A 2071 UNKNOWN OP: 0x3A 2073 UNKNOWN OP: 0x3A 2080 UNKNOWN OP: 0x3A 2090 UNKNOWN OP: 0x3A 2092 UNKNOWN OP: 0x3A 20999 REM Put on BYTE 21 VARNAME 210 NEXT 21000 INVERSE 21001 VARNAME 21002 IF 21010 IF 21020 DEC 21030 VARNAME 21040 LOCATE 21070 PRINT 21080 GOTO 21090 VARNAME 211 SHOW 21100 DEC 21110 VARNAME 21120 LOCATE 21130 PRINT 21140 INVERSE 21141 LOCATE 21142 PRINT 21150 RETURN 2160 UNKNOWN OP: 0x3A 2162 UNKNOWN OP: 0x3A 2170 UNKNOWN OP: 0x3A 2171 UNKNOWN OP: 0x3A 2173 UNKNOWN OP: 0x3A 2180 UNKNOWN OP: 0x3A 2190 UNKNOWN OP: 0x3A 2192 UNKNOWN OP: 0x3A 21999 REM Put MP back to normal 22 VARNAME 220 VARNAME 2200 UNKNOWN OP: 0x3A 22000 IF 22001 LOCATE 22010 PRINT 22011 VARNAME 22020 RETURN 2210 UNKNOWN OP: 0x3A 2212 UNKNOWN OP: 0x3A 2213 UNKNOWN OP: 0x3A 2214 UNKNOWN OP: 0x3A 2220 UNKNOWN OP: 0x3A 2230 UNKNOWN OP: 0x3A 22999 REM Put on MP 23 VARNAME 230 VARNAME 2300 UNKNOWN OP: 0x3A 23000 INVERSE 23006 LOCATE 23010 PRINT 23011 INVERSE 23020 RETURN 24 VARNAME 240 VARNAME 2400 UNKNOWN OP: 0x3A 2410 UNKNOWN OP: 0x3A 2420 UNKNOWN OP: 0x3A 2422 UNKNOWN OP: 0x3A 2423 UNKNOWN OP: 0x3A 2424 UNKNOWN OP: 0x3A 2468 UNKNOWN OP: 0x3A 2469 UNKNOWN OP: 0x3A 2472 UNKNOWN OP: 0x3A 2480 UNKNOWN OP: 0x3A 2482 UNKNOWN OP: 0x3A 2485 UNKNOWN OP: 0x3A 25 VARNAME 250 VARNAME 2500 UNKNOWN OP: 0x3A 2511 UNKNOWN OP: 0x3A 2512 UNKNOWN OP: 0x3A 2513 UNKNOWN OP: 0x3A 260 VARNAME 270 GOSUB 280 PEN 290 VARNAME 30 VARNAME 300 VARNAME 30000 INVERSE 30010 LOCATE 30020 PRINT 30030 INVERSE 30040 RETURN 301 CHANGE MOUSE 310 VARNAME 31000 LOCATE 31010 PRINT 31020 RETURN 320 VARNAME 330 VARNAME 340 VARNAME 350 FOR 360 VARNAME 370 VARNAME 380 IF 390 MID$ 40 READ 400 MID$ 410 INC 420 IF 430 VARNAME 440 VARNAME 450 NEXT 460 LOCATE 470 PRINT 480 CHANGE MOUSE 490 VARNAME 50 WHILE 500 REM locate 0,8 : print using "###";X; using "####";Y; using "####";XT; using "####";YT 510 IF 520 GOSUB 530 IF 540 IF 550 IF 560 PEN 570 GOSUB 580 VARNAME 590 GOSUB 60 UNKNOWN OP: 0x3A 600 GOTO 6000 UNTIL 60000 DATA 60010 DATA 60020 DATA 60030 DATA 60040 DATA 60050 DATA 60060 DATA 60070 DATA 60077 DATA 60080 DATA 6090 SHOW 610 GOSUB 6100 IF 61000 DATA 6110 LOCATE 6112 PRINT 6114 GOTO 620 VARNAME 6200 VARNAME 6201 DEC 6210 POKE 6220 VARNAME 6230 LOCATE 6240 PRINT 6250 LOCATE 6260 PRINT 6270 GOSUB 630 PEN 640 IF 650 IF 660 IF 670 GOSUB 680 VARNAME 690 GOSUB 70 UNKNOWN OP: 0x3A 700 GOTO 710 INC 720 IF 730 IF 740 LOCATE 750 PRINT 760 VARNAME 770 IF 780 IF 781 VARNAME 790 GOSUB 80 UNKNOWN OP: 0x3A 800 PEN 8000 GOTO 81 UNKNOWN OP: 0x3A 810 ON 820 DEC 830 IF 840 LOCATE 850 PRINT 860 GOSUB 870 IF 880 VARNAME 890 GOTO 90 UNKNOWN OP: 0x3A 900 INC 9000 STOP 910 IF 920 LOCATE 930 PRINT 940 GOSUB 950 IF 960 VARNAME 970 GOTO 980 DEC 990 IF 9999 FADE