32000 POKE 82,2 32010 REM TYPO II BY ANDY BARTON 32020 REM VER. 1.0 FOR ANTIC MAGAZINE 32030 REM TURBO TYPO REV. BY J.D. MCLAUGHLIN 32040 REM (C) 1985, ANTIC PUBLISHING 32050 CLR :DIM LINE$(120):CLOSE #2:CLOSE #3 32060 DIM B$(75):X=PEEK(136)*PEEK(137)*256 32070 B$="���hh��h��hh�ϩ ������� �˅б̅���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 32110 32120 IF LINE$="*" THEN GOSUB 32300:POSITION 2,4:LIST B:POKE 764,12:GOTO 32110 32130 IF LINE$(1,1)="*" THEN B=VAL(LINE$(2,LEN(LINE$))):POSITION 2,4:LIST B:GOTO 32110 32140 POSITION 2,10:? "CONT" 32150 B=VAL(LINE$):POSITION 1,3:? " "; 32160 POKE 842,13:STOP 32170 POKE 842,12 32180 ? "}":POSITION 11,1:? "����Ϡ�ɠ":POSITION 2,15:LIST B 32190 C=0:ANS=C 32200 POSITION 2,16:INPUT #3;LINE$:IF LINE$="" THEN ? "LINE ";B;" DELETED":GOTO 32100 32210 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)+65 32260 HCODE=HCODE+65 32270 POSITION 0,16:? CHR$(HCODE+128);CHR$(LCODE+128) 32280 LPRINT CHR$(HCODE);CHR$(LCODE);:LIST "P:",B 32290 POSITION 2,13:? "If CODE does not match press ������Π and edit line above.":GOTO 32100 32300 B=PEEK(X)+PEEK(X+1)*256:IF B=32000 THEN POP :GOTO B 32310 X=X+PEEK(X+2):RETURN
Back to previous page