1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   INUTFIL
3 REM ! Utg}va  1.1    81-03-17
4 REM ! av (c) JAN K[RRB[CK
5 REM ! TEL. 08/38 62 85 , 89 19 10
6 REM ! Minne 16 Kbytes f|r flexskiva
7 REM ! ETT PROGRAM SOM L[SER OCH
8 REM ! SKRIVER TEXT FILER.ANV[NDBART!!
9 REM +++++++++++++++++++++++++++++++++
10 DIM A$=119% : ONERRORGOTO 290
20 A%=0% : T%=0% : ; CHR$(12%)'* ABC80 INFIL/UTFIL Vers 1.1 *'
30 ; : ; 'Avsluta med * i f|rsta position'
35 ; : ; 'Infil/utfil (I/U) '; : INPUT T$ : IF LEN(T$)>1% GOTO 10 ELSE I%=20%
40 DEFFNA%(X$,Y$)=INSTR(1%,T$,X$)+INSTR(1%,T$,Y$)
50 IF FNA%('U','u') T$='tfil' : GOSUB 270 : GOTO 140 ELSE IF FNA%('I','i') T$='nfil' : GOSUB 270 ELSE GOTO 300
60 GOSUB 250
70 PREPARE T$ ASFILE 2%
80 ; '>'; : INPUTLINE A$
90 A$=LEFT$(A$,LEN(A$)-2%)
100 IF LEN(A$)>38% ; CHR$(7%)'F|r l}ng text skriv om raden !!!' : GOTO 80
110 IF A$='*' ; : GOTO 230
120 ; #2%,A$ : ; 
130 A%=A%+1% : GOTO 80
140 GOSUB 250 : ; 'Printer (nej) '; : INPUT F$ : ; 
150 F%=-(F$='J')-(F$='j') : OPEN 'PR:' ASFILE F%
160 IF F% ONERRORGOTO 170 : ; 'Tabantal (0) '; : INPUT T%
170 OPEN T$ ASFILE 2%
180 ONERRORGOTO 230
190 INPUTLINE #2%,A$
200 A$=LEFT$(A$,LEN(A$)-2%)
210 IF PEEK(65011%)=23% GET T$
220 IF ASC(T$)<>4% ; #F%,TAB(T%)A$ : A%=A%+1% : GOTO 190
230 CLOSE 2% : ; : ; 'Antal rader:'A%'  <Tryck p} return!>';
240 GET T$ : IF ASC(T$)=13% GOTO 20 ELSE 240
250 I%=9% : ; : ; 'Filnamn '; : INPUT T$ : IF T$='' GOTO 300
260 IF INSTR(1%,T$,'.') ; : GOTO 280 ELSE T$=T$+'.TXT'
270 POKE 65011%,PEEK(65011%)-1%,I% : ; T$ : IF I%<20% ; 
280 RETURN 
290 ; CHR$(7%)'Hittar ej filen !!!'; : GET T$ : GOTO 10
300 END