32000 POKE 82,232010 REM TYPO II BY ANDY BARTON32020 REM VER. 1.0 FOR ANTIC MAGAZINE32030 REM TURBO TYPO REV. BY J.D. MCLAUGHLIN32040 REM (C) 1985, ANTIC PUBLISHING32050 CLR :DIM LINE$(120):CLOSE #2:CLOSE #332060 DIM B$(75):X=PEEK(136)*PEEK(137)*25632070 B$="hhhhhϩ˅б̅m `"32080 OPEN #2,4,0,"E":OPEN #3,5,0,"E"32090 ? "}":POSITION 11,1:? "Ϡɠ"32100 TRAP 32090:POSITION 2,3:? "Type in a program line"32110 POSITION 1,4:? " ":INPUT #2;LINE$:IF LINE$="" THEN POSITION 2,4:LIST B:GOTO 3211032120 IF LINE$="*" THEN GOSUB 32300:POSITION 2,4:LIST B:POKE 764,12:GOTO 3211032130 IF LINE$(1,1)="*" THEN B=VAL(LINE$(2,LEN(LINE$))):POSITION 2,4:LIST B:GOTO 3211032140 POSITION 2,10:? "CONT"32150 B=VAL(LINE$):POSITION 1,3:? " ";32160 POKE 842,13:STOP 32170 POKE 842,1232180 ? "}":POSITION 11,1:? "Ϡɠ":POSITION 2,15:LIST B32190 C=0:ANS=C32200 POSITION 2,16:INPUT #3;LINE$:IF LINE$="" THEN ? "LINE ";B;" DELETED":GOTO 3210032210 ANS=USR(ADR(B$),ADR(LINE$),LEN(LINE$)):ANS=PEEK(1789)+256*PEEK(1790)+65536*PEEK(1791)32220 CODE=INT(ANS/676)32230 CODE=ANS-(CODE*676)32240 HCODE=INT(CODE/26)32250 LCODE=CODE-(HCODE*26)+6532260 HCODE=HCODE+6532270 POSITION 0,16:? CHR$(HCODE+128);CHR$(LCODE+128)32280 LPRINT CHR$(HCODE);CHR$(LCODE);:LIST "P:",B32290 POSITION 2,13:? "If CODE does not match press Π and edit line above.":GOTO 3210032300 B=PEEK(X)+PEEK(X+1)*256:IF B=32000 THEN POP :GOTO B32310 X=X+PEEK(X+2):RETURN