1 KEY 10 REM STOS BITS ISSUE TWO 100 REM MAIN MENU - LOAD PRESET/GRAPHICS/MAP. 10280 REM read map data and draw the current room 10290 REM all coding by eddie of thb 10300 REM WE ARE THE BEST!!! 10310 REM better than the rest 10320 REM support the right team 10330 REM and you will be supreme!!!! 10340 REM now on with the coding!!! 10341 VARNAME 10342 VARNAME 10343 PEN 10350 CLS 10360 FOR 10365 VARNAME 10370 IF 10375 VARNAME 10380 IF 10385 NEXT 10391 SCREEN COPY 10395 VARNAME 110 REM CUT OUT TILES 150 ERASE 155 ERASE 156 ERASE 160 ERASE 170 FILL 180 DIR$ 190 DIM 191 FOR 2 LOGIC 20 REM MAIN MENU CODED BY EDDIE BRYAN 200 REM LOAD PRESETS AT ONE GO 20320 REM read map data and draw the current room 20330 REM all coding by eddie of thb 20340 REM WE ARE THE BEST!!! 20350 REM better than the rest 20360 REM support the right team 20370 REM and you will be supreme!!!! 20380 REM now on with the coding!!! 20390 VARNAME 20400 VARNAME 20410 PEN 20440 FOR 20445 VARNAME 20450 IF 20455 VARNAME 20460 IF 20465 NEXT 20530 VARNAME 210 CLS 220 VARNAME 230 OPEN IN 240 FOR 250 INPUT 260 NEXT 270 INPUT 280 INPUT 290 CLOSE 30 REM USES THE THB MAPMAKER 300 BLOAD 310 LOAD 320 REM LOAD TILE DATA 330 OPEN IN 340 FOR 350 FOR 360 INPUT 370 NEXT 380 CLOSE 390 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~ 40 REM WRITTEN BY EDDIE BRYAN 400 REM CUT OUT SCREEN$ BLOCKS READY FOR MAP DRAWING 4000 REM move map right one screen 4010 VARNAME 4020 FADE 4030 GOSUB 4031 VARNAME 4040 RETURN 410 EXTENSION (Index #0) (Token 0x80) 420 FOR 430 VARNAME 440 VARNAME 450 VARNAME 460 VARNAME 470 VARNAME 480 NEXT 490 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 50 REM STARTED 28 JULY 1991 5000 REM move map left one screen 5010 VARNAME 5020 FADE 5030 GOSUB 5031 VARNAME 5040 RETURN 60 REM SHOULD BE READY FOR RELEASE AT CES SHOW IN SEPTEMBER!!! 600 REM MAIN LOOP CODE 610 GOSUB 630 UPDATE 631 VARNAME 632 SCREEN COPY 640 REM NOW THE MAIN LOOP 650 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 660 REPEAT 670 SCREEN COPY 671 VARNAME 672 IF 673 IF 674 IF 675 IF 676 SCREEN$ 677 IF 678 IF 679 IF 680 SPRITE 690 REDRAW 70 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 700 SCREEN SWAP 710 UNTIL 80 REM UPDATE - 28 JULY 1991 90 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~