1 REM ABCMINI fil|verf|ring till egen ABC-80, Program av Gunnar Tidner
2 OPEN "V24:KB.1" ASFILE 1 : L%=1
3 Z$="/*" : REM Filslutm{rke
4 DIM B$=119
5 ; "         ***  Half Duplex  ***"
6 INPUT #L%,A$
7 ; "\verf|ring av fil fr}n monitorn?"
8 ; "Bekr{fta:"; : GET C$ : ; C$
9 ; "Filnamn i MONITORN:"; : INPUT F1$
10 ; "Eget filnamn:"; : INPUT F2$
11 ; #L%,"Hejsan"
12 INPUT #L%,B$
13 IF B$<>"SYNK" THEN 11
14 FOR T=1 TO 100 : NEXT T
15 ; #L%,"SYNKSVAR"
16 ; #L%,F1$
17 INPUTLINE #L%,B$ : B$=LEFT$(B$,LEN(B$)-2%)
18 IF B$<>"OPENED" THEN ; B$ : FOR T=1 TO 3000 : NEXT T : GOTO 6
19 PREPARE F2$ ASFILE 2
20 FOR I%=1 TO 2000
21 ; #L%,'>'
22 INPUTLINE #L%,B$
23 IF LEFT$(B$,2%)=Z$ THEN 27
24 ; #2,B$;
25 ; I%
26 NEXT I%
27 CLOSE 2
28 ; CHR$(7)"\verf|ringen klar!"
29 ; "Filnamn: ";F2$;", antal rader=";I%-1%
30 FOR T=1 TO 2000 : NEXT T
31 ; #L%,"Tack!"
32 GOTO 6