1 REM Ins{nt av 1306
10 REM +++++++++++++++++++++++++++++++++
20 REM ! Program .... CASSEND
30 REM ! Utg}va 3.2 1982-02-08
40 REM ! av Gunnar Tidner
50 REM ! Stefan Berg
60 REM ! B Bruzelius
70 REM ! Minne 16 Kbytes f|r kassett
80 REM +++++++++++++++++++++++++++++++++
90 B%=-1% : IF PEEK(65053)<192 THEN M%=180% ELSE M%=50%
100 DIM B$(M%)=119%,B$=119%,F1$=119%
110 ; CHR$(12%)" -LOKAL MODE-" : ;
120 ; "<1) Half duplex terminal"
130 ; "<2> Ladda bufferten"
140 T=100 : IF R% GOSUB 670
150 GET B$ : I%=INSTR(1%,"12",B$)+1%
160 L%=0% : ON I% GOTO 110,170,440
170 B$=" V[NTAR P] B[RV]G " : GOSUB 690
180 IF PEEK(65013%) 110
190 IF (INP(58%) AND 2%)=2% 180
200 OPEN "V24:KB.1" ASFILE 1 : L%=1%
210 GOSUB 630 : IF B$="SENDFIL" 230
220 IF ASC(B$) 210 ELSE 110
230 ; "** S{nda fil **"
240 ; "Lagras i MONITORN under filnamn"
250 L%=0% : GOSUB 630 : L%=1%
260 IF LEN(B$)=0% 210 ELSE F1$=B$
270 ; #L%,'Hejsan' : GOSUB 630
280 IF B$<>"SENDFIL" 270 : GOSUB 660
290 ; #L%'SYNKSVAR' : GOSUB 660
300 ; #L%,F1$
310 REM -PACKA UPP BUFFERT-
320 FOR I%=0% TO B% : Q%=0%
330 IF Q%