Compucolor.org – Virtual Media

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