10 KEY 100 IF 1000 REM NAMES AND FILENAMES 1010 DATA 1020 DATA 1030 DATA 1080 DATA 1090 DATA 11 DIR$ 110 IF 12 OPEN IN 120 UNTIL 125 IF 13 RESERVE 130 IF 14 EXTENSION (Index #0) (Token 0x80) 140 IF 145 IF 146 IF 147 IF 148 IF 15 DIM 150 VARNAME 160 FADE 20 DIM 30 FOR 35 FOR 36 FOR 40 FOR 40000 HIDE 40005 GOSUB 40010 LOCATE 40020 ERASE 40030 VARNAME 40040 BLOAD 40050 IF 40060 FOR 40070 VARNAME 40080 VARNAME 40090 WHILE 40100 VARNAME 40110 VARNAME 40120 IF 40130 VARNAME 40140 VARNAME 40150 INC 40160 WEND 40170 VARNAME 40180 VARNAME 40190 FADE 40195 IF 40200 EXTENSION (Index #12) (Token 0x80) 40210 VARNAME 40220 REM ***************** show it ******************************************** 40230 CLEAR KEY 40231 IF 40240 IF 40250 IF 40251 IF 40260 IF 40270 IF 40280 IF 40290 IF 40300 IF 40320 IF 40330 IF 40360 IF 40370 IF 40380 IF 40390 IF 40394 IF 40396 IF 40410 GOTO 40420 REM *********** update the screen **************************************** 40430 IF 40431 IF 40432 EXTENSION (Index #16) (Token 0x84) 40440 POLYGON 40680 REM ****** help menu **************************************************** 40690 EXTENSION (Index #12) (Token 0x80) 40700 REPEAT 40810 UNKNOWN OP: 0x3A 40820 IF 40990 REM ******** fader ******************************************************* 41000 FADE 41010 REM ********* save a doc ************** 41020 GOSUB 41040 SHOW 41050 HIDE 41060 CLEAR KEY 41070 HIDE 41080 REM ********** COLOUR ***************** 41090 IF 41100 REM ================== Find Character Sets =============================== 41101 VARNAME 41102 VARNAME 41103 VARNAME 41104 WEND 41230 REM *********** STRING SEARCH ******************************************** 41240 CLEAR KEY 41250 LOCATE 41260 LOCATE 41280 VARNAME 41290 IF 41300 NEXT 41310 EXTENSION (Index #17) (Token 0x82) 41410 EXTENSION (Index #17) (Token 0x82) 41411 VARNAME 41420 LOGIC 41430 REM ########## get input ## not my work ## someone elses ################# 41440 VARNAME 41490 VARNAME 41500 LOCATE 41510 PRINT 41520 UNKNOWN OP: 0x3A 41530 REPEAT 41540 LOCATE 41550 PEN 41560 LOCATE 41570 GOSUB 41580 IF 41590 UNKNOWN OP: 0x3A 41600 IF 41610 UNKNOWN OP: 0x3A 41620 UNTIL 41630 REM locate XINPUT,YINPUT 41640 REM print space$(INPLEN+1) 41650 RETURN 41720 REPEAT 41730 VARNAME 41740 VARNAME 41750 UNTIL 41760 RETURN 45 FOR 46 FOR 50 EXTENSION (Index #0) (Token 0x80) 55 RESET ZONE 55000 EXTENSION (Index #16) (Token 0x96) 60 FOR 70 SHOW 80 REM 90 VARNAME 95 IF