1 'EXTERR(0) = PEEK(1886)
2 'EXTERR(1) = PEEK(1888)
3 'EXTERR(2) = PEEK(1889)
4 'EXTERR(3) = PEEK(1890)
5 DEF SEG
10 ON ERROR GOTO 15
15 WHILE C < 3
20 READ E,P:PRINT E,P
22 POKE E,P
25 C = C + 1
28 WEND
30 FOR G = 0 TO 3
40 PRINT EXTERR(G)
50 NEXT G
52 END
54 FOR X = 3900! TO 1 STEP -1
76 IF EXTERR(3) = PEEK(X) THEN  :PRINT X:POKE X,32:IF EXTERR(3) = 32 THEN PRINT EXTERR(3): ON ERROR GOTO 0:SUCESS!
98 NEXT
100 DATA 1886,44,1888,2,1889,8,1890,223