|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 16224 (0x3f60)
Types: TextFile
Notes: Mikados_K
Names: »BREVE.K«
└─⟦98735d749⟧ Bits:30007443 8" floppy ( TEXT ) vedr. matematik i skibsindustrien
└─⟦this⟧ »BREVE.K«
0100 TRUE=1 0110 FALSE=0 0120 DIM SPLIT$(66),BL$(66) 0130 DIM B$(133),SYM$(66),S$(1),SIDE$(22,66),LINE$(133),SV$(2),FIL1$(20) 0140 DIM FIL$(20),UDFIL$(20),SV1$(1) 0141 DIM K1$(17),N$(6),K2$(17),K3$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(2) 0142 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(2),DEBGADE$(25) 0143 DIM BLANK$(77),A$(1),TAL4$(14),TAH$(12),T1(9),DEBTLF$(9),DEBBY$(20) 0144 DIM RES$(14),ÅRKØB$(12),MDNKØB$(12),LK$(3),KG$(3),KTN$(6) 0145 DIM PNR$(6),TY$(1),OP1$(12),OP2$(12),TA$(12),TB$(14) 0146 DIM KS$(5),DAT$(8),K4$(17) 0147 DIM K5$(17),LAND$(9,12) 0150 FOR I=1 TO 66 0160 BL$(I)=" " 0170 NEXT I 0180 UDFIL$="DDE:BREVFIL" 0190 FIL$="DDE:MODUL" 0200 OPEN UDFIL$,W 0210 PROC INDMODUL 0220 LAST=0 0230 REPEAT 0240 INPUT "MODULNR ",SV$ 0250 EXEC CHECK1 0260 UNTIL OKAY=TRUE 0270 EXEC CONVERT(NR) 0280 FIL1$=FIL$+SV$ 0290 OPEN FIL1$,R 0300 IF STATUS(FIL1$)=0 THEN 0310 FOR L=1 TO 18 0320 GET FIL1$:SIDE$(L) 0330 IF LEN(SIDE$(L))>0 THEN LAST=L 0340 NEXT L 0350 CLOSE FIL1$ 0360 EXEC SKRIV 0370 ENDIF 0380 IF LAST=0 THEN GO TO 0230 0390 ENDPROC 0400 PROC TILPAS 0410 I0=1 0420 REPEAT 0430 CURSOR 1,23 0440 INPUT "T,TL,S,SL,R,E,F ",SV$ 0450 EXEC CHECK 0460 IF OKAY=TRUE THEN 0470 I=I0-1 0480 EXEC FINDPOS 0490 I0=I 0500 IF I0=>LAST THEN I0=1 0510 IF J>0 THEN 0520 CASE SV$ OF 0530 WHEN "TL","tl","Tl","tL" 0540 IF LAST<22 THEN 0550 CURSOR 1,23 0560 PRINT BL$ 0570 REPEAT 0580 CURSOR 1,23 0590 INPUT " ",LINE$ 0600 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67 0610 I1=I 0620 EXEC INDSÆT 0630 ENDIF 0640 WHEN "T","t" 0650 J1=J 0660 I1=I 0670 CURSOR 1,23 0680 PRINT BL$ 0690 REPEAT 0700 CURSOR 1,23 0710 INPUT " ",LINE$ 0720 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67 0730 EXEC INSERT 0740 WHEN "S","s" 0750 EXEC SLUTPOS 0760 EXEC DELETE 0770 WHEN "SL","sl","Sl","sL" 0780 I1=I 0790 EXEC SLET 0800 WHEN "R","r" 0810 EXEC SLUTPOS 0820 CURSOR 1,23 0830 PRINT BL$ 0840 REPEAT 0850 CURSOR 1,23 0860 INPUT " ",LINE$ 0870 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67 0880 IF I1=I THEN 0890 IF LEN(LINE$)<=J-J1+1 THEN 0900 SIDE$(I1,J1:LEN(LINE$))=LINE$ 0910 J1=J1+LEN(LINE$) 0920 IF J1<=J THEN EXEC DELETE 0930 ELSE 0940 SIDE$(I1,J1:J-J1+1)=LINE$(1:J-J1+1) 0950 LINE$=LINE$(J-J1+2,LEN(LINE$)) 0960 J1=J+1 0970 EXEC INSERT 0980 ENDIF 0990 ELSE 1000 IF LEN(LINE$)<=66-J1 THEN 1010 SIDE$(I1,J1:LEN(LINE$))=LINE$ 1020 J1=J1+LEN(LINE$) 1030 IF J1>66 THEN 1040 J1=1 1050 I1=I1+1 1060 ENDIF 1070 EXEC DELETE 1080 ELSE 1090 P=67 1100 IF J1>1 THEN LINE$=SIDE$(I1,1,J1-1)+LINE$ 1110 EXEC FLÆK(LINE$) 1120 SIDE$(I1)=SPLIT$+BL$ 1130 I1=I1+1 1140 J1=1 1150 IF I1=I THEN 1160 IF LEN(LINE$)<=J-J1 THEN 1170 IF LEN(LINE$)>0 THEN SIDE$(I1,J1:LEN(LINE$))=LINE$ 1180 J1=J1+LEN(LINE$) 1190 EXEC DELETE 1200 ELSE 1210 SIDE$(I1,J1:J-J1+1)=LINE$(1:J-J1+1) 1220 LINE$=LINE$(J-J1+2,LEN(LINE$)) 1230 J1=J+1 1240 EXEC INSERT 1250 ENDIF 1260 ELSE 1270 SIDE$(I1)=LINE$ 1280 J1=LEN(LINE$)+1 1290 EXEC DELETE 1300 ENDIF 1310 ENDIF 1320 ENDIF 1330 WHEN "E","e" 1340 LINE$=SIDE$(I) 1350 CURSOR 1,23 1360 PRINT BL$ 1370 REPEAT 1380 CURSOR 1,23 1390 EDIT " ",LINE$ 1400 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67 1410 SIDE$(I)=LINE$ 1420 ENDCASE 1430 EXEC SKRIV 1440 ENDIF 1450 ENDIF 1460 UNTIL SV$="F" OR SV$="f" 1470 ENDPROC 1480 PROC FINDPOS 1490 REPEAT 1500 I=I+1 1510 CURSOR 1,I 1520 INPUT " ",LINE$ 1530 UNTIL I=22 OR LEN(LINE$)>0 1540 J=LEN(LINE$) 1550 IF J>66 THEN J=66 1560 ENDPROC 1570 PROC SKRIV 1580 CLEAR 1590 FOR X=1 TO 22 1600 CURSOR 1,X 1610 PRINT " ";SIDE$(X) 1620 NEXT X 1630 ENDPROC 1640 PROC INDSÆT 1650 LAST=LAST+1 1660 IF I1>LAST THEN LAST=I1 1670 FOR L=LAST TO I1+1 STEP -1 1680 SIDE$(L)=SIDE$(L-1) 1690 NEXT L 1700 SIDE$(I1)=LINE$+BL$ 1710 ENDPROC 1720 PROC SLET 1730 FOR L=I1 TO LAST-1 1740 SIDE$(L)=SIDE$(L+1) 1750 NEXT L 1760 SIDE$(LAST)="" 1770 LAST=LAST-1 1780 ENDPROC 1790 PROC SLUTPOS 1800 I1=I 1810 J1=J 1820 CURSOR J+10,I 1830 INPUT " ",LINE$ 1840 IF LEN(LINE$)=0 THEN 1850 EXEC FINDPOS 1860 ELSE 1870 J=LEN(LINE$)+J1-1 1880 IF J>66 THEN J=66 1890 ENDIF 1900 ENDPROC 1910 PROC FLÆK(LIN) 1920 SPLIT$="" 1930 FOUND=FALSE 1940 Q=LEN(LIN$) 1950 WHILE Q>0 1960 IF LIN$(Q)=" " THEN 1970 LIN$(Q)="" 1980 Q=Q-1 1990 ELSE 2000 Q=0 2010 ENDIF 2020 ENDWHILE 2030 IF P>LEN(LIN$) THEN 2040 FOUND=TRUE 2050 P=LEN(LIN$)+1 2060 ELSE 2070 IF P<66 THEN P=P+1 2080 IF LIN$(P)<>" " THEN 2090 REPEAT 2100 P=P-1 2110 IF LIN$(P)=" " THEN FOUND=TRUE 2120 UNTIL FOUND=TRUE OR P=1 2130 ELSE 2140 FOUND=TRUE 2150 ENDIF 2160 ENDIF 2170 IF FOUND THEN 2180 IF P=1 THEN 2190 SPLIT$="" 2200 IF P<LEN(LIN$) THEN LIN$=LIN$(P+1,LEN(LIN$)) 2210 ELSE 2220 SPLIT$=LIN$(1,P-1) 2230 IF P<LEN(LIN$) THEN 2240 LIN$=LIN$(P+1,LEN(LIN$)) 2250 ELSE 2260 LIN$="" 2270 ENDIF 2280 ENDIF 2290 ENDIF 2300 ENDPROC 2310 PROC INSERT 2320 B$="" 2330 IF J1>1 THEN B$=SIDE$(I1,1,J1-1) 2340 B$=B$+LINE$ 2350 IF J1<67 THEN B$=B$+SIDE$(I1,J1,66) 2360 P=67 2370 EXEC FLÆK(B$) 2380 SIDE$(I1)=SPLIT$+BL$ 2390 I1=I1+1 2400 J1=1 2410 LINE$=B$ 2420 WHILE SIDE$(I1,1)<>" " AND LEN(LINE$)>0 AND LEN(SIDE$(I1))>0 2430 B$=SIDE$(I1) 2440 IF LINE$(LEN(LINE$))="-" THEN 2450 LINE$(LEN(LINE$))="" 2460 ELSE 2470 IF LEN(LINE$)<66 THEN LINE$=LINE$+" " 2480 ENDIF 2490 SIDE$(I1,1,LEN(LINE$))=LINE$ 2500 P=67-LEN(LINE$) 2510 EXEC FLÆK(B$) 2520 IF LEN(SPLIT$)>0 THEN SIDE$(I1,LEN(LINE$)+1,66)=SPLIT$+BL$ 2530 LINE$=B$ 2540 I1=I1+1 2550 ENDWHILE 2560 IF LEN(LINE$)>0 THEN 2570 EXEC INDSÆT 2580 ENDIF 2590 ENDPROC 2600 PROC DELETE 2610 J=J+1 2620 IF J>66 THEN 2630 J=1 2640 I=I+1 2650 ENDIF 2660 P=67-J1 2670 IF I=LAST+1 THEN 2680 IF J1>1 THEN 2690 SIDE$(I1,J1,66)=BL$ 2700 ELSE 2710 I1=I1-1 2720 ENDIF 2730 FOR Q=I1+1 TO LAST 2740 SIDE$(Q)=BL$ 2750 NEXT Q 2760 LAST=I1 2770 ELSE 2780 LINE$=SIDE$(I,J,66) 2790 EXEC FLÆK(LINE$) 2800 REPEAT 2810 HYPHEN=0 2820 IF LEN(SPLIT$)>0 THEN 2830 IF SPLIT$(LEN(SPLIT$))="-" THEN 2840 HYPHEN=LEN(SPLIT$)+J1-1+100*I1 2850 SPLIT$(LEN(SPLIT$))="" 2860 ELSE 2870 SPLIT$=SPLIT$+" " 2880 ENDIF 2890 ENDIF 2900 SIDE$(I1,J1,66)=SPLIT$+BL$ 2910 IF J1+LEN(SPLIT$)<66 AND LEN(LINE$)=0 THEN 2920 J1=J1+LEN(SPLIT$) 2930 P=67-J1 2940 IF I<22 THEN 2950 IF SIDE$(I+1,1)<>" " THEN 2960 LINE$=SIDE$(I+1) 2970 I=I+1 2980 EXEC FLÆK(LINE$) 2990 IF LEN(SPLIT$)>0 THEN 3000 SIDE$(I1,J1,66)=SPLIT$+BL$ 3010 IF LEN(LINE$)>0 THEN I=I-1 3020 SPLIT$=LINE$ 3030 LINE$="" 3040 HYPHEN=0 3050 ELSE 3060 SIDE$(I1+1)=LINE$ 3070 LINE$="" 3080 I1=I1+1 3090 ENDIF 3100 ELSE 3110 LINE$="" 3120 SPLIT$="" 3130 ENDIF 3140 ELSE 3150 LINE$="" 3160 SPLIT$="" 3210 ENDIF 3220 ELSE 3230 B$=LINE$ 3240 LINE$=SIDE$(I+1) 3250 SIDE$(I1+1)=B$ 3260 J1=LEN(B$);P=67-J1 3270 EXEC FLÆK(LINE$) 3280 ENDIF 3300 IF HYPHEN>0 THEN SIDE$(HYPHEN DIV 100,HYPHEN MOD 100)="-" 3310 J1=1 3320 J=1 3330 I1=I1+1 3340 I=I+1 3350 IF I>22 THEN I=22 3360 UNTIL (LEN(SPLIT$)=0 AND LEN(LINE$)=0) OR (J=1 AND SIDE$(I,1)=" ") 3370 J=I1 3380 WHILE J<I 3390 EXEC SLET 3400 J=J+1 3410 ENDWHILE 3420 ENDIF 3430 ENDPROC 3440 PROC CHECK1 3450 NR=0 3460 I=1 3470 IF LEN(SV$)>0 AND LEN(SV$)<3 THEN 3480 OKAY=TRUE 3490 ELSE 3500 OKAY=FALSE 3510 ENDIF 3520 WHILE I<=LEN(SV$) 3530 IF SV$(I)<"0" OR SV$(I)>"9" THEN 3540 OKAY=FALSE 3550 I=LEN(SV$)+1 3560 ELSE 3570 NR=NR*10+ORD(SV$(I))-48 3580 I=I+1 3590 ENDIF 3600 ENDWHILE 3610 ENDPROC 3620 PROC CONVERT(NO) 3630 SV$=CHR(NO DIV 10+48)+CHR(NO MOD 10+48) 3640 ENDPROC 3650 PROC CHECK 3660 OKAY=FALSE 3670 CURSOR 20,23 3680 CASE SV$ OF 3690 WHEN "T","t" 3700 OKAY=TRUE 3710 PRINT "Tilføjelse" 3720 WHEN "TL","tl","Tl","tL" 3730 OKAY=TRUE 3740 PRINT "Tilføj linie" 3750 WHEN "s","S" 3760 OKAY=TRUE 3770 PRINT "Sletning" 3780 WHEN "SL","sl","Sl","sL" 3790 OKAY=TRUE 3800 PRINT "Slet linie" 3810 WHEN "R","r" 3820 OKAY=TRUE 3830 PRINT "Retning" 3840 WHEN "e","E" 3850 OKAY=TRUE 3860 PRINT "Editering" 3870 ENDCASE 3880 ENDPROC 3890 PROC UDBREV 3900 FOR I=1 TO LAST 3910 PUT UDFIL$:SIDE$(I) 3920 NEXT I 3940 ENDPROC 3950 REPEAT 3960 CURSOR 1,23 3970 INPUT "FLERE MODULER (J/N) ",SV1$ 3980 IF SV1$="J" OR SV1$="j" THEN 3990 EXEC INDMODUL 4000 EXEC TILPAS 4010 EXEC UDBREV 4020 ENDIF 4030 UNTIL SV1$<>"J" AND SV1$<>"j" 4040 ENDFILE UDFIL$ 4050 CLOSE UDFIL$ 4055 EXEC GETTABS 4060 REPEAT 4070 CLEAR 4080 PRINT "BREVET ØNSKES UDSKREVET" 4090 PRINT "Uden kundehoved 1" 4100 PRINT "Med kundehoved 2" 4130 REPEAT 4140 INPUT "(1/2) 0 FOR STOP ",SV$ 4150 EXEC CHECK1 4160 UNTIL NR=>0 AND NR<=2 AND OKAY=TRUE 4170 CASE NR OF 4180 WHEN 1 4185 OUTPUT P 4187 LINES=0 4190 EXEC WRITE 4195 OUTPUT T 4200 WHEN 2 4205 EXEC LISTE 4230 ENDCASE 4240 UNTIL NR=0 4250 PROC WRITE 4270 OPEN UDFIL$,R 4280 GET UDFIL$:SYM$ 4300 WHILE STATUS(UDFIL$)=0 4310 LINES=LINES+1 4320 IF LINES=63 THEN 4330 FOR LINES=1 TO 20 4340 PRINT " " 4350 NEXT LINES 4360 LINES=11 4370 ENDIF 4380 PRINT TAB(7);SYM$ 4390 GET UDFIL$:SYM$ 4400 ENDWHILE 4401 FOR LINES=LINES TO 81 4402 PRINT " " 4403 NEXT LINES 4404 LINES=9 4410 CLOSE UDFIL$ 4430 ENDPROC 5070 PROC FEJL(NR1,NR2,NR3) 5080 IF STATUS(NR3$)<>0 THEN 5090 PRINT STATUS(NR3$),NR1,NR2,NR3$ 5100 STOP 5110 ENDIF 5120 ENDPROC 5130 PROC INDTAB(T,MANTAL,L10) 5140 J=MANTAL DIV 32+1 5150 FOR I=J TO MANTAL DIV 4+J-1 5160 H=(I-J)*4+1;H1=H+1;H2=H+2;H3=H+3 5170 GET L10$,I:T(H,1),T(H,2),T(H1,1),T(H1,2),T(H2,1),T(H2,2),T(H3,1),T(H3,2) 5180 EXEC FEJL(1,1,L10$) 5190 NEXT I 5200 ENDPROC 5210 PROC HENTDPOST 5220 SD=DTAB(DPIL3,2) 5230 GET K3$,SD:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 5240 EXEC FEJL(8,2,K3$) 5250 GET K3$,SD+1:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$ 5260 EXEC FEJL(8,3,K3$) 5270 GET K3$,SD+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE 5280 EXEC FEJL(8,4,K3$) 5290 GET K3$,SD+3:DEBBY$,ÅRKØB$,MDNKØB$ 5300 EXEC FEJL(8,5,K3$) 5310 ENDPROC 5320 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3) 5330 PIL1=MANT1 DIV 2;PIL3=PIL1;CEKS=1 5340 REPEAT 5350 IF NØGL1=TAB1(PIL3,1) OR PIL1=1 THEN EXIT 5360 PIL1=(PIL1+1) DIV 2;PIL3=PIL3+PIL1*(1-2*(NØGL1<TAB1(PIL3,1))) 5370 IF PIL3<1 THEN PIL3=1 5380 IF PIL3>MANT1 THEN PIL3=MANT1 5390 UNTIL PIL1=0 5400 IF NØGL1=TAB1(PIL3,1) THEN CEKS=0 5410 ENDPROC 5420 PROC NRTEST(NUM) 5430 P=0;TEST2=0;KTAL=0;L=LEN(NUM$) 5440 CASE L OF 5450 FOR J=1 TO L 5460 P1=INT(ORD(NUM$(J))-48) 5470 IF P1=>0 AND P1<=9 THEN 5480 P=P*10+P1 5490 ELSE 5500 TEST2=1 5510 ENDIF 5520 NEXT J 5530 KTAL=P DIV 10000 5540 WHEN 0 5550 P=-1 5560 WHEN 1 5570 CASE NUM$ OF 5580 P=INT(ORD(NUM$)-48) 5590 WHEN "j","J" 5600 P=-7 5610 WHEN "n","N" 5620 P=-8 5630 ENDCASE 5640 ENDCASE 5650 ENDPROC 5660 PROC GETTABS 5670 K1$="P641220:SYSTEM1" 5680 OPEN K1$,R 5690 EXEC FEJL(9,1,K1$) 5700 GET K1$,1:MFANTAL,MDANTAL 5710 EXEC FEJL(9,2,K1$) 5720 GET K1$,4:MKPOST,MFAK,MVGR,MKGR 5730 EXEC FEJL(9,3,K1$) 5740 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 5750 EXEC FEJL(9,4,K1$) 5760 GET K1$,10:N$ 5770 EXEC FEJL(9,5,K1$) 5780 GET K1$,12:K2$ 5790 EXEC FEJL(9,6,K1$) 5800 GET K1$,16:K3$ 5810 EXEC FEJL(9,7,K1$) 5820 GET K1$,35:K4$ 5830 EXEC FEJL(9,8,K1$) 5840 GET K1$,36:K5$ 5850 EXEC FEJL(9,9,K1$) 5860 CLOSE K1$ 5870 EXEC FEJL(9,10,K1$) 5880 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$ 5890 OPEN K5$,R 5900 EXEC FEJL(9,11,K5$) 5910 GET K5$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 5920 EXEC FEJL(9,12,K5$) 5930 FOR I=1 TO 3 5940 H=(I-1)*3+1 5950 GET K5$,I+2:LAND$(H),LAND$(H+1),LAND$(H+2) 5960 EXEC FEJL(9,13,K5$) 5970 NEXT I 5980 GET K5$,14:AFIN,ADEB 5990 EXEC FEJL(9,14,K5$) 6000 DIM DTAB(MDANTAL,2),KARRAY(MKGR) 6010 OPEN K4$,R 6020 EXEC FEJL(9,15,K4$) 6030 FOR I=1 TO MKGR DIV 5 6040 J=(I-1)*5+1 6050 GET K4$,I:KARRAY(J),KARRAY(J+1),KARRAY(J+2),KARRAY(J+3),KARRAY(J+4) 6060 EXEC FEJL(9,16,K4$) 6070 NEXT I 6080 CLOSE K4$ 6090 EXEC FEJL(9,12,K4$) 6100 OPEN K2$,R 6110 EXEC FEJL(9,18,K2$) 6120 OPEN K3$,R 6130 EXEC FEJL(9,19,K3$) 6140 EXEC INDTAB(DTAB,MDANTAL,K2$) 6150 DA=T1(7) 6160 DAT$=" " 6170 FOR J=8 TO 1 STEP -1 6180 IF J MOD 3=0 THEN 6190 DAT$(J)="." 6200 ELSE 6210 DAT$(J)=CHR(DA MOD 10+48) 6220 DA=DA DIV 10 6230 ENDIF 6240 NEXT J 6250 ENDPROC 6260 PROC LISTE 6270 REPEAT 6280 CURSOR 13,17 6290 PRINT "Ordnet efter : (1: Gruppe , 2: Nr)" 6300 CURSOR 26,17 6310 INPUT A$ 6320 EXEC NRTEST(A$) 6330 UNTIL P=1 OR P=2 6340 ORDEN=P 6350 REPEAT 6360 REPEAT 6370 CURSOR 13,19 6380 IF ORDEN=1 THEN 6390 PRINT "Fra gruppenr : (0: Alle)" 6400 ELSE 6410 PRINT "Fra kontonr : (0: Alle)" 6420 ENDIF 6430 CURSOR 26,19 6440 INPUT KTN$ 6450 EXEC NRTEST(KTN$) 6460 UNTIL P=0 OR (P>0 AND P<=MKGR AND ORDEN=1) OR (KTAL=DTAL AND ORDEN=2) 6470 IF ORDEN=1 THEN 6480 IF P=0 THEN 6490 FRA=1;TIL=MKGR 6500 ELSE 6510 FRA=P 6520 ENDIF 6530 ELSE 6540 IF P=0 THEN 6550 FRA=1;TIL=ADEB 6560 ELSE 6570 IF DTAB(ADEB,1)<P THEN 6580 FRA=0 6590 ELSE 6600 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) 6610 IF CEKS=0 THEN 6620 FRA=DPIL3 6630 ELSE 6640 FRA=DPIL3+1 6650 ENDIF 6660 ENDIF 6670 ENDIF 6680 ENDIF 6690 UNTIL FRA<>0 6700 IF P>0 THEN 6710 REPEAT 6720 REPEAT 6730 CURSOR 13,21 6740 IF ORDEN=1 THEN 6750 INPUT "Til gruppenr :",KTN$ 6760 ELSE 6770 INPUT "Til kontonr :",KTN$ 6780 ENDIF 6790 EXEC NRTEST(KTN$) 6800 UNTIL (P>0 AND P<=MKGR AND ORDEN=1) OR (KTAL=DTAL AND ORDEN=2) 6810 IF ORDEN=1 THEN 6820 TIL=P 6830 ELSE 6840 IF DTAB(ADEB,1)<P THEN 6850 TIL=ADEB 6860 ELSE 6870 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) 6875 IF CEKS=0 THEN 6880 TIL=DPIL3 6882 ELSE 6885 TIL=DPIL3+1 6887 ENDIF 6890 ENDIF 6900 ENDIF 6910 UNTIL FRA<=TIL 6920 ENDIF 6930 CLEAR 6940 REPEAT 6950 CURSOR 18,13 6960 INPUT "Monter lister til udskrift og tast RETURN",A$ 6970 UNTIL ORD(A$)=255 6980 OUTPUT P 6981 FOR LINES=1 TO 9 6985 PRINT " " 6986 NEXT LINES 6987 LINES=9 6990 IF ORDEN=1 THEN 7000 FOR H=FRA TO TIL 7010 HKUNDE=KARRAY(H) 7020 REPEAT 7030 IF HKUNDE=0 THEN EXIT 7040 EXEC FINDPOST(DTAB,MDANTAL,HKUNDE,DPIL3) 7041 EXEC HENTDPOST 7042 PRINT TAB(7);DEBNAVN$;TAB(60);DAT$ 7043 PRINT TAB(7);DEBGADE$ 7044 PRINT TAB(7);DPOSTNR;" ";DEBBY$ 7045 IF DEBLK$>"0" AND DEBLK$<="9" THEN 7046 PRINT TAB(7);LAND$(ORD(DEBLK$)-48) 7047 ENDIF 7048 PRINT " " 7049 PRINT " " 7050 LINES=6+LINES 7068 EXEC WRITE 7069 UNTIL HKUNDE=0 7070 NEXT H 7080 ELSE 7090 FOR DPIL3=FRA TO TIL 7091 EXEC HENTDPOST 7092 PRINT TAB(7);DEBNAVN$;TAB(60);DAT$ 7093 PRINT TAB(7);DEBGADE$ 7094 PRINT TAB(7);DPOSTNR;" ";DEBBY$ 7095 IF DEBLK$>"0" AND DEBLK$<="9" THEN 7096 PRINT TAB(7);LAND$(ORD(DEBLK$)-48) 7097 ENDIF 7098 PRINT " " 7099 PRINT " " 7100 LINES=6+LINES 7105 EXEC WRITE 7110 NEXT DPIL3 7120 ENDIF 7125 OUTPUT T 7130 ENDPROC
0x0000…000d Line {l1=0x0b, l2=»0100 TRUE=1«, l3=0x0b}
0x000d…001b Line {l1=0x0c, l2=»0110 FALSE=0«, l3=0x0c}
0x001b…0038 Line {l1=0x1b, l2=»0120 DIM SPLIT$(66),BL$(66)«, l3=0x1b}
0x0038…0082 Line {l1=0x48, l2=»0130 DIM B$(133),SYM$(66),S$(1),SIDE$(22,66),LINE$(133),SV$(2),FIL1$(20)«, l3=0x48}
0x0082…00a8 Line {l1=0x24, l2=»0140 DIM FIL$(20),UDFIL$(20),SV1$(1)«, l3=0x24}
0x00a8…00f5 Line {l1=0x4b, l2=»0141 DIM K1$(17),N$(6),K2$(17),K3$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(2)«, l3=0x4b}
0x00f5…013d Line {l1=0x46, l2=»0142 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(2),DEBGADE$(25)«, l3=0x46}
0x013d…0187 Line {l1=0x48, l2=»0143 DIM BLANK$(77),A$(1),TAL4$(14),TAH$(12),T1(9),DEBTLF$(9),DEBBY$(20)«, l3=0x48}
0x0187…01c7 Line {l1=0x3e, l2=»0144 DIM RES$(14),ÅRKØB$(12),MDNKØB$(12),LK$(3),KG$(3),KTN$(6)«, l3=0x3e}
0x01c7…0202 Line {l1=0x39, l2=»0145 DIM PNR$(6),TY$(1),OP1$(12),OP2$(12),TA$(12),TB$(14)«, l3=0x39}
0x0202…0223 Line {l1=0x1f, l2=»0146 DIM KS$(5),DAT$(8),K4$(17)«, l3=0x1f}
0x0223…0241 Line {l1=0x1c, l2=»0147 DIM K5$(17),LAND$(9,12)«, l3=0x1c}
0x0241…0255 Line {l1=0x12, l2=»0150 FOR I=1 TO 66«, l3=0x12}
0x0255…0266 Line {l1=0x0f, l2=»0160 BL$(I)=" "«, l3=0x0f}
0x0266…0273 Line {l1=0x0b, l2=»0170 NEXT I«, l3=0x0b}
0x0273…028e Line {l1=0x19, l2=»0180 UDFIL$="DDE:BREVFIL"«, l3=0x19}
0x028e…02a5 Line {l1=0x15, l2=»0190 FIL$="DDE:MODUL"«, l3=0x15}
0x02a5…02b9 Line {l1=0x12, l2=»0200 OPEN UDFIL$,W«, l3=0x12}
0x02b9…02cd Line {l1=0x12, l2=»0210 PROC INDMODUL«, l3=0x12}
0x02cd…02da Line {l1=0x0b, l2=»0220 LAST=0«, l3=0x0b}
0x02da…02e8 Line {l1=0x0c, l2=»0230 REPEAT «, l3=0x0c}
0x02e8…0303 Line {l1=0x19, l2=»0240 INPUT "MODULNR ",SV$«, l3=0x19}
0x0303…0315 Line {l1=0x10, l2=»0250 EXEC CHECK1«, l3=0x10}
0x0315…032b Line {l1=0x14, l2=»0260 UNTIL OKAY=TRUE«, l3=0x14}
0x032b…0342 Line {l1=0x15, l2=»0270 EXEC CONVERT(NR)«, l3=0x15}
0x0342…0357 Line {l1=0x13, l2=»0280 FIL1$=FIL$+SV$«, l3=0x13}
0x0357…036a Line {l1=0x11, l2=»0290 OPEN FIL1$,R«, l3=0x11}
0x036a…0389 Line {l1=0x1d, l2=»0300 IF STATUS(FIL1$)=0 THEN «, l3=0x1d}
0x0389…039d Line {l1=0x12, l2=»0310 FOR L=1 TO 18«, l3=0x12}
0x039d…03b6 Line {l1=0x17, l2=»0320 GET FIL1$:SIDE$(L)«, l3=0x17}
0x03b6…03db Line {l1=0x23, l2=»0330 IF LEN(SIDE$(L))>0 THEN LAST=L«, l3=0x23}
0x03db…03e8 Line {l1=0x0b, l2=»0340 NEXT L«, l3=0x0b}
0x03e8…03fa Line {l1=0x10, l2=»0350 CLOSE FIL1$«, l3=0x10}
0x03fa…040b Line {l1=0x0f, l2=»0360 EXEC SKRIV«, l3=0x0f}
0x040b…0418 Line {l1=0x0b, l2=»0370 ENDIF «, l3=0x0b}
0x0418…0438 Line {l1=0x1e, l2=»0380 IF LAST=0 THEN GO TO 0230«, l3=0x1e}
0x0438…0447 Line {l1=0x0d, l2=»0390 ENDPROC «, l3=0x0d}
0x0447…0459 Line {l1=0x10, l2=»0400 PROC TILPAS«, l3=0x10}
0x0459…0464 Line {l1=0x09, l2=»0410 I0=1«, l3=0x09}
0x0464…0472 Line {l1=0x0c, l2=»0420 REPEAT «, l3=0x0c}
0x0472…0484 Line {l1=0x10, l2=»0430 CURSOR 1,23«, l3=0x10}
0x0484…04a7 Line {l1=0x21, l2=»0440 INPUT "T,TL,S,SL,R,E,F ",SV$«, l3=0x21}
0x04a7…04b8 Line {l1=0x0f, l2=»0450 EXEC CHECK«, l3=0x0f}
0x04b8…04d1 Line {l1=0x17, l2=»0460 IF OKAY=TRUE THEN «, l3=0x17}
0x04d1…04de Line {l1=0x0b, l2=»0470 I=I0-1«, l3=0x0b}
0x04de…04f1 Line {l1=0x11, l2=»0480 EXEC FINDPOS«, l3=0x11}
0x04f1…04fc Line {l1=0x09, l2=»0490 I0=I«, l3=0x09}
0x04fc…0518 Line {l1=0x1a, l2=»0500 IF I0=>LAST THEN I0=1«, l3=0x1a}
0x0518…052b Line {l1=0x11, l2=»0510 IF J>0 THEN «, l3=0x11}
0x052b…053e Line {l1=0x11, l2=»0520 CASE SV$ OF «, l3=0x11}
0x053e…055d Line {l1=0x1d, l2=»0530 WHEN "TL","tl","Tl","tL"«, l3=0x1d}
0x055d…0574 Line {l1=0x15, l2=»0540 IF LAST<22 THEN «, l3=0x15}
0x0574…0586 Line {l1=0x10, l2=»0550 CURSOR 1,23«, l3=0x10}
0x0586…0596 Line {l1=0x0e, l2=»0560 PRINT BL$«, l3=0x0e}
0x0596…05a4 Line {l1=0x0c, l2=»0570 REPEAT «, l3=0x0c}
0x05a4…05b6 Line {l1=0x10, l2=»0580 CURSOR 1,23«, l3=0x10}
0x05b6…05d6 Line {l1=0x1e, l2=»0590 INPUT " ",LINE$«, l3=0x1e}
0x05d6…0601 Line {l1=0x29, l2=»0600 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67«, l3=0x29}
0x0601…060c Line {l1=0x09, l2=»0610 I1=I«, l3=0x09}
0x060c…061e Line {l1=0x10, l2=»0620 EXEC INDSÆT«, l3=0x10}
0x061e…062b Line {l1=0x0b, l2=»0630 ENDIF «, l3=0x0b}
0x062b…063e Line {l1=0x11, l2=»0640 WHEN "T","t"«, l3=0x11}
0x063e…0649 Line {l1=0x09, l2=»0650 J1=J«, l3=0x09}
0x0649…0654 Line {l1=0x09, l2=»0660 I1=I«, l3=0x09}
0x0654…0666 Line {l1=0x10, l2=»0670 CURSOR 1,23«, l3=0x10}
0x0666…0676 Line {l1=0x0e, l2=»0680 PRINT BL$«, l3=0x0e}
0x0676…0684 Line {l1=0x0c, l2=»0690 REPEAT «, l3=0x0c}
0x0684…0696 Line {l1=0x10, l2=»0700 CURSOR 1,23«, l3=0x10}
0x0696…06b6 Line {l1=0x1e, l2=»0710 INPUT " ",LINE$«, l3=0x1e}
0x06b6…06e1 Line {l1=0x29, l2=»0720 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67«, l3=0x29}
0x06e1…06f3 Line {l1=0x10, l2=»0730 EXEC INSERT«, l3=0x10}
0x06f3…0706 Line {l1=0x11, l2=»0740 WHEN "S","s"«, l3=0x11}
0x0706…0719 Line {l1=0x11, l2=»0750 EXEC SLUTPOS«, l3=0x11}
0x0719…072b Line {l1=0x10, l2=»0760 EXEC DELETE«, l3=0x10}
0x072b…074a Line {l1=0x1d, l2=»0770 WHEN "SL","sl","Sl","sL"«, l3=0x1d}
0x074a…0755 Line {l1=0x09, l2=»0780 I1=I«, l3=0x09}
0x0755…0765 Line {l1=0x0e, l2=»0790 EXEC SLET«, l3=0x0e}
0x0765…0778 Line {l1=0x11, l2=»0800 WHEN "R","r"«, l3=0x11}
0x0778…078b Line {l1=0x11, l2=»0810 EXEC SLUTPOS«, l3=0x11}
0x078b…079d Line {l1=0x10, l2=»0820 CURSOR 1,23«, l3=0x10}
0x079d…07ad Line {l1=0x0e, l2=»0830 PRINT BL$«, l3=0x0e}
0x07ad…07bb Line {l1=0x0c, l2=»0840 REPEAT «, l3=0x0c}
0x07bb…07cd Line {l1=0x10, l2=»0850 CURSOR 1,23«, l3=0x10}
0x07cd…07ed Line {l1=0x1e, l2=»0860 INPUT " ",LINE$«, l3=0x1e}
0x07ed…0818 Line {l1=0x29, l2=»0870 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67«, l3=0x29}
0x0818…082c Line {l1=0x12, l2=»0880 IF I1=I THEN «, l3=0x12}
0x082c…084e Line {l1=0x20, l2=»0890 IF LEN(LINE$)<=J-J1+1 THEN «, l3=0x20}
0x084e…0872 Line {l1=0x22, l2=»0900 SIDE$(I1,J1:LEN(LINE$))=LINE$«, l3=0x22}
0x0872…0889 Line {l1=0x15, l2=»0910 J1=J1+LEN(LINE$)«, l3=0x15}
0x0889…08a9 Line {l1=0x1e, l2=»0920 IF J1<=J THEN EXEC DELETE«, l3=0x1e}
0x08a9…08b5 Line {l1=0x0a, l2=»0930 ELSE «, l3=0x0a}
0x08b5…08df Line {l1=0x28, l2=»0940 SIDE$(I1,J1:J-J1+1)=LINE$(1:J-J1+1)«, l3=0x28}
0x08df…0904 Line {l1=0x23, l2=»0950 LINE$=LINE$(J-J1+2,LEN(LINE$))«, l3=0x23}
0x0904…0911 Line {l1=0x0b, l2=»0960 J1=J+1«, l3=0x0b}
0x0911…0923 Line {l1=0x10, l2=»0970 EXEC INSERT«, l3=0x10}
0x0923…0930 Line {l1=0x0b, l2=»0980 ENDIF «, l3=0x0b}
0x0930…093c Line {l1=0x0a, l2=»0990 ELSE «, l3=0x0a}
0x093c…095d Line {l1=0x1f, l2=»1000 IF LEN(LINE$)<=66-J1 THEN «, l3=0x1f}
0x095d…0981 Line {l1=0x22, l2=»1010 SIDE$(I1,J1:LEN(LINE$))=LINE$«, l3=0x22}
0x0981…0998 Line {l1=0x15, l2=»1020 J1=J1+LEN(LINE$)«, l3=0x15}
0x0998…09ad Line {l1=0x13, l2=»1030 IF J1>66 THEN «, l3=0x13}
0x09ad…09b8 Line {l1=0x09, l2=»1040 J1=1«, l3=0x09}
0x09b8…09c6 Line {l1=0x0c, l2=»1050 I1=I1+1«, l3=0x0c}
0x09c6…09d3 Line {l1=0x0b, l2=»1060 ENDIF «, l3=0x0b}
0x09d3…09e5 Line {l1=0x10, l2=»1070 EXEC DELETE«, l3=0x10}
0x09e5…09f1 Line {l1=0x0a, l2=»1080 ELSE «, l3=0x0a}
0x09f1…09fc Line {l1=0x09, l2=»1090 P=67«, l3=0x09}
0x09fc…0a2c Line {l1=0x2e, l2=»1100 IF J1>1 THEN LINE$=SIDE$(I1,1,J1-1)+LINE$«, l3=0x2e}
0x0a2c…0a43 Line {l1=0x15, l2=»1110 EXEC FLÆK(LINE$)«, l3=0x15}
0x0a43…0a5e Line {l1=0x19, l2=»1120 SIDE$(I1)=SPLIT$+BL$«, l3=0x19}
0x0a5e…0a6c Line {l1=0x0c, l2=»1130 I1=I1+1«, l3=0x0c}
0x0a6c…0a77 Line {l1=0x09, l2=»1140 J1=1«, l3=0x09}
0x0a77…0a8b Line {l1=0x12, l2=»1150 IF I1=I THEN «, l3=0x12}
0x0a8b…0aab Line {l1=0x1e, l2=»1160 IF LEN(LINE$)<=J-J1 THEN «, l3=0x1e}
0x0aab…0ae4 Line {l1=0x37, l2=»1170 IF LEN(LINE$)>0 THEN SIDE$(I1,J1:LEN(LINE$))=LINE$«, l3=0x37}
0x0ae4…0afb Line {l1=0x15, l2=»1180 J1=J1+LEN(LINE$)«, l3=0x15}
0x0afb…0b0d Line {l1=0x10, l2=»1190 EXEC DELETE«, l3=0x10}
0x0b0d…0b19 Line {l1=0x0a, l2=»1200 ELSE «, l3=0x0a}
0x0b19…0b43 Line {l1=0x28, l2=»1210 SIDE$(I1,J1:J-J1+1)=LINE$(1:J-J1+1)«, l3=0x28}
0x0b43…0b68 Line {l1=0x23, l2=»1220 LINE$=LINE$(J-J1+2,LEN(LINE$))«, l3=0x23}
0x0b68…0b75 Line {l1=0x0b, l2=»1230 J1=J+1«, l3=0x0b}
0x0b75…0b87 Line {l1=0x10, l2=»1240 EXEC INSERT«, l3=0x10}
0x0b87…0b94 Line {l1=0x0b, l2=»1250 ENDIF «, l3=0x0b}
0x0b94…0ba0 Line {l1=0x0a, l2=»1260 ELSE «, l3=0x0a}
0x0ba0…0bb6 Line {l1=0x14, l2=»1270 SIDE$(I1)=LINE$«, l3=0x14}
0x0bb6…0bcc Line {l1=0x14, l2=»1280 J1=LEN(LINE$)+1«, l3=0x14}
0x0bcc…0bde Line {l1=0x10, l2=»1290 EXEC DELETE«, l3=0x10}
0x0bde…0beb Line {l1=0x0b, l2=»1300 ENDIF «, l3=0x0b}
0x0beb…0bf8 Line {l1=0x0b, l2=»1310 ENDIF «, l3=0x0b}
0x0bf8…0c05 Line {l1=0x0b, l2=»1320 ENDIF «, l3=0x0b}
0x0c05…0c18 Line {l1=0x11, l2=»1330 WHEN "E","e"«, l3=0x11}
0x0c18…0c2d Line {l1=0x13, l2=»1340 LINE$=SIDE$(I)«, l3=0x13}
0x0c2d…0c3f Line {l1=0x10, l2=»1350 CURSOR 1,23«, l3=0x10}
0x0c3f…0c4f Line {l1=0x0e, l2=»1360 PRINT BL$«, l3=0x0e}
0x0c4f…0c5d Line {l1=0x0c, l2=»1370 REPEAT «, l3=0x0c}
0x0c5d…0c6f Line {l1=0x10, l2=»1380 CURSOR 1,23«, l3=0x10}
0x0c6f…0c8e Line {l1=0x1d, l2=»1390 EDIT " ",LINE$«, l3=0x1d}
0x0c8e…0cb9 Line {l1=0x29, l2=»1400 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67«, l3=0x29}
0x0cb9…0cce Line {l1=0x13, l2=»1410 SIDE$(I)=LINE$«, l3=0x13}
0x0cce…0cdd Line {l1=0x0d, l2=»1420 ENDCASE «, l3=0x0d}
0x0cdd…0cee Line {l1=0x0f, l2=»1430 EXEC SKRIV«, l3=0x0f}
0x0cee…0cfb Line {l1=0x0b, l2=»1440 ENDIF «, l3=0x0b}
0x0cfb…0d08 Line {l1=0x0b, l2=»1450 ENDIF «, l3=0x0b}
0x0d08…0d27 Line {l1=0x1d, l2=»1460 UNTIL SV$="F" OR SV$="f"«, l3=0x1d}
0x0d27…0d36 Line {l1=0x0d, l2=»1470 ENDPROC «, l3=0x0d}
0x0d36…0d49 Line {l1=0x11, l2=»1480 PROC FINDPOS«, l3=0x11}
0x0d49…0d57 Line {l1=0x0c, l2=»1490 REPEAT «, l3=0x0c}
0x0d57…0d63 Line {l1=0x0a, l2=»1500 I=I+1«, l3=0x0a}
0x0d63…0d74 Line {l1=0x0f, l2=»1510 CURSOR 1,I«, l3=0x0f}
0x0d74…0d94 Line {l1=0x1e, l2=»1520 INPUT " ",LINE$«, l3=0x1e}
0x0d94…0db5 Line {l1=0x1f, l2=»1530 UNTIL I=22 OR LEN(LINE$)>0«, l3=0x1f}
0x0db5…0dc8 Line {l1=0x11, l2=»1540 J=LEN(LINE$)«, l3=0x11}
0x0dc8…0de0 Line {l1=0x16, l2=»1550 IF J>66 THEN J=66«, l3=0x16}
0x0de0…0def Line {l1=0x0d, l2=»1560 ENDPROC «, l3=0x0d}
0x0def…0e00 Line {l1=0x0f, l2=»1570 PROC SKRIV«, l3=0x0f}
0x0e00…0e0d Line {l1=0x0b, l2=»1580 CLEAR «, l3=0x0b}
0x0e0d…0e21 Line {l1=0x12, l2=»1590 FOR X=1 TO 22«, l3=0x12}
0x0e21…0e32 Line {l1=0x0f, l2=»1600 CURSOR 1,X«, l3=0x0f}
0x0e32…0e56 Line {l1=0x22, l2=»1610 PRINT " ";SIDE$(X)«, l3=0x22}
0x0e56…0e63 Line {l1=0x0b, l2=»1620 NEXT X«, l3=0x0b}
0x0e63…0e72 Line {l1=0x0d, l2=»1630 ENDPROC «, l3=0x0d}
0x0e72…0e84 Line {l1=0x10, l2=»1640 PROC INDSÆT«, l3=0x10}
0x0e84…0e96 Line {l1=0x10, l2=»1650 LAST=LAST+1«, l3=0x10}
0x0e96…0eb4 Line {l1=0x1c, l2=»1660 IF I1>LAST THEN LAST=I1«, l3=0x1c}
0x0eb4…0ed5 Line {l1=0x1f, l2=»1670 FOR L=LAST TO I1+1 STEP -1«, l3=0x1f}
0x0ed5…0eef Line {l1=0x18, l2=»1680 SIDE$(L)=SIDE$(L-1)«, l3=0x18}
0x0eef…0efc Line {l1=0x0b, l2=»1690 NEXT L«, l3=0x0b}
0x0efc…0f16 Line {l1=0x18, l2=»1700 SIDE$(I1)=LINE$+BL$«, l3=0x18}
0x0f16…0f25 Line {l1=0x0d, l2=»1710 ENDPROC «, l3=0x0d}
0x0f25…0f35 Line {l1=0x0e, l2=»1720 PROC SLET«, l3=0x0e}
0x0f35…0f4e Line {l1=0x17, l2=»1730 FOR L=I1 TO LAST-1«, l3=0x17}
0x0f4e…0f68 Line {l1=0x18, l2=»1740 SIDE$(L)=SIDE$(L+1)«, l3=0x18}
0x0f68…0f75 Line {l1=0x0b, l2=»1750 NEXT L«, l3=0x0b}
0x0f75…0f8a Line {l1=0x13, l2=»1760 SIDE$(LAST)=""«, l3=0x13}
0x0f8a…0f9c Line {l1=0x10, l2=»1770 LAST=LAST-1«, l3=0x10}
0x0f9c…0fab Line {l1=0x0d, l2=»1780 ENDPROC «, l3=0x0d}
0x0fab…0fbe Line {l1=0x11, l2=»1790 PROC SLUTPOS«, l3=0x11}
0x0fbe…0fc9 Line {l1=0x09, l2=»1800 I1=I«, l3=0x09}
0x0fc9…0fd4 Line {l1=0x09, l2=»1810 J1=J«, l3=0x09}
0x0fd4…0fe8 Line {l1=0x12, l2=»1820 CURSOR J+10,I«, l3=0x12}
0x0fe8…0ffe Line {l1=0x14, l2=»1830 INPUT " ",LINE$«, l3=0x14}
0x0ffe…101a Line {l1=0x1a, l2=»1840 IF LEN(LINE$)=0 THEN «, l3=0x1a}
0x101a…102d Line {l1=0x11, l2=»1850 EXEC FINDPOS«, l3=0x11}
0x102d…1039 Line {l1=0x0a, l2=»1860 ELSE «, l3=0x0a}
0x1039…1051 Line {l1=0x16, l2=»1870 J=LEN(LINE$)+J1-1«, l3=0x16}
0x1051…1069 Line {l1=0x16, l2=»1880 IF J>66 THEN J=66«, l3=0x16}
0x1069…1076 Line {l1=0x0b, l2=»1890 ENDIF «, l3=0x0b}
0x1076…1085 Line {l1=0x0d, l2=»1900 ENDPROC «, l3=0x0d}
0x1085…109a Line {l1=0x13, l2=»1910 PROC FLÆK(LIN)«, l3=0x13}
0x109a…10aa Line {l1=0x0e, l2=»1920 SPLIT$=""«, l3=0x0e}
0x10aa…10bc Line {l1=0x10, l2=»1930 FOUND=FALSE«, l3=0x10}
0x10bc…10ce Line {l1=0x10, l2=»1940 Q=LEN(LIN$)«, l3=0x10}
0x10ce…10de Line {l1=0x0e, l2=»1950 WHILE Q>0«, l3=0x0e}
0x10de…10f9 Line {l1=0x19, l2=»1960 IF LIN$(Q)=" " THEN «, l3=0x19}
0x10f9…110a Line {l1=0x0f, l2=»1970 LIN$(Q)=""«, l3=0x0f}
0x110a…1116 Line {l1=0x0a, l2=»1980 Q=Q-1«, l3=0x0a}
0x1116…1122 Line {l1=0x0a, l2=»1990 ELSE «, l3=0x0a}
0x1122…112c Line {l1=0x08, l2=»2000 Q=0«, l3=0x08}
0x112c…1139 Line {l1=0x0b, l2=»2010 ENDIF «, l3=0x0b}
0x1139…1149 Line {l1=0x0e, l2=»2020 ENDWHILE «, l3=0x0e}
0x1149…1164 Line {l1=0x19, l2=»2030 IF P>LEN(LIN$) THEN «, l3=0x19}
0x1164…1175 Line {l1=0x0f, l2=»2040 FOUND=TRUE«, l3=0x0f}
0x1175…1189 Line {l1=0x12, l2=»2050 P=LEN(LIN$)+1«, l3=0x12}
0x1189…1195 Line {l1=0x0a, l2=»2060 ELSE «, l3=0x0a}
0x1195…11ae Line {l1=0x17, l2=»2070 IF P<66 THEN P=P+1«, l3=0x17}
0x11ae…11ca Line {l1=0x1a, l2=»2080 IF LIN$(P)<>" " THEN «, l3=0x1a}
0x11ca…11d8 Line {l1=0x0c, l2=»2090 REPEAT «, l3=0x0c}
0x11d8…11e4 Line {l1=0x0a, l2=»2100 P=P-1«, l3=0x0a}
0x11e4…1209 Line {l1=0x23, l2=»2110 IF LIN$(P)=" " THEN FOUND=TRUE«, l3=0x23}
0x1209…1227 Line {l1=0x1c, l2=»2120 UNTIL FOUND=TRUE OR P=1«, l3=0x1c}
0x1227…1233 Line {l1=0x0a, l2=»2130 ELSE «, l3=0x0a}
0x1233…1244 Line {l1=0x0f, l2=»2140 FOUND=TRUE«, l3=0x0f}
0x1244…1251 Line {l1=0x0b, l2=»2150 ENDIF «, l3=0x0b}
0x1251…125e Line {l1=0x0b, l2=»2160 ENDIF «, l3=0x0b}
0x125e…1273 Line {l1=0x13, l2=»2170 IF FOUND THEN «, l3=0x13}
0x1273…1286 Line {l1=0x11, l2=»2180 IF P=1 THEN «, l3=0x11}
0x1286…1296 Line {l1=0x0e, l2=»2190 SPLIT$=""«, l3=0x0e}
0x1296…12c9 Line {l1=0x31, l2=»2200 IF P<LEN(LIN$) THEN LIN$=LIN$(P+1,LEN(LIN$))«, l3=0x31}
0x12c9…12d5 Line {l1=0x0a, l2=»2210 ELSE «, l3=0x0a}
0x12d5…12ee Line {l1=0x17, l2=»2220 SPLIT$=LIN$(1,P-1)«, l3=0x17}
0x12ee…1309 Line {l1=0x19, l2=»2230 IF P<LEN(LIN$) THEN «, l3=0x19}
0x1309…1328 Line {l1=0x1d, l2=»2240 LIN$=LIN$(P+1,LEN(LIN$))«, l3=0x1d}
0x1328…1334 Line {l1=0x0a, l2=»2250 ELSE «, l3=0x0a}
0x1334…1342 Line {l1=0x0c, l2=»2260 LIN$=""«, l3=0x0c}
0x1342…134f Line {l1=0x0b, l2=»2270 ENDIF «, l3=0x0b}
0x134f…135c Line {l1=0x0b, l2=»2280 ENDIF «, l3=0x0b}
0x135c…1369 Line {l1=0x0b, l2=»2290 ENDIF «, l3=0x0b}
0x1369…1378 Line {l1=0x0d, l2=»2300 ENDPROC «, l3=0x0d}
0x1378…138a Line {l1=0x10, l2=»2310 PROC INSERT«, l3=0x10}
0x138a…1396 Line {l1=0x0a, l2=»2320 B$=""«, l3=0x0a}
0x1396…13bd Line {l1=0x25, l2=»2330 IF J1>1 THEN B$=SIDE$(I1,1,J1-1)«, l3=0x25}
0x13bd…13cf Line {l1=0x10, l2=»2340 B$=B$+LINE$«, l3=0x10}
0x13cf…13f9 Line {l1=0x28, l2=»2350 IF J1<67 THEN B$=B$+SIDE$(I1,J1,66)«, l3=0x28}
0x13f9…1404 Line {l1=0x09, l2=»2360 P=67«, l3=0x09}
0x1404…1418 Line {l1=0x12, l2=»2370 EXEC FLÆK(B$)«, l3=0x12}
0x1418…1433 Line {l1=0x19, l2=»2380 SIDE$(I1)=SPLIT$+BL$«, l3=0x19}
0x1433…1441 Line {l1=0x0c, l2=»2390 I1=I1+1«, l3=0x0c}
0x1441…144c Line {l1=0x09, l2=»2400 J1=1«, l3=0x09}
0x144c…145b Line {l1=0x0d, l2=»2410 LINE$=B$«, l3=0x0d}
0x145b…149e Line {l1=0x41, l2=»2420 WHILE SIDE$(I1,1)<>" " AND LEN(LINE$)>0 AND LEN(SIDE$(I1))>0«, l3=0x41}
0x149e…14b1 Line {l1=0x11, l2=»2430 B$=SIDE$(I1)«, l3=0x11}
0x14b1…14d6 Line {l1=0x23, l2=»2440 IF LINE$(LEN(LINE$))="-" THEN «, l3=0x23}
0x14d6…14f1 Line {l1=0x19, l2=»2450 LINE$(LEN(LINE$))=""«, l3=0x19}
0x14f1…14fd Line {l1=0x0a, l2=»2460 ELSE «, l3=0x0a}
0x14fd…1529 Line {l1=0x2a, l2=»2470 IF LEN(LINE$)<66 THEN LINE$=LINE$+" "«, l3=0x2a}
0x1529…1536 Line {l1=0x0b, l2=»2480 ENDIF «, l3=0x0b}
0x1536…1559 Line {l1=0x21, l2=»2490 SIDE$(I1,1,LEN(LINE$))=LINE$«, l3=0x21}
0x1559…156f Line {l1=0x14, l2=»2500 P=67-LEN(LINE$)«, l3=0x14}
0x156f…1583 Line {l1=0x12, l2=»2510 EXEC FLÆK(B$)«, l3=0x12}
0x1583…15c4 Line {l1=0x3f, l2=»2520 IF LEN(SPLIT$)>0 THEN SIDE$(I1,LEN(LINE$)+1,66)=SPLIT$+BL$«, l3=0x3f}
0x15c4…15d3 Line {l1=0x0d, l2=»2530 LINE$=B$«, l3=0x0d}
0x15d3…15e1 Line {l1=0x0c, l2=»2540 I1=I1+1«, l3=0x0c}
0x15e1…15f1 Line {l1=0x0e, l2=»2550 ENDWHILE «, l3=0x0e}
0x15f1…160d Line {l1=0x1a, l2=»2560 IF LEN(LINE$)>0 THEN «, l3=0x1a}
0x160d…161f Line {l1=0x10, l2=»2570 EXEC INDSÆT«, l3=0x10}
0x161f…162c Line {l1=0x0b, l2=»2580 ENDIF «, l3=0x0b}
0x162c…163b Line {l1=0x0d, l2=»2590 ENDPROC «, l3=0x0d}
0x163b…164d Line {l1=0x10, l2=»2600 PROC DELETE«, l3=0x10}
0x164d…1659 Line {l1=0x0a, l2=»2610 J=J+1«, l3=0x0a}
0x1659…166d Line {l1=0x12, l2=»2620 IF J>66 THEN «, l3=0x12}
0x166d…1677 Line {l1=0x08, l2=»2630 J=1«, l3=0x08}
0x1677…1683 Line {l1=0x0a, l2=»2640 I=I+1«, l3=0x0a}
0x1683…1690 Line {l1=0x0b, l2=»2650 ENDIF «, l3=0x0b}
0x1690…169e Line {l1=0x0c, l2=»2660 P=67-J1«, l3=0x0c}
0x169e…16b6 Line {l1=0x16, l2=»2670 IF I=LAST+1 THEN «, l3=0x16}
0x16b6…16ca Line {l1=0x12, l2=»2680 IF J1>1 THEN «, l3=0x12}
0x16ca…16e4 Line {l1=0x18, l2=»2690 SIDE$(I1,J1,66)=BL$«, l3=0x18}
0x16e4…16f0 Line {l1=0x0a, l2=»2700 ELSE «, l3=0x0a}
0x16f0…16fe Line {l1=0x0c, l2=»2710 I1=I1-1«, l3=0x0c}
0x16fe…170b Line {l1=0x0b, l2=»2720 ENDIF «, l3=0x0b}
0x170b…1724 Line {l1=0x17, l2=»2730 FOR Q=I1+1 TO LAST«, l3=0x17}
0x1724…1737 Line {l1=0x11, l2=»2740 SIDE$(Q)=BL$«, l3=0x11}
0x1737…1744 Line {l1=0x0b, l2=»2750 NEXT Q«, l3=0x0b}
0x1744…1752 Line {l1=0x0c, l2=»2760 LAST=I1«, l3=0x0c}
0x1752…175e Line {l1=0x0a, l2=»2770 ELSE «, l3=0x0a}
0x175e…1778 Line {l1=0x18, l2=»2780 LINE$=SIDE$(I,J,66)«, l3=0x18}
0x1778…178f Line {l1=0x15, l2=»2790 EXEC FLÆK(LINE$)«, l3=0x15}
0x178f…179d Line {l1=0x0c, l2=»2800 REPEAT «, l3=0x0c}
0x179d…17ac Line {l1=0x0d, l2=»2810 HYPHEN=0«, l3=0x0d}
0x17ac…17c9 Line {l1=0x1b, l2=»2820 IF LEN(SPLIT$)>0 THEN «, l3=0x1b}
0x17c9…17f0 Line {l1=0x25, l2=»2830 IF SPLIT$(LEN(SPLIT$))="-" THEN «, l3=0x25}
0x17f0…1815 Line {l1=0x23, l2=»2840 HYPHEN=LEN(SPLIT$)+J1-1+100*I1«, l3=0x23}
0x1815…1832 Line {l1=0x1b, l2=»2850 SPLIT$(LEN(SPLIT$))=""«, l3=0x1b}
0x1832…183e Line {l1=0x0a, l2=»2860 ELSE «, l3=0x0a}
0x183e…1856 Line {l1=0x16, l2=»2870 SPLIT$=SPLIT$+" "«, l3=0x16}
0x1856…1863 Line {l1=0x0b, l2=»2880 ENDIF «, l3=0x0b}
0x1863…1870 Line {l1=0x0b, l2=»2890 ENDIF «, l3=0x0b}
0x1870…1891 Line {l1=0x1f, l2=»2900 SIDE$(I1,J1,66)=SPLIT$+BL$«, l3=0x1f}
0x1891…18c3 Line {l1=0x30, l2=»2910 IF J1+LEN(SPLIT$)<66 AND LEN(LINE$)=0 THEN «, l3=0x30}
0x18c3…18db Line {l1=0x16, l2=»2920 J1=J1+LEN(SPLIT$)«, l3=0x16}
0x18db…18e9 Line {l1=0x0c, l2=»2930 P=67-J1«, l3=0x0c}
0x18e9…18fd Line {l1=0x12, l2=»2940 IF I<22 THEN «, l3=0x12}
0x18fd…191e Line {l1=0x1f, l2=»2950 IF SIDE$(I+1,1)<>" " THEN «, l3=0x1f}
0x191e…1935 Line {l1=0x15, l2=»2960 LINE$=SIDE$(I+1)«, l3=0x15}
0x1935…1941 Line {l1=0x0a, l2=»2970 I=I+1«, l3=0x0a}
0x1941…1958 Line {l1=0x15, l2=»2980 EXEC FLÆK(LINE$)«, l3=0x15}
0x1958…1975 Line {l1=0x1b, l2=»2990 IF LEN(SPLIT$)>0 THEN «, l3=0x1b}
0x1975…1996 Line {l1=0x1f, l2=»3000 SIDE$(I1,J1,66)=SPLIT$+BL$«, l3=0x1f}
0x1996…19b7 Line {l1=0x1f, l2=»3010 IF LEN(LINE$)>0 THEN I=I-1«, l3=0x1f}
0x19b7…19ca Line {l1=0x11, l2=»3020 SPLIT$=LINE$«, l3=0x11}
0x19ca…19d9 Line {l1=0x0d, l2=»3030 LINE$=""«, l3=0x0d}
0x19d9…19e8 Line {l1=0x0d, l2=»3040 HYPHEN=0«, l3=0x0d}
0x19e8…19f4 Line {l1=0x0a, l2=»3050 ELSE «, l3=0x0a}
0x19f4…1a0c Line {l1=0x16, l2=»3060 SIDE$(I1+1)=LINE$«, l3=0x16}
0x1a0c…1a1b Line {l1=0x0d, l2=»3070 LINE$=""«, l3=0x0d}
0x1a1b…1a29 Line {l1=0x0c, l2=»3080 I1=I1+1«, l3=0x0c}
0x1a29…1a36 Line {l1=0x0b, l2=»3090 ENDIF «, l3=0x0b}
0x1a36…1a42 Line {l1=0x0a, l2=»3100 ELSE «, l3=0x0a}
0x1a42…1a51 Line {l1=0x0d, l2=»3110 LINE$=""«, l3=0x0d}
0x1a51…1a61 Line {l1=0x0e, l2=»3120 SPLIT$=""«, l3=0x0e}
0x1a61…1a6e Line {l1=0x0b, l2=»3130 ENDIF «, l3=0x0b}
0x1a6e…1a7a Line {l1=0x0a, l2=»3140 ELSE «, l3=0x0a}
0x1a7a…1a89 Line {l1=0x0d, l2=»3150 LINE$=""«, l3=0x0d}
0x1a89…1a99 Line {l1=0x0e, l2=»3160 SPLIT$=""«, l3=0x0e}
0x1a99…1aa6 Line {l1=0x0b, l2=»3210 ENDIF «, l3=0x0b}
0x1aa6…1ab2 Line {l1=0x0a, l2=»3220 ELSE «, l3=0x0a}
0x1ab2…1ac1 Line {l1=0x0d, l2=»3230 B$=LINE$«, l3=0x0d}
0x1ac1…1ad8 Line {l1=0x15, l2=»3240 LINE$=SIDE$(I+1)«, l3=0x15}
0x1ad8…1aed Line {l1=0x13, l2=»3250 SIDE$(I1+1)=B$«, l3=0x13}
0x1aed…1b06 Line {l1=0x17, l2=»3260 J1=LEN(B$);P=67-J1«, l3=0x17}
0x1b06…1b1d Line {l1=0x15, l2=»3270 EXEC FLÆK(LINE$)«, l3=0x15}
0x1b1d…1b2a Line {l1=0x0b, l2=»3280 ENDIF «, l3=0x0b}
0x1b2a…1b6a Line {l1=0x3e, l2=»3300 IF HYPHEN>0 THEN SIDE$(HYPHEN DIV 100,HYPHEN MOD 100)="-"«, l3=0x3e}
0x1b6a…1b75 Line {l1=0x09, l2=»3310 J1=1«, l3=0x09}
0x1b75…1b7f Line {l1=0x08, l2=»3320 J=1«, l3=0x08}
0x1b7f…1b8d Line {l1=0x0c, l2=»3330 I1=I1+1«, l3=0x0c}
0x1b8d…1b99 Line {l1=0x0a, l2=»3340 I=I+1«, l3=0x0a}
0x1b99…1bb1 Line {l1=0x16, l2=»3350 IF I>22 THEN I=22«, l3=0x16}
0x1bb1…1bfa Line {l1=0x47, l2=»3360 UNTIL (LEN(SPLIT$)=0 AND LEN(LINE$)=0) OR (J=1 AND SIDE$(I,1)=" ")«, l3=0x47}
0x1bfa…1c05 Line {l1=0x09, l2=»3370 J=I1«, l3=0x09}
0x1c05…1c15 Line {l1=0x0e, l2=»3380 WHILE J<I«, l3=0x0e}
0x1c15…1c25 Line {l1=0x0e, l2=»3390 EXEC SLET«, l3=0x0e}
0x1c25…1c31 Line {l1=0x0a, l2=»3400 J=J+1«, l3=0x0a}
0x1c31…1c41 Line {l1=0x0e, l2=»3410 ENDWHILE «, l3=0x0e}
0x1c41…1c4e Line {l1=0x0b, l2=»3420 ENDIF «, l3=0x0b}
0x1c4e…1c5d Line {l1=0x0d, l2=»3430 ENDPROC «, l3=0x0d}
0x1c5d…1c6f Line {l1=0x10, l2=»3440 PROC CHECK1«, l3=0x10}
0x1c6f…1c7a Line {l1=0x09, l2=»3450 NR=0«, l3=0x09}
0x1c7a…1c84 Line {l1=0x08, l2=»3460 I=1«, l3=0x08}
0x1c84…1cad Line {l1=0x27, l2=»3470 IF LEN(SV$)>0 AND LEN(SV$)<3 THEN «, l3=0x27}
0x1cad…1cbd Line {l1=0x0e, l2=»3480 OKAY=TRUE«, l3=0x0e}
0x1cbd…1cc9 Line {l1=0x0a, l2=»3490 ELSE «, l3=0x0a}
0x1cc9…1cda Line {l1=0x0f, l2=»3500 OKAY=FALSE«, l3=0x0f}
0x1cda…1ce7 Line {l1=0x0b, l2=»3510 ENDIF «, l3=0x0b}
0x1ce7…1cff Line {l1=0x16, l2=»3520 WHILE I<=LEN(SV$)«, l3=0x16}
0x1cff…1d27 Line {l1=0x26, l2=»3530 IF SV$(I)<"0" OR SV$(I)>"9" THEN «, l3=0x26}
0x1d27…1d38 Line {l1=0x0f, l2=»3540 OKAY=FALSE«, l3=0x0f}
0x1d38…1d4b Line {l1=0x11, l2=»3550 I=LEN(SV$)+1«, l3=0x11}
0x1d4b…1d57 Line {l1=0x0a, l2=»3560 ELSE «, l3=0x0a}
0x1d57…1d75 Line {l1=0x1c, l2=»3570 NR=NR*10+ORD(SV$(I))-48«, l3=0x1c}
0x1d75…1d81 Line {l1=0x0a, l2=»3580 I=I+1«, l3=0x0a}
0x1d81…1d8e Line {l1=0x0b, l2=»3590 ENDIF «, l3=0x0b}
0x1d8e…1d9e Line {l1=0x0e, l2=»3600 ENDWHILE «, l3=0x0e}
0x1d9e…1dad Line {l1=0x0d, l2=»3610 ENDPROC «, l3=0x0d}
0x1dad…1dc4 Line {l1=0x15, l2=»3620 PROC CONVERT(NO)«, l3=0x15}
0x1dc4…1df2 Line {l1=0x2c, l2=»3630 SV$=CHR(NO DIV 10+48)+CHR(NO MOD 10+48)«, l3=0x2c}
0x1df2…1e01 Line {l1=0x0d, l2=»3640 ENDPROC «, l3=0x0d}
0x1e01…1e12 Line {l1=0x0f, l2=»3650 PROC CHECK«, l3=0x0f}
0x1e12…1e23 Line {l1=0x0f, l2=»3660 OKAY=FALSE«, l3=0x0f}
0x1e23…1e36 Line {l1=0x11, l2=»3670 CURSOR 20,23«, l3=0x11}
0x1e36…1e49 Line {l1=0x11, l2=»3680 CASE SV$ OF «, l3=0x11}
0x1e49…1e5c Line {l1=0x11, l2=»3690 WHEN "T","t"«, l3=0x11}
0x1e5c…1e6c Line {l1=0x0e, l2=»3700 OKAY=TRUE«, l3=0x0e}
0x1e6c…1e85 Line {l1=0x17, l2=»3710 PRINT "Tilføjelse"«, l3=0x17}
0x1e85…1ea4 Line {l1=0x1d, l2=»3720 WHEN "TL","tl","Tl","tL"«, l3=0x1d}
0x1ea4…1eb4 Line {l1=0x0e, l2=»3730 OKAY=TRUE«, l3=0x0e}
0x1eb4…1ecf Line {l1=0x19, l2=»3740 PRINT "Tilføj linie"«, l3=0x19}
0x1ecf…1ee2 Line {l1=0x11, l2=»3750 WHEN "s","S"«, l3=0x11}
0x1ee2…1ef2 Line {l1=0x0e, l2=»3760 OKAY=TRUE«, l3=0x0e}
0x1ef2…1f09 Line {l1=0x15, l2=»3770 PRINT "Sletning"«, l3=0x15}
0x1f09…1f28 Line {l1=0x1d, l2=»3780 WHEN "SL","sl","Sl","sL"«, l3=0x1d}
0x1f28…1f38 Line {l1=0x0e, l2=»3790 OKAY=TRUE«, l3=0x0e}
0x1f38…1f51 Line {l1=0x17, l2=»3800 PRINT "Slet linie"«, l3=0x17}
0x1f51…1f64 Line {l1=0x11, l2=»3810 WHEN "R","r"«, l3=0x11}
0x1f64…1f74 Line {l1=0x0e, l2=»3820 OKAY=TRUE«, l3=0x0e}
0x1f74…1f8a Line {l1=0x14, l2=»3830 PRINT "Retning"«, l3=0x14}
0x1f8a…1f9d Line {l1=0x11, l2=»3840 WHEN "e","E"«, l3=0x11}
0x1f9d…1fad Line {l1=0x0e, l2=»3850 OKAY=TRUE«, l3=0x0e}
0x1fad…1fc5 Line {l1=0x16, l2=»3860 PRINT "Editering"«, l3=0x16}
0x1fc5…1fd4 Line {l1=0x0d, l2=»3870 ENDCASE «, l3=0x0d}
0x1fd4…1fe3 Line {l1=0x0d, l2=»3880 ENDPROC «, l3=0x0d}
0x1fe3…1ff5 Line {l1=0x10, l2=»3890 PROC UDBREV«, l3=0x10}
0x1ff5…200b Line {l1=0x14, l2=»3900 FOR I=1 TO LAST«, l3=0x14}
0x200b…2025 Line {l1=0x18, l2=»3910 PUT UDFIL$:SIDE$(I)«, l3=0x18}
0x2025…2032 Line {l1=0x0b, l2=»3920 NEXT I«, l3=0x0b}
0x2032…2041 Line {l1=0x0d, l2=»3940 ENDPROC «, l3=0x0d}
0x2041…204f Line {l1=0x0c, l2=»3950 REPEAT «, l3=0x0c}
0x204f…2061 Line {l1=0x10, l2=»3960 CURSOR 1,23«, l3=0x10}
0x2061…2089 Line {l1=0x26, l2=»3970 INPUT "FLERE MODULER (J/N) ",SV1$«, l3=0x26}
0x2089…20ad Line {l1=0x22, l2=»3980 IF SV1$="J" OR SV1$="j" THEN «, l3=0x22}
0x20ad…20c1 Line {l1=0x12, l2=»3990 EXEC INDMODUL«, l3=0x12}
0x20c1…20d3 Line {l1=0x10, l2=»4000 EXEC TILPAS«, l3=0x10}
0x20d3…20e5 Line {l1=0x10, l2=»4010 EXEC UDBREV«, l3=0x10}
0x20e5…20f2 Line {l1=0x0b, l2=»4020 ENDIF «, l3=0x0b}
0x20f2…2116 Line {l1=0x22, l2=»4030 UNTIL SV1$<>"J" AND SV1$<>"j"«, l3=0x22}
0x2116…212b Line {l1=0x13, l2=»4040 ENDFILE UDFIL$«, l3=0x13}
0x212b…213e Line {l1=0x11, l2=»4050 CLOSE UDFIL$«, l3=0x11}
0x213e…2151 Line {l1=0x11, l2=»4055 EXEC GETTABS«, l3=0x11}
0x2151…215f Line {l1=0x0c, l2=»4060 REPEAT «, l3=0x0c}
0x215f…216c Line {l1=0x0b, l2=»4070 CLEAR «, l3=0x0b}
0x216c…2192 Line {l1=0x24, l2=»4080 PRINT "BREVET ØNSKES UDSKREVET"«, l3=0x24}
0x2192…21bb Line {l1=0x27, l2=»4090 PRINT "Uden kundehoved 1"«, l3=0x27}
0x21bb…21e4 Line {l1=0x27, l2=»4100 PRINT "Med kundehoved 2"«, l3=0x27}
0x21e4…21f2 Line {l1=0x0c, l2=»4130 REPEAT «, l3=0x0c}
0x21f2…2217 Line {l1=0x23, l2=»4140 INPUT "(1/2) 0 FOR STOP ",SV$«, l3=0x23}
0x2217…2229 Line {l1=0x10, l2=»4150 EXEC CHECK1«, l3=0x10}
0x2229…2253 Line {l1=0x28, l2=»4160 UNTIL NR=>0 AND NR<=2 AND OKAY=TRUE«, l3=0x28}
0x2253…2265 Line {l1=0x10, l2=»4170 CASE NR OF «, l3=0x10}
0x2265…2272 Line {l1=0x0b, l2=»4180 WHEN 1«, l3=0x0b}
0x2272…2281 Line {l1=0x0d, l2=»4185 OUTPUT P«, l3=0x0d}
0x2281…228f Line {l1=0x0c, l2=»4187 LINES=0«, l3=0x0c}
0x228f…22a0 Line {l1=0x0f, l2=»4190 EXEC WRITE«, l3=0x0f}
0x22a0…22af Line {l1=0x0d, l2=»4195 OUTPUT T«, l3=0x0d}
0x22af…22bc Line {l1=0x0b, l2=»4200 WHEN 2«, l3=0x0b}
0x22bc…22cd Line {l1=0x0f, l2=»4205 EXEC LISTE«, l3=0x0f}
0x22cd…22dc Line {l1=0x0d, l2=»4230 ENDCASE «, l3=0x0d}
0x22dc…22ed Line {l1=0x0f, l2=»4240 UNTIL NR=0«, l3=0x0f}
0x22ed…22fe Line {l1=0x0f, l2=»4250 PROC WRITE«, l3=0x0f}
0x22fe…2312 Line {l1=0x12, l2=»4270 OPEN UDFIL$,R«, l3=0x12}
0x2312…2328 Line {l1=0x14, l2=»4280 GET UDFIL$:SYM$«, l3=0x14}
0x2328…2345 Line {l1=0x1b, l2=»4300 WHILE STATUS(UDFIL$)=0«, l3=0x1b}
0x2345…2359 Line {l1=0x12, l2=»4310 LINES=LINES+1«, l3=0x12}
0x2359…2371 Line {l1=0x16, l2=»4320 IF LINES=63 THEN «, l3=0x16}
0x2371…2389 Line {l1=0x16, l2=»4330 FOR LINES=1 TO 20«, l3=0x16}
0x2389…2399 Line {l1=0x0e, l2=»4340 PRINT " "«, l3=0x0e}
0x2399…23aa Line {l1=0x0f, l2=»4350 NEXT LINES«, l3=0x0f}
0x23aa…23b9 Line {l1=0x0d, l2=»4360 LINES=11«, l3=0x0d}
0x23b9…23c6 Line {l1=0x0b, l2=»4370 ENDIF «, l3=0x0b}
0x23c6…23de Line {l1=0x16, l2=»4380 PRINT TAB(7);SYM$«, l3=0x16}
0x23de…23f4 Line {l1=0x14, l2=»4390 GET UDFIL$:SYM$«, l3=0x14}
0x23f4…2404 Line {l1=0x0e, l2=»4400 ENDWHILE «, l3=0x0e}
0x2404…2420 Line {l1=0x1a, l2=»4401 FOR LINES=LINES TO 81«, l3=0x1a}
0x2420…2430 Line {l1=0x0e, l2=»4402 PRINT " "«, l3=0x0e}
0x2430…2441 Line {l1=0x0f, l2=»4403 NEXT LINES«, l3=0x0f}
0x2441…244f Line {l1=0x0c, l2=»4404 LINES=9«, l3=0x0c}
0x244f…2462 Line {l1=0x11, l2=»4410 CLOSE UDFIL$«, l3=0x11}
0x2462…2471 Line {l1=0x0d, l2=»4430 ENDPROC «, l3=0x0d}
0x2471…248e Line {l1=0x1b, l2=»5070 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x248e…24ad Line {l1=0x1d, l2=»5080 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x24ad…24d3 Line {l1=0x24, l2=»5090 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x24d3…24df Line {l1=0x0a, l2=»5100 STOP «, l3=0x0a}
0x24df…24ec Line {l1=0x0b, l2=»5110 ENDIF «, l3=0x0b}
0x24ec…24fb Line {l1=0x0d, l2=»5120 ENDPROC «, l3=0x0d}
0x24fb…251b Line {l1=0x1e, l2=»5130 PROC INDTAB(T,MANTAL,L10)«, l3=0x1e}
0x251b…2533 Line {l1=0x16, l2=»5140 J=MANTAL DIV 32+1«, l3=0x16}
0x2533…2555 Line {l1=0x20, l2=»5150 FOR I=J TO MANTAL DIV 4+J-1«, l3=0x20}
0x2555…257c Line {l1=0x25, l2=»5160 H=(I-J)*4+1;H1=H+1;H2=H+2;H3=H+3«, l3=0x25}
0x257c…25cb Line {l1=0x4d, l2=»5170 GET L10$,I:T(H,1),T(H,2),T(H1,1),T(H1,2),T(H2,1),T(H2,2),T(H3,1),T(H3,2)«, l3=0x4d}
0x25cb…25e5 Line {l1=0x18, l2=»5180 EXEC FEJL(1,1,L10$)«, l3=0x18}
0x25e5…25f2 Line {l1=0x0b, l2=»5190 NEXT I«, l3=0x0b}
0x25f2…2601 Line {l1=0x0d, l2=»5200 ENDPROC «, l3=0x0d}
0x2601…2616 Line {l1=0x13, l2=»5210 PROC HENTDPOST«, l3=0x13}
0x2616…262d Line {l1=0x15, l2=»5220 SD=DTAB(DPIL3,2)«, l3=0x15}
0x262d…265e Line {l1=0x2f, l2=»5230 GET K3$,SD:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$«, l3=0x2f}
0x265e…2677 Line {l1=0x17, l2=»5240 EXEC FEJL(8,2,K3$)«, l3=0x17}
0x2677…26b4 Line {l1=0x3b, l2=»5250 GET K3$,SD+1:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$«, l3=0x3b}
0x26b4…26cd Line {l1=0x17, l2=»5260 EXEC FEJL(8,3,K3$)«, l3=0x17}
0x26cd…26fe Line {l1=0x2f, l2=»5270 GET K3$,SD+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE«, l3=0x2f}
0x26fe…2717 Line {l1=0x17, l2=»5280 EXEC FEJL(8,4,K3$)«, l3=0x17}
0x2717…2740 Line {l1=0x27, l2=»5290 GET K3$,SD+3:DEBBY$,ÅRKØB$,MDNKØB$«, l3=0x27}
0x2740…2759 Line {l1=0x17, l2=»5300 EXEC FEJL(8,5,K3$)«, l3=0x17}
0x2759…2768 Line {l1=0x0d, l2=»5310 ENDPROC «, l3=0x0d}
0x2768…2793 Line {l1=0x29, l2=»5320 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3)«, l3=0x29}
0x2793…27bb Line {l1=0x26, l2=»5330 PIL1=MANT1 DIV 2;PIL3=PIL1;CEKS=1«, l3=0x26}
0x27bb…27c9 Line {l1=0x0c, l2=»5340 REPEAT «, l3=0x0c}
0x27c9…27fa Line {l1=0x2f, l2=»5350 IF NØGL1=TAB1(PIL3,1) OR PIL1=1 THEN EXIT «, l3=0x2f}
0x27fa…283e Line {l1=0x42, l2=»5360 PIL1=(PIL1+1) DIV 2;PIL3=PIL3+PIL1*(1-2*(NØGL1<TAB1(PIL3,1)))«, l3=0x42}
0x283e…285a Line {l1=0x1a, l2=»5370 IF PIL3<1 THEN PIL3=1«, l3=0x1a}
0x285a…287e Line {l1=0x22, l2=»5380 IF PIL3>MANT1 THEN PIL3=MANT1«, l3=0x22}
0x287e…2891 Line {l1=0x11, l2=»5390 UNTIL PIL1=0«, l3=0x11}
0x2891…28b9 Line {l1=0x26, l2=»5400 IF NØGL1=TAB1(PIL3,1) THEN CEKS=0«, l3=0x26}
0x28b9…28c8 Line {l1=0x0d, l2=»5410 ENDPROC «, l3=0x0d}
0x28c8…28df Line {l1=0x15, l2=»5420 PROC NRTEST(NUM)«, l3=0x15}
0x28df…2904 Line {l1=0x23, l2=»5430 P=0;TEST2=0;KTAL=0;L=LEN(NUM$)«, l3=0x23}
0x2904…2915 Line {l1=0x0f, l2=»5440 CASE L OF «, l3=0x0f}
0x2915…2928 Line {l1=0x11, l2=»5450 FOR J=1 TO L«, l3=0x11}
0x2928…2946 Line {l1=0x1c, l2=»5460 P1=INT(ORD(NUM$(J))-48)«, l3=0x1c}
0x2946…2965 Line {l1=0x1d, l2=»5470 IF P1=>0 AND P1<=9 THEN «, l3=0x1d}
0x2965…2975 Line {l1=0x0e, l2=»5480 P=P*10+P1«, l3=0x0e}
0x2975…2981 Line {l1=0x0a, l2=»5490 ELSE «, l3=0x0a}
0x2981…298f Line {l1=0x0c, l2=»5500 TEST2=1«, l3=0x0c}
0x298f…299c Line {l1=0x0b, l2=»5510 ENDIF «, l3=0x0b}
0x299c…29a9 Line {l1=0x0b, l2=»5520 NEXT J«, l3=0x0b}
0x29a9…29c0 Line {l1=0x15, l2=»5530 KTAL=P DIV 10000«, l3=0x15}
0x29c0…29cd Line {l1=0x0b, l2=»5540 WHEN 0«, l3=0x0b}
0x29cd…29d8 Line {l1=0x09, l2=»5550 P=-1«, l3=0x09}
0x29d8…29e5 Line {l1=0x0b, l2=»5560 WHEN 1«, l3=0x0b}
0x29e5…29f9 Line {l1=0x12, l2=»5570 CASE NUM$ OF «, l3=0x12}
0x29f9…2a13 Line {l1=0x18, l2=»5580 P=INT(ORD(NUM$)-48)«, l3=0x18}
0x2a13…2a26 Line {l1=0x11, l2=»5590 WHEN "j","J"«, l3=0x11}
0x2a26…2a31 Line {l1=0x09, l2=»5600 P=-7«, l3=0x09}
0x2a31…2a44 Line {l1=0x11, l2=»5610 WHEN "n","N"«, l3=0x11}
0x2a44…2a4f Line {l1=0x09, l2=»5620 P=-8«, l3=0x09}
0x2a4f…2a5e Line {l1=0x0d, l2=»5630 ENDCASE «, l3=0x0d}
0x2a5e…2a6d Line {l1=0x0d, l2=»5640 ENDCASE «, l3=0x0d}
0x2a6d…2a7c Line {l1=0x0d, l2=»5650 ENDPROC «, l3=0x0d}
0x2a7c…2a8f Line {l1=0x11, l2=»5660 PROC GETTABS«, l3=0x11}
0x2a8f…2aab Line {l1=0x1a, l2=»5670 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x2aab…2abc Line {l1=0x0f, l2=»5680 OPEN K1$,R«, l3=0x0f}
0x2abc…2ad5 Line {l1=0x17, l2=»5690 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x2ad5…2af5 Line {l1=0x1e, l2=»5700 GET K1$,1:MFANTAL,MDANTAL«, l3=0x1e}
0x2af5…2b0e Line {l1=0x17, l2=»5710 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x2b0e…2b34 Line {l1=0x24, l2=»5720 GET K1$,4:MKPOST,MFAK,MVGR,MKGR«, l3=0x24}
0x2b34…2b4d Line {l1=0x17, l2=»5730 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x2b4d…2b75 Line {l1=0x26, l2=»5740 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL«, l3=0x26}
0x2b75…2b8e Line {l1=0x17, l2=»5750 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x2b8e…2ba2 Line {l1=0x12, l2=»5760 GET K1$,10:N$«, l3=0x12}
0x2ba2…2bbb Line {l1=0x17, l2=»5770 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x2bbb…2bd0 Line {l1=0x13, l2=»5780 GET K1$,12:K2$«, l3=0x13}
0x2bd0…2be9 Line {l1=0x17, l2=»5790 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x2be9…2bfe Line {l1=0x13, l2=»5800 GET K1$,16:K3$«, l3=0x13}
0x2bfe…2c17 Line {l1=0x17, l2=»5810 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x2c17…2c2c Line {l1=0x13, l2=»5820 GET K1$,35:K4$«, l3=0x13}
0x2c2c…2c45 Line {l1=0x17, l2=»5830 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x2c45…2c5a Line {l1=0x13, l2=»5840 GET K1$,36:K5$«, l3=0x13}
0x2c5a…2c73 Line {l1=0x17, l2=»5850 EXEC FEJL(9,9,K1$)«, l3=0x17}
0x2c73…2c83 Line {l1=0x0e, l2=»5860 CLOSE K1$«, l3=0x0e}
0x2c83…2c9d Line {l1=0x18, l2=»5870 EXEC FEJL(9,10,K1$)«, l3=0x18}
0x2c9d…2ccf Line {l1=0x30, l2=»5880 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$«, l3=0x30}
0x2ccf…2ce0 Line {l1=0x0f, l2=»5890 OPEN K5$,R«, l3=0x0f}
0x2ce0…2cfa Line {l1=0x18, l2=»5900 EXEC FEJL(9,11,K5$)«, l3=0x18}
0x2cfa…2d40 Line {l1=0x44, l2=»5910 GET K5$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x44}
0x2d40…2d5a Line {l1=0x18, l2=»5920 EXEC FEJL(9,12,K5$)«, l3=0x18}
0x2d5a…2d6d Line {l1=0x11, l2=»5930 FOR I=1 TO 3«, l3=0x11}
0x2d6d…2d7f Line {l1=0x10, l2=»5940 H=(I-1)*3+1«, l3=0x10}
0x2d7f…2db0 Line {l1=0x2f, l2=»5950 GET K5$,I+2:LAND$(H),LAND$(H+1),LAND$(H+2)«, l3=0x2f}
0x2db0…2dca Line {l1=0x18, l2=»5960 EXEC FEJL(9,13,K5$)«, l3=0x18}
0x2dca…2dd7 Line {l1=0x0b, l2=»5970 NEXT I«, l3=0x0b}
0x2dd7…2df2 Line {l1=0x19, l2=»5980 GET K5$,14:AFIN,ADEB«, l3=0x19}
0x2df2…2e0c Line {l1=0x18, l2=»5990 EXEC FEJL(9,14,K5$)«, l3=0x18}
0x2e0c…2e33 Line {l1=0x25, l2=»6000 DIM DTAB(MDANTAL,2),KARRAY(MKGR)«, l3=0x25}
0x2e33…2e44 Line {l1=0x0f, l2=»6010 OPEN K4$,R«, l3=0x0f}
0x2e44…2e5e Line {l1=0x18, l2=»6020 EXEC FEJL(9,15,K4$)«, l3=0x18}
0x2e5e…2e7a Line {l1=0x1a, l2=»6030 FOR I=1 TO MKGR DIV 5«, l3=0x1a}
0x2e7a…2e8c Line {l1=0x10, l2=»6040 J=(I-1)*5+1«, l3=0x10}
0x2e8c…2ed6 Line {l1=0x48, l2=»6050 GET K4$,I:KARRAY(J),KARRAY(J+1),KARRAY(J+2),KARRAY(J+3),KARRAY(J+4)«, l3=0x48}
0x2ed6…2ef0 Line {l1=0x18, l2=»6060 EXEC FEJL(9,16,K4$)«, l3=0x18}
0x2ef0…2efd Line {l1=0x0b, l2=»6070 NEXT I«, l3=0x0b}
0x2efd…2f0d Line {l1=0x0e, l2=»6080 CLOSE K4$«, l3=0x0e}
0x2f0d…2f27 Line {l1=0x18, l2=»6090 EXEC FEJL(9,12,K4$)«, l3=0x18}
0x2f27…2f38 Line {l1=0x0f, l2=»6100 OPEN K2$,R«, l3=0x0f}
0x2f38…2f52 Line {l1=0x18, l2=»6110 EXEC FEJL(9,18,K2$)«, l3=0x18}
0x2f52…2f63 Line {l1=0x0f, l2=»6120 OPEN K3$,R«, l3=0x0f}
0x2f63…2f7d Line {l1=0x18, l2=»6130 EXEC FEJL(9,19,K3$)«, l3=0x18}
0x2f7d…2fa1 Line {l1=0x22, l2=»6140 EXEC INDTAB(DTAB,MDANTAL,K2$)«, l3=0x22}
0x2fa1…2fb0 Line {l1=0x0d, l2=»6150 DA=T1(7)«, l3=0x0d}
0x2fb0…2fc6 Line {l1=0x14, l2=»6160 DAT$=" "«, l3=0x14}
0x2fc6…2fe1 Line {l1=0x19, l2=»6170 FOR J=8 TO 1 STEP -1«, l3=0x19}
0x2fe1…2ffa Line {l1=0x17, l2=»6180 IF J MOD 3=0 THEN «, l3=0x17}
0x2ffa…300c Line {l1=0x10, l2=»6190 DAT$(J)="."«, l3=0x10}
0x300c…3018 Line {l1=0x0a, l2=»6200 ELSE «, l3=0x0a}
0x3018…3038 Line {l1=0x1e, l2=»6210 DAT$(J)=CHR(DA MOD 10+48)«, l3=0x1e}
0x3038…304b Line {l1=0x11, l2=»6220 DA=DA DIV 10«, l3=0x11}
0x304b…3058 Line {l1=0x0b, l2=»6230 ENDIF «, l3=0x0b}
0x3058…3065 Line {l1=0x0b, l2=»6240 NEXT J«, l3=0x0b}
0x3065…3074 Line {l1=0x0d, l2=»6250 ENDPROC «, l3=0x0d}
0x3074…3085 Line {l1=0x0f, l2=»6260 PROC LISTE«, l3=0x0f}
0x3085…3093 Line {l1=0x0c, l2=»6270 REPEAT «, l3=0x0c}
0x3093…30a6 Line {l1=0x11, l2=»6280 CURSOR 13,17«, l3=0x11}
0x30a6…30dc Line {l1=0x34, l2=»6290 PRINT "Ordnet efter : (1: Gruppe , 2: Nr)"«, l3=0x34}
0x30dc…30ef Line {l1=0x11, l2=»6300 CURSOR 26,17«, l3=0x11}
0x30ef…30fe Line {l1=0x0d, l2=»6310 INPUT A$«, l3=0x0d}
0x30fe…3114 Line {l1=0x14, l2=»6320 EXEC NRTEST(A$)«, l3=0x14}
0x3114…312b Line {l1=0x15, l2=»6330 UNTIL P=1 OR P=2«, l3=0x15}
0x312b…3139 Line {l1=0x0c, l2=»6340 ORDEN=P«, l3=0x0c}
0x3139…3147 Line {l1=0x0c, l2=»6350 REPEAT «, l3=0x0c}
0x3147…3155 Line {l1=0x0c, l2=»6360 REPEAT «, l3=0x0c}
0x3155…3168 Line {l1=0x11, l2=»6370 CURSOR 13,19«, l3=0x11}
0x3168…317f Line {l1=0x15, l2=»6380 IF ORDEN=1 THEN «, l3=0x15}
0x317f…31ab Line {l1=0x2a, l2=»6390 PRINT "Fra gruppenr : (0: Alle)"«, l3=0x2a}
0x31ab…31b7 Line {l1=0x0a, l2=»6400 ELSE «, l3=0x0a}
0x31b7…31e3 Line {l1=0x2a, l2=»6410 PRINT "Fra kontonr : (0: Alle)"«, l3=0x2a}
0x31e3…31f0 Line {l1=0x0b, l2=»6420 ENDIF «, l3=0x0b}
0x31f0…3203 Line {l1=0x11, l2=»6430 CURSOR 26,19«, l3=0x11}
0x3203…3214 Line {l1=0x0f, l2=»6440 INPUT KTN$«, l3=0x0f}
0x3214…322c Line {l1=0x16, l2=»6450 EXEC NRTEST(KTN$)«, l3=0x16}
0x322c…3278 Line {l1=0x4a, l2=»6460 UNTIL P=0 OR (P>0 AND P<=MKGR AND ORDEN=1) OR (KTAL=DTAL AND ORDEN=2)«, l3=0x4a}
0x3278…328f Line {l1=0x15, l2=»6470 IF ORDEN=1 THEN «, l3=0x15}
0x328f…32a2 Line {l1=0x11, l2=»6480 IF P=0 THEN «, l3=0x11}
0x32a2…32b7 Line {l1=0x13, l2=»6490 FRA=1;TIL=MKGR«, l3=0x13}
0x32b7…32c3 Line {l1=0x0a, l2=»6500 ELSE «, l3=0x0a}
0x32c3…32cf Line {l1=0x0a, l2=»6510 FRA=P«, l3=0x0a}
0x32cf…32dc Line {l1=0x0b, l2=»6520 ENDIF «, l3=0x0b}
0x32dc…32e8 Line {l1=0x0a, l2=»6530 ELSE «, l3=0x0a}
0x32e8…32fb Line {l1=0x11, l2=»6540 IF P=0 THEN «, l3=0x11}
0x32fb…3310 Line {l1=0x13, l2=»6550 FRA=1;TIL=ADEB«, l3=0x13}
0x3310…331c Line {l1=0x0a, l2=»6560 ELSE «, l3=0x0a}
0x331c…333a Line {l1=0x1c, l2=»6570 IF DTAB(ADEB,1)<P THEN «, l3=0x1c}
0x333a…3346 Line {l1=0x0a, l2=»6580 FRA=0«, l3=0x0a}
0x3346…3352 Line {l1=0x0a, l2=»6590 ELSE «, l3=0x0a}
0x3352…337c Line {l1=0x28, l2=»6600 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3)«, l3=0x28}
0x337c…3392 Line {l1=0x14, l2=»6610 IF CEKS=0 THEN «, l3=0x14}
0x3392…33a2 Line {l1=0x0e, l2=»6620 FRA=DPIL3«, l3=0x0e}
0x33a2…33ae Line {l1=0x0a, l2=»6630 ELSE «, l3=0x0a}
0x33ae…33c0 Line {l1=0x10, l2=»6640 FRA=DPIL3+1«, l3=0x10}
0x33c0…33cd Line {l1=0x0b, l2=»6650 ENDIF «, l3=0x0b}
0x33cd…33da Line {l1=0x0b, l2=»6660 ENDIF «, l3=0x0b}
0x33da…33e7 Line {l1=0x0b, l2=»6670 ENDIF «, l3=0x0b}
0x33e7…33f4 Line {l1=0x0b, l2=»6680 ENDIF «, l3=0x0b}
0x33f4…3407 Line {l1=0x11, l2=»6690 UNTIL FRA<>0«, l3=0x11}
0x3407…341a Line {l1=0x11, l2=»6700 IF P>0 THEN «, l3=0x11}
0x341a…3428 Line {l1=0x0c, l2=»6710 REPEAT «, l3=0x0c}
0x3428…3436 Line {l1=0x0c, l2=»6720 REPEAT «, l3=0x0c}
0x3436…3449 Line {l1=0x11, l2=»6730 CURSOR 13,21«, l3=0x11}
0x3449…3460 Line {l1=0x15, l2=»6740 IF ORDEN=1 THEN «, l3=0x15}
0x3460…3482 Line {l1=0x20, l2=»6750 INPUT "Til gruppenr :",KTN$«, l3=0x20}
0x3482…348e Line {l1=0x0a, l2=»6760 ELSE «, l3=0x0a}
0x348e…34b0 Line {l1=0x20, l2=»6770 INPUT "Til kontonr :",KTN$«, l3=0x20}
0x34b0…34bd Line {l1=0x0b, l2=»6780 ENDIF «, l3=0x0b}
0x34bd…34d5 Line {l1=0x16, l2=»6790 EXEC NRTEST(KTN$)«, l3=0x16}
0x34d5…351a Line {l1=0x43, l2=»6800 UNTIL (P>0 AND P<=MKGR AND ORDEN=1) OR (KTAL=DTAL AND ORDEN=2)«, l3=0x43}
0x351a…3531 Line {l1=0x15, l2=»6810 IF ORDEN=1 THEN «, l3=0x15}
0x3531…353d Line {l1=0x0a, l2=»6820 TIL=P«, l3=0x0a}
0x353d…3549 Line {l1=0x0a, l2=»6830 ELSE «, l3=0x0a}
0x3549…3567 Line {l1=0x1c, l2=»6840 IF DTAB(ADEB,1)<P THEN «, l3=0x1c}
0x3567…3576 Line {l1=0x0d, l2=»6850 TIL=ADEB«, l3=0x0d}
0x3576…3582 Line {l1=0x0a, l2=»6860 ELSE «, l3=0x0a}
0x3582…35ac Line {l1=0x28, l2=»6870 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3)«, l3=0x28}
0x35ac…35c2 Line {l1=0x14, l2=»6875 IF CEKS=0 THEN «, l3=0x14}
0x35c2…35d2 Line {l1=0x0e, l2=»6880 TIL=DPIL3«, l3=0x0e}
0x35d2…35de Line {l1=0x0a, l2=»6882 ELSE «, l3=0x0a}
0x35de…35f0 Line {l1=0x10, l2=»6885 TIL=DPIL3+1«, l3=0x10}
0x35f0…35fd Line {l1=0x0b, l2=»6887 ENDIF «, l3=0x0b}
0x35fd…360a Line {l1=0x0b, l2=»6890 ENDIF «, l3=0x0b}
0x360a…3617 Line {l1=0x0b, l2=»6900 ENDIF «, l3=0x0b}
0x3617…362c Line {l1=0x13, l2=»6910 UNTIL FRA<=TIL«, l3=0x13}
0x362c…3639 Line {l1=0x0b, l2=»6920 ENDIF «, l3=0x0b}
0x3639…3646 Line {l1=0x0b, l2=»6930 CLEAR «, l3=0x0b}
0x3646…3654 Line {l1=0x0c, l2=»6940 REPEAT «, l3=0x0c}
0x3654…3667 Line {l1=0x11, l2=»6950 CURSOR 18,13«, l3=0x11}
0x3667…36a2 Line {l1=0x39, l2=»6960 INPUT "Monter lister til udskrift og tast RETURN",A$«, l3=0x39}
0x36a2…36ba Line {l1=0x16, l2=»6970 UNTIL ORD(A$)=255«, l3=0x16}
0x36ba…36c9 Line {l1=0x0d, l2=»6980 OUTPUT P«, l3=0x0d}
0x36c9…36e0 Line {l1=0x15, l2=»6981 FOR LINES=1 TO 9«, l3=0x15}
0x36e0…36f0 Line {l1=0x0e, l2=»6985 PRINT " "«, l3=0x0e}
0x36f0…3701 Line {l1=0x0f, l2=»6986 NEXT LINES«, l3=0x0f}
0x3701…370f Line {l1=0x0c, l2=»6987 LINES=9«, l3=0x0c}
0x370f…3726 Line {l1=0x15, l2=»6990 IF ORDEN=1 THEN «, l3=0x15}
0x3726…373d Line {l1=0x15, l2=»7000 FOR H=FRA TO TIL«, l3=0x15}
0x373d…3754 Line {l1=0x15, l2=»7010 HKUNDE=KARRAY(H)«, l3=0x15}
0x3754…3762 Line {l1=0x0c, l2=»7020 REPEAT «, l3=0x0c}
0x3762…377f Line {l1=0x1b, l2=»7030 IF HKUNDE=0 THEN EXIT «, l3=0x1b}
0x377f…37ae Line {l1=0x2d, l2=»7040 EXEC FINDPOST(DTAB,MDANTAL,HKUNDE,DPIL3)«, l3=0x2d}
0x37ae…37c3 Line {l1=0x13, l2=»7041 EXEC HENTDPOST«, l3=0x13}
0x37c3…37ec Line {l1=0x27, l2=»7042 PRINT TAB(7);DEBNAVN$;TAB(60);DAT$«, l3=0x27}
0x37ec…3808 Line {l1=0x1a, l2=»7043 PRINT TAB(7);DEBGADE$«, l3=0x1a}
0x3808…382f Line {l1=0x25, l2=»7044 PRINT TAB(7);DPOSTNR;" ";DEBBY$«, l3=0x25}
0x382f…3859 Line {l1=0x28, l2=»7045 IF DEBLK$>"0" AND DEBLK$<="9" THEN «, l3=0x28}
0x3859…3882 Line {l1=0x27, l2=»7046 PRINT TAB(7);LAND$(ORD(DEBLK$)-48)«, l3=0x27}
0x3882…388f Line {l1=0x0b, l2=»7047 ENDIF «, l3=0x0b}
0x388f…389f Line {l1=0x0e, l2=»7048 PRINT " "«, l3=0x0e}
0x389f…38af Line {l1=0x0e, l2=»7049 PRINT " "«, l3=0x0e}
0x38af…38c3 Line {l1=0x12, l2=»7050 LINES=6+LINES«, l3=0x12}
0x38c3…38d4 Line {l1=0x0f, l2=»7068 EXEC WRITE«, l3=0x0f}
0x38d4…38e9 Line {l1=0x13, l2=»7069 UNTIL HKUNDE=0«, l3=0x13}
0x38e9…38f6 Line {l1=0x0b, l2=»7070 NEXT H«, l3=0x0b}
0x38f6…3902 Line {l1=0x0a, l2=»7080 ELSE «, l3=0x0a}
0x3902…391d Line {l1=0x19, l2=»7090 FOR DPIL3=FRA TO TIL«, l3=0x19}
0x391d…3932 Line {l1=0x13, l2=»7091 EXEC HENTDPOST«, l3=0x13}
0x3932…395b Line {l1=0x27, l2=»7092 PRINT TAB(7);DEBNAVN$;TAB(60);DAT$«, l3=0x27}
0x395b…3977 Line {l1=0x1a, l2=»7093 PRINT TAB(7);DEBGADE$«, l3=0x1a}
0x3977…399e Line {l1=0x25, l2=»7094 PRINT TAB(7);DPOSTNR;" ";DEBBY$«, l3=0x25}
0x399e…39c8 Line {l1=0x28, l2=»7095 IF DEBLK$>"0" AND DEBLK$<="9" THEN «, l3=0x28}
0x39c8…39f1 Line {l1=0x27, l2=»7096 PRINT TAB(7);LAND$(ORD(DEBLK$)-48)«, l3=0x27}
0x39f1…39fe Line {l1=0x0b, l2=»7097 ENDIF «, l3=0x0b}
0x39fe…3a0e Line {l1=0x0e, l2=»7098 PRINT " "«, l3=0x0e}
0x3a0e…3a1e Line {l1=0x0e, l2=»7099 PRINT " "«, l3=0x0e}
0x3a1e…3a32 Line {l1=0x12, l2=»7100 LINES=6+LINES«, l3=0x12}
0x3a32…3a43 Line {l1=0x0f, l2=»7105 EXEC WRITE«, l3=0x0f}
0x3a43…3a54 Line {l1=0x0f, l2=»7110 NEXT DPIL3«, l3=0x0f}
0x3a54…3a61 Line {l1=0x0b, l2=»7120 ENDIF «, l3=0x0b}
0x3a61…3a70 Line {l1=0x0d, l2=»7125 OUTPUT T«, l3=0x0d}
0x3a70…3a7f Line {l1=0x0d, l2=»7130 ENDPROC «, l3=0x0d}
0x3a7f…3a80 00 ┆ ┆
0x3a80…3aa0 00 32 35 20 4f 55 54 50 55 54 20 54 0d 0d 37 31 33 30 20 45 4e 44 50 52 4f 43 20 0d 00 00 32 30 ┆ 25 OUTPUT T 7130 ENDPROC 20┆
0x3aa0…3ac0 20 44 49 4d 20 53 50 4c 49 54 24 28 36 36 29 2c 42 4c 24 28 36 36 29 1b 48 30 31 33 30 20 44 49 ┆ DIM SPLIT$(66),BL$(66) H0130 DI┆
0x3ac0…3ae0 4d 20 42 24 28 31 33 33 29 2c 53 59 4d 24 28 36 36 29 2c 53 24 28 31 29 2c 53 49 44 45 24 28 32 ┆M B$(133),SYM$(66),S$(1),SIDE$(2┆
0x3ae0…3b00 32 2c 36 36 29 2c 4c 49 4e 45 24 28 31 33 33 29 2c 53 56 24 28 32 29 2c 46 49 4c 31 24 28 32 30 ┆2,66),LINE$(133),SV$(2),FIL1$(20┆
0x3b00…3b20 29 48 24 30 31 34 30 20 44 49 4d 20 46 49 4c 24 28 32 30 29 2c 55 44 46 49 4c 24 28 32 30 29 2c ┆)H$0140 DIM FIL$(20),UDFIL$(20),┆
0x3b20…3b40 53 56 31 24 28 31 29 24 4b 30 31 34 31 20 44 49 4d 20 4b 31 24 28 31 37 29 2c 4e 24 28 36 29 2c ┆SV1$(1)$K0141 DIM K1$(17),N$(6),┆
0x3b40…3b60 4b 32 24 28 31 37 29 2c 4b 33 24 28 31 37 29 2c 44 45 42 4e 41 56 4e 24 28 32 35 29 2c 44 53 41 ┆K2$(17),K3$(17),DEBNAVN$(25),DSA┆
0x3b60…3b80 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1f…]