Compucolor.org – Virtual Media

Listing of file='MENU.BAS;01' on disk='vmedia/sharks-sector.ccvf'

100 REM  ** GENERAL MENU W/PRG PROGRAMS - SEP 22,1979 **
110 GOTO 60000
120 CLEAR  500:PLOT 29,14,6,2,12,27,11,3,9,0
130 PRINT "C O M P U C O L O R     C O R P O R A T I O N"
140 PLOT 3,22,2:PRINT "COPYRIGHT (C) 1979
150 PRINT :PRINT :PRINT :PLOT 14
160 PRINT "TYPE IN THE NUMBER OF THE PROGRAM YOU WANT FROM THE MENU BELOW."
170 PLOT 15:PRINT :RESTORE 300
180 FOR I= 1TO 100:READ P$,T$
190 IF T$= "END"THEN E= I- 1:I= 100:GOTO 220
200 T= 4:IF I> 9THEN T= T- 1
210 PRINT TAB( T);"";I;" - ";T$;""
220 NEXT I:PLOT  14:PRINT :PRINT
230 INPUT "     MENU SELECTION (TYPE NUMBER AND HIT RETURN KEY): ";N$:REM 
240 N= VAL (N$):IF N< 1OR N> ETHEN PLOT 28,11:GOTO 230
250 PLOT 15:RESTORE 300:FOR I= 1TO N:READ P$,T$:NEXT I
260 IF N= 1THEN 990
270 PLOT 6,2,12:LOAD P$:RUN
280 REM

    ** MENU PROGRAMS **

300 DATA "RUN MOVE","SHARK (A GAME OF SURVIVAL)
310 DATA "TOWERS;1","TOWERS (TRY TO RESTACK THE PUZZLE)
320 DATA "KALAH;1","KALAH (AN INDIAN GAME OF INTELLIGENCE)
330 DATA "MILL;1","MILL (OUTWIT AND ELIMINATE YOUR OPPONENT)
500 REM
510 DATA "END","END"
520 REM
990 PLOT 12:INPUT "DO YOU WANT INSTRUCTIONS? ";A$:IF LEFT$ (A$,1)= "N"THEN 1510
1000 GOSUB 1520
1010 DEF FN A(Y)= Y
1020 X= 6
1030 PLOT 3,X,FN A(12):PRINT "7"
1040 PLOT 3,X+ 4,FN A(12):PRINT "8"
1050 PLOT 3,X+ 8,FN A(12):PRINT "9"
1060 PLOT 3,X,FN A(15):PRINT "4"
1070 PLOT 3,X+ 4,FN A(15):PRINT "5"
1080 PLOT 3,X+ 8,FN A(15):PRINT "6"
1090 PLOT 3,X,FN A(18):PRINT "1"
1100 PLOT 3,X+ 4,FN A(18):PRINT "2"
1110 PLOT 3,X+ 8,FN A(18):PRINT "3"
1120 PLOT 18
1130 PLOT 2,10,82,242,15,82,15,73,10,73,10,82
1140 PLOT 253,10,70,242,15,70,15,61,10,61,10,70
1150 PLOT 253,10,58,242,15,58,15,49,10,49,10,58
1160 REM
1170 PLOT 253,18,82,242,23,82,23,73,18,73,18,82
1180 PLOT 253,18,70,242,23,70,23,61,18,61,18,70
1190 PLOT 253,18,58,242,23,58,23,49,18,49,18,58
1200 REM
1210 PLOT 253,26,82,242,31,82,31,73,26,73,26,82
1220 PLOT 253,26,70,242,31,70,31,61,26,61,26,70
1230 PLOT 253,26,58,242,31,58,31,49,26,49,26,58
1240 PLOT 255,30,16,29,18
1250 PLOT 21,3,2,FN A(5):PRINT "TEN-KEY NUMBER PAD"
1260 PLOT 17,15
1270 PLOT 2,9,47,242,3,35,3,39,253,3,35,242,5,35
1280 PLOT 253,21,47,242,21,35,19,37,253,21,35,242,23,37
1290 PLOT 253,32,47,242,38,35,38,39,253,38,35,242,36,35
1300 PLOT 253,33,65,242,40,65,38,67,253,40,65,242,38,63
1310 PLOT 253,32,84,242,38,96,36,96,253,38,96,242,38,92
1320 PLOT 253,21,84,242,21,96,19,94,253,21,96,242,23,94
1330 PLOT 253,9,84,242,3,96,3,92,253,3,96,242,5,96
1340 PLOT 253,8,65,242,1,65,3,67,253,1,65,242,3,63
1350 PLOT 255
1360 PLOT 23,3,X+ 18,FN A(12):PRINT "5"
1370 PLOT 18,2,46,82,242,51,82,51,73,46,73,46,82,255
1380 PLOT 19,3,X+ 21,12:PRINT "... HALT "
1390 PLOT 22,3,0,26:PRINT "TO PLAY AGAIN AFTER COMPLETING A GAME, HIT RETURN, IMMEDIATELY"
1400 PRINT "   FOLLOWED BY THE NUMBER OF THE PHASE YOU WISH TO PLAY --"
1410 PRINT "   YOU HAVE TO BE QUICK IN THIS GAME."
1460 PLOT 23,3,24,18:PRINT "0"
1470 PLOT 18,2,46,58,242,51,58,51,49,46,49,46,58,255
1480 PLOT 19,3,27,18:PRINT "AUTO - COMPUTER WILL TRY TO SAVE"
1490 PLOT 3,27,19:PRINT "YOU - IF IT CAN ...."
1500 PLOT 18,3,0,30:INPUT " HIT RETURN TO PLAY ";A$
1510 PLOT 27,4:PRINT P$
1520 PLOT 12,3,29,0,14,22:PRINT "SHARK"
1530 PRINT :PLOT 15,23
1540 PRINT "THE OBJECT OF THE GAME IS TO MOVE BACK AND FORTH, HORIZONTALLY,"
1550 PRINT "AND TOUCH THE OPPOSITE WALLS WITHOUT BEING EATEN.":PRINT
1560 PRINT "EVERY TIME YOU TOUCH, YOU ACCUMULATE POINTS AND EVENTUALLY"
1570 PRINT "ADVANCE TO THE NEXT HIGHER PHASE.":PRINT
1580 PRINT "WHILE YOU ARE IN PHASE ONE, 10% OF THE SHARKS ARE AFTER YOU"
1590 PRINT "                       TWO, 20%               ARE AFTER YOU."
1600 FOR I= 1TO 3
1610 PRINT "                        .    .                 .    .    ."
1620 NEXT I
1630 PRINT "                       TEN,100% OF THE SHARKS ARE AFTER YOU."
1640 PRINT
1650 PRINT "THERE IS NO WINNING, MERELY TRY TO GET THE MOST POINTS !"
1660 PRINT :PRINT
1670 INPUT "HIT RETURN FOR FURTHER INSTRUCTIONS ";A$
1680 PLOT 12
1690 RETURN
60000 REM  ** LOAD GETCHR, SOUND AND SCROLL PATCHES **
60010 TM= PEEK (32940)+ PEEK (32941)* 256
60020 IF TM> 65500THEN 60060
60030 POKE TM+ 1,50:POKE TM+ 3,15
60040 A= 0:FOR N= TM+ 176TO TM+ 182:A= A+ PEEK (N):NEXT
60050 IF A= 1445THEN 60150
60060 AD= 32940:TM= TM- 200:DA= TM:GOSUB 60160:CLEAR 100
60070 TM= PEEK (32940)+ PEEK (32941)* 256
60080 RESTORE 60190
60090 FOR N= 1TO 200:READ A:IF A> 255THEN N= 220:GOTO 60140
60100 IF A< 0THEN DA= TM- A:AD= TM+ N:GOSUB 60160:GOTO 60140
60110 POKE TM+ N,A
60140 NEXT
60150 AD= 33283:DA= TM+ 8:GOSUB 60160:GOTO 120
60160 Z1= INT (DA/ 256):Z2= DA- Z1* 256
60170 POKE AD,Z2:N= N+ 1:POKE AD+ 1,Z1:RETURN
60190 DATA 50,0,15,0,0,0,0,123,254,0,194,-121,30,8,243
60200 DATA 58,-6,87,58,-7,254,0,194,-33,122,50,-7,42,-1
60210 DATA 34,-49,42,-3,34,-46,33,-22,1,50,0,11,120,177
60220 DATA 194,-51,123,238,2,211,4,95,43,124,181,194
60230 DATA -48,58,-5,254,0,202,-100,61,50,-5,58,-49,130
60240 DATA 50,-49,58,-7,103,122,50,-7,84,195,-45,50,-7
60250 DATA 50,-4,50,-2,62,15,50,-3,62,50,50,-1,251,201
60260 DATA 254,1,194,-158,33,0,0,6,4,14,17,17,128,0,25
60270 DATA 126,17,128,255,25,119,35,0,13,194,-133,17,8
60280 DATA 0,25,5,194,-131,201
60290 DATA 254,2,194,-182,245,229,197,205,36,0,194,-166
60300 DATA 95,175,87,50,255,129,193,225,241,201,201
60310 DATA 300