1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   ABCMINI
3 REM ! Utg}va  ??     19??-??-??
4 REM ! av (c) Gunnar Tidner
7 REM ! Minne 16 Kbytes f|r modem
9 REM +++++++++++++++++++++++++++++++++
10 REM ABCMINI fil|verf|ring till egen ABC-80
20 OPEN "V24 : KB.1" ASFILE 1 : L%=1
30 Z$="/*" : REM Filslutm{rke
40 DIM B$=119
50 ; "         ***  Half Duplex  ***"
60 INPUT #L%,A$
70 ; "\verf|ring av fil fr}n monitorn?"
80 ; "Trycktangent!"; : GET C$ : ; C$
90 ; "Filnamn i MONITORN:"; : INPUT F1$
100 ; "Eget filnamn:"; : INPUT F2$
110 ; #L%,"Hejsan"
120 INPUT #L%,B$
130 IF B$<>"SYNK" THEN 110
140 FOR T=1 TO 100 : NEXT T
150 ; #L%,"SYNKSVAR"
160 ; #L%,F1$
170 INPUTLINE #L%,B$ : B$=LEFT$(B$,LEN(B$)-2%)
180 IF B$<>"OPENED" THEN ; B$ : FOR T=1 TO 3000 : NEXT T : GOTO 60
190 PREPARE F2$ ASFILE 2
200 FOR I%=1 TO 2000
205 FOR T=1 TO 100 : NEXT T
210 ; #L%,'>'
220 INPUTLINE #L%,B$
230 IF LEFT$(B$,2%)=Z$ THEN 270
240 ; #2,B$;
250 ; I%
260 NEXT I%
270 CLOSE 2
280 ; CHR$(7)"\verf|ringen klar!"
290 ; "Filnamn: ";F2$;", antal rader=";I%-1%
300 FOR T=1 TO 2000 : NEXT T
310 ; #L%,"Tack!"
320 GOTO 60