32000 REM AUTOTYPO V. 2.06 32001 REM BY BRIAN SANDFORD 32003 REM (TYPO II BY ANDY BARTON, 32004 REM TURBO TYPO BY J.D. McLAUGHLIN) 32010 REM (c) 1986, ANTIC PUBLISHING 32015 POKE 775,0:IF PEEK(53279)=5 THEN POKE 775,34 32020 CLR :DIM LINE$(120),IN$(2),OUT$(2):CLOSE #2:CLOSE #3:CLOSE #4 32025 SCR=PEEK(775):DIM B$(75) 32026 B$="���hh��h��hh�ϩ ������� �˅б̅���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,7 32100 POKE 559,34:POKE 82,0:? :GOSUB 32280:POKE 82,2:? 32110 INPUT #2;LINE$:IF LINE$="" THEN 32270 32120 IF IN$="�" THEN B=VAL(LINE$):GOTO 32270 32130 POKE 559,SCR:POSITION 2,14:? "CONT" 32140 B=VAL(LINE$):POSITION 1,7:? " "; 32150 POKE 842,13:STOP 32160 POKE 842,12 32170 ? "}":POSITION 2,0:? "��������":POSITION 2,18:LIST B:C=0:ANS=C 32180 POSITION 2,19:INPUT #3;LINE$:IF LINE$="" THEN ? "LINE ";B;" �������Ġ":GOTO 32050 32185 IF IN$="��" THEN D=LEN(STR$(B)):IF LEN(LINE$)>(D+6) THEN IF LINE$(D+2,D+6)="ERROR" THEN IN$="�":GOTO 32240 32190 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 32380 32230 IF OUT$=IN$ THEN 32050 32240 POKE 710,48:SOUND 0,75,12,10:FOR X=1 TO 40:NEXT X 32250 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 32090 32270 POSITION 2,8:LIST B:POSITION 1,9:? " ";:IF IN$="�" THEN IN$="��" 32275 GOTO 32110 32280 IN$="":L=0 32290 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 ^Basic 32320 IF A=12 THEN ? "}":POKE 82,2:GOTO 32360:REM ^List 32325 IF A=18 THEN POKE 82,2:? "}":POP :GOTO 32380:REM ^Review 32330 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 32290 32340 L=L+1:IN$(L,L)=CHR$(A+128):? CHR$(A+128);:IF L=2 OR A=42 THEN RETURN 32350 GOTO 32290 32360 TRAP 40000:POSITION 2,9:? "ENTER list device (Xx:Filename.ext)" 32370 INPUT LINE$:LIST LINE$,0,31999:LINE$="":GOTO 32020 32380 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 ";B 32410 POSITION 2,7:? :REV=1:POKE 559,34:GET #4,A:IF A=4 THEN 32035 32420 B=PEEK(STM)+PEEK(STM+1)*256:IF B>31999 THEN 32035 32430 DISP=PEEK(STM+2):STM=STM+DISP 32440 POKE 559,SCR:POSITION 2,8:LIST B:POSITION 1,9:? " "; 32450 INPUT #3;LINE$:GOTO 32130
Back to previous page