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%118% 530 520 F1$=F1$+B$+CHR$(3%) : GOTO 500 530 IF B%+2%>M% 590 540 B%=B%+1% 550 B$(B%)=LEFT$(F1$,LEN(F1$)-1%) 560 F1$=B$+CHR$(3) : GOTO 500 570 I%=ERRCODE : IF I%=34% 620 580 IF I%+1% B$=" ERR"+NUM$(I%)+" " 590 IF B%+2%>M% B$=" F\R M]NGA RADER " 600 GOSUB 690 : B%=-1% : R%=0% 610 CLOSE L% : GOSUB 660 : GOTO 110 620 B%=B%+1% : B$(B%)=LEFT$(F1$,LEN(F1$)-1%) : GOTO 610 630 INPUTLINE #L%,B$ : IF L%=2% R%=R%+1 640 B$=LEFT$(B$,LEN(B$)-2%) 650 IF L% ; B$ : RETURN ELSE RETURN 660 FOR S=1 TO T : NEXT S : RETURN 670 ; "(Buffert laddad:"F2$; 680 ; ","R%" rader)" : RETURN 690 FOR S=1 TO LEN(B$) 700 POKE 32600+S,640+ASC(MID$(B$,S,1)) 710 NEXT S : RETURN