10 ' * AMSAISIE V.2 par Denis JARRIL * 20 MEMORY &2000:DIM O$(18):MODE 1:BORDER 0:INK 0,0:INK 1,13:CLS:PRINT:PRINT" I pour changer l'adresse courante":PRINT" S pour sauver les donnees":PRINT" Tapez les caracteres sans espace ni     return (tout se fait automatiquement). 30 PRINT" Les fleches servent a l'edition. 40 PRINT:INPUT" ADRESSE DE DEPART : ",A$:D$=A$:IF A$="" THEN 40 50 A=VAL("&"+A$) 60 I=0:A$=HEX$(A,4):PRINT:PRINT A$;":";:C=VAL("&"+LEFT$(A$,2))+VAL("&"+RIGHT$(A$,2)) 70 T$="":WHILE T$="":CALL &BB8A:T$=INKEY$:CALL &BB8D:WEND:T$=UPPER$(T$) 80 IF T$=CHR$(242) THEN T$=CHR$(127) 90 IF T$=CHR$(243) THEN T$=O$(I) 100 IF T$="I" THEN CLS:RUN 110 IF T$<>"S" THEN 140 ELSE D=VAL("&"+D$):IF D>0 AND A<0 THEN A=A+65536 120 PRINT:PRINT:INPUT"  NOM : ",N$:IF N$<>"" THEN SAVE N$,B,D,A-D+1 130 GOTO 60 140 IF T$<>CHR$(127) THEN 160 ELSE IF I=0 THEN 70 ELSE I=I-1:PRINT CHR$(8);" ";CHR$(8);:IF I/2<>Iç 2 THEN PRINT CHR$(8);" ";CHR$(8); 150 GOTO 70 160 IF T$<"0" OR T$>"F" THEN SOUND 7,150,20:GOTO 70 170 IF T$<"A" AND T$>"9" THEN SOUND 7,150,20:GOTO 70 180 PRINT T$;:IF I=15 THEN PRINT":"; ELSE IF I/2<>Iç 2 THEN PRINT" "; 190 O$(I)=T$ 200 I=I+1:IF I<18 THEN 70 210 FOR I=0 TO 15 STEP 2:X=VAL("&"+O$(I)+O$(I+1)):POKE A,X:A=A+1:C=C+X*((Iç 2)+1):NEXT:C=C AND &FF 220 IF C=VAL("&"+O$(I)+O$(I+1)) THEN 60 230 SOUND 7,50,10:SOUND 7,500,10:A=A-8:PRINT"ERREUR!":PRINT HEX$(A,4);":";:FOR I=0 TO 15:PRINT O$(I);:IF I/2<>Iç 2 AND I<>15 THEN PRINT" "; 240 NEXT:PRINT":";:PRINT O$(I);:I=I+1:C=VAL("&"+LEFT$(A$,2))+VAL("&"+RIGHT$(A$,2)):GOTO 70