1 REM Ins{nt av 1489
10 REM +----------------------------+
20 REM ! $$$$$$ KASSLIST.BAS $$$$$$ ! 
30 REM ! **** INS[NT 8/81 "TOJ" *** !
40 REM ! (c)---- Ver.1.3  31-07-1981!
50 REM ! Utviklet til kassett etter !
60 REM ! LIST40. Av JAN KRISTENSEN  !
70 REM !         EKEBERGVEIEN 88    !
80 REM !         N-3080 HOLMESTRAND !
90 REM !         Tlf.(033)52521     !
100 REM ! Listar program i .BAS form,!
110 REM ! max 92 rader.             !
120 REM +----------------------------+
130 REM TAG BORT ALLA REM-SATSER, S] F]R DU PLATS MED 92 RADER.
140 REM OM DU [NDRAR PROGRAMMET SOM I ABC-BLADET NR 2/80 S] F]R DU, 80 TECKENS UTSKRIFT OCH 96 RADER.
150 REM [R REDAN GJORT, SE PROGRAMMET " FLEXLIST "
160 ; CHR$(12%)'RADER MAX 92'; : INPUT L1% : A$=CHR$(14%) : B$=CHR$(15%)
170 DIM Z$(L1%)=118%,Z1$=1%,X1$=6%,X2$=118%,X3$=118%,X4$=60%
180 ; PEEK(65064%)*256%+PEEK(65063%)-PEEK(65057%)*256%-PEEK(65056%)
190 ; 'PRINTER (J/N)' : GET G$ : IF G$='J' F%=1% ELSE F%=0%
200 ; 'HVILKEN FIL >'; : INPUTLINE I$ : I$=LEFT$(I$,LEN(I$)-2%)
210 V%=INSTR(1%,I$,'.') : IF V%=0% I$=I$+'.BAS' : R%=1%
220 ONERRORGOTO 240 : OPEN I$ ASFILE 2% : G1%=1%
230 INPUTLINE #2%,Z$(G1%) : ; CUR(10%,10%)'LINJE NR.'G1% : G1%=G1%+1% : IF G1%<L1%+1% 230 ELSE 240
240 CLOSE 2% : ; 'LIST' : OPEN 'PR:' ASFILE F%
250 ; #F% : ; #F%A$'LISTNING 'I$TAB(30%)'SIDE 1' : ; #F%B$CHR$(10%) : F1%=3%
260 FOR G1%=1% TO L1% : Z9%=Z9%+LEN(Z$(G1%))-2%
270 Z$(G1%)=LEFT$(Z$(G1%),LEN(Z$(G1%))-2%)
280 V%=INSTR(1%,Z$(G1%),CHR$(9%))
290 IF V%=0% 310 ELSE I%=ASC(RIGHT$(Z$(G1%),V%+1%))
300 Z$(G1%)=LEFT$(Z$(G1%),V%-1%)+SPACE$(I%)+RIGHT$(Z$(G1%),V%+2%) : GOTO 280
310 V%=INSTR(1%,Z$(G1%),' ')
320 X1$=LEFT$(Z$(G1%),V%-1%) : Z8%=Z8%+1%
330 X2$=RIGHT$(Z$(G1%),V%+1%)
340 IF LEN(X2$)>34% 350 ELSE 410
350 X3$=RIGHT$(X2$,35%) : X2$=LEFT$(X2$,34%)
360 IF LEN(X3$)>34% 370 ELSE 410
370 X4$=RIGHT$(X3$,35%) : X3$=LEFT$(X3$,34%)
380 IF LEN(X4$)>34% 390 ELSE 410
390 X5$=RIGHT$(X4$,35%) : X4$=LEFT$(X4$,34%)
400 GOTO 410
410 GOSUB 490
420 IF X3$<>'' GOSUB 540
430 IF X4$<>'' GOSUB 570
440 X5$='' : X4$='' : X3$='' : X2$=''
450 NEXT G1% : GOTO 590
460 FOR F2%=F1%+1% TO 61% : ; #F% : NEXT F2% : F1%=0%
470 ; #F% : F1%=F1%+1% : ; #F%A$'NAMN'TAB(35%)'SIDA' : F1%=F1%+1%
480 ; #F%,I$TAB(36%)R% : F1%=F1%+1% : ; #F%B$ : F1%=F1%+1% : RETURN 
490 IF F1%>54% R%=R%+1% : GOSUB 460
500 L%=VAL(X1$) : IF L%<10% ; #F%TAB(3%)'000'+X1$TAB(9%)X2$ : F1%=F1%+1% : RETURN 
510 IF L%<100% ; #F%TAB(3%)'00'+X1$TAB(9%)X2$ : F1%=F1%+1% : RETURN 
520 IF L%<1000% ; #F%TAB(3%)'0'+X1$TAB(9%)X2$ : F1%=F1%+1% : RETURN 
530 IF L%<10000% ; #F%TAB(3%)X1$TAB(9%)X2$ : F1%=F1%+1% : RETURN 
540 ; #F%TAB(9%)X3$ : F1%=F1%+1%
550 IF X4$<>'' ; #F%TAB(9%)X4$ : F1%=F1%+1% : RETURN 
560 RETURN 
570 IF X5$<>'' ; #F%TAB(9%)X5$ : F1%=F1%+1%
580 RETURN 
590 ; #F% : ; #F%"    * READY"
600 ; #F% : ; #F%'PROGRAMMET BEST]R AV'Z9%' TECKEN (<CR> <LF> (EJ MEDR[KNAT) OCH'Z8%' RADER.' : ; #F%CHR$(12%)