JUEGO -> Tiro al blanco   

1 jugador

Shoot-'em-up time as you blast the marauding aliens out of the sky. Reach 2,000 points and you have saved the Earth.

Une correction a été publié dans Amstrad Computer User October 1989 parce qu'il y a une tache blanche qui cache une petite partie de la ligne 10.

Control moves your ship left, Copy moves your ship right, Space bar shoots, or use joystick.

Paru sous forme de listing dans le magazine Amstrad Computer User (August 1989).
Auteur : David HALL

Le listing, comme publié dans Amstrad Computer User, ne fonctionne qu'avec du BASIC 1.1 parce que la commande DATA ne se situe pas à la fin de la ligne 80, mais il est possible de le modifier afin de faire fonctionner avec du BASIC 1.0 :

AVANT :

80 DATA 4A282632429C2322409C2BCD3E2918192A409C3A429C3DFE00280E32429 C2B22409C11080019CD3E2911D04E2A409C0E16E506081A77231310FAE1 CD26BC0D20F0C906163600CD26BC10F9C9:SYMBOL AFTER 32:FOR t=40955 TO 42555:POKE t,PEEK(t) OR PEEK(t)/2:NEXT:PEN 2:INK 0,0:BORDER 0

APRES :

80 SYMBOL AFTER 32:FOR t=40955 TO 42555:POKE t,PEEK(t) OR PEEK(t)/2:NEXT:PEN 2:INK 0,0:BORDER 0:DATA 4A282632429C2322409C2BCD3E2918192A409C3A429C3DFE00280E32429 C2B22409C11080019CD3E2911D04E2A409C0E16E506081A77231310FAE1 CD26BC0D20F0C906163600CD26BC10F9C9

Si des ROMs sont activĂ©es ou la ROM AMSDOS est dĂ©sactivĂ©e, la police n'est pas dĂ©finie correctement. Ce problĂšme peut ĂȘtre corrigĂ© en modifiant les lignes 80, 90 et 100 :

AVANT :

80 DATA 4A282632429C2322409C2BCD3E2918192A409C3A429C3DFE00280E32 429C2B22409C11080019CD3E2911D04E2A409C0E16E506081A772313 10FAE1CD26BC0D20F0C906163600CD26BC10F9C9:SYMBOL AFTER 32:FOR t=40955 TO 42555:POKE t,PEEK(t) OR PEEK(t)/2:NEXT:PEN 2:INK 0,0:BORDER 0
90 l=20000:FOR m=1 TO 3:READ a$:FOR t=1 TO LEN(a$) STEP 2:POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT:NEXT:l=10000:FOR m=1 TO 5:READ a$:FOR t=1 TO LEN(a$) STEP 2:POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT:NEXT:INK 5,15:INK 15,15,2:INK 14,15,26:SPEED INK 9,40
100 MODE 0:PEN 5:LOCATE 1,20:PEN 8:PRINT STRING$(20,244):PEN 2:PRINT " SCORE:-":INK 3,3,6:PEN 12:PRINT:PRINT " KILL 'EM ALL":CALL 10000:WHILE INKEY$<>CHR$(13):LOCATE 6,10:PEN RND*15:SOUND 1,RND*20,2,15:PRINT "GAME OVER":WEND:GOTO 100

APRES :

80 SYMBOL AFTER 32:h=HIMEM:FOR t=h TO h+1600:POKE t,PEEK(t) OR PEEK(t)/2:NEXT:PEN 2:INK 0,0:DATA 4A282632429C2322409C2BCD3E2918192A409C3A429C3DFE00280E32 429C2B22409C11080019CD3E2911D04E2A409C0E16E506081A772313 10FAE1CD26BC0D20F0C906163600CD26BC10F9C9
90 BORDER 0:l=20000:FOR m=1 TO 3:READ a$:FOR t=1 TO LEN(a$) STEP 2:POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT:NEXT:l=10000:FOR m=1 TO 5:READ a$:FOR t=1 TO LEN(a$) STEP 2:POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT:NEXT:INK 5,15:INK 15,15,2:INK 14,15,26
100 SPEED INK 9,40:MODE 0:PEN 5:LOCATE 1,20:PEN 8:PRINT STRING$(20,244):PEN 2:PRINT " SCORE:-":INK 3,3,6:PEN 12:PRINT:PRINT " KILL 'EM ALL":CALL 10000:WHILE INKEY$<>CHR$(13):LOCATE 6,10:PEN RND*15:SOUND 1,RND*20,2,15:PRINT "GAME OVER":WEND:GOTO 100