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