DEMO -> Other               

This one may not be the longest of listings but boy are you going to love it. Just like the latest video craze from the States, this excellent routine creates a simulated fishtank environment. Run it and relax, with your own personal fish swimming around in the background. Very clever and a totally brilliant proggy to amuse your friends.

Paru sous forme de listing dans le magazine Amstrad Computer User Issue 85 : December 1991.
Auteur : Sean McMANUS

Le listing, comme publié dans Amstrad Computer User, contient un bug.

Si une ligne de DATA n'est pas saisie correctement, le programme affiche une erreur, mais le numéro de la ligne est faux.

AVANT :

70 LOCATE 15,15:PRINT"Polite Notice:":ON BREAK GOSUB 380:MEMORY 17663:mem=17664:FOR g=1 TO 14:chk=0:FOR h=1 TO 77:READ a$:a=VAL("&"+a$):POKE mem,a:chk=chk+a:mem=mem+1:NEXT:READ chk$:IF VAL("&"+chk$)<>chk THEN PRINT"error in line"30+(g*10):STOP
80 NEXT:CHK=0:FOR g=1 TO 77:READ a$:a=VAL("&"+a$):POKE 39999+g,a:chk=chk+a:NEXT:IF chk<>&1D07 THEN PRINT"Error in 180":STOP

APRES :

70 LOCATE 15,15:PRINT"Polite Notice:":ON BREAK GOSUB 380:MEMORY 17663:mem=17664:FOR g=1 TO 14:chk=0:FOR h=1 TO 77:READ a$:a=VAL("&"+a$):POKE mem,a:chk=chk+a:mem=mem+1:NEXT:READ chk$:IF VAL("&"+chk$)<>chk THEN PRINT"error in line"80+(g*10):STOP
80 NEXT:CHK=0:FOR g=1 TO 77:READ a$:a=VAL("&"+a$):POKE 39999+g,a:chk=chk+a:NEXT:IF chk<>&1D07 THEN PRINT"Error in 230":STOP