10 REM +++++++++++++++++++++++++++++++++ 11 REM ! Program .... CASSEND2.UTL 12 REM ! Utg}va 2? 1981-09-08 13 REM ! av GUNNAR TIDNER <1306> 14 REM ! {ndrat av STEFAN BERG <216> 15 REM ! granskat av BO HJULSTR\M <557> 16 REM ! Minne 16 Kbytes f|r bandspelare 17 REM ! Ins{nt av SE 5 18 REM +++++++++++++++++++++++++++++++++ 19 REM UTILITIPROGRAM : 20 REM PROGRAMMET [R AVSETT F\R 21 REM KONTAKT MED MONITORN OCH BAND- 22 REM SPELARE. 23 REM M\JLIG\R S[NDANDE AV FIL FR]N 24 REM BANDSPELARE TILL MONITORN. 25 REM 26 REM F\RUTS[TTER MODEM & T80PRT EL. 27 REM LIKNANDE KOM.PROGRAM. 28 REM 29 REM 30 REM +++++++++++++++++++++++++ 31 REM CASSEND ver 1.0 32 REM Program av Gunnar Tidner 1981-01-08/Modifierat av 216 1981-09-08 33 N%=60% : Q9%=-1% : Z$="/*" 34 DIM B$=119,B$(N%)=119% 35 ; CHR$(12%);"LOKAL MODE!" : ; : ; "1 Half duplex terminal" : ; "2 Ladda buffert (max";N%;" rader!)" 36 ; CUR(5%,5%);"Vad vill du g|ra?" : ; : GET S$ : IF ASC(S$)<49 OR ASC(S$)>50 THEN 35 : S%=VAL(S$) 37 ON S% GOTO 38,66 38 OPEN "V24:KB.1" ASFILE 1 : L%=1 : REM Half Duplex (No Echo) 39 INPUT #L%,A$ 40 IF A$="SENDFIL" THEN 42 41 IF LEN(A$) THEN ; A$ : FOR T=1 TO 1000 : NEXT T : GOTO 39 ELSE 35 42 ; "LOKAL MODE Tryck tangent!" : GET C$ 43 ; " *** S{nda buffert som fil ***" : ; "Lagras vid MONITORN" : ; "under filnamn:"; : INPUT F1$ 44 ; #L%,"Hejsan" 45 INPUT #L%,B$ 46 IF B$<>"SENDFIL" THEN 44 47 FOR T=1 TO 100 : NEXT T 48 ; #L%,"SYNKSVAR" 49 FOR T=1 TO 100 : NEXT T 50 ; #L%,F1$ 51 ONERRORGOTO 58 52 FOR I%=0% TO Q9% 53 INPUT #L%,A$ 54 ; I% 55 FOR T=1 TO 100 : NEXT T 56 ; #L%,B$(I%) 57 NEXT I% 58 INPUT #L%,A$ 59 FOR T=1 TO 100 : NEXT T 60 ; #L%,Z$ 61 ; "S{nt";Q9%;" rader" 62 FOR T=1 TO 3000 : NEXT T 63 OUT 6,7 : ; "Tryck ner n}gon tangent" : GET \$ : OUT 6,0 64 ; #L%,"Tack!" 65 GOTO 39 66 Q9%=-1% : ; "Ange filnamn:"; : INPUT F2$ : ONERRORGOTO 71 : OPEN F2$ ASFILE 2 : ; 67 INPUTLINE #2,B$ 68 B$=LEFT$(B$,LEN(B$)-2) 69 Q9%=Q9%+1% : IF Q9%>N% THEN 74 ELSE B$(Q9%)=B$ 70 GOTO 67 71 IF ERRCODE=34 THEN ; "SLUT INFIL! RADER:"Q9%+1% ELSE IF ERRCODE<>-1 THEN ; "Fel nr";ERRCODE 72 CLOSE 2 : OUT 6,7 : FOR I=1 TO 3000 : NEXT I : OUT 6,0 73 POKE -456%,0 : GOTO 35 74 ; : ; "F|r m}nga rader. Sorry..." : Q9%=-1% : GOTO 72 75 END