32000 REM TYPO II BY ANDY BARTON›32010 REM VER. 1.0 FOR ANTIC MAGAZINE›32020 CLR :DIM LINE$(120):CLOSE #2:CLOSE #3›32030 OPEN #2,4,0,"E":OPEN #3,5,0,"E"›32040 ? "}":POSITION 11,1:? "ÔÙÐÏ ÉÉ "›32050 TRAP 32040:POSITION 2,3:? "Type in a program line"›32060 POSITION 1,4:? " ":INPUT #2;LINE$:IF LINE$="" THEN POSITION 2,4:LIST B:GOTO 32060›32070 IF LINE$(1,1)="*" THEN B=VAL(LINE$(2,LEN(LINE$))):POSITION 2,4:LIST B:GOTO 32060›32080 POSITION 2,10:? "CONT"›32090 B=VAL(LINE$):POSITION 1,3:? " ";›32100 POKE 842,13:STOP ›32110 POKE 842,12›32120 ? "}":POSITION 11,1:? " ÔÙÐÏ ÉÉ ":POSITION 2,15:LIST B›32130 C=0:ANS=C›32140 POSITION 2,16:INPUT #3;LINE$:IF LINE$="" THEN ? "LINE ";B;" DELETED":GOTO 32050›32150 FOR D=1 TO LEN(LINE$):C=C+1:ANS=ANS+(C*ASC(LINE$(D,D))):NEXT D›32160 CODE=INT(ANS/676)›32170 CODE=ANS-(CODE*676)›32180 HCODE=INT(CODE/26)›32190 LCODE=CODE-(HCODE*26)+65›32200 HCODE=HCODE+65›32210 POSITION 0,16:? CHR$(HCODE);CHR$(LCODE)›32220 POSITION 2,13:? "If CODE does not match press  ÒÅÔÕÒΠ and edit line above.":GOTO 32050›