32000 REM TYPO II BY ANDY BARTON 32010 REM VER. 1.0 FOR ANTIC MAGAZINE 32020 CLR :DIM LINE$(120):CLOSE #2:CLOSE #3 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 32060 32070 IF LINE$(1,1)="*" THEN B=VAL(LINE$(2,LEN(LINE$))):POSITION 2,4:LIST B:GOTO 32060 32080 POSITION 2,10:? "CONT" 32090 B=VAL(LINE$):POSITION 1,3:? " "; 32100 POKE 842,13:STOP 32110 POKE 842,12 32120 ? "}":POSITION 11,1:? "����Ϡ�ɠ":POSITION 2,15:LIST B 32130 C=0:ANS=C 32140 POSITION 2,16:INPUT #3;LINE$:IF LINE$="" THEN ? "LINE ";B;" DELETED":GOTO 32050 32150 FOR D=1 TO LEN(LINE$):C=C+1:ANS=ANS+(C*ASC(LINE$(D,D))):NEXT D 32160 CODE=INT(ANS/676) 32170 CODE=ANS-(CODE*676) 32180 HCODE=INT(CODE/26) 32190 LCODE=CODE-(HCODE*26)+65 32200 HCODE=HCODE+65 32210 POSITION 0,16:? CHR$(HCODE);CHR$(LCODE) 32220 POSITION 2,13:? "If CODE does not match press ������Π and edit line above.":GOTO 32050
Back to previous page