1 REM Ins{nd av Lennart Einarsson <6554> 1986-08-24 02.26.27 (SEND) 10 REM >>>>>>>> CASS[ND <<<<<<<<<< 20 M%=180% : B%=-1% 30 DIM B$(M%)=119%,B$=119%,F1$=119% 40 ; CHR$(12%)TAB(11%)" -LOKAL MODE-" : ; 50 ; TAB(6%)"<1) Halv duplex terminal" 60 ; TAB(6%)"<2> Full duplex terminal" 70 ; TAB(6%)"<3> Ladda bufferten" 80 Z%=0% : T=100 : IF R% GOSUB 690 90 ; CUR(4%,7%); : GET B$ : I%=INSTR(1%,"123",B$)+1% 100 L%=0% : ON I% GOTO 40,110,120,450 110 Z%=1% 120 B$=" V[NTAR " : GOSUB 710 130 IF PEEK(65013%) 40 140 IF (INP(58%) AND 2%)=2% 130 150 IF Z%=1% OPEN "V24:KB.1" ASFILE 1% : L%=1% ELSE OPEN "V24:HA.1" ASFILE 1% : L%=1% 160 GOSUB 650 : IF B$="SENDFIL" 190 170 IF ASC(B$) 160 ELSE 40 180 REM 190 ; "** S{nda fil **" 200 ; "Lagras i MONITORN under filnamn:" 210 L%=0% : GOSUB 650 : L%=1% 220 IF LEN(B$)=0% 160 ELSE F1$=B$ 230 ; #L%,'Hejsan' : GOSUB 650 240 IF B$<>"SENDFIL" 230 : GOSUB 680 250 ; #L%'SYNKSVAR' : GOSUB 680 260 ; #L%,F1$ 270 REM 280 REM -PACKA UPP BUFFERT- 290 FOR I%=0% TO B% 300 P%=INSTR(1%,B$(I%),CHR$(3%)) 310 IF P% F1$=LEFT$(B$(I%),P%-1%) : B$(I%)=RIGHT$(B$(I%),P%+1%) : GOSUB 350 : GOTO 300 ELSE F1$=B$(I%) : GOSUB 350 320 NEXT I% : GOTO 400 330 REM 340 REM -S[ND 1 RAD- 350 IF LEN(F1$)<3% RETURN 360 GOSUB 650 : GOSUB 680 370 ; F1$ : ; #L%,F1$ : RETURN 380 REM 390 REM -EOF- 400 GOSUB 650 : GOSUB 680 : ; #L%,'/*' 410 ; CHR$(7%)"s{nt"R%" rader." : T=2000 420 GOSUB 680 : ; #L%'Tack!' 430 B%=-1% : R%=0% : GOTO 160 440 REM 450 REM -BUFFERT- 460 ; CUR(6%,7%)"Filnamn:"; : GOSUB 650 470 IF LEN(B$)=0% 40 ELSE L%=2% 480 F2$=B$ : B%=-1% : R%=0% 490 ONERRORGOTO 580 : T=5000 500 OPEN F2$ ASFILE L% : ; CHR$(12%)TAB(13%)F2$ 510 ONERRORGOTO 580 : GOSUB 650 520 IF LEN(F1$)+LEN(B$)+1%>118% 540 530 F1$=F1$+CHR$(3%)+B$ : GOTO 510 540 IF B%+2%>M% 600 : B%=B%+1% 550 B$(B%)=F1$ : B%=B%+1% : B$(B%)=B$ 560 F1$="" : GOTO 510 570 REM 580 I%=ERRCODE : IF I%=34% 630 590 IF I%+1% B$=" ERR"+NUM$(I%)+" " 600 IF B%+2%>M% B$=" Error 3 " 610 GOSUB 710 : B%=-1% : R%=0% 620 CLOSE L% : GOSUB 680 : GOTO 40 630 B%=B%+1% : B$(B%)=F1$ : GOTO 620 640 REM 650 INPUTLINE #L%,B$ : IF L%=2% R%=R%+1 660 B$=LEFT$(B$,LEN(B$)-2%) 670 IF L% ; B$ : RETURN ELSE RETURN 680 FOR S=1 TO T : NEXT S : RETURN 690 ; : ; "(Buffert laddad:"F2$; 700 ; ","R%" rader)" : RETURN 710 ; CHR$(12%) : FOR S=1 TO LEN(B$) 720 POKE 32653+S,640+ASC(MID$(B$,S,1)) 730 NEXT S : RETURN