32000 REM AUTOTYPO V. 2.0632001 REM BY BRIAN SANDFORD32003 REM (TYPO II BY ANDY BARTON,32004 REM TURBO TYPO BY J.D. McLAUGHLIN)32010 REM (c) 1986, ANTIC PUBLISHING32015 POKE 775,0:IF PEEK(53279)=5 THEN POKE 775,3432020 CLR :DIM LINE$(120),IN$(2),OUT$(2):CLOSE #2:CLOSE #3:CLOSE #432025 SCR=PEEK(775):DIM B$(75)32026 B$="hhhhhϩ˅б̅m `"32030 OPEN #2,4,0,"E":OPEN #3,5,0,"E":OPEN #4,4,0,"K"32035 STM=PEEK(136)+PEEK(137)*256:IN$=""32040 ? "}":POSITION 2,0:? ""32050 TRAP 32040:REV=0:POKE 710,148:POSITION 11,0:? "^=CONTROL ?=upper case alpha"32055 ? "[^B]à [^L]Ԡ [^R]נ"32060 ? "CODE[??],line#,prgm line -ENTER"32065 ? "CODE[*] ,line#,[RTN] -ENTER/-EDIT"32068 ? "CODE[*] ,[RTN] -EDIT LAST LINE"32070 ? "CODE[??],line# -DELETE"32080 ? "CODE[RTN],line# -DELETE"32090 POSITION 2,16:? "Entered CODE ";IN$;" for LAST LINE ";B:POSITION 2,732100 POKE 559,34:POKE 82,0:? :GOSUB 32280:POKE 82,2:? 32110 INPUT #2;LINE$:IF LINE$="" THEN 3227032120 IF IN$="" THEN B=VAL(LINE$):GOTO 3227032130 POKE 559,SCR:POSITION 2,14:? "CONT"32140 B=VAL(LINE$):POSITION 1,7:? " ";32150 POKE 842,13:STOP 32160 POKE 842,1232170 ? "}":POSITION 2,0:? "":POSITION 2,18:LIST B:C=0:ANS=C32180 POSITION 2,19:INPUT #3;LINE$:IF LINE$="" THEN ? "LINE ";B;" Ġ":GOTO 3205032185 IF IN$="" THEN D=LEN(STR$(B)):IF LEN(LINE$)>(D+6) THEN IF LINE$(D+2,D+6)="ERROR" THEN IN$="":GOTO 3224032190 ANS=USR(ADR(B$),ADR(LINE$),LEN(LINE$)):ANS=PEEK(1789)+256*PEEK(1790)+65536*PEEK(1791)32200 CODE=ANS-(INT(ANS/676)*676):HCODE=INT(CODE/26):LCODE=CODE-(HCODE*26)32210 OUT$=CHR$(HCODE+193):OUT$(2)=CHR$(LCODE+193)32220 POSITION 0,19:? OUT$:IF IN$="" THEN IN$=OUT$32225 IF REV THEN IN$=OUT$:GOTO 3238032230 IF OUT$=IN$ THEN 3205032240 POKE 710,48:SOUND 0,75,12,10:FOR X=1 TO 40:NEXT X32250 POSITION 2,17:? "THIS LINE HAS AN Ҡ."32260 POSITION 2,6:? "Re-enter and to EDIT line":TRAP 32040:SOUND 0,0,0,0:GOTO 3209032270 POSITION 2,8:LIST B:POSITION 1,9:? " ";:IF IN$="" THEN IN$=""32275 GOTO 3211032280 IN$="":L=032290 GET #4,A:IF A=155 AND L<>1 THEN RETURN 32300 IF A=42 AND L=0 THEN 32340:REM *32310 IF A=2 THEN GRAPHICS 0:POKE 82,2:TRAP 40000:END :REM ^Basic32320 IF A=12 THEN ? "}":POKE 82,2:GOTO 32360:REM ^List32325 IF A=18 THEN POKE 82,2:? "}":POP :GOTO 32380:REM ^Review32330 IF A<65 OR A>90 THEN SOUND 0,121,10,10:FOR X=1 TO 20:NEXT X:SOUND 0,0,0,0:GOTO 3229032340 L=L+1:IN$(L,L)=CHR$(A+128):? CHR$(A+128);:IF L=2 OR A=42 THEN RETURN 32350 GOTO 3229032360 TRAP 40000:POSITION 2,9:? "ENTER list device (Xx:Filename.ext)"32370 INPUT LINE$:LIST LINE$,0,31999:LINE$="":GOTO 3202032380 TRAP 32035:POSITION 2,0:? "Ϡ":POSITION 8,2:? "נϠӠ"32390 ? " [ANY KEY] -CHECK Codes":? "[CTRL-D] -DONE, exit to AUTOTYPO"32400 POKE 710,192:IF REV THEN POSITION 2,16:? " CODE ";IN$;" for line ";B32410 POSITION 2,7:? :REV=1:POKE 559,34:GET #4,A:IF A=4 THEN 3203532420 B=PEEK(STM)+PEEK(STM+1)*256:IF B>31999 THEN 3203532430 DISP=PEEK(STM+2):STM=STM+DISP32440 POKE 559,SCR:POSITION 2,8:LIST B:POSITION 1,9:? " ";32450 INPUT #3;LINE$:GOTO 32130