2 REM ! Program ....   PRLIST.BAS     !
3 REM ! Version 3.0    840916         !
4 REM ! av (c) Ture P}lsson <5169>    !
7 REM ! Minne 16 Kbytes f|r flexskiva !
9 REM +++++++++++++++++++++++++++++++++
10 REM Printerkod f|r EPSON MX-80
11 REM 
100 DIM A$=120,F$=12
110 REM 
120 ; CHR$(12)
130 ; "$$$$$$$$$$$$$$$ PRLIST  $$$$$$$$$$$$$$$$"
140 ; : ; : ; "Infil ? "; : INPUTLINE F$
150 F$=LEFT$(F$,LEN(F$)-2)
160 IF INSTR(1,F$,".")=0 THEN F$=F$+".BAS" : ; ".BAS" ELSE ; 
161 ; : ; "Rubrik (N)"; : INPUT R$ : IF R$="j" OR R$="J" THEN R%=-1
162 IF R% THEN ; : ; "Datum"; : INPUT D$
170 ONERRORGOTO 130
180 OPEN F$ ASFILE 1
190 ONERRORGOTO 420
200 OPEN "PR:VSA38C72.5" ASFILE 2
201 IF R% THEN ; #2,TAB(10)"Filutskrift av: ";F$;TAB(40)"Datum: ";D$
202 ; #2,CHR$(10,10)
210 INPUTLINE #1,A$
220 A$=LEFT$(A$,LEN(A$)-2)
230 I=INSTR(1,A$," ")
240 IF I<6 THEN A$="0"+A$ : GOTO 230
250 IF LEN(A$)<120 THEN 340
260 FOR I=64 TO 1 STEP -1
270 X$=RIGHT$(A$,I)
280 IF INSTR(1,X$," ")=0 THEN NEXT I
290 A1$=LEFT$(A$,I)
300 A$=LEFT$(A$,I-1)
310 FOR I=LEN(A$)-1 TO 1 STEP -1 : X$=RIGHT$(A$,I) : IF INSTR(1,X$," ")=0 THEN NEXT I ELSE A2$=MID$(A$,66,LEN(A$))
320 ; #2,TAB(5)A$ : ; #2,TAB(11)A1$ : ; #2,TAB(11)A2$
330 GOTO 410
340 IF LEN(A$)<65 THEN 400
350 FOR I=64 TO 1 STEP -1
360 X$=RIGHT$(A$,I) : IF INSTR(1,X$," ")=0 THEN NEXT I ELSE A1$=RIGHT$(A$,I+1)
370 A$=LEFT$(A$,I)
380 ; #2,TAB(5)A$ : ; #2,TAB(11)A1$
390 GOTO 410
400 ; #2,TAB(5)A$
410 GOTO 210
420 ; : ; : ; "$$$ KLART $$$"
430 ; : ; "Vill du riva av"; : INPUT S$ : IF S$="J" OR S$="j" THEN ; #2,CHR$(12);STRING$(21,10);
440 END