10 VDU 23,241,8,28,62,127,62,28,8,0 30 D=0 50 VDU23,1,0;0;0;0; 100 COLOUR6 130 GCOL0,5 140 PROCgrid 141 xs=1:FORt=300 TO 950 STEP 200:VDU5:GCOL0,xs:MOVE t,600:VDU241:MOVE t,300:VDU241:xs=xs+1:NEXT:VDU4 150 X%=640:Y%=512:A%=320:B%=512 160 RX%=0:RY%=-8:RA%=0:RB%=-8 170 REPEAT 180 GCOL0,2 190 PLOT69,X%,Y% 200 IFINKEY(-41)VDU7:RY%=8:RX%=0 210 IFINKEY(-89)VDU7:RY%=-8:RX%=0 220 IFINKEY(-103)VDU7:RX%=-8:RY%=0 230 IFINKEY(-104)VDU7:RX%=8:RY%=0 240 X%=X%+RX% 250 Y%=Y%+RY% 251 SOUND &11,-11,(X%+Y%)/10,1:SOUND &12,-11,(X%+Y%)/10,1 260 IFPOINT(X%,Y%)D=2:GOTO350 270 GCOL0,3:PLOT69,A%,B% 280 IFINKEY(-66)VDU7:RB%=-8:RA%=0 290 IFINKEY(-17)VDU7:RB%=8:RA%=0 300 IFINKEY(-67)VDU7:RA%=-8:RB%=0 310 IFINKEY(-83)VDU7:RA%=8:RB%=0 320 A%=A%+RA% 330 B%=B%+RB% 331 SOUND &12,-9,(A%+B%)/10,1:SOUND &13,-11,(A%+B%)/10,1 340 IFPOINT(A%,B%)D=1:GOTO350 350 UNTILD 360 PROCgrid:VDU4:PRINTTAB(2,15)"NO. ";D;" IS DEAD!" 370 *FX15,0 371 FOR hj=1TO300:VDU7,7:NEXT 390 D=0 410 A=GET 420 *FX15,0 421 PROCgrid 430 CHAIN"CRAZE4" 9000 DEFPROCgrid:GCOL0,0:MOVE100,100:DRAW1150,100:DRAW 1150,700:DRAW 100,700:DRAW 100,100:PLOT85,1150,700:PLOT85,1150,100:GCOL0,1:MOVE100,100:DRAW1150,100:DRAW 1150,700:DRAW 100,700:DRAW 100,100:ENDPROC