*** 103A
1 MEMORY HIMEM-8:FOR I=0 TO 7:READ A:POKE HIMEN+I,A:NEXT I:DATA &3F,&2F,&32,&8E,&26,&00,&15,&1F,00:KEY DEF 1,1,9:KEY DEF 8,1,8:KEY DEF 0,1,11:KEY DEF 2,1,10
10 DEF FNY=(INT(((VPOS(#0)-1)*80+POS(#0))/94)+1)/80*94+1:DEF FNX=(FNY-INT(FNY))*80+1:MODE 2:FOR I=0 TO 7:OUT &BC00,I:OUT &BD00,PEEK(I+HIMEM):NEXT:X$=CHR$(3):Y$=CHR$(2):CALL &BB81:G$=CHR$(127):H$=CHR$(16):I$=CHR$(8):J$=CHR$(10):K$=CHR$(11):L$=CHR$(13)
20 A$=INKEY$:IF A$="" THEN 20 ELSE IF A$=G$ THEN PRINT I$H$;:GOTO 20 ELSE IF A$=J$ THEN PRINT Y$STRING$(94,9)X$;:GOTO 20 ELSE IF A$=K$ THEN PRINT Y$STRING$(94,8)X$;:GOTO 20 ELSE IF A$=L$ THEN LOCATE FNX,INT(FNY):GOTO 20 ELSE PRINT A$;:GOTO 20

-> le listing bug sous émulateur, erreur de saisie de ma part ou erreur avec les émulateurs ?