*** 093
1 a$="010980211680c3d1bc0e80c31a80474554434841d20000000000fe03c0c078bbe5dd6604dd6e02cd75bbcd60bbdd4601dd4e0002e1c375bb"
2 FOR t=1 TO LEN(a$) STEP 2:POKE &7FFF+t/2,VAL("&"+MID$(a$,t,2)):NEXT:MEMORY &7FFF:CALL &8000
->Soit je suis une truffe, soit ça ne ne fonctionne pas correctement en faisant |GETCHAR,1,1,@A comme indiqué dans le magazine