32000 REM SUPER TYPOII32010 REM BY BARTON, DELL'ERA, MCLAUGHLIN & SOLOMON32015 REM (c) 1985, ANTIC PUBLISHING32020 CLR :DIM LINE$(120),B$(75):CLOSE #2:CLOSE #332025 B$="hhhhhϩ˅б̅m `"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 3206032065 IF LINE$="ERASE" THEN 3225032070 IF LINE$(1,1)="*" THEN B=VAL(LINE$(2,LEN(LINE$))):POSITION 2,4:LIST B:GOTO 3206032075 IF LINE$(1,1)="+" THEN POSITION 2,5:? " ":GOTO 3223032080 POSITION 2,10:? "CONT"32090 B=VAL(LINE$):POSITION 1,3:? " ";32100 POKE 842,13:STOP 32110 POKE 842,1232120 ? "}":POSITION 11,1:? "Ϡɠ":POSITION 2,15:LIST B32130 C=0:ANS=C32140 POSITION 2,16:INPUT #3;LINE$:IF LINE$="" THEN ? "LINE ";B;" DELETED":GOTO 3205032150 ANS=USR(ADR(B$),ADR(LINE$),LEN(LINE$)):ANS=PEEK(1789)+256*PEEK(1790)+65536*PEEK(1791)32160 CODE=INT(ANS/676)32170 CODE=ANS-(CODE*676)32180 HCODE=INT(CODE/26)32190 LCODE=CODE-(HCODE*26)+6532200 HCODE=HCODE+6532210 POSITION 0,16:? CHR$(HCODE+128);CHR$(LCODE+128)32220 POSITION 2,13:? "If CODE does not match press Π and edit line above.":GOTO 3205032230 B=B+1:POSITION 2,4:LIST B:POSITION 2,5:INPUT #3,LINE$:IF LINE$="" THEN 3223032240 GOTO 3208032250 ? "}":? :FOR ZZ=32000 TO 32140 STEP 10:? ZZ:NEXT ZZ:? 32015:? 3202532260 ? "CLR:POKE 842,12:CONT";:POSITION 2,0:POKE 842,13:STOP 32270 ? "}":? :FOR ZZ=32150 TO 32280 STEP 10:? ZZ:NEXT ZZ:? 32065:? 3207532280 ? "CLR:POKE 842,12:CONT";:POSITION 2,0:POKE 842,13:END