10 REM***** FCINTRO ****** 20 MODE5:COLOUR130:CLS:VDU23;8202;0;0;0;:COLOUR1 25 COLOUR131:PRINTTAB(2,2)"MARLIS SOFTWARE" 27 PRINTTAB(2,3)"_______________" 30 PRINTTAB(2,5)"FIGHTER COMMAND" 40 PRINTTAB(2,6)"_______________" 50 PRINTTAB(3,8)"BY D.C.MARETT" 60 PRINTTAB(7,10)"1987" 70 PRINTTAB(4,13)"Taken from a" 80 PRINTTAB(0,15)"program by R.ERSKINE" 90 PRINTTAB(4,17)"for the ZX81" 100 PRINTTAB(1,21)"BATTLE OF BRITAIN." 110 PRINTTAB(4,25)"MICROGAMES-" 120 PRINTTAB(4,27)"SIMULATIONS" 130 PRINTTAB(7,29)"1981" 140 FORZZ=0TO9000:NEXT 150 MODE7:VDU23;8202;0;0;0; 160 PRINTTAB(0,10)CHR$132CHR$157CHR$141"ƒDo you want instructions. (Y/N)?" 170 PRINTCHR$132CHR$157CHR$141"ƒDo you want instructions. (Y/N)?" 180 A$=GET$ 190 IFA$="N"THEN1030 200 MODE1:VDU23;8202;0;0;0;:VDU28,3,11,38,2:VDU24,97;50;1245;630; 210 VDU19,1,7,0,0,0:VDU19,0,4,0,0,0:COLOUR0:COLOUR129:GCOL0,128:CLS:CLG 220 MOVE690,420:FORP=1TO47:READX,Y:DRAWX,Y:NEXTP 230 MOVE640,380:FORP=1TO4:READX,Y:DRAWX,Y:NEXTP 240 MOVE540,385:FORP=1TO3:READX,Y:DRAWX,Y:NEXTP 250 MOVE470,235:FORP=1TO8:READX,Y:DRAWX,Y:NEXTP 260 MOVE520,260:DRAW475,260:MOVE1010,340:FORP=1TO6:READX,Y:DRAWX,Y:NEXTP 270 MOVE240,335:FORP=1TO4:READX,Y:DRAWX,Y:NEXTP 280 MOVE320,320:FORPP=1TO4 290 FORP=1TO3:READX,Y:DRAWX,Y: 300 NEXTP:IFPP=4THEN330 310 READX,Y:MOVEX,Y 320 NEXTPP 330 MOVE1060,410:FORP=1TO8:READX,Y:DRAWX,Y:NEXTP 340 MOVE920,320:FORP=1TO6:READX,Y:DRAWX,Y:NEXTP 350 MOVE760,305:FORP=1TO4:READX,Y:DRAWX,Y:NEXTP 360 MOVE700,300:FORP=1TO5:READX,Y:DRAWX,Y:NEXTP 370 MOVE100,100:FORP=1TO16:READX,Y:DRAWX,Y:NEXTP 380 MOVE100,480:FORP=1TO11:READX,Y:DRAWX,Y:NEXTP 390 MOVE100,620:FORP=1TO4:READX,Y:DRAWX,Y:NEXTP 400 MOVE630,275:FORP=1TO8:READX,Y:DRAWX,Y:NEXTP 410 MOVE600,275:FORP=1TO8:READX,Y:DRAWX,Y:NEXTP 420 MOVE860,300 430 PROCcircle(860,297,10) 440 PROCcircle(860,297,30) 450 MOVE210,320:DRAW210,420:MOVE210,280:DRAW210,180 460 DATA680,380,930,340,960,350,980,360,1000,380,1050,420,1060,430,1080,440 470 DATA1100,450,1120,440,1130,420,1130,400,1125,360,1120,320,1115,300,1100,260 480 DATA1080,250,1060,240,900,235,820,240,700,225,660,220,580,220,540,225 490 DATA470,235,400,230,340,240,240,260,200,280,185,290,180,295,177,297 500 DATA177,300,180,305,185,310,200,320,240,340,300,350,400,355,500,360 510 DATA505,355,510,345,520,340,615,340,640,370,650,385,680,380 520 DATA540,385,520,380,510,370,500,360 530 DATA545,375,550,365,540,340 540 DATA600,300,620,315,640,320,650,320,660,320,680,315,700,300,820,240 550 DATA1020,345,1080,345,1085,340,1080,335,1020,335,1010,340 560 DATA245,325,250,300,245,275,240,260 570 DATA320,300,340,310,320,320,340,320,340,300,360,310,340,320,360,320,360 580 DATA300,380,310,360,320,380,320,380,300,400,310,380,320 590 DATA1110,410,1110,380,1060,380,1060,410,1085,410,1085,380,1090,380,1090,410 600 DATA940,320,940,280,960,280,960,260,920,260,920,320 610 DATA760,295,790,295,790,305,760,305 620 DATA700,320,740,320,740,300,720,300,720,290 630 DATA160,120,200,100,200,110,370,110,370,100,370,130,540,120,680,120,700,105 640 DATA730,130,900,100,920,120,970,100,1060,100,1110,140,1245,140 650 DATA200,480,220,490,280,485,300,505,340,515,380,540,440,540,440,560 660 DATA440,580,460,600,460,620,1245,620,1245,50,100,50,100,620 670 DATA635,283,645,283,655,283,658,275,655,267,650 680 DATA265,635,267,630,275,610,290,640,295,675,290 690 DATA680,275,665,260,640,255,610,260,600,275 700 CLS:PRINTTAB(5,2)"WELCOME TO FIGHTER COMMAND"' 710 PRINT" You are in command of 9 Squadrons" 720 PRINT" which are at airfields in the" 730 PRINT" South East of England. Your task," 740 PRINT" by careful use of your Squadrons,"' 750 PRINTTAB(11)"PLEASE WAIT" 760 PROCprop 770 CLS:PRINT:PRINT" is to repel the German Luftwaffe" 780 PRINT" in their attempt to bomb LONDON." 790 PRINT" You can make the task easy or" 800 PRINT" hard depending on the number of" 810 PRINT" bombers that are allowed to get to" 820 PRINT" London before the target is deemed"' 830 PRINTTAB(11)"PLEASE WAIT" 840 PROCprop 850 CLS:PRINT:PRINT" to be devastated. This number can" 860 PRINT" be as little as 0 or greater than 100" 870 PRINT" The more bombers that get to" 880 PRINT" London, the less the bonus points" 890 PRINT" at the end of the game. Please"' 900 PRINTTAB(11)"PLEASE WAIT" 910 PROCprop 920 CLS:PRINT:PRINT" follow the instructions in the" 930 PRINT" COMMAND CHECK, by pressing any of" 940 PRINT" the keys. Wait for the prompt and" 950 PRINT" then key in the appropriate" 960 PRINT" COMMAND letter."' 970 PRINTTAB(11)"PLEASE WAIT" 980 PROCprop 990 CLS:PRINT:PRINT" GOOD LUCK!! Remember that fortune" 1000 PRINT" follows the brave!"''' 1010 PRINTTAB(11)"PLEASE WAIT" 1020 PROCprop 1030 MODE7:VDU23;8202;0;0;0; 1040 PRINTTAB(0,2)CHR$(132);CHR$(157);CHR$(131);CHR$(141)"FIGHTER COMMAND - Points" 1050 PRINTTAB(0,3)CHR$(132);CHR$(157);CHR$(131);CHR$(141)"FIGHTER COMMAND - Points" 1060 PRINTTAB(4,5)"THE POINTS ARE AS FOLLOWS:-"' 1070 PRINT"ALLOWING… 0 ‡BOMBERS =‚10000‡POINTS." 1080 PRINT"ALLOWING …1-5 ‡BOMBERS = ‚8000‡POINTS." 1090 PRINT"ALLOWING …6-20‡BOMBERS = ‚6000‡POINTS." 1100 PRINT"ALLOWING…21-40‡BOMBERS = ‚4000‡POINTS." 1110 PRINT"ALLOWING…41-60‡BOMBERS = ‚2000‡POINTS." 1120 PRINT"ALLOWING…61-80‡BOMBERS = ‚1000‡POINTS." 1130 PRINT"ALLOWING…81-99‡BOMBERS = ‚ 500‡POINTS." 1140 PRINT"ALLOWING…100 +‡BOMBERS = ‚ 0‡POINTS."' 1150 PRINT"ˆ†IF THE GAME IS LOST SO IS THE BONUS."' 1160 PRINT"Each bomber destroyed ƒ20‡points." 1170 PRINT"Each escort destroyed ƒ40‡points." 1180 PRINT"Each fighter lost ƒ -50‡points." 1190 PRINT"Each bomber reaching LONDONƒ-10‡points."' 1200 PRINTTAB(5)"‚PRESS KEY 'C' TO CONTINUE." 1210 A$=GET$ 1220 IFA$<>"C"THEN1210 1230 CHAIN"FC" 1240 DEFPROCcircle(XC,YC,R) 1250 LOCALA,T,X,Y,AA 1260 MOVEXC+R,YC 1270 FORAA=0TO360STEP15 1280 A=AA 1290 T=RAD(A) 1300 X=R*COS(T):Y=R*SIN(T) 1310 DRAWXC+X,YC+Y:MOVEXC+X,YC+Y 1320 NEXTAA 1330 ENDPROC 1340 DEFPROCprop 1350 LOCALXX,YY,AA,BB,CC,DD 1360 XX=210:YY=320:AA=420:BB=280:CC=180:DD=0:EE=440:FF=260:GG=110 1370 MOVEXX,YY:PLOT31,XX,AA:MOVEXX,BB:PLOT31,XX,CC 1380 REPEAT 1390 MOVEXX,YY:PLOT31,XX,AA 1400 MOVEXX,BB:PLOT31,XX,CC 1410 MOVEEE,FF:PLOT31,GG,FF 1420 FORZZ=0TO900:NEXT 1430 MOVEXX,YY:PLOT29,XX,AA 1440 MOVEXX,BB:PLOT29,XX,CC 1450 MOVEEE,FF:PLOT29,GG,FF 1460 FORZZ=0TO800:NEXT 1470 DD=DD+1 1480 UNTILDD=15 1490 ENDPROC