|
MODE 9 ORIGIN 0,512 GCOL 128+4 CLG VDU 23,128,&C0,&F0,&FC,&FF,&FF,&FC,&F0,&C0 GunX% = 0 GunY% = 0 BulletX% = 1280 BulletY% = 0 VDU 5 REPEAT GCOL 3,9 MOVE GunX%, GunY% : VDU 128 GCOL 3,11 PLOT BulletX%, BulletY% WAIT 2 GCOL 3,9 MOVE GunX%, GunY% : VDU 128 GCOL 3,11 PLOT BulletX%, BulletY% CASE INKEY(0) OF WHEN 32: IF BulletX% >= 1280 THEN BulletX% = GunX% + 32 BulletY% = GunY% - 16 ENDIF WHEN 136: GunX% -= 4 WHEN 137: GunX% += 4 WHEN 138: GunY% -= 4 WHEN 139: GunY% += 4 ENDCASE IF BulletX% < 1280 BulletX% += 8 UNTIL FALSE