10 REM .  SAVE TERM100
20 REM 
30 REM LADDA OCH STARTA
40 REM VT100 EMULERINGS PROGRAM
50 REM TERM100 V1.4
60 REM 
70 REM DAVID ANDERSSON
80 REM 1984-08-18
90 REM 
100 REM \PPNA ITH-FIL
110 REM sj{lva TERM100 programmet
120 OPEN 'TERM100.ITH' ASFILE 1%
130 GOSUB 1000
140 CLOSE 1%
150 ONERRORGOTO 200
160 REM default data skapad med SETUP.BAC
170 OPEN 'VTINIDAT.ITH' ASFILE 1%
180 GOSUB 1000
190 CLOSE 1%
200 REM STARTA PROGRAM
210 ONERRORGOTO 0
220 Z%=CALL(53000%)
230 END 
1000 REM L[S ITH-FIL
1010 H$='0123456789ABCDEF'
1020 REM 
1030 INPUTLINE #1%,A$ : IF ASC(A$)<>58% GOTO 1020 ELSE IF LEFT$(A$,7%)=":000000" GOTO 1130
1040 P%=2% : GOSUB 1110 : L%=X%-1%
1050 GOSUB 1110 : A3%=X%*256% : GOSUB 1110 : A3%=A3%+X% : P%=P%+2%
1061 IF A3%>53000% ; (59533%-A3%)/65%' % kvar 'CHR$(13%);
1070 FOR A%=A3% TO A3%+L% : X%=INSTR(1%,H$,MID$(A$,P%,1%))*16%+INSTR(1%,H$,MID$(A$,P%+1%,1%))-17%
1080 P%=P%+2% : POKE A%,X% : NEXT A%
1090 GOTO 1030
1100 REM 
1110 X%=INSTR(1%,H$,MID$(A$,P%,1%))*16%+INSTR(1%,H$,MID$(A$,P%+1%,1%))-17%
1120 P%=P%+2% : RETURN 
1130 REM ITH-FILEN SLUT
1140 RETURN