1 REM Ins{nt av 183
10 REM SENDKOM.UTL  (c) David Aronson
20 REM Ver 1.0          1984-02-04
30 REM 
40 REM Programmet anv{nds f|r att s{nda textfiler fr}n din ABC80 till
50 REM konferenssystemet KOM.
60 REM Ge CTRL-P f|r att g} |ver i LOKAL-MODE, ange d{refter filnamn
70 REM som ska s{ndas |ver.
75 DIM A$=122%
80 T0=100 : R0=200
90 ; 'Teckenpaus='T0'. Radpaus'R0'.'
100 OPEN 'V24:KA.1' ASFILE 1% : REM 300 bps fdx terminal.
110 INPUT #1%,A$ : REM Terminalmode tills ^P.
115 IF A$<>'' THEN ; A$ : GOTO 110
117 R%=0%
120 ; : ; 'Vilket filnamn ska s{ndas';
130 INPUT F$ : IF F$='' THEN 110 : REM RETURN }terv{nder.
140 ONERRORGOTO 160 : OPEN F$ ASFILE 2%
150 ; 'Ok, filen |ppnad!' : GOTO 170
160 ; 'ERR'ERRCODE' (vid OPEN)'CHR$(7%) : GOTO 120
170 REM * L{s & S{nd rader till filen *
175 ONERRORGOTO 220 : INPUTLINE #2%,A$
176 IF LEN(A$)=2% THEN A$=' '+A$ : REM Fixa mellanslag p} tomma rader!
180 FOR A%=1% TO LEN(A$)-1%
190 ; #1%MID$(A$,A%,1%); : FOR T=0 TO T0 : NEXT T
200 NEXT A%
205 R%=R%+1% : ; 'Rad'R%;CHR$(13%);
210 FOR T=0 TO R0 : NEXT T : GOTO 170
220 ; : ; 
230 IF ERRCODE<>34% THEN ; 'Fel vid s{ndning ERR'ERRCODECHR$(7%) ELSE ; 'Klart!'
235 ; : ; : ; 
240 GOTO 110