Listing of file='MENU.BAS;02' on disk='vmedia/action_soundware-sector.ccvf'
25 REM MENU 26 REM COPYRIGHT 7-79 27 REM CAP ELECTRONICS 28 REM 30 TM= PEEK (32940)+ 256* PEEK (32941):POKE 32936,0 32 IF TM> 64* 1024- 8THEN LOAD "SOUND":RUN 35 IF PEEK (TM+ 180)< > 241THEN LOAD "SOUND":RUN 40 DA= TM+ 8:AD= 33283:GOSUB 60100 45 CLEAR 100 50 BD$= "twtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwt" 60 BL$= " " 70 P= 100:D= 500:NS= 0:S1= 0:S2= 0 75 OUT 8,247 515 PLOT 6,7,12,15 517 GOSUB 2000 520 TM= PEEK (32940)+ 256* PEEK (32941)+ 1 521 PRINT " " 522 PLOT 14,3,1,2 523 PRINT " ~| tf en en tu pb {d ~| tf bh pq {e pb ab " 524 PLOT 3,1,4 525 PRINT " no vi a l vw as a no vi a| ab l as vw " 526 PLOT 3,1,6 527 PRINT " " 530 PLOT 3,1,6,15 535 PRINT " BY CAP ELECTRONICS " 600 REM SCREEN FILLER 605 N= 13 610 PLOT 14,6,0,3,10,N 615 PRINT "1. BREAKTHRU" 617 PLOT 3,10,N+ 2 620 PRINT "2. CATERPILLAR" 622 PLOT 3,10,N+ 4 625 PRINT "3. SNAKES" 627 PLOT 3,10,N+ 6 630 PRINT "4. TARGET" 632 PLOT 3,10,N+ 8 635 PRINT "5. SKETCH" 637 PLOT 3,10,N+ 10 640 PRINT "6. POPSHOT" 642 PLOT 3,10,N+ 12 650 PRINT "7. QUIT" 670 PLOT 3,2,29:PRINT BL$ 675 PLOT 15,3,22,29:PRINT "PRESS YOUR CHOICE - "; 680 OUT 8,255:CH= CALL (2):OUT 8,247:CH$= CHR$ (CH) 685 PRINT CH$ 700 REM CHOOSER 750 NN= VAL (CH$) 752 X= CALL (0) 755 IF NN> 0AND NN< 8THEN GOSUB 900 760 ON NNGOTO 950,970,990,1000,1100,1200,930 775 GOTO 670 799 RETURN 900 REM SCROLL CENTER OF SCREEN 910 X= 2:Y= 10:H= 20:W= 60:C= 1:GOSUB 64000 920 FOR MM= 1TO 20:XC= CALL (1):POKE TM,40- MM:XX= CALL (0):NEXT 925 RETURN 927 REM ENDING 930 PLOT 3,22,19,14 935 PLOT 6,0:OUT 8,255 940 PRINT "BYE BYE, COME AGAIN":PLOT 27,11,15:END 950 REM GOTO BREAKTHRU 955 GOSUB 999:PRINT "HERE COMES BREAKTHRU" 960 LOAD "BREAKO":RUN 970 REM GOTO CATERPILLAR 975 GOSUB 999:PRINT "HERE COMES CATERPILLAR" 980 LOAD "CATERP":RUN 990 REM GOTO SNAKES 993 GOSUB 999:PRINT "HERE COMES SNAKES" 997 LOAD "SNAKES":RUN 999 PLOT 3,22,19,14:RETURN 1000 REM GOTO TARGET 1005 GOSUB 999:PRINT "HERE COMES TARGET" 1010 LOAD "TARGET":RUN 1100 REM GOTO SKETCH 1105 GOSUB 999:PRINT "HERE COMES SKETCH" 1110 LOAD "SKETCH":RUN 1200 REM GOTO POPSHOT 1205 GOSUB 999:PRINT "HERE COMES POPSHOT" 1210 LOAD "POPSHT":RUN 2000 REM BORDER DRAWER 2010 PLOT 6,0,12,15,3,0,0 2015 PLOT 6,10,27,24 2017 XX= CALL (0) 2020 PRINT BD$:PLOT 3,0,8:PRINT BD$:PLOT 3,0,31:PRINT BD$ 2022 XX= CALL (0) 2025 PLOT 27,10,3,0,0:PRINT BD$ 2027 XX= CALL (0) 2030 PLOT 3,63,0:PRINT BD$ 2035 PLOT 27,24,3,1,1 2099 RETURN 3010 P= 1:D= 5:NS= 255:S1= 8:S2= 0 60000 REM 60100 Z1= INT (DA/ 256):Z2= DA- Z1* 256 60110 POKE AD,Z2:N= N+ 1:POKE AD+ 1,Z1:RETURN 64000 REM SCROLLING SUBROUTINE 64010 DA= 28672+ 128* Y+ X+ X:AD= TM+ 126:GOSUB 60100 64015 DA= 128- W- W:AD= TM+ 149:GOSUB 60100 64020 POKE TM+ 129,H- 1:POKE TM+ 131,W* (C+ 1) 64030 POKE TM+ 143,35* (1- C):RETURN