32000 REM SUPER TYPOII 32010 REM BY BARTON, DELL'ERA, MCLAUGHLIN & SOLOMON 32015 REM (c) 1985, ANTIC PUBLISHING 32020 CLR :DIM LINE$(120),B$(75):CLOSE #2:CLOSE #3 32025 B$="���hh��h��hh�ϩ ������� �˅б̅���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 32060 32065 IF LINE$="ERASE" THEN 32250 32070 IF LINE$(1,1)="*" THEN B=VAL(LINE$(2,LEN(LINE$))):POSITION 2,4:LIST B:GOTO 32060 32075 IF LINE$(1,1)="+" THEN POSITION 2,5:? " ":GOTO 32230 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 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)+65 32200 HCODE=HCODE+65 32210 POSITION 0,16:? CHR$(HCODE+128);CHR$(LCODE+128) 32220 POSITION 2,13:? "If CODE does not match press ������Π and edit line above.":GOTO 32050 32230 B=B+1:POSITION 2,4:LIST B:POSITION 2,5:INPUT #3,LINE$:IF LINE$="" THEN 32230 32240 GOTO 32080 32250 ? "}":? :FOR ZZ=32000 TO 32140 STEP 10:? ZZ:NEXT ZZ:? 32015:? 32025 32260 ? "CLR:POKE 842,12:CONT";:POSITION 2,0:POKE 842,13:STOP 32270 ? "}":? :FOR ZZ=32150 TO 32280 STEP 10:? ZZ:NEXT ZZ:? 32065:? 32075 32280 ? "CLR:POKE 842,12:CONT";:POSITION 2,0:POKE 842,13:END
Back to previous page