DEMO -> Varios               

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