|
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: 7584 (0x1da0)
Types: TextFile
Notes: Mikados_K
Names: »SYSVEDL.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »SYSVEDL.K«
0100 REM SYSVEDL 0110 DIM MOMS$(12),LAND$(10,12),CB$(30),OP1$(12),OP2$(12) 0120 DIM RES$(14),TAL$(14),BLANK$(25),K1$(17),K2$(17),N$(6),D$(2),F$(17) 0130 DIM B$(2),A$(1),T1(9),TFIL$(18,10),AD$(5,7),AE$(5,29),AB$(5,30) 0140 ART=0 0150 PROC CALC(ART1,B1,B2,ES) 0160 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=ART1 0170 CALL "P641210:REGN" 0180 ES$=RES$ 0190 IF FLAG THEN STOP 0200 ENDPROC 0210 PROC FEJL(NR1,NR2,NR3) 0220 IF STATUS(NR3$)<>0 THEN 0230 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0240 STOP 0250 ENDIF 0260 ENDPROC 0270 PROC START(G) 0280 CLEAR 0290 CURSOR 20,1 0300 PRINT "Systemvedligeholdelse ";G$ 0310 CURSOR 15,9 0320 PRINT "0: Færdig" 0330 CURSOR 15,11 0340 PRINT "1: Oprettelse" 0350 CURSOR 15,13 0360 PRINT "2: Ændring" 0370 REPEAT 0380 CURSOR 18,15 0390 INPUT "Vælg type (0-2): ",B$ 0400 UNTIL B$=>"0" AND B$<"3" 0410 C=ORD(B$)-48 0420 IF C=2 THEN C=3 0430 CLEAR 0440 CURSOR 20,1 0450 PRINT "Systemvedligeholdelse ";G$ 0460 ENDPROC 0470 PROC INDTASTNING(CNR) 0480 REPEAT 0490 CASE CNR OF 0500 STOP 0510 WHEN 1 0520 IF C<>3 THEN 0530 REPEAT 0540 CURSOR 3,23 0550 PRINT " 1 Momsprocent :";BLANK$(1:20) 0560 CURSOR 28,23 0570 INPUT TAL$ 0580 TAL$=TAL$+"+" 0590 EXEC CALC(5,TAL$,TAL$,TAL$) 0600 UNTIL FLAG=0 0610 MOMS$=TAL$(3:12) 0620 ENDIF 0630 CURSOR 4,5 0640 PRINT "1 Momsprocent :";MOMS$(1:11) 0650 WHEN 2 0660 CB$="Fakturanummer :" 0670 WHEN 3 0680 CB$="Kreditnotanummer :" 0690 WHEN 4 0700 CB$="Fakturajournalside :" 0710 WHEN 5 0720 CB$="Kasserapportside :" 0730 WHEN 6 0740 CB$="Posteringsarkside :" 0750 WHEN 7 0760 CB$="Bogholderijournalside:" 0770 WHEN 8 0780 CB$="Dato (ÅÅmmdd) :" 0790 WHEN 9 0800 CB$="Bilagsnummer :" 0810 ENDCASE 0820 IF CNR<>1 THEN EXEC INDTAST(CB$,CNR) 0830 IF C=2 THEN 0840 CNR=10 0850 ELSE 0860 CNR=CNR+1 0870 ENDIF 0880 UNTIL CNR=10 0890 ENDPROC 0900 PROC INDTAST(CA,H) 0910 IF C<>3 THEN 0920 REPEAT 0930 REPEAT 0940 CURSOR 3,23 0950 PRINT H;" ";CA$;BLANK$(1:20) 0960 CURSOR 28,23 0970 INPUT TAL$ 0980 L=LEN(TAL$) 0990 UNTIL L>0 AND L<7 1000 P=0;TEST=0 1010 FOR J=1 TO L 1020 P1=INT(ORD(TAL$(J))-48) 1030 IF P1=>0 AND P1<10 THEN 1040 P=P*10+P1 1050 ELSE 1060 TEST=1 1070 ENDIF 1080 NEXT J 1090 UNTIL TEST=0 1100 T1(H-1)=P 1110 ENDIF 1120 CURSOR 3,H*2+3 1130 PRINT H;" ";CA$;T1(H-1) 1140 ENDPROC 1150 PROC FEKST(M,AR,AC,XPOS,LÆ,AF) 1160 IF C<>3 THEN 1170 REPEAT 1180 CURSOR 3,23 1190 PRINT M;AC$;BLANK$;BLANK$(1:10);AF$ 1200 CURSOR XPOS,23 1210 INPUT CB$ 1220 L=LEN(CB$) 1230 UNTIL L>0 AND L<=LÆ 1240 AR$(M)=CB$ 1250 ENDIF 1260 CURSOR 3,M*2+1 1270 PRINT M;AC$;":";AR$(M);BLANK$ 1280 ENDPROC 1290 K1$="P641220:SYSTEM1" 1300 OPEN K1$,R 1310 EXEC FEJL(1,1,K1$) 1320 GET K1$,10:N$ 1330 EXEC FEJL(1,2,K1$) 1340 GET K1$,36:K2$ 1350 EXEC FEJL(1,3,K1$) 1360 CLOSE K1$ 1370 EXEC FEJL(1,4,K1$) 1380 K2$=N$+K2$ 1390 OPEN K2$,R 1400 EXEC FEJL(1,5,K2$) 1410 GET K2$,1:MOMS$ 1420 EXEC FEJL(1,6,K2$) 1430 GET K2$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 1440 EXEC FEJL(1,7,K2$) 1450 FOR I=1 TO 3 1460 J=(I-1)*3+1 1470 GET K2$,I+2:LAND$(J),LAND$(J+1),LAND$(J+2) 1480 EXEC FEJL(1,8,K2$) 1490 NEXT I 1500 FOR I=1 TO 3 1510 J=(I-1)*3+1 1520 GET K2$,I+5:TFIL$(J),TFIL$(J+1),TFIL$(J+2) 1530 EXEC FEJL(1,9,K2$) 1540 NEXT I 1550 GET K2$,18:AB$(1) 1560 EXEC FEJL(2,10,K2$) 1570 GET K2$,19:AB$(2) 1580 EXEC FEJL(2,11,K2$) 1590 GET K2$,20:AB$(5),AB$(4),AB$(3) 1600 EXEC FEJL(2,12,K2$) 1610 CLOSE K2$ 1620 EXEC FEJL(1,10,K2$) 1630 AD$(1)="Navn" 1640 AD$(2)="Gade" 1650 AD$(3)="Postnr" 1660 AD$(4)="By" 1670 AD$(5)="Diverse" 1680 AE$(1)="(max 30 tegn)" 1690 AE$(2)="(max 30 tegn)" 1700 AE$(3)="(max 4 tegn)" 1710 AE$(4)="(max 20 tegn)" 1720 AE$(5)="(listeoverskrift max 10 tegn)" 1730 BLANK$=" " 1740 REPEAT 1750 CLEAR 1760 CURSOR 20,1 1770 PRINT "Systemvedligeholdelse";BLANK$ 1780 CURSOR 15,7 1790 PRINT "0: Færdig" 1800 CURSOR 15,9 1810 PRINT "1: Diverse" 1820 CURSOR 15,11 1830 PRINT "2: Landenavne" 1840 CURSOR 15,13 1850 PRINT "3: Bogholderitekster" 1860 CURSOR 15,15 1870 PRINT "4: Firmaoplysninger" 1880 REPEAT 1890 CURSOR 18,17 1900 INPUT "Vælg type (0-4) :",D$ 1910 UNTIL D$=>"0" AND D$<"5" 1920 IF D$<>"0" THEN 1930 REPEAT 1940 CASE D$ OF 1950 STOP 1960 WHEN "1" 1970 F$="Diverse" 1980 WHEN "2" 1990 F$="Landenavne" 2000 WHEN "3" 2010 F$="Bogholderitekster" 2020 WHEN "4" 2030 F$="Firmaoplysninger" 2040 ENDCASE 2050 EXEC START(F$) 2060 IF C=0 THEN EXIT 2070 CASE D$ OF 2080 STOP 2090 WHEN "1" 2100 EXEC INDTASTNING(1) 2110 WHEN "2" 2120 FOR J=1 TO 9 2130 EXEC FEKST(J,LAND$,BLANK$(1),5,12,BLANK$(1)) 2140 NEXT J 2150 WHEN "3" 2160 FOR J=1 TO 9 2170 EXEC FEKST(J,TFIL$,BLANK$(1),5,12,BLANK$(1)) 2180 NEXT J 2190 WHEN "4" 2200 FOR J=1 TO 5 2210 J1=30-(J=3)*26-(J=4)*10-(J=5)*20 2220 EXEC FEKST(J,AB$,AD$(J),13,J1,AE$(J)) 2230 NEXT J 2240 ENDCASE 2250 C=2 2260 REPEAT 2270 REPEAT 2280 CURSOR 3,23 2290 PRINT "Hvilket felt ønskes ændret , 0 for færdig";BLANK$ 2300 CURSOR 45,23 2310 INPUT A$ 2320 K=ORD(A$)-48 2330 UNTIL K>-1 AND K<10 2340 IF K=0 THEN EXIT 2350 CASE D$ OF 2360 STOP 2370 WHEN "1" 2380 EXEC INDTASTNING(K) 2390 WHEN "2" 2400 EXEC FEKST(K,LAND$,BLANK$(1),5,12,BLANK$(1)) 2410 WHEN "3" 2420 EXEC FEKST(K,TFIL$,BLANK$(1),5,12,BLANK$(1)) 2430 WHEN "4" 2440 IF K<6 THEN 2450 J1=30-(K=3)*26-(K=4)*10-(K=5)*20 2460 EXEC FEKST(K,AB$,AD$(K),13,J1,AE$(K)) 2470 ENDIF 2480 ENDCASE 2490 UNTIL K=0 2500 UNTIL C=0 2510 ENDIF 2520 UNTIL D$="0" 2530 OPEN K2$,W 2540 EXEC FEJL(2,1,K2$) 2550 PUT K2$,1:MOMS$ 2560 EXEC FEJL(2,2,K2$) 2570 PUT K2$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 2580 EXEC FEJL(2,3,K2$) 2590 FOR I=1 TO 3 2600 J=(I-1)*3+1 2610 PUT K2$,I+2:LAND$(J),LAND$(J+1),LAND$(J+2) 2620 EXEC FEJL(2,4,K2$) 2630 NEXT I 2640 FOR I=1 TO 3 2650 J=(I-1)*3+1 2660 PUT K2$,I+5:TFIL$(J),TFIL$(J+1),TFIL$(J+2) 2670 EXEC FEJL(2,5,K2$) 2680 NEXT I 2690 PUT K2$,18:AB$(1) 2700 EXEC FEJL(2,15,K2$) 2710 PUT K2$,19:AB$(2) 2720 EXEC FEJL(2,16,K2$) 2730 PUT K2$,20:AB$(5,1:10),AB$(4,1:20),AB$(3,1:4) 2740 EXEC FEJL(2,17,K2$) 2750 CLOSE K2$ 2760 EXEC FEJL(2,6,K2$) 2770 CHAIN "P641210:OPSTART"
0x0000…0012 Line {l1=0x10, l2=»0100 REM SYSVEDL«, l3=0x10}
0x0012…004d Line {l1=0x39, l2=»0110 DIM MOMS$(12),LAND$(10,12),CB$(30),OP1$(12),OP2$(12)«, l3=0x39}
0x004d…0097 Line {l1=0x48, l2=»0120 DIM RES$(14),TAL$(14),BLANK$(25),K1$(17),K2$(17),N$(6),D$(2),F$(17)«, l3=0x48}
0x0097…00dd Line {l1=0x44, l2=»0130 DIM B$(2),A$(1),T1(9),TFIL$(18,10),AD$(5,7),AE$(5,29),AB$(5,30)«, l3=0x44}
0x00dd…00e9 Line {l1=0x0a, l2=»0140 ART=0«, l3=0x0a}
0x00e9…0108 Line {l1=0x1d, l2=»0150 PROC CALC(ART1,B1,B2,ES)«, l3=0x1d}
0x0108…013e Line {l1=0x34, l2=»0160 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=ART1«, l3=0x34}
0x013e…0158 Line {l1=0x18, l2=»0170 CALL "P641210:REGN"«, l3=0x18}
0x0158…0167 Line {l1=0x0d, l2=»0180 ES$=RES$«, l3=0x0d}
0x0167…0180 Line {l1=0x17, l2=»0190 IF FLAG THEN STOP «, l3=0x17}
0x0180…018f Line {l1=0x0d, l2=»0200 ENDPROC «, l3=0x0d}
0x018f…01ac Line {l1=0x1b, l2=»0210 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x01ac…01cb Line {l1=0x1d, l2=»0220 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x01cb…01f1 Line {l1=0x24, l2=»0230 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x01f1…01fd Line {l1=0x0a, l2=»0240 STOP «, l3=0x0a}
0x01fd…020a Line {l1=0x0b, l2=»0250 ENDIF «, l3=0x0b}
0x020a…0219 Line {l1=0x0d, l2=»0260 ENDPROC «, l3=0x0d}
0x0219…022d Line {l1=0x12, l2=»0270 PROC START(G)«, l3=0x12}
0x022d…023a Line {l1=0x0b, l2=»0280 CLEAR «, l3=0x0b}
0x023a…024c Line {l1=0x10, l2=»0290 CURSOR 20,1«, l3=0x10}
0x024c…0275 Line {l1=0x27, l2=»0300 PRINT "Systemvedligeholdelse ";G$«, l3=0x27}
0x0275…0287 Line {l1=0x10, l2=»0310 CURSOR 15,9«, l3=0x10}
0x0287…029f Line {l1=0x16, l2=»0320 PRINT "0: Færdig"«, l3=0x16}
0x029f…02b2 Line {l1=0x11, l2=»0330 CURSOR 15,11«, l3=0x11}
0x02b2…02ce Line {l1=0x1a, l2=»0340 PRINT "1: Oprettelse"«, l3=0x1a}
0x02ce…02e1 Line {l1=0x11, l2=»0350 CURSOR 15,13«, l3=0x11}
0x02e1…02fa Line {l1=0x17, l2=»0360 PRINT "2: Ændring"«, l3=0x17}
0x02fa…0308 Line {l1=0x0c, l2=»0370 REPEAT «, l3=0x0c}
0x0308…031b Line {l1=0x11, l2=»0380 CURSOR 18,15«, l3=0x11}
0x031b…033e Line {l1=0x21, l2=»0390 INPUT "Vælg type (0-2): ",B$«, l3=0x21}
0x033e…035d Line {l1=0x1d, l2=»0400 UNTIL B$=>"0" AND B$<"3"«, l3=0x1d}
0x035d…0370 Line {l1=0x11, l2=»0410 C=ORD(B$)-48«, l3=0x11}
0x0370…0386 Line {l1=0x14, l2=»0420 IF C=2 THEN C=3«, l3=0x14}
0x0386…0393 Line {l1=0x0b, l2=»0430 CLEAR «, l3=0x0b}
0x0393…03a5 Line {l1=0x10, l2=»0440 CURSOR 20,1«, l3=0x10}
0x03a5…03ce Line {l1=0x27, l2=»0450 PRINT "Systemvedligeholdelse ";G$«, l3=0x27}
0x03ce…03dd Line {l1=0x0d, l2=»0460 ENDPROC «, l3=0x0d}
0x03dd…03f9 Line {l1=0x1a, l2=»0470 PROC INDTASTNING(CNR)«, l3=0x1a}
0x03f9…0407 Line {l1=0x0c, l2=»0480 REPEAT «, l3=0x0c}
0x0407…041a Line {l1=0x11, l2=»0490 CASE CNR OF «, l3=0x11}
0x041a…0426 Line {l1=0x0a, l2=»0500 STOP «, l3=0x0a}
0x0426…0433 Line {l1=0x0b, l2=»0510 WHEN 1«, l3=0x0b}
0x0433…0447 Line {l1=0x12, l2=»0520 IF C<>3 THEN «, l3=0x12}
0x0447…0455 Line {l1=0x0c, l2=»0530 REPEAT «, l3=0x0c}
0x0455…0467 Line {l1=0x10, l2=»0540 CURSOR 3,23«, l3=0x10}
0x0467…049d Line {l1=0x34, l2=»0550 PRINT " 1 Momsprocent :";BLANK$(1:20)«, l3=0x34}
0x049d…04b0 Line {l1=0x11, l2=»0560 CURSOR 28,23«, l3=0x11}
0x04b0…04c1 Line {l1=0x0f, l2=»0570 INPUT TAL$«, l3=0x0f}
0x04c1…04d5 Line {l1=0x12, l2=»0580 TAL$=TAL$+"+"«, l3=0x12}
0x04d5…04f7 Line {l1=0x20, l2=»0590 EXEC CALC(5,TAL$,TAL$,TAL$)«, l3=0x20}
0x04f7…050a Line {l1=0x11, l2=»0600 UNTIL FLAG=0«, l3=0x11}
0x050a…0521 Line {l1=0x15, l2=»0610 MOMS$=TAL$(3:12)«, l3=0x15}
0x0521…052e Line {l1=0x0b, l2=»0620 ENDIF «, l3=0x0b}
0x052e…053f Line {l1=0x0f, l2=»0630 CURSOR 4,5«, l3=0x0f}
0x053f…0573 Line {l1=0x32, l2=»0640 PRINT "1 Momsprocent :";MOMS$(1:11)«, l3=0x32}
0x0573…0580 Line {l1=0x0b, l2=»0650 WHEN 2«, l3=0x0b}
0x0580…05a3 Line {l1=0x21, l2=»0660 CB$="Fakturanummer :"«, l3=0x21}
0x05a3…05b0 Line {l1=0x0b, l2=»0670 WHEN 3«, l3=0x0b}
0x05b0…05d3 Line {l1=0x21, l2=»0680 CB$="Kreditnotanummer :"«, l3=0x21}
0x05d3…05e0 Line {l1=0x0b, l2=»0690 WHEN 4«, l3=0x0b}
0x05e0…0603 Line {l1=0x21, l2=»0700 CB$="Fakturajournalside :"«, l3=0x21}
0x0603…0610 Line {l1=0x0b, l2=»0710 WHEN 5«, l3=0x0b}
0x0610…0633 Line {l1=0x21, l2=»0720 CB$="Kasserapportside :"«, l3=0x21}
0x0633…0640 Line {l1=0x0b, l2=»0730 WHEN 6«, l3=0x0b}
0x0640…0663 Line {l1=0x21, l2=»0740 CB$="Posteringsarkside :"«, l3=0x21}
0x0663…0670 Line {l1=0x0b, l2=»0750 WHEN 7«, l3=0x0b}
0x0670…0693 Line {l1=0x21, l2=»0760 CB$="Bogholderijournalside:"«, l3=0x21}
0x0693…06a0 Line {l1=0x0b, l2=»0770 WHEN 8«, l3=0x0b}
0x06a0…06c3 Line {l1=0x21, l2=»0780 CB$="Dato (ÅÅmmdd) :"«, l3=0x21}
0x06c3…06d0 Line {l1=0x0b, l2=»0790 WHEN 9«, l3=0x0b}
0x06d0…06f3 Line {l1=0x21, l2=»0800 CB$="Bilagsnummer :"«, l3=0x21}
0x06f3…0702 Line {l1=0x0d, l2=»0810 ENDCASE «, l3=0x0d}
0x0702…072d Line {l1=0x29, l2=»0820 IF CNR<>1 THEN EXEC INDTAST(CB$,CNR)«, l3=0x29}
0x072d…0740 Line {l1=0x11, l2=»0830 IF C=2 THEN «, l3=0x11}
0x0740…074d Line {l1=0x0b, l2=»0840 CNR=10«, l3=0x0b}
0x074d…0759 Line {l1=0x0a, l2=»0850 ELSE «, l3=0x0a}
0x0759…0769 Line {l1=0x0e, l2=»0860 CNR=CNR+1«, l3=0x0e}
0x0769…0776 Line {l1=0x0b, l2=»0870 ENDIF «, l3=0x0b}
0x0776…0789 Line {l1=0x11, l2=»0880 UNTIL CNR=10«, l3=0x11}
0x0789…0798 Line {l1=0x0d, l2=»0890 ENDPROC «, l3=0x0d}
0x0798…07b1 Line {l1=0x17, l2=»0900 PROC INDTAST(CA,H)«, l3=0x17}
0x07b1…07c5 Line {l1=0x12, l2=»0910 IF C<>3 THEN «, l3=0x12}
0x07c5…07d3 Line {l1=0x0c, l2=»0920 REPEAT «, l3=0x0c}
0x07d3…07e1 Line {l1=0x0c, l2=»0930 REPEAT «, l3=0x0c}
0x07e1…07f3 Line {l1=0x10, l2=»0940 CURSOR 3,23«, l3=0x10}
0x07f3…0816 Line {l1=0x21, l2=»0950 PRINT H;" ";CA$;BLANK$(1:20)«, l3=0x21}
0x0816…0829 Line {l1=0x11, l2=»0960 CURSOR 28,23«, l3=0x11}
0x0829…083a Line {l1=0x0f, l2=»0970 INPUT TAL$«, l3=0x0f}
0x083a…084c Line {l1=0x10, l2=»0980 L=LEN(TAL$)«, l3=0x10}
0x084c…0864 Line {l1=0x16, l2=»0990 UNTIL L>0 AND L<7«, l3=0x16}
0x0864…0875 Line {l1=0x0f, l2=»1000 P=0;TEST=0«, l3=0x0f}
0x0875…0888 Line {l1=0x11, l2=»1010 FOR J=1 TO L«, l3=0x11}
0x0888…08a6 Line {l1=0x1c, l2=»1020 P1=INT(ORD(TAL$(J))-48)«, l3=0x1c}
0x08a6…08c5 Line {l1=0x1d, l2=»1030 IF P1=>0 AND P1<10 THEN «, l3=0x1d}
0x08c5…08d5 Line {l1=0x0e, l2=»1040 P=P*10+P1«, l3=0x0e}
0x08d5…08e1 Line {l1=0x0a, l2=»1050 ELSE «, l3=0x0a}
0x08e1…08ee Line {l1=0x0b, l2=»1060 TEST=1«, l3=0x0b}
0x08ee…08fb Line {l1=0x0b, l2=»1070 ENDIF «, l3=0x0b}
0x08fb…0908 Line {l1=0x0b, l2=»1080 NEXT J«, l3=0x0b}
0x0908…091b Line {l1=0x11, l2=»1090 UNTIL TEST=0«, l3=0x11}
0x091b…092b Line {l1=0x0e, l2=»1100 T1(H-1)=P«, l3=0x0e}
0x092b…0938 Line {l1=0x0b, l2=»1110 ENDIF «, l3=0x0b}
0x0938…094d Line {l1=0x13, l2=»1120 CURSOR 3,H*2+3«, l3=0x13}
0x094d…096b Line {l1=0x1c, l2=»1130 PRINT H;" ";CA$;T1(H-1)«, l3=0x1c}
0x096b…097a Line {l1=0x0d, l2=»1140 ENDPROC «, l3=0x0d}
0x097a…099f Line {l1=0x23, l2=»1150 PROC FEKST(M,AR,AC,XPOS,LÆ,AF)«, l3=0x23}
0x099f…09b3 Line {l1=0x12, l2=»1160 IF C<>3 THEN «, l3=0x12}
0x09b3…09c1 Line {l1=0x0c, l2=»1170 REPEAT «, l3=0x0c}
0x09c1…09d3 Line {l1=0x10, l2=»1180 CURSOR 3,23«, l3=0x10}
0x09d3…09fd Line {l1=0x28, l2=»1190 PRINT M;AC$;BLANK$;BLANK$(1:10);AF$«, l3=0x28}
0x09fd…0a12 Line {l1=0x13, l2=»1200 CURSOR XPOS,23«, l3=0x13}
0x0a12…0a22 Line {l1=0x0e, l2=»1210 INPUT CB$«, l3=0x0e}
0x0a22…0a33 Line {l1=0x0f, l2=»1220 L=LEN(CB$)«, l3=0x0f}
0x0a33…0a4d Line {l1=0x18, l2=»1230 UNTIL L>0 AND L<=LÆ«, l3=0x18}
0x0a4d…0a5e Line {l1=0x0f, l2=»1240 AR$(M)=CB$«, l3=0x0f}
0x0a5e…0a6b Line {l1=0x0b, l2=»1250 ENDIF «, l3=0x0b}
0x0a6b…0a80 Line {l1=0x13, l2=»1260 CURSOR 3,M*2+1«, l3=0x13}
0x0a80…0aa4 Line {l1=0x22, l2=»1270 PRINT M;AC$;":";AR$(M);BLANK$«, l3=0x22}
0x0aa4…0ab3 Line {l1=0x0d, l2=»1280 ENDPROC «, l3=0x0d}
0x0ab3…0acf Line {l1=0x1a, l2=»1290 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x0acf…0ae0 Line {l1=0x0f, l2=»1300 OPEN K1$,R«, l3=0x0f}
0x0ae0…0af9 Line {l1=0x17, l2=»1310 EXEC FEJL(1,1,K1$)«, l3=0x17}
0x0af9…0b0d Line {l1=0x12, l2=»1320 GET K1$,10:N$«, l3=0x12}
0x0b0d…0b26 Line {l1=0x17, l2=»1330 EXEC FEJL(1,2,K1$)«, l3=0x17}
0x0b26…0b3b Line {l1=0x13, l2=»1340 GET K1$,36:K2$«, l3=0x13}
0x0b3b…0b54 Line {l1=0x17, l2=»1350 EXEC FEJL(1,3,K1$)«, l3=0x17}
0x0b54…0b64 Line {l1=0x0e, l2=»1360 CLOSE K1$«, l3=0x0e}
0x0b64…0b7d Line {l1=0x17, l2=»1370 EXEC FEJL(1,4,K1$)«, l3=0x17}
0x0b7d…0b8e Line {l1=0x0f, l2=»1380 K2$=N$+K2$«, l3=0x0f}
0x0b8e…0b9f Line {l1=0x0f, l2=»1390 OPEN K2$,R«, l3=0x0f}
0x0b9f…0bb8 Line {l1=0x17, l2=»1400 EXEC FEJL(1,5,K2$)«, l3=0x17}
0x0bb8…0bce Line {l1=0x14, l2=»1410 GET K2$,1:MOMS$«, l3=0x14}
0x0bce…0be7 Line {l1=0x17, l2=»1420 EXEC FEJL(1,6,K2$)«, l3=0x17}
0x0be7…0c2d Line {l1=0x44, l2=»1430 GET K2$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x44}
0x0c2d…0c46 Line {l1=0x17, l2=»1440 EXEC FEJL(1,7,K2$)«, l3=0x17}
0x0c46…0c59 Line {l1=0x11, l2=»1450 FOR I=1 TO 3«, l3=0x11}
0x0c59…0c6b Line {l1=0x10, l2=»1460 J=(I-1)*3+1«, l3=0x10}
0x0c6b…0c9c Line {l1=0x2f, l2=»1470 GET K2$,I+2:LAND$(J),LAND$(J+1),LAND$(J+2)«, l3=0x2f}
0x0c9c…0cb5 Line {l1=0x17, l2=»1480 EXEC FEJL(1,8,K2$)«, l3=0x17}
0x0cb5…0cc2 Line {l1=0x0b, l2=»1490 NEXT I«, l3=0x0b}
0x0cc2…0cd5 Line {l1=0x11, l2=»1500 FOR I=1 TO 3«, l3=0x11}
0x0cd5…0ce7 Line {l1=0x10, l2=»1510 J=(I-1)*3+1«, l3=0x10}
0x0ce7…0d18 Line {l1=0x2f, l2=»1520 GET K2$,I+5:TFIL$(J),TFIL$(J+1),TFIL$(J+2)«, l3=0x2f}
0x0d18…0d31 Line {l1=0x17, l2=»1530 EXEC FEJL(1,9,K2$)«, l3=0x17}
0x0d31…0d3e Line {l1=0x0b, l2=»1540 NEXT I«, l3=0x0b}
0x0d3e…0d56 Line {l1=0x16, l2=»1550 GET K2$,18:AB$(1)«, l3=0x16}
0x0d56…0d70 Line {l1=0x18, l2=»1560 EXEC FEJL(2,10,K2$)«, l3=0x18}
0x0d70…0d88 Line {l1=0x16, l2=»1570 GET K2$,19:AB$(2)«, l3=0x16}
0x0d88…0da2 Line {l1=0x18, l2=»1580 EXEC FEJL(2,11,K2$)«, l3=0x18}
0x0da2…0dc8 Line {l1=0x24, l2=»1590 GET K2$,20:AB$(5),AB$(4),AB$(3)«, l3=0x24}
0x0dc8…0de2 Line {l1=0x18, l2=»1600 EXEC FEJL(2,12,K2$)«, l3=0x18}
0x0de2…0df2 Line {l1=0x0e, l2=»1610 CLOSE K2$«, l3=0x0e}
0x0df2…0e0c Line {l1=0x18, l2=»1620 EXEC FEJL(1,10,K2$)«, l3=0x18}
0x0e0c…0e20 Line {l1=0x12, l2=»1630 AD$(1)="Navn"«, l3=0x12}
0x0e20…0e34 Line {l1=0x12, l2=»1640 AD$(2)="Gade"«, l3=0x12}
0x0e34…0e4a Line {l1=0x14, l2=»1650 AD$(3)="Postnr"«, l3=0x14}
0x0e4a…0e5c Line {l1=0x10, l2=»1660 AD$(4)="By"«, l3=0x10}
0x0e5c…0e73 Line {l1=0x15, l2=»1670 AD$(5)="Diverse"«, l3=0x15}
0x0e73…0e90 Line {l1=0x1b, l2=»1680 AE$(1)="(max 30 tegn)"«, l3=0x1b}
0x0e90…0ead Line {l1=0x1b, l2=»1690 AE$(2)="(max 30 tegn)"«, l3=0x1b}
0x0ead…0ec9 Line {l1=0x1a, l2=»1700 AE$(3)="(max 4 tegn)"«, l3=0x1a}
0x0ec9…0ee6 Line {l1=0x1b, l2=»1710 AE$(4)="(max 20 tegn)"«, l3=0x1b}
0x0ee6…0f13 Line {l1=0x2b, l2=»1720 AE$(5)="(listeoverskrift max 10 tegn)"«, l3=0x2b}
0x0f13…0f3b Line {l1=0x26, l2=»1730 BLANK$=" "«, l3=0x26}
0x0f3b…0f49 Line {l1=0x0c, l2=»1740 REPEAT «, l3=0x0c}
0x0f49…0f56 Line {l1=0x0b, l2=»1750 CLEAR «, l3=0x0b}
0x0f56…0f68 Line {l1=0x10, l2=»1760 CURSOR 20,1«, l3=0x10}
0x0f68…0f93 Line {l1=0x29, l2=»1770 PRINT "Systemvedligeholdelse";BLANK$«, l3=0x29}
0x0f93…0fa5 Line {l1=0x10, l2=»1780 CURSOR 15,7«, l3=0x10}
0x0fa5…0fbd Line {l1=0x16, l2=»1790 PRINT "0: Færdig"«, l3=0x16}
0x0fbd…0fcf Line {l1=0x10, l2=»1800 CURSOR 15,9«, l3=0x10}
0x0fcf…0fe8 Line {l1=0x17, l2=»1810 PRINT "1: Diverse"«, l3=0x17}
0x0fe8…0ffb Line {l1=0x11, l2=»1820 CURSOR 15,11«, l3=0x11}
0x0ffb…1017 Line {l1=0x1a, l2=»1830 PRINT "2: Landenavne"«, l3=0x1a}
0x1017…102a Line {l1=0x11, l2=»1840 CURSOR 15,13«, l3=0x11}
0x102a…104d Line {l1=0x21, l2=»1850 PRINT "3: Bogholderitekster"«, l3=0x21}
0x104d…1060 Line {l1=0x11, l2=»1860 CURSOR 15,15«, l3=0x11}
0x1060…1082 Line {l1=0x20, l2=»1870 PRINT "4: Firmaoplysninger"«, l3=0x20}
0x1082…1090 Line {l1=0x0c, l2=»1880 REPEAT «, l3=0x0c}
0x1090…10a3 Line {l1=0x11, l2=»1890 CURSOR 18,17«, l3=0x11}
0x10a3…10c6 Line {l1=0x21, l2=»1900 INPUT "Vælg type (0-4) :",D$«, l3=0x21}
0x10c6…10e5 Line {l1=0x1d, l2=»1910 UNTIL D$=>"0" AND D$<"5"«, l3=0x1d}
0x10e5…10fc Line {l1=0x15, l2=»1920 IF D$<>"0" THEN «, l3=0x15}
0x10fc…110a Line {l1=0x0c, l2=»1930 REPEAT «, l3=0x0c}
0x110a…111c Line {l1=0x10, l2=»1940 CASE D$ OF «, l3=0x10}
0x111c…1128 Line {l1=0x0a, l2=»1950 STOP «, l3=0x0a}
0x1128…1137 Line {l1=0x0d, l2=»1960 WHEN "1"«, l3=0x0d}
0x1137…114a Line {l1=0x11, l2=»1970 F$="Diverse"«, l3=0x11}
0x114a…1159 Line {l1=0x0d, l2=»1980 WHEN "2"«, l3=0x0d}
0x1159…116f Line {l1=0x14, l2=»1990 F$="Landenavne"«, l3=0x14}
0x116f…117e Line {l1=0x0d, l2=»2000 WHEN "3"«, l3=0x0d}
0x117e…119b Line {l1=0x1b, l2=»2010 F$="Bogholderitekster"«, l3=0x1b}
0x119b…11aa Line {l1=0x0d, l2=»2020 WHEN "4"«, l3=0x0d}
0x11aa…11c6 Line {l1=0x1a, l2=»2030 F$="Firmaoplysninger"«, l3=0x1a}
0x11c6…11d5 Line {l1=0x0d, l2=»2040 ENDCASE «, l3=0x0d}
0x11d5…11ea Line {l1=0x13, l2=»2050 EXEC START(F$)«, l3=0x13}
0x11ea…1202 Line {l1=0x16, l2=»2060 IF C=0 THEN EXIT «, l3=0x16}
0x1202…1214 Line {l1=0x10, l2=»2070 CASE D$ OF «, l3=0x10}
0x1214…1220 Line {l1=0x0a, l2=»2080 STOP «, l3=0x0a}
0x1220…122f Line {l1=0x0d, l2=»2090 WHEN "1"«, l3=0x0d}
0x122f…1249 Line {l1=0x18, l2=»2100 EXEC INDTASTNING(1)«, l3=0x18}
0x1249…1258 Line {l1=0x0d, l2=»2110 WHEN "2"«, l3=0x0d}
0x1258…126b Line {l1=0x11, l2=»2120 FOR J=1 TO 9«, l3=0x11}
0x126b…129e Line {l1=0x31, l2=»2130 EXEC FEKST(J,LAND$,BLANK$(1),5,12,BLANK$(1))«, l3=0x31}
0x129e…12ab Line {l1=0x0b, l2=»2140 NEXT J«, l3=0x0b}
0x12ab…12ba Line {l1=0x0d, l2=»2150 WHEN "3"«, l3=0x0d}
0x12ba…12cd Line {l1=0x11, l2=»2160 FOR J=1 TO 9«, l3=0x11}
0x12cd…1300 Line {l1=0x31, l2=»2170 EXEC FEKST(J,TFIL$,BLANK$(1),5,12,BLANK$(1))«, l3=0x31}
0x1300…130d Line {l1=0x0b, l2=»2180 NEXT J«, l3=0x0b}
0x130d…131c Line {l1=0x0d, l2=»2190 WHEN "4"«, l3=0x0d}
0x131c…132f Line {l1=0x11, l2=»2200 FOR J=1 TO 5«, l3=0x11}
0x132f…1356 Line {l1=0x25, l2=»2210 J1=30-(J=3)*26-(J=4)*10-(J=5)*20«, l3=0x25}
0x1356…1382 Line {l1=0x2a, l2=»2220 EXEC FEKST(J,AB$,AD$(J),13,J1,AE$(J))«, l3=0x2a}
0x1382…138f Line {l1=0x0b, l2=»2230 NEXT J«, l3=0x0b}
0x138f…139e Line {l1=0x0d, l2=»2240 ENDCASE «, l3=0x0d}
0x139e…13a8 Line {l1=0x08, l2=»2250 C=2«, l3=0x08}
0x13a8…13b6 Line {l1=0x0c, l2=»2260 REPEAT «, l3=0x0c}
0x13b6…13c4 Line {l1=0x0c, l2=»2270 REPEAT «, l3=0x0c}
0x13c4…13d6 Line {l1=0x10, l2=»2280 CURSOR 3,23«, l3=0x10}
0x13d6…1415 Line {l1=0x3d, l2=»2290 PRINT "Hvilket felt ønskes ændret , 0 for færdig";BLANK$«, l3=0x3d}
0x1415…1428 Line {l1=0x11, l2=»2300 CURSOR 45,23«, l3=0x11}
0x1428…1437 Line {l1=0x0d, l2=»2310 INPUT A$«, l3=0x0d}
0x1437…144a Line {l1=0x11, l2=»2320 K=ORD(A$)-48«, l3=0x11}
0x144a…1464 Line {l1=0x18, l2=»2330 UNTIL K>-1 AND K<10«, l3=0x18}
0x1464…147c Line {l1=0x16, l2=»2340 IF K=0 THEN EXIT «, l3=0x16}
0x147c…148e Line {l1=0x10, l2=»2350 CASE D$ OF «, l3=0x10}
0x148e…149a Line {l1=0x0a, l2=»2360 STOP «, l3=0x0a}
0x149a…14a9 Line {l1=0x0d, l2=»2370 WHEN "1"«, l3=0x0d}
0x14a9…14c3 Line {l1=0x18, l2=»2380 EXEC INDTASTNING(K)«, l3=0x18}
0x14c3…14d2 Line {l1=0x0d, l2=»2390 WHEN "2"«, l3=0x0d}
0x14d2…1505 Line {l1=0x31, l2=»2400 EXEC FEKST(K,LAND$,BLANK$(1),5,12,BLANK$(1))«, l3=0x31}
0x1505…1514 Line {l1=0x0d, l2=»2410 WHEN "3"«, l3=0x0d}
0x1514…1547 Line {l1=0x31, l2=»2420 EXEC FEKST(K,TFIL$,BLANK$(1),5,12,BLANK$(1))«, l3=0x31}
0x1547…1556 Line {l1=0x0d, l2=»2430 WHEN "4"«, l3=0x0d}
0x1556…1569 Line {l1=0x11, l2=»2440 IF K<6 THEN «, l3=0x11}
0x1569…1590 Line {l1=0x25, l2=»2450 J1=30-(K=3)*26-(K=4)*10-(K=5)*20«, l3=0x25}
0x1590…15bc Line {l1=0x2a, l2=»2460 EXEC FEKST(K,AB$,AD$(K),13,J1,AE$(K))«, l3=0x2a}
0x15bc…15c9 Line {l1=0x0b, l2=»2470 ENDIF «, l3=0x0b}
0x15c9…15d8 Line {l1=0x0d, l2=»2480 ENDCASE «, l3=0x0d}
0x15d8…15e8 Line {l1=0x0e, l2=»2490 UNTIL K=0«, l3=0x0e}
0x15e8…15f8 Line {l1=0x0e, l2=»2500 UNTIL C=0«, l3=0x0e}
0x15f8…1605 Line {l1=0x0b, l2=»2510 ENDIF «, l3=0x0b}
0x1605…1618 Line {l1=0x11, l2=»2520 UNTIL D$="0"«, l3=0x11}
0x1618…1629 Line {l1=0x0f, l2=»2530 OPEN K2$,W«, l3=0x0f}
0x1629…1642 Line {l1=0x17, l2=»2540 EXEC FEJL(2,1,K2$)«, l3=0x17}
0x1642…1658 Line {l1=0x14, l2=»2550 PUT K2$,1:MOMS$«, l3=0x14}
0x1658…1671 Line {l1=0x17, l2=»2560 EXEC FEJL(2,2,K2$)«, l3=0x17}
0x1671…16b7 Line {l1=0x44, l2=»2570 PUT K2$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x44}
0x16b7…16d0 Line {l1=0x17, l2=»2580 EXEC FEJL(2,3,K2$)«, l3=0x17}
0x16d0…16e3 Line {l1=0x11, l2=»2590 FOR I=1 TO 3«, l3=0x11}
0x16e3…16f5 Line {l1=0x10, l2=»2600 J=(I-1)*3+1«, l3=0x10}
0x16f5…1726 Line {l1=0x2f, l2=»2610 PUT K2$,I+2:LAND$(J),LAND$(J+1),LAND$(J+2)«, l3=0x2f}
0x1726…173f Line {l1=0x17, l2=»2620 EXEC FEJL(2,4,K2$)«, l3=0x17}
0x173f…174c Line {l1=0x0b, l2=»2630 NEXT I«, l3=0x0b}
0x174c…175f Line {l1=0x11, l2=»2640 FOR I=1 TO 3«, l3=0x11}
0x175f…1771 Line {l1=0x10, l2=»2650 J=(I-1)*3+1«, l3=0x10}
0x1771…17a2 Line {l1=0x2f, l2=»2660 PUT K2$,I+5:TFIL$(J),TFIL$(J+1),TFIL$(J+2)«, l3=0x2f}
0x17a2…17bb Line {l1=0x17, l2=»2670 EXEC FEJL(2,5,K2$)«, l3=0x17}
0x17bb…17c8 Line {l1=0x0b, l2=»2680 NEXT I«, l3=0x0b}
0x17c8…17e0 Line {l1=0x16, l2=»2690 PUT K2$,18:AB$(1)«, l3=0x16}
0x17e0…17fa Line {l1=0x18, l2=»2700 EXEC FEJL(2,15,K2$)«, l3=0x18}
0x17fa…1812 Line {l1=0x16, l2=»2710 PUT K2$,19:AB$(2)«, l3=0x16}
0x1812…182c Line {l1=0x18, l2=»2720 EXEC FEJL(2,16,K2$)«, l3=0x18}
0x182c…1860 Line {l1=0x32, l2=»2730 PUT K2$,20:AB$(5,1:10),AB$(4,1:20),AB$(3,1:4)«, l3=0x32}
0x1860…187a Line {l1=0x18, l2=»2740 EXEC FEJL(2,17,K2$)«, l3=0x18}
0x187a…188a Line {l1=0x0e, l2=»2750 CLOSE K2$«, l3=0x0e}
0x188a…18a3 Line {l1=0x17, l2=»2760 EXEC FEJL(2,6,K2$)«, l3=0x17}
0x18a3…18c1 Line {l1=0x1c, l2=»2770 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x18c1…18e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x18e0…1900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x25…]