AMSTRAD cpc 6128 User Instruction page 478

560
I
570 LOCATE x-1,y:PRINT CHR$(32)+CHR$(32)+CHR$(32)+CHR$(
253)+CHR$(8)+CHR$(238)+CHR$(8);
580 FOR t=1 TO 10:S0UND 7,4000,5,15,0,0,5:PEN t:PRINT C
HR$(253)+CHR$(8)+CHR$(238)+CHR$(8)+CHR$(32)+CHR$(8)
;:FOR tm=0 TO 50:NEXT:NEXT:PEN 2
590 CLS:LOCATE 1,5:PRINT"You scored";score;
600 IF score>hiscore THENhiscore=score:LOCATE 1,8:PRIN
T"TOP SCORE!!";
610 score=0:LOCATE 1,12:PRINT"Press R to restart";
620 a$=INKEY$:IF a$="r" OR a$="R" GOTO 630 ELSE GOTO 62
o
630 PEN 1:MODE 1:x=2:y=2:a=2:b=2:GOTO 90
640
I
650
I
Bombed bui Ldi ng
660
I
670 LOCATE a,b-1:PRINT" "+CHR$(8);:PEN 4:FOR tr=1 TO IN
T(RND(1)*3)+1:score=score+5:S0UND 3,4000,10,12,0,0,
10:LOCATE a,b:FOR t=0 TO 4:PRINT CHR$(253)+CHR$(8)+
CHR$(32)+CHR$(8);:NEXT:b=b+1
680 IF b=24 THEN b=b-1
690 NEXT
700 LOCATE 6,25:PRINT score;:drop=0:a=x:b=y:GOTO 230
Some Programs for you .... Appendix 3 Page 5