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