Listing of file='MENU2.BAS;01' on disk='vmedia/cm_0-4_paddle_games-original-sector.ccvf'
100 REM COPYRIGHT (C) 1980 BY COLOR-MOD ENTERPRISES
110 REM ALL RIGHTS RESERVED
120 REM
130 REM MENU PROGRAM WRITTEN BY JIM AMOS
140 REM
150 PLOT 6,0,12,27,11,29,15:POKE 33283,173:POKE 33284,159
160 IF PEEK (32940)+ 256* PEEK (32941)= 40876THEN 190
170 POKE 32940,172:POKE 32941,159:CLEAR 1
180 PLOT 27,4:PRINT "LOA GAMER.PRG":PLOT 27,27
190 PLOT 27,4:PRINT "LOA LOGO.DSP":PLOT 27,27
200 FOR N= 1TO 10:C= CALL (100):NEXT :PLOT 17:GOSUB 260
210 PLOT 18:GOSUB 260:PLOT 20:GOSUB 260:PLOT 16:GOSUB 260
220 PLOT 17:GOSUB 270:PLOT 18:GOSUB 270:PLOT 20:GOSUB 270
230 FOR N= 1TO 3:PLOT 3,0,31:PRINT :NEXT
240 FOR N= 1TO 6:READ P,D:POKE 40957,D:C= CALL (P):NEXT
250 GOTO 280:DATA 255,32,191,43,152,54,128,128,152,54,128,255
260 PLOT 2,0,0,242,0,127,127,127,127,0,0,0,255:RETURN
270 PLOT 2,112,60,242,112,100,10,100,10,60,112,60,255:RETURN
280 REM GAME SELECTIONS START HERE
290 PLOT 3,17,12:PRINT " ab ~| {d tf ~| pq {e cf ha "
300 PLOT 3,17,13:PRINT " rs no a| v} no ab l gd a "
310 PLOT 3,18,17,14,18:PRINT "1) T A N K - B A T T L E"
320 PLOT 3,18,20:PRINT "2) S U B - C H A S E"
330 PLOT 3,18,24:PRINT "3) S T U K A"
340 PLOT 3,10,29,17,15
350 PRINT " {e pb en {e {d cf {e a {e tf en en tu pb "
360 PLOT 3,10,30
370 PRINT " l as a l a| gd l l l vi a l vw as "
380 PLOT 14,18:FOR N= 1TO 5:C= CALL (10):NEXT :PLOT 3,64,0
390 POKE 33278,0:PLOT 16
400 IF PEEK (33278)= 49THEN GOSUB 440:LOAD "TANK":RUN
410 IF PEEK (33278)= 50THEN GOSUB 440:LOAD "CHASE":RUN
420 IF PEEK (33278)= 51THEN GOSUB 440:LOAD "STUKA":RUN
430 GOTO 400
440 PLOT 3,64,0:C= CALL (250):C= CALL (125):RETURN