10 CLS:CLEAR,&H8FFF:A=&H9000
11 SCREEN4,6,6:LOCATE0,2:COLOR0,15 
12 PRINT"Test extension mmoire ";
13 PRINT"64K du MO5":LOCATE0,4
20 READX$:IFX$=""THEN40
30 FORI%=1TOLEN(X$)-1STEP2
31 POKEA,VAL("&H"+MID$(X$,I%,2))
32 A=A+1:NEXTI%:GOTO20
40 EXEC&H9000:I%=PEEK(&H902A)
41 A=256*PEEK(&H902B)+PEEK(&H902C)
42 IFA+I%<>61444THEN60
43 COLOR7,2:LOCATE0,6
44 PRINT"AUCUNE ERREUR":GOTO70
60 COLOR7,1:LOCATE0,6
61 PRINT"ERREUR: BANQUE";I%;
62 PRINT"- ADRESSE";A-1
70 COLOR4,6:PRINT:PRINT:END
80 DATA"34171A50C60C3402F7A7CB8D3E"
81 DATA"8D345CC11026F4C60C3502F7A7"
82 DATA"CB8D3F26178D225CC11026F2C6"
83 DATA"0CF7A7CB8D4226078D125CC110"
84 DATA"26F2C00CF7902ABF902B7FA7CB"
85 DATA"35973406C62E3F0235868EB000"
86 DATA"4C81FF26014FA7808CF00026F3"
87 DATA"398EB0004C81FF26014FA18026"
88 DATA"058CF00026F1398EB000865543"
89 DATA"A784A184260C43A784A1802605"
90 DATA"8CF00026ED39",""

