DEMO -> Divers               

Here's another beauty from the Hall catalogue. Run it, follow the on-screen prompts and you can create your own message of up to 29,000 characters to the screen.

* Version originale
Paru sous forme de listing dans le magazine Amstrad Computer User Issue 77 : April 1991.
Auteur : David HALL

* Repompage
Paru sous forme de listing dans le magazine MegaOcio n° 27 (Juin 1991)

La version MegaOcio contient les mêmes bugs.

Si la touche DEL est appuyé, la quantité de mémoire libre restante n'est pas mis à jour en haut à droite de l'écran. Ce bug peut être corrigé en modifiant la ligne 90 :
AVANT :

90 POKE st,1:st=st-1:GOTO 40:DATA F49F110800471910FD22A69C213FC6ED5BA69C0600DD21AD270E08EB3AA59CA6280779328B27
DD7E00329427EBD5060436007CC6086730041150C01910F2D1130D20D83AA59C1F32A59CC9F0F0CCCF300C0F3C

APRES :

90 POKE st,1:st=st-1:GOTO 70:DATA F49F110800471910FD22A69C213FC6ED5BA69C0600DD21AD270E08EB3AA59CA6280779328B27
DD7E00329427EBD5060436007CC6086730041150C01910F2D1130D20D83AA59C1F32A59CC9F0F0CCCF300C0F3C

Si on saisit un caractère de contrôle par erreur, le programme affiche l'erreur "Improper argument in 60". Ce bug peut être corrigé en modifiant la ligne 60 :
AVANT :

60 IF ASC(i$)<128 THEN SOUND 4,100,2:POKE st,ASC(i$)-31:st=st+1:LOCATE #1,x,y:PRINT #1,i$:x=x+1:IF x=81 THEN x=1:y=y+1:IF y=21 THEN PRINT #1:y=y-1

APRES :

60 IF ASC(i$)>31 AND ASC(i$)<128 THEN SOUND 4,100,2:POKE st,ASC(i$)-31:st=st+1:LOCATE #1,x,y:PRINT #1,i$:x=x+1:IF x=81 THEN x=1:y=y+1:IF y=21 THEN PRINT #1:y=y-1

Si des ROMs sont activées (faisant baisser le HIMEM) ou la ROM AMSDOS est désactivée, la police n'est pas affichée correctement.
Ce bug peut être corrigé en modifiant quelques lignes et en insérant quelques commandes :
AVANT :

10 IF PEEK(40100)<>129 THEN SYMBOL AFTER 31:MEMORY 9999:INK 0,0:INK 1,16:INK 5,3:BORDER 0:POKE 40100,129:l=10000:FOR m=1 TO 2:READ a$:FOR t=1 TO LEN(a$) STEP 2:POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT:NEXT
90 POKE st,1:st=st-1:GOTO 70:DATA F49F110800471910FD22A69C213FC6ED5BA69C0600DD21AD270E08EB3AA59CA6280779328B27
DD7E00329427EBD5060436007CC6086730041150C01910F2D1130D20D83AA59C1F32A59CC9F0F0CCCF300C0F3C

APRES :

10 IF PEEK(40100)<>129 THEN SYMBOL AFTER 31:h=HIMEM+1:h1=INT(h/256):h2=h-h1*256:MEMORY 9999:INK 0,0:INK 1,16:INK 5,3:BORDER 0:POKE 40100,129:l=10000:FOR m=1 TO 2:READ a$:FOR t=1 TO LEN(a$) STEP 2:POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT:NEXT:GOSUB 90
90 IF h THEN POKE 10083,h2:POKE 10084,h1:h=0:RETURN ELSE POKE st,1:st=st-1:GOTO 70:DATA F49F110800471910FD22A69C213FC6ED5BA69C0600DD21AD270E08EB3AA59CA6280779328B27
DD7E00329427EBD5060436007CC6086730041150C01910F2D1130D20D83AA59C1F32A59CC9F0F0CCCF300C0F3C