EDUCATIF -> Divers               

Paru sous forme de listing dans le magazine Hebdogiciel n° 150 (29 août 1986).
Programmation : Marc PHAM

Plusieurs soucis dans le listing :
MEMORY A=42100
CAL 42000
POKE 42119,657

Voici deux propositions de corrections :
Version 1 (en respectant le listing d'origine) :

10 DATA 00,00,00,00,01,1E,A4,21,10,A4,CD,D1,BC,C9,23,A4,C3,29,A4,52,53,45,43,D4,00,DD,7E,
04,FE,01,28,09,FE,02,28,13,FE,00,28,08,C9,DD,7E,00,C6,00,18,0A,DD,7E,00,C6,40,18,03,DD,7E,
00,DD,56,02,1E,00,DD,66,07,DD,6E,06,F5,0E,07,CD,0F,B9,F1,D5,4F,CD,66,C6,C1
20 DATA CD,18,B9,C9:A=42100:MEMORY A-1:FOR I=42000 TO 42085:READ A$:POKE I,VAL("&"+A$):NEXT:
CALL a-100:RESTORE:FOR I=A TO A+85:READ A$:POKE I,VAL("&"+A$):NEXT:POKE 42105,&82:
POKE 42108,&74:POKE 42114,&87:POKE 42117,&8D:POKE 42119,&57:POKE 42179,&4E:CALL A

Version 2 (en s'affranchissant du listing d'origine) :

10 MEMORY &A40F:A$="00000000011EA42110A4CDD1BCC923A4C329A452534543D400DD7E04FE012809
FE022813FE002808C9DD7E00C600180ADD7E00C6401803DD7E00DD56021E00DD6607DD6E06F50E07CD0F
B9F1D54FCD66C6C1CD18B9C9":FOR i=1 TO 172 STEP 2
20 POKE &A410+(i-1)/2,VAL("&"+MID$(a$,i,2)):NEXT:CALL &A410:FOR i=1 TO 172 STEP 2:
POKE &A474+(i-1)/2,VAL("&"+MID$(a$,i,2)):NEXT:POKE &A479,&82:POKE &A47C,&74:
POKE &A482,&87:POKE &A485,&8D:POKE &A487,&57:POKE &A4C3,&4E:CALL &A474:NEW