AMSTRAD cpc 6128 User Instruction page 501

1980 ;=0
1990 ;=;+1
2000 IF ;>gems(rm) THEN 1510
2010 IF gemx(rm,;)<>xp OR gemy(rm,;)<>yp THEN 1990
2020 IF ;=gems(rm) THEN 2050
2030 gemx(rm,;)=gemx(rm,gems(rm»
2040 gemy(rm,;)=gemy(rm,gems(rm»
2050 gems(rm)=gems(rm)-1:stolen=stolen+1
2060 MOVE 400,150+(stolen*2),1,1:DRAW 520,150+(stolen*2
) ,1 ,1
2070 SOUND 129,248,10,12,0,1
2080 GOTO 1980
2090 no;se=INT(RND*15)
2100 SOUND 1,30~0,10,no;se,0,0,10
2110 PAPER 0:LOCATE 15,5:PRINT"Crash ";:PAPER 8
2120 IF no;se<10 OR delay=50 THEN 1630
2130 delay=delay-50
2140 dummy=REMAIN(1)
2150 AFTER delay*4,1 GOSUB 310
2160 GOTO 1630
2170 '
2180 'Draw doors
2190 '
2200 READ no,dr$
2210 IF dr$=IV" THEN dr=2 ELSE dr=1
2220 PEN 2
2230
p;c$~door$(dr):GOSUB
2500
2240 GOTO 1280
2250 '
2260 'Draw windows
2270 '
2280 READ no,w;$
2290 IF W;$="V" THEN w;=2 ELSE w;=1
2300 PEN 4
2310 p;c$=w;ndw$(w;):GOSUB 2500
2320 GOTO 1280
2330 '
2340 ' Draw lines
2350 '
2360 READ
2370 MOVE
2380 DRAW
2390 DRAW
2400 GOTO
x1,y1,x2,y2
x1,y1,,0
x1,y2,,0:DRAW
x2,y1,,0:DRAW
1280
Appendix 3 Page 28
x2,y2,,0
x1,y1,,0
continued on the next page
Some Programs for you ....