1 REM Ins{nt av 1255 10 REM Ins{nt av 183 20 REM SENDKOM.UTL (c) David Aronson 30 REM Ver 1.0 1984-02-04 40 REM 50 REM Programmet anv{nds f|r att s{nda textfiler fr}n din ABC80 till 60 REM konferenssystemet KOM. 70 REM Ge CTRL-P f|r att g} |ver i LOKAL-MODE, ange d{refter filnamn 80 REM som ska s{ndas |ver. 90 REM SENDUMKO.UTL G|ran Sundqvist 1984-03-04 100 REM till{gg som vid ctrl P och RETURN dumpar bildsk{rmsinneh}llet till 110 REM diskettfil MOTEXT.n d{r n {r f|rsta lediga heltal fr}n 1 upp till 999 120 REM f|r att st{nga filen trycker man ctrl P ST[NG RETURN 130 DIM A$=122% 140 T0=50 : R0=100 150 ; 'Teckenpaus='T0'. Radpaus'R0'.' 160 N$='000' 170 OPEN 'V24:KA.1' ASFILE 1% : REM 300 bps fdx terminal. 180 INPUT #1%,A$ : REM Terminalmode tills ^P. 190 IF A$<>'' THEN ; A$ : GOTO 180 200 R%=0% 210 ; : ; 'RETN ger fildump,"ST[NG" st{nger utfil' : ; 220 ; 'Eller ge namn p} fil som skall s{ndas :'; 230 INPUT F$ : IF F$='' THEN 410 : REM RETURN f|r dump av sk{rmbild. 240 IF F$="ST[NG" OR F$="st{ng" THEN CLOSE 3 : \%=0% : GOTO 180 250 ONERRORGOTO 270 : OPEN F$ ASFILE 2% 260 ; 'Ok, filen |ppnad!' : GOTO 280 270 ; 'ERR'ERRCODE' (vid OPEN)'CHR$(7%) : GOTO 180 280 REM * L{s & S{nd rader till filen * 290 ONERRORGOTO 360 : INPUTLINE #2%,A$ 300 IF LEN(A$)=2% THEN A$=' '+A$ : REM Fixa mellanslag p} tomma rader! 310 FOR A%=1% TO LEN(A$)-1% 320 ; #1%MID$(A$,A%,1%); : FOR T=0 TO T0 : NEXT T 330 NEXT A% 340 R%=R%+1% : ; 'Rad'R%;CHR$(13%); 350 FOR T=0 TO R0 : NEXT T : GOTO 280 360 ; : ; 370 IF ERRCODE<>34% THEN ; 'Fel vid s{ndning ERR'ERRCODECHR$(7%) ELSE ; 'Klart!' 380 ; : ; : ; 390 CLOSE 2 400 GOTO 180 410 REM Utmatning av bildsk{rmsinneh}ll till diskettfil 411 IF \% THEN 470 : REM om filen redan |ppnad 420 ONERRORGOTO 460 430 N$=ADD$(N$,'001',0%) 440 OPEN 'KOMTEXT.'+N$ ASFILE 3% : REM RESULTATFIL 450 GOTO 430 : REM Snurra tills error 21 460 PREPARE 'KOMTEXT.'+N$ ASFILE 3% : \%=1% : REM NY RESULTATFIL 470 OPEN 'SKR:' ASFILE 2% : REM BILDSK[RMEN 480 FOR R%=1% TO 24% 490 INPUTLINE #2,A$ : REM l{s bildminne 500 PRINT #3,A$ : REM lagra p} diskett 510 NEXT R% 520 CLOSE 2% 530 GOTO 180