10 REM Red Green Yellow Blue Magenta Cyan White 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,1 20,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 "  ££££££££££££££££££££i" 170 PRINT CHR$141"  Liner, By Rich ard Harker - 1996  180 PRINT CHR$141"  Liner, By Rich ard Harker - 1996  190 PRINT CHR$141"  For Eight Bit Software Magazine  200 PRINT CHR$141"  For Eight Bit Software Magazine  210 PRINT "  pppppppppppppppppppp:" 220 PRINT "  Today's Highest Score  230 PRINT "   £££££££££££££  240 PRINT "  Level -  250 PRINT "    260 PRINT "  Score -  270 PRINT "    280 PRINT "  By -  290 PRINT "    300 PRINT "  j" 310 PRINT "  Press The sp ace bar to start  320 PRINT "  or Q to quit  330 PRINT "  ££££££££££££££££££££i" 340 PRINT CHR$141"  (C) Tinned Peach Software  350 PRINT CHR$141"  (C) Tinned Peach Software  360 PRINT CHR$141"  Ma y 1996  370 PRINT CHR$141"  Ma y 1996  380 PRINT "  pppppppppppppppppppp:" 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 C LS : OSCLI"FX220,27" : PRINT "Bye." : EN D 450 UNTIL key$=" " 460 REPEAT 470 MODE 7 480 VDU 23;8202;0;0;0; 490 PRINT "  ££££££££££££££££££££££i" 500 PRINT CHR$141"  Entering Level  510 PRINT CHR$141"  Entering Level  520 PRINT "  pppppppppppppppppppppp:" 530 PRINT "  j" 540 PRINT "  Keys Ar e :  550 PRINT "   £££  560 PRINT "  Z - B rake  570 PRINT "  X - A ccelerate  580 PRINT "  K - U p  590 PRINT "  M - D own  600 PRINT "  L - B omb  610 PRINT "   620 PRINT "  j" 630 PRINT "  E - E XIT TO MAIN MENU  640 PRINT "  j" 650 PRINT "  S/Q - S ound ON/OFF  660 PRINT "  j" 670 PRINT "  Number of bombs: 4  680 PRINT "   ££££££££££££  690 PRINT "  j" 700 PRINT "  ££££££££££££££££££££££i" 710 PRINT "  Press The s pace bar to continue  720 PRINT "  pppppppppppppppppppppp:" 730 PRINTTAB(23,1) level 740 PRINTTAB(23,2) level 750 REPEAT 760 key$=GET$ 770 IF (key$="K" OR key$="k") TH EN bombs=bombs+1 780 IF (key$="M" OR key$="m") TH EN 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-(lev el*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 2 10,0" :REM S 1120 IF INKEY -17 THEN OSCLI"FX 2 10,1" :REM Q 1130 IF INKEY -87 THEN PROCfire : REM L 1140 IF POINT(manx,many)=2 THEN d ie=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 PRIN TTAB(5,10)"Press space to start next lev el." 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 PROCscor e 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 yo ur 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