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¢
