Compucolor.org – Virtual Media

Listing of file='MENU4.BAS;01' on disk='vmedia/cm_0-4_paddle_games-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