2 ! +++++++++++++++++++++++++++++++++++
3 ! Program ....     CASTRANS.800
4 ! Utg}va  1.0      1981-09-22
5 ! av (c) Robert B{rlund
8 ! Ins{nt av Robert B{rlund, 298.
9 ! +++++++++++++++++++++++++++++++++++
10 ! PROGRAM F\R \VERF\RING FR]N
20 ! ABC800 MED KASSETT TILL MONITORN
30 ! OCH OMV[NT.
40 ! GRUNDAT P] ABCTRANS-PROGRAMMET.
50 ! ANPASSAT TILL ABC800 AV 
60 ! ROBERT B[RLUND,KRISTIANSTAD.
80 EXTEND 
90 FLOAT 
100 Filslut$="/*"
110 DIM Post$=158%,V24$=158% : V24%=1% : Cas%=2%
120 ; CHR$(12%);"LOKAL MODE!"
130 OPEN "V24:TEB40G24.2" AS FILE V24%
140 INPUT #V24%,V24$
150 IF V24$="SYNK" THEN 190
160 IF V24$="SENDFIL" THEN 460
170 IF V24$="SIGNAL" THEN ; CHR$(7%) DBLE RED 'SIGNAL' : ; : GOTO 140
180 ; V24$ : IF LEN(V24$)=0% THEN 120 ELSE 140
190 ; "LOKAL MODE    Tryck tangent!" : GET Slask$
200 ; "  ***  Mottaga fil  ***"
210 ; "Filnamn vid MONITORN:"; : INPUT Monitorfilnamn$
220 ; "Filnamn h{r:"; : INPUT Terminalfilnamn$
230 ; #V24%,"Hejsan"
240 INPUT #V24%,V24$
250 IF V24$<>"SYNK" THEN 230
260 FOR Tidloop=1 TO 100 : NEXT Tidloop 
270 ; #V24%,"SYNKSVAR"
280 FOR Tidloop=1 TO 100 : NEXT Tidloop : REM Synkroniserad
290 ; #V24%,Monitorfilnamn$
300 INPUT LINE #V24%,V24$ : V24$=LEFT$(V24$,LEN(V24$)-2%)
310 IF V24$<>"OPENED" THEN ; V24$ : FOR Tidloop=1 TO 2000 : NEXT Tidloop : GOTO 140
320 PREPARE Terminalfilnamn$ AS FILE Cas%
330 FOR Radr{knare%=1% TO 10000%
340   FOR Tidloop=1 TO 100 : NEXT Tidloop 
350   ; #V24%,'>'
360   INPUT LINE #V24%,V24$
370   IF LEFT$(V24$,2%)=Filslut$ THEN 410
380   ; #Cas%,V24$
390   ; V24$
400 NEXT Radr{knare% 
410 CLOSE Cas%
420 ; "Antal rader=" Radr{knare%-1%
430 ; CHR$(7%) : ; "Tryck ner n}gon tangent" : GET Slask$
440 ; #V24%,"Tack!"
450 GOTO 140
460 ; "LOKAL MODE    Tryck tangent!" : GET Slask$
470 ; "  ***  S{nda fil  ***"
480 ; "Filnamn h{r:"; : INPUT Terminalfilnamn$
490 ; "Lagras vid MONITORN"
500 ; "under filnamn:"; : INPUT Monitorfilnamn$
510 OPEN Terminalfilnamn$ AS FILE Cas%
520 ; #V24%,"Hejsan"
530 INPUT #V24%,V24$
540 IF V24$<>"SENDFIL" THEN 520
550 FOR Tidloop=1 TO 100 : NEXT Tidloop 
560 ; #V24%,"SYNKSVAR"
570 FOR Tidloop=1 TO 100 : NEXT Tidloop 
580 ; #V24%,Monitorfilnamn$
590 ON ERROR GOTO 670
600 FOR Radr{knare%=1% TO 10000%
610   INPUT LINE #V24%,V24$
620   INPUT LINE #Cas%,Post$ : Post$=LEFT$(Post$,LEN(Post$)-2%)
630   ; Post$
640   FOR Tidloop=1 TO 100 : NEXT Tidloop 
650   ; #V24%,Post$
660 NEXT Radr{knare% 
670 FOR Tidloop=1 TO 100 : NEXT Tidloop 
680 ; #V24%,Filslut$
690 CLOSE Cas%
700 ; "Antal rader=" Radr{knare%-1%
710 FOR Tidloop=1 TO 3000 : NEXT Tidloop 
720 ; CHR$(7%) : ; "Tryck ner n}gon tangent" : GET Slask$
730 ; #V24%,"Tack!"
740 GOTO 140
750 END