1 REM Ins{nt av 1489
2 REM +----------------------------+
3 REM ! $$$$$  FLEXLIST.BAS  $$$$$ !
4 REM ! (c)---- Ver.1.3  31-07-1981!
5 REM !$$$$ INS[NT 8/-81 "TOJ" $$$$!
6 REM ! UTVECKLAT TILL DISKETT EF- !          ! TER "PGM LIST 40"          !
7 REM !         JAN KRISTENSEN     !
8 REM !         EKEBERGVEIEN 88    !
9 REM !         N-3080 HOLMESTRAND !
10 REM !         Tlf.(033)52521     !
11 REM ! Listar program i .BAS form.!
12 REM ! max 96 RADER.
13 REM +----------------------------+
14 REM TAG BORT ALLA REM-SATSER, S] BLIR DET UTRYMME F\R 96 RADER.
15 ; CHR$(12%)'RADER MAX96'; : INPUT L1% : A$=CHR$(14%) : B$=CHR$(15%)
16 DIM Z$(L1%)=118%,Z1$=1%,X1$=6%,X2$=118%,X3$=118%,X4$=60%
17 ; PEEK(65064%)*256%+PEEK(65063%)-PEEK(65057%)*256%-PEEK(65056%)
18 ; 'PRINTER (J/N)' : GET G$ : IF G$='J' F%=1% ELSE F%=0%
19 ; 'VILKEN FIL ?>'; : INPUTLINE I$ : I$=LEFT$(I$,LEN(I$)-2%)
20 V%=INSTR(1%,I$,'.') : IF V%=0% I$=I$+'.BAS' : R%=1%
21 ONERRORGOTO 23 : OPEN I$ ASFILE 2% : G1%=1%
22 INPUTLINE #2%,Z$(G1%) : ; CUR(10%,10%)'LINJE NR.'G1% : G1%=G1%+1% : IF G1%<L1%+1% 22 ELSE 23
23 CLOSE 2% : ; 'LIST' : OPEN 'PR:' ASFILE F%
24 ; #F% : ; #F%A$'     LISTNING 'I$TAB(30%)'SIDA 1' : ; #F%B$CHR$(10%) : F1%=3%
25 FOR G1%=1% TO L1% : Z9%=Z9%+LEN(Z$(G1%))-2%
26 Z$(G1%)=LEFT$(Z$(G1%),LEN(Z$(G1%))-2%)
27 V%=INSTR(1%,Z$(G1%),CHR$(9%))
28 IF V%=0% 30 ELSE I%=ASC(RIGHT$(Z$(G1%),V%+1%))
29 Z$(G1%)=LEFT$(Z$(G1%),V%-1%)+SPACE$(I%)+RIGHT$(Z$(G1%),V%+2%) : GOTO 27
30 V%=INSTR(1%,Z$(G1%),' ')
31 X1$=LEFT$(Z$(G1%),V%-1%) : Z8%=Z8%+1%
32 X2$=RIGHT$(Z$(G1%),V%+1%)
33 IF LEN(X2$)>54% 34 ELSE 38
34 X3$=RIGHT$(X2$,55%) : X2$=LEFT$(X2$,54%)
35 IF LEN(X3$)>54% 36 ELSE 38
36 X4$=RIGHT$(X3$,55%) : X3$=LEFT$(X3$,54%)
37 GOTO 38
38 GOSUB 45
39 IF X3$<>'' GOSUB 50
40 X5$='' : X4$='' : X3$='' : X2$=''
41 NEXT G1% : GOTO 54
42 FOR F2%=F1%+1% TO 70% : ; #F% : NEXT F2% : F1%=0%
43 ; #F%A$"     "I$; : F1%=F1%+1% : ; #F%TAB(30%)'SIDA 'R% : F1%=F1%+1%
44 F1%=F1%+1% : ; #F%B$ : F1%=F1%+1% : RETURN 
45 IF F1%>62% R%=R%+1% : GOSUB 42
46 L%=VAL(X1$) : IF L%<10% ; #F%TAB(3%)'000'+X1$TAB(9%)X2$ : F1%=F1%+1% : RETURN 
47 IF L%<100% ; #F%TAB(3%)'00'+X1$TAB(9%)X2$ : F1%=F1%+1% : RETURN 
48 IF L%<1000% ; #F%TAB(3%)'0'+X1$TAB(9%)X2$ : F1%=F1%+1% : RETURN 
49 IF L%<10000% ; #F%TAB(3%)X1$TAB(9%)X2$ : F1%=F1%+1% : RETURN 
50 ; #F%TAB(9%)X3$ : F1%=F1%+1%
51 IF X4$<>'' ; #F%TAB(9%)X4$ : F1%=F1%+1% : RETURN 
52 RETURN 
53 RETURN 
54 ; #F% : ; #F%"    * READY"
55 ; #F% : ; #F%'PROGRAMMET BEST]R AV'Z9%' TEKN (<CR> <LF> ICKE MEDR[KNAT) OCH'Z8%' RADER.'