10 REMDIVRedEORGreenMODYellowORBlueERRORMagentaLINECyanOFFWhite 20 REM Liner by Richard Harker - May 1996 30 *FX220 40 name$="Carter 'USM'" 50 highlev=1 60 highscore=10 70 quit=FALSE 80 ENVELOPE 1,131,0,0,0,0,0,0,127,-10,0,0,126,0 90 ENVELOPE 2,131,100,120,10,120,10,120,127,-10,0,0,126,0 100 REPEAT 110 level=1 120 bombs=4 130 score=0 140 MODE 7 150 VDU 23;8202;0;0;0; 160 PRINT " ‘6£££££££££££££££££££££££££££££££££££i" 170 PRINT CHR$141"‘5 Liner, By Richard Harker - 1996 ‘j" 180 PRINT CHR$141"‘5 Liner, By Richard Harker - 1996 ‘j" 190 PRINT CHR$141"‘5‚ For Eight Bit Software Magazine ‘j" 200 PRINT CHR$141"‘5‚ For Eight Bit Software Magazine ‘j" 210 PRINT " ‘eppppppppppppppppppppppppppppppppppp:" 220 PRINT " ‘5 ƒToday's Highest Score ‘j" 230 PRINT " ‘5 ”£££££££££££££££££££££ ‘j" 240 PRINT " ‘5 ƒLevel …- ‘j" 250 PRINT " ‘5 ”£££££ ‘j" 260 PRINT " ‘5 ƒScore …- ‘j" 270 PRINT " ‘5 ”£££££ ‘j" 280 PRINT " ‘5 ƒBy …- ‘j" 290 PRINT " ‘5 ”££ ‘j" 300 PRINT " ‘5 j" 310 PRINT " ‘5 ‚Press The space bar to start ‘j" 320 PRINT " ‘5 ‚or Q to quit ‘j" 330 PRINT " ‘6£££££££££££££££££££££££££££££££££££i" 340 PRINT CHR$141"‘5 (C) Tinned Peach Software ‘j" 350 PRINT CHR$141"‘5 (C) Tinned Peach Software ‘j" 360 PRINT CHR$141"‘5 May 1996 ‘j" 370 PRINT CHR$141"‘5 May 1996 ‘j" 380 PRINT " ‘eppppppppppppppppppppppppppppppppppp:" 390 PRINTTAB(15,8);highlev 400 PRINTTAB(15,10);highscore 410 PRINTTAB(15,12)name$ 420 REPEAT 430 key$=GET$ 440 IF key$="Q" OR key$="q" THEN CLS : OSCLI"FX220,27" : PRINT "Bye." : END 450 UNTIL key$=" " 460 REPEAT 470 MODE 7 480 VDU 23;8202;0;0;0; 490 PRINT " ‘6£££££££££££££££££££££££££££££££££££i" 500 PRINT CHR$141"‘5† Entering Level ‘j" 510 PRINT CHR$141"‘5† Entering Level ‘j" 520 PRINT " ‘eppppppppppppppppppppppppppppppppppp:" 530 PRINT " ‘5 j" 540 PRINT " ‘5 ƒKeys Are : ‘j" 550 PRINT " ‘5 ”££££££££££ ‘j" 560 PRINT " ‘5 …Z - Brake ‘j" 570 PRINT " ‘5 …X - Accelerate ‘j" 580 PRINT " ‘5 …K - Up ‘j" 590 PRINT " ‘5 …M - Down ‘j" 600 PRINT " ‘5 …L - Bomb ‘j" 610 PRINT " ‘5 ‘j" 620 PRINT " ‘5 j" 630 PRINT " ‘5 ‚E - EXIT TO MAIN MENU ‘j" 640 PRINT " ‘5 j" 650 PRINT " ‘5 ‚S/Q - Sound ON/OFF ‘j" 660 PRINT " ‘5 j" 670 PRINT " ‘5 ƒNumber of bombs: 4 ‘j" 680 PRINT " ‘5 ”££££££££££££££££££ ‘j" 690 PRINT " ‘5 j" 700 PRINT " ‘6£££££££££££££££££££££££££££££££££££i" 710 PRINT " ‘5 …Press The space bar to continue ‘j" 720 PRINT " ‘eppppppppppppppppppppppppppppppppppp:" 730 PRINTTAB(23,1) level 740 PRINTTAB(23,2) level 750 REPEAT 760 key$=GET$ 770 IF (key$="K" OR key$="k") THEN bombs=bombs+1 780 IF (key$="M" OR key$="m") THEN bombs=bombs-1 790 IF bombs<0 THEN bombs=0 800 PRINTTAB(27,18);bombs" " 810 UNTIL key$=" " 820 MODE 1 830 die=FALSE 840 A=TIME 850 manx=0 860 many=500 870 VDU 23;8202;0;0;0; 880 COLOUR 130 890 CLS 900 GCOL 0,0 910 MOVE 0,450 920 MOVE 0,550 930 PLOT85,50,500 940 MOVE 0,500 950 FOR X=80 TO 1200 STEP 200-(level*10) 960 PLOT85,X,RND(1000) 970 NEXT X 980 PLOT85,1300,500 990 MOVE 1280,550 1000 GCOL 1,0 1010 COLOUR 1 1020 PRINTTAB(0,0)"Score ";score 1030 PRINTTAB(0,1)"Bombs ";bombs 1040 MOVE 0,500 1050 REPEAT 1060 IF INKEY -98 THEN manx=manx-2 :REM Z 1070 IF INKEY -67 THEN manx=manx+4 :REM X 1080 IF INKEY -71 THEN many=many+2 :REM K 1090 IF INKEY -102 THEN many=many-2 :REM M 1100 IF INKEY -35 THEN die=TRUE :REM E 1110 IF INKEY -82 THEN OSCLI"FX 210,0" :REM S 1120 IF INKEY -17 THEN OSCLI"FX 210,1" :REM Q 1130 IF INKEY -87 THEN PROCfire :REM L 1140 IF POINT(manx,many)=2 THEN die=TRUE : SOUND 0,2,6,10 1150 GCOL 0,3 1160 DRAW manx,many 1170 manx=manx+2 1180 UNTIL manx>1279 OR die=TRUE 1190 COLOUR 1 1200 *FX 15,0 1210 IF die=TRUE THEN PRINTTAB(7,10)"Press space to start again." ELSE PRINTTAB(5,10)"Press space to start next level." 1220 REPEAT 1230 A$=GET$ 1240 UNTIL A$=" " 1250 bombs=4 1260 IF die=FALSE THEN level=level+1 : score=score+100 1270 : 1280 UNTIL die=TRUE 1290 IF score>highscore THEN PROCscore 1300 UNTIL quit=TRUE 1310 : 1320 DEFPROCscore 1330 REPEAT 1340 GCOL 0,1 1350 MOVE 89,640 1360 MOVE 89,384 1370 PLOT 85,1217,384 1380 MOVE 1217,640 1390 PLOT 85,89,640 1400 PRINTTAB(6,12)"You have got a new high score." 1410 PRINTTAB(9,14)"Please enter your name. " 1420 PRINTTAB(3,16)"It must be less than 22 characters." 1430 INPUTTAB(3,18)name$ 1440 length=LEN(name$) 1450 UNTIL length<22 1460 highscore=score 1470 highlev=level 1480 ENDPROC 1490 : 1500 DEFPROCfire 1510 IF (TIME-A)<60 THEN ENDPROC 1520 IF bombs<1 THEN ENDPROC 1530 score=score-10 1540 bombs=bombs-1 1550 PRINTTAB(0,0)"Score ";score;" " 1560 PRINTTAB(0,1)"Bombs ";bombs;" " 1570 GCOL 0,0 1580 MOVE manx-25,many-25 1590 MOVE manx+25,many-25 1600 PLOT 85,manx+25,many+25 1610 MOVE manx-25,many+25 1620 PLOT 85,manx-25,many-25 1630 MOVE manx,many 1640 SOUND 0,1,6,10 1650 A=TIME 1660 ENDPROC