Bomber - AMSTRAD cpc 6128 User Instruction

Bomber
A variation on a classic theme! For one player against the computer. Keyboard only.
10 'BOMBER by DAVE TOWN
20 'copyright (c) AMSOFT 1984
30 '
40 MODE 1:CLS:INK 0,0:BORDER 0:INK 1,18:INK 2,6:INK 3,4
:INK 5,15:INK 6,2:INK 7,24:INK 8,8:INK 9,26:INK 10,1
0:INK 11,20:INK 12,12:INK 13,16:INK 14,14:INK 15,21
50 SYMBOL AFTER 240:SYMBOL 241,&40,&60,&70,&7F,&7F,&3F,
&7,&0:SYMBOL 242,&0,&32,&7A,&FE,&FA,&F2,&E0,&0
60 score=0:hiscore=0:plane$=CHR$(241)+CHR$(242):x=2:y=2
:drop=0:a=2:b=2
70 GOSUB 480
80 CLS
90 PEN 2:LOCATE 1,15:INPUT"Enter skilL 0 (ACE) to 5 (
NOVICE) : ",skilL
100 IF ski L L<0 OR ski Ll>5 GOTO 90
110 skiLL=skiLL+10
120 LOCATE 1,15:PRINT CHR$(18);:LOCATE 1,15:INPUT"Enter
speed 0 (FAST) to 100 (SLOW) : ",rate
130 IF rate>100 OR rate<0 GOTO 120
140 '
150 'BuiLdings
160 '
170 MODE 0:FOR base=5 TO 15:FOR height=21 TO INT(RND(1)
*8+skilL) STEP -1:LOCATE base,height:PEN base-2:PRI
NT CHR$(143)+CHR$(8)+CHR$(11)+CHR$(244);:NEXT :NEXT
180 PLOT 0,20,4:DRAW 640,20,4
190 LOCATE 1,25:PEN 2:PRINT"SCORE";score;:LOCATE 13,25:
PRINT"HI";hiscore;
200 '
210 'Main Game
220 '
230 LOCATE x-1,y:PRINT" ";
240 PEN 1:LOCATE x,y:PRINT pLane$;:PEN 2
250 IF y=21 AND x=15 THEN GOTO 290:ELSE GOTO 340
260 '
270 'Landed
280 '
290 FOR c=0 TO 1000:NEXT
Some Programs for you ....
continued on next page
Appendix 3 Page 3