Listing of file='MENU4.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 141 REM STAR - FIGHTER 142 M$= "A GAME BY JIM AMOS " 150 PLOT 6,4,12,15,3,64,0 190 PLOT 27,4:PRINT "LOA LOGO.DSP":PLOT 27,27 200 PLOT 3,23,20:PRINT "P R E S E N T S":PLOT 27,18,4,3,64,0 220 FOR N= 1TO 40:OUT 6,16:NEXT :PLOT 27,18,5 230 FOR N= 1TO 100:OUT 6,0:NEXT 240 FOR N= 1TO 1000:NEXT :PLOT 6,7,12 245 FOR N= 1TO 30:PLOT 3,RND (1)* 64,RND (1)* 32,46:NEXT 246 PLOT 8 250 PRINT " t u t u u" 260 PRINT " " 270 PRINT " " 280 PRINT " v u w" 290 PRINT " u" 300 PRINT " " 310 PRINT " v w " 320 PRINT 325 PRINT 330 PRINT " t u u" 340 PRINT " " 350 PRINT " " 360 PRINT " w" 370 PRINT " u" 380 PRINT " " 390 PRINT " v w " 400 PRINT 405 PRINT 410 PLOT 30,17,11:PRINT :PLOT 23,11:PRINT :PLOT 20,11,16,29,18 420 FOR N= 1TO 61:PLOT 3,63- N,23:PRINT LEFT$ (M$,N):NEXT 425 PLOT 3,64,0:FOR N= 1TO 1000:NEXT 430 PLOT 3,64,0,27,4:PRINT "LOA FIGHTR.PRG 9000":PLOT 27,27 440 PLOT 6,2,12:PRINT "YOU PILOT 3 INTERGALATIC FIGHTERS" 445 PLOT 3,64,0:BC= 17:CRT= 28900:SP= 36864+ 1935:GOSUB 1000 480 PLOT 3,0,2:PRINT "MOVE UP AND DOWN USING PADDLE #2" 490 PRINT :PRINT "FIRE PULSARS WITH THE FIRING BUTTON" 500 PRINT :FOR N= 0TO 63:PRINT "_";:NEXT 510 PRINT :PRINT 520 PRINT "OBJECTIVE:" 530 PRINT :PRINT "DESTROY AS MANY ENEMY SHIPS AS POSSIBLE" 540 PLOT 3,64,0:BC= 11:CRT= 30464:SP= 36864+ 2025:GOSUB 1000 560 PLOT 3,8,16:PRINT " YELLOW SQUADRON - 10 POINTS " 565 PLOT 3,64,0:FOR N= 1TO 1000:NEXT :GOSUB 1000 570 PLOT 3,8,21:PRINT " GREEN SQUADRON - 20 POINTS " 575 PLOT 3,64,0:FOR N= 1TO 1000:NEXT :GOSUB 1000 580 PLOT 3,8,26:PRINT " BLUE SQUADRON - 30 POINTS " 585 PLOT 3,64,0:FOR N= 1TO 1000:NEXT 600 BC= 17:CRT= 30564:SP= 36864+ 1845:GOSUB 1000 610 PLOT 3,47,20:PRINT " FUEL TANKER " 615 PLOT 3,47,22:PRINT " 100 POINTS " 617 PLOT 3,0,30:FOR N= 0TO 63:PRINT "_";:NEXT 618 PLOT 3,0,29:PRINT 620 POKE 33278,0:PLOT 3,49,29:PRINT " HIT RETURN":PLOT 3,64,0 630 IF PEEK (33278)= 13THEN 640 635 GOTO 630 640 PLOT 6,2,12 650 PRINT "OTHER NOTES ON PLAYING STAR - FIGHTER " 660 PRINT :FOR N= 0TO 63:PRINT "g";:NEXT :PRINT 670 PRINT "THE GAME IS OVER IF YOU EITHER RUN OUT OF FUEL" 680 PRINT :PRINT "OR ALL YOUR SHIPS ARE DESTROYED.":PRINT 690 PRINT :PRINT "RE-FUELING IS ACCOMPLISHED BY DESTROYING" 700 PRINT :PRINT "ALL 3 SQUADRONS AND HITTING THE FUEL TANKER." 710 PRINT :PRINT 720 PRINT "WHEN YOUR SHIP IS HIT, THE SQUADRON REGROUPS AND" 730 PRINT :PRINT "YOU MUST FIGHT THE WHOLE SQUADRON AGAIN." 740 PRINT :PRINT 750 PRINT "ALL STATUS, SUCH AS FUEL, # OF SHIPS AND SCORE" 752 PRINT :PRINT "ARE DISPLAYED ON THE TOP LINE OF THE CRT." 754 PRINT :PRINT 755 PRINT "BE SURE THAT YOUR SOUND APPARATUS IS ATTACHED!" 760 PLOT 3,0,30:INPUT "HIT RETURN TO PLAY";Z 770 PLOT 6,0,12,3,64,0,27,4:PRINT "LOA FIGHTR.PRG" 780 PLOT 27,20 1000 FOR M= 1TO 5:FOR N= 0TO BC:OUT 6,0 1010 C= PEEK (SP):POKE CRT+ N,C:SP= SP+ 1:NEXT 1020 CRT= CRT+ 128:NEXT :RETURN