|
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«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »SYSVEDL.K«
0100 DIM MOMS$(12),LAND$(10,12),CB$(30),OP1$(12),OP2$(12) 0110 DIM RES$(14),TAL$(14),BLANK$(25),K1$(17),K2$(17),N$(6),D$(2),F$(17) 0120 DIM B$(2),A$(1),T1(9),TFIL$(18,10) 0130 ART=0 0140 PROC CALC(ART1,B1,B2,ES) 0150 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=ART1 0160 CALL "P641210:REGN" 0170 ES$=RES$ 0180 IF FLAG THEN STOP 0190 ENDPROC 0200 PROC FEJL(NR1,NR2,NR3) 0210 IF STATUS(NR3$)<>0 THEN 0220 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0230 STOP 0240 ENDIF 0250 ENDPROC 0260 PROC START(G) 0270 CLEAR 0280 CURSOR 20,1 0290 PRINT "Systemvedligeholdelse ";G$ 0300 CURSOR 15,9 0310 PRINT "0: Færdig" 0320 CURSOR 15,11 0330 PRINT "1: Oprettelse" 0340 CURSOR 15,13 0350 PRINT "2: Ændring" 0360 REPEAT 0370 CURSOR 18,15 0380 INPUT "Vælg type (0-2): ",B$ 0390 UNTIL B$=>"0" AND B$<"3" 0400 C=ORD(B$)-48 0410 IF C=2 THEN C=3 0420 CLEAR 0430 CURSOR 20,1 0440 PRINT "Systemvedligeholdelse ";G$ 0450 ENDPROC 0460 PROC INDTASTNING(CNR) 0470 REPEAT 0480 CASE CNR OF 0490 STOP 0500 WHEN 1 0510 IF C<>3 THEN 0520 REPEAT 0530 CURSOR 3,23 0540 PRINT " 1 Momsprocent :";BLANK$(1:20) 0550 CURSOR 28,23 0560 INPUT TAL$ 0570 TAL$=TAL$+"+" 0580 EXEC CALC(5,TAL$,TAL$,TAL$) 0590 UNTIL FLAG=0 0600 MOMS$=TAL$(3:12) 0610 ENDIF 0620 CURSOR 4,5 0630 PRINT "1 Momsprocent :";MOMS$(1:11) 0640 WHEN 2 0650 CB$="Fakturanummer :" 0660 WHEN 3 0670 CB$="Kreditnotanummer :" 0680 WHEN 4 0690 CB$="Fakturajournalside :" 0700 WHEN 5 0710 CB$="Kasserapportside :" 0720 WHEN 6 0730 CB$="Posteringsarkside :" 0740 WHEN 7 0750 CB$="Bogholderijournalside:" 0760 WHEN 8 0770 CB$="Dato (ÅÅmmdd) :" 0780 WHEN 9 0790 CB$="Bilagsnummer :" 0800 ENDCASE 0810 IF CNR<>1 THEN EXEC INDTAST(CB$,CNR) 0820 IF C=2 THEN 0830 CNR=10 0840 ELSE 0850 CNR=CNR+1 0860 ENDIF 0870 UNTIL CNR=10 0880 ENDPROC 0890 PROC INDTAST(CA,H) 0900 IF C<>3 THEN 0910 REPEAT 0920 REPEAT 0930 CURSOR 3,23 0940 PRINT H;" ";CA$;BLANK$(1:20) 0950 CURSOR 28,23 0960 INPUT TAL$ 0970 L=LEN(TAL$) 0980 UNTIL L>0 AND L<7 0990 P=0;TEST=0 1000 FOR J=1 TO L 1010 P1=INT(ORD(TAL$(J))-48) 1020 IF P1=>0 AND P1<10 THEN 1030 P=P*10+P1 1040 ELSE 1050 TEST=1 1060 ENDIF 1070 NEXT J 1080 UNTIL TEST=0 1090 T1(H-1)=P 1100 ENDIF 1110 CURSOR 3,H*2+3 1120 PRINT H;" ";CA$;T1(H-1) 1130 ENDPROC 1140 PROC FEKST(M,AR) 1150 IF C<>3 THEN 1160 REPEAT 1170 CURSOR 3,23 1180 PRINT M;BLANK$;BLANK$ 1190 CURSOR 5,23 1200 INPUT CB$ 1210 L=LEN(CB$) 1220 UNTIL L>0 AND L<13 1230 AR$(M)=CB$ 1240 ENDIF 1250 CURSOR 3,M*2+1 1260 PRINT M;" ";AR$(M);BLANK$ 1270 ENDPROC 1280 K1$="P641220:SYSTEM1" 1290 OPEN K1$,R 1300 EXEC FEJL(1,1,K1$) 1310 GET K1$,10:N$ 1320 EXEC FEJL(1,2,K1$) 1330 GET K1$,36:K2$ 1340 EXEC FEJL(1,3,K1$) 1350 CLOSE K1$ 1360 EXEC FEJL(1,4,K1$) 1370 K2$=N$+K2$ 1380 OPEN K2$,R 1390 EXEC FEJL(1,5,K2$) 1400 GET K2$,1:MOMS$ 1410 EXEC FEJL(1,6,K2$) 1420 GET K2$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 1430 EXEC FEJL(1,7,K2$) 1440 FOR I=1 TO 3 1450 J=(I-1)*3+1 1460 GET K2$,I+2:LAND$(J),LAND$(J+1),LAND$(J+2) 1470 EXEC FEJL(1,8,K2$) 1480 NEXT I 1490 FOR I=1 TO 3 1500 J=(I-1)*3+1 1510 GET K2$,I+5:TFIL$(J),TFIL$(J+1),TFIL$(J+2) 1520 EXEC FEJL(1,9,K2$) 1530 NEXT I 1540 CLOSE K2$ 1550 EXEC FEJL(1,10,K2$) 1560 BLANK$=" " 1570 REPEAT 1580 CLEAR 1590 CURSOR 20,1 1600 PRINT "Systemvedligeholdelse";BLANK$ 1610 CURSOR 15,7 1620 PRINT "0: Færdig" 1630 CURSOR 15,9 1640 PRINT "1: Diverse" 1650 CURSOR 15,11 1660 PRINT "2: Landenavne" 1670 CURSOR 15,13 1680 PRINT "3: Bogholderitekster" 1690 REPEAT 1700 CURSOR 18,15 1710 INPUT "Vælg type (0-3) :",D$ 1720 UNTIL D$=>"0" AND D$<"4" 1730 IF D$<>"0" THEN 1740 REPEAT 1750 CASE D$ OF 1760 STOP 1770 WHEN "1" 1780 F$="Diverse" 1790 WHEN "2" 1800 F$="Landenavne" 1810 WHEN "3" 1820 F$="Bogholderitekster" 1830 ENDCASE 1840 EXEC START(F$) 1850 IF C=0 THEN EXIT 1860 CASE D$ OF 1870 STOP 1880 WHEN "1" 1890 EXEC INDTASTNING(1) 1900 WHEN "2" 1910 FOR J=1 TO 9 1920 EXEC FEKST(J,LAND$) 1930 NEXT J 1940 WHEN "3" 1950 FOR J=1 TO 9 1960 EXEC FEKST(J,TFIL$) 1970 NEXT J 1980 ENDCASE 1990 C=2 2000 REPEAT 2010 REPEAT 2020 CURSOR 3,23 2030 PRINT "Hvilket felt ønskes ændret , 0 for færdig";BLANK$ 2040 CURSOR 45,23 2050 INPUT A$ 2060 K=ORD(A$)-48 2070 UNTIL K>-1 AND K<10 2080 IF K=0 THEN EXIT 2090 CASE D$ OF 2100 STOP 2110 WHEN "1" 2120 EXEC INDTASTNING(K) 2130 WHEN "2" 2140 EXEC FEKST(K,LAND$) 2150 WHEN "3" 2160 EXEC FEKST(K,TFIL$) 2170 ENDCASE 2180 UNTIL K=0 2190 UNTIL C=0 2200 ENDIF 2210 UNTIL D$="0" 2220 OPEN K2$,W 2230 EXEC FEJL(2,1,K2$) 2240 PUT K2$,1:MOMS$ 2250 EXEC FEJL(2,2,K2$) 2260 PUT K2$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 2270 EXEC FEJL(2,3,K2$) 2280 FOR I=1 TO 3 2290 J=(I-1)*3+1 2300 PUT K2$,I+2:LAND$(J),LAND$(J+1),LAND$(J+2) 2310 EXEC FEJL(2,4,K2$) 2320 NEXT I 2330 FOR I=1 TO 3 2340 J=(I-1)*3+1 2350 PUT K2$,I+5:TFIL$(J),TFIL$(J+1),TFIL$(J+2) 2360 EXEC FEJL(2,5,K2$) 2370 NEXT I 2380 CLOSE K2$ 2390 EXEC FEJL(2,6,K2$) 2400 CHAIN "P641210:OPSTART"
0x0000…003b Line {l1=0x39, l2=»0100 DIM MOMS$(12),LAND$(10,12),CB$(30),OP1$(12),OP2$(12)«, l3=0x39}
0x003b…0085 Line {l1=0x48, l2=»0110 DIM RES$(14),TAL$(14),BLANK$(25),K1$(17),K2$(17),N$(6),D$(2),F$(17)«, l3=0x48}
0x0085…00ae Line {l1=0x27, l2=»0120 DIM B$(2),A$(1),T1(9),TFIL$(18,10)«, l3=0x27}
0x00ae…00ba Line {l1=0x0a, l2=»0130 ART=0«, l3=0x0a}
0x00ba…00d9 Line {l1=0x1d, l2=»0140 PROC CALC(ART1,B1,B2,ES)«, l3=0x1d}
0x00d9…010f Line {l1=0x34, l2=»0150 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=ART1«, l3=0x34}
0x010f…0129 Line {l1=0x18, l2=»0160 CALL "P641210:REGN"«, l3=0x18}
0x0129…0138 Line {l1=0x0d, l2=»0170 ES$=RES$«, l3=0x0d}
0x0138…0151 Line {l1=0x17, l2=»0180 IF FLAG THEN STOP «, l3=0x17}
0x0151…0160 Line {l1=0x0d, l2=»0190 ENDPROC «, l3=0x0d}
0x0160…017d Line {l1=0x1b, l2=»0200 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x017d…019c Line {l1=0x1d, l2=»0210 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x019c…01c2 Line {l1=0x24, l2=»0220 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x01c2…01ce Line {l1=0x0a, l2=»0230 STOP «, l3=0x0a}
0x01ce…01db Line {l1=0x0b, l2=»0240 ENDIF «, l3=0x0b}
0x01db…01ea Line {l1=0x0d, l2=»0250 ENDPROC «, l3=0x0d}
0x01ea…01fe Line {l1=0x12, l2=»0260 PROC START(G)«, l3=0x12}
0x01fe…020b Line {l1=0x0b, l2=»0270 CLEAR «, l3=0x0b}
0x020b…021d Line {l1=0x10, l2=»0280 CURSOR 20,1«, l3=0x10}
0x021d…0246 Line {l1=0x27, l2=»0290 PRINT "Systemvedligeholdelse ";G$«, l3=0x27}
0x0246…0258 Line {l1=0x10, l2=»0300 CURSOR 15,9«, l3=0x10}
0x0258…0270 Line {l1=0x16, l2=»0310 PRINT "0: Færdig"«, l3=0x16}
0x0270…0283 Line {l1=0x11, l2=»0320 CURSOR 15,11«, l3=0x11}
0x0283…029f Line {l1=0x1a, l2=»0330 PRINT "1: Oprettelse"«, l3=0x1a}
0x029f…02b2 Line {l1=0x11, l2=»0340 CURSOR 15,13«, l3=0x11}
0x02b2…02cb Line {l1=0x17, l2=»0350 PRINT "2: Ændring"«, l3=0x17}
0x02cb…02d9 Line {l1=0x0c, l2=»0360 REPEAT «, l3=0x0c}
0x02d9…02ec Line {l1=0x11, l2=»0370 CURSOR 18,15«, l3=0x11}
0x02ec…030f Line {l1=0x21, l2=»0380 INPUT "Vælg type (0-2): ",B$«, l3=0x21}
0x030f…032e Line {l1=0x1d, l2=»0390 UNTIL B$=>"0" AND B$<"3"«, l3=0x1d}
0x032e…0341 Line {l1=0x11, l2=»0400 C=ORD(B$)-48«, l3=0x11}
0x0341…0357 Line {l1=0x14, l2=»0410 IF C=2 THEN C=3«, l3=0x14}
0x0357…0364 Line {l1=0x0b, l2=»0420 CLEAR «, l3=0x0b}
0x0364…0376 Line {l1=0x10, l2=»0430 CURSOR 20,1«, l3=0x10}
0x0376…039f Line {l1=0x27, l2=»0440 PRINT "Systemvedligeholdelse ";G$«, l3=0x27}
0x039f…03ae Line {l1=0x0d, l2=»0450 ENDPROC «, l3=0x0d}
0x03ae…03ca Line {l1=0x1a, l2=»0460 PROC INDTASTNING(CNR)«, l3=0x1a}
0x03ca…03d8 Line {l1=0x0c, l2=»0470 REPEAT «, l3=0x0c}
0x03d8…03eb Line {l1=0x11, l2=»0480 CASE CNR OF «, l3=0x11}
0x03eb…03f7 Line {l1=0x0a, l2=»0490 STOP «, l3=0x0a}
0x03f7…0404 Line {l1=0x0b, l2=»0500 WHEN 1«, l3=0x0b}
0x0404…0418 Line {l1=0x12, l2=»0510 IF C<>3 THEN «, l3=0x12}
0x0418…0426 Line {l1=0x0c, l2=»0520 REPEAT «, l3=0x0c}
0x0426…0438 Line {l1=0x10, l2=»0530 CURSOR 3,23«, l3=0x10}
0x0438…046e Line {l1=0x34, l2=»0540 PRINT " 1 Momsprocent :";BLANK$(1:20)«, l3=0x34}
0x046e…0481 Line {l1=0x11, l2=»0550 CURSOR 28,23«, l3=0x11}
0x0481…0492 Line {l1=0x0f, l2=»0560 INPUT TAL$«, l3=0x0f}
0x0492…04a6 Line {l1=0x12, l2=»0570 TAL$=TAL$+"+"«, l3=0x12}
0x04a6…04c8 Line {l1=0x20, l2=»0580 EXEC CALC(5,TAL$,TAL$,TAL$)«, l3=0x20}
0x04c8…04db Line {l1=0x11, l2=»0590 UNTIL FLAG=0«, l3=0x11}
0x04db…04f2 Line {l1=0x15, l2=»0600 MOMS$=TAL$(3:12)«, l3=0x15}
0x04f2…04ff Line {l1=0x0b, l2=»0610 ENDIF «, l3=0x0b}
0x04ff…0510 Line {l1=0x0f, l2=»0620 CURSOR 4,5«, l3=0x0f}
0x0510…0544 Line {l1=0x32, l2=»0630 PRINT "1 Momsprocent :";MOMS$(1:11)«, l3=0x32}
0x0544…0551 Line {l1=0x0b, l2=»0640 WHEN 2«, l3=0x0b}
0x0551…0574 Line {l1=0x21, l2=»0650 CB$="Fakturanummer :"«, l3=0x21}
0x0574…0581 Line {l1=0x0b, l2=»0660 WHEN 3«, l3=0x0b}
0x0581…05a4 Line {l1=0x21, l2=»0670 CB$="Kreditnotanummer :"«, l3=0x21}
0x05a4…05b1 Line {l1=0x0b, l2=»0680 WHEN 4«, l3=0x0b}
0x05b1…05d4 Line {l1=0x21, l2=»0690 CB$="Fakturajournalside :"«, l3=0x21}
0x05d4…05e1 Line {l1=0x0b, l2=»0700 WHEN 5«, l3=0x0b}
0x05e1…0604 Line {l1=0x21, l2=»0710 CB$="Kasserapportside :"«, l3=0x21}
0x0604…0611 Line {l1=0x0b, l2=»0720 WHEN 6«, l3=0x0b}
0x0611…0634 Line {l1=0x21, l2=»0730 CB$="Posteringsarkside :"«, l3=0x21}
0x0634…0641 Line {l1=0x0b, l2=»0740 WHEN 7«, l3=0x0b}
0x0641…0664 Line {l1=0x21, l2=»0750 CB$="Bogholderijournalside:"«, l3=0x21}
0x0664…0671 Line {l1=0x0b, l2=»0760 WHEN 8«, l3=0x0b}
0x0671…0694 Line {l1=0x21, l2=»0770 CB$="Dato (ÅÅmmdd) :"«, l3=0x21}
0x0694…06a1 Line {l1=0x0b, l2=»0780 WHEN 9«, l3=0x0b}
0x06a1…06c4 Line {l1=0x21, l2=»0790 CB$="Bilagsnummer :"«, l3=0x21}
0x06c4…06d3 Line {l1=0x0d, l2=»0800 ENDCASE «, l3=0x0d}
0x06d3…06fe Line {l1=0x29, l2=»0810 IF CNR<>1 THEN EXEC INDTAST(CB$,CNR)«, l3=0x29}
0x06fe…0711 Line {l1=0x11, l2=»0820 IF C=2 THEN «, l3=0x11}
0x0711…071e Line {l1=0x0b, l2=»0830 CNR=10«, l3=0x0b}
0x071e…072a Line {l1=0x0a, l2=»0840 ELSE «, l3=0x0a}
0x072a…073a Line {l1=0x0e, l2=»0850 CNR=CNR+1«, l3=0x0e}
0x073a…0747 Line {l1=0x0b, l2=»0860 ENDIF «, l3=0x0b}
0x0747…075a Line {l1=0x11, l2=»0870 UNTIL CNR=10«, l3=0x11}
0x075a…0769 Line {l1=0x0d, l2=»0880 ENDPROC «, l3=0x0d}
0x0769…0782 Line {l1=0x17, l2=»0890 PROC INDTAST(CA,H)«, l3=0x17}
0x0782…0796 Line {l1=0x12, l2=»0900 IF C<>3 THEN «, l3=0x12}
0x0796…07a4 Line {l1=0x0c, l2=»0910 REPEAT «, l3=0x0c}
0x07a4…07b2 Line {l1=0x0c, l2=»0920 REPEAT «, l3=0x0c}
0x07b2…07c4 Line {l1=0x10, l2=»0930 CURSOR 3,23«, l3=0x10}
0x07c4…07e7 Line {l1=0x21, l2=»0940 PRINT H;" ";CA$;BLANK$(1:20)«, l3=0x21}
0x07e7…07fa Line {l1=0x11, l2=»0950 CURSOR 28,23«, l3=0x11}
0x07fa…080b Line {l1=0x0f, l2=»0960 INPUT TAL$«, l3=0x0f}
0x080b…081d Line {l1=0x10, l2=»0970 L=LEN(TAL$)«, l3=0x10}
0x081d…0835 Line {l1=0x16, l2=»0980 UNTIL L>0 AND L<7«, l3=0x16}
0x0835…0846 Line {l1=0x0f, l2=»0990 P=0;TEST=0«, l3=0x0f}
0x0846…0859 Line {l1=0x11, l2=»1000 FOR J=1 TO L«, l3=0x11}
0x0859…0877 Line {l1=0x1c, l2=»1010 P1=INT(ORD(TAL$(J))-48)«, l3=0x1c}
0x0877…0896 Line {l1=0x1d, l2=»1020 IF P1=>0 AND P1<10 THEN «, l3=0x1d}
0x0896…08a6 Line {l1=0x0e, l2=»1030 P=P*10+P1«, l3=0x0e}
0x08a6…08b2 Line {l1=0x0a, l2=»1040 ELSE «, l3=0x0a}
0x08b2…08bf Line {l1=0x0b, l2=»1050 TEST=1«, l3=0x0b}
0x08bf…08cc Line {l1=0x0b, l2=»1060 ENDIF «, l3=0x0b}
0x08cc…08d9 Line {l1=0x0b, l2=»1070 NEXT J«, l3=0x0b}
0x08d9…08ec Line {l1=0x11, l2=»1080 UNTIL TEST=0«, l3=0x11}
0x08ec…08fc Line {l1=0x0e, l2=»1090 T1(H-1)=P«, l3=0x0e}
0x08fc…0909 Line {l1=0x0b, l2=»1100 ENDIF «, l3=0x0b}
0x0909…091e Line {l1=0x13, l2=»1110 CURSOR 3,H*2+3«, l3=0x13}
0x091e…093c Line {l1=0x1c, l2=»1120 PRINT H;" ";CA$;T1(H-1)«, l3=0x1c}
0x093c…094b Line {l1=0x0d, l2=»1130 ENDPROC «, l3=0x0d}
0x094b…0962 Line {l1=0x15, l2=»1140 PROC FEKST(M,AR)«, l3=0x15}
0x0962…0976 Line {l1=0x12, l2=»1150 IF C<>3 THEN «, l3=0x12}
0x0976…0984 Line {l1=0x0c, l2=»1160 REPEAT «, l3=0x0c}
0x0984…0996 Line {l1=0x10, l2=»1170 CURSOR 3,23«, l3=0x10}
0x0996…09b2 Line {l1=0x1a, l2=»1180 PRINT M;BLANK$;BLANK$«, l3=0x1a}
0x09b2…09c4 Line {l1=0x10, l2=»1190 CURSOR 5,23«, l3=0x10}
0x09c4…09d4 Line {l1=0x0e, l2=»1200 INPUT CB$«, l3=0x0e}
0x09d4…09e5 Line {l1=0x0f, l2=»1210 L=LEN(CB$)«, l3=0x0f}
0x09e5…09fe Line {l1=0x17, l2=»1220 UNTIL L>0 AND L<13«, l3=0x17}
0x09fe…0a0f Line {l1=0x0f, l2=»1230 AR$(M)=CB$«, l3=0x0f}
0x0a0f…0a1c Line {l1=0x0b, l2=»1240 ENDIF «, l3=0x0b}
0x0a1c…0a31 Line {l1=0x13, l2=»1250 CURSOR 3,M*2+1«, l3=0x13}
0x0a31…0a51 Line {l1=0x1e, l2=»1260 PRINT M;" ";AR$(M);BLANK$«, l3=0x1e}
0x0a51…0a60 Line {l1=0x0d, l2=»1270 ENDPROC «, l3=0x0d}
0x0a60…0a7c Line {l1=0x1a, l2=»1280 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x0a7c…0a8d Line {l1=0x0f, l2=»1290 OPEN K1$,R«, l3=0x0f}
0x0a8d…0aa6 Line {l1=0x17, l2=»1300 EXEC FEJL(1,1,K1$)«, l3=0x17}
0x0aa6…0aba Line {l1=0x12, l2=»1310 GET K1$,10:N$«, l3=0x12}
0x0aba…0ad3 Line {l1=0x17, l2=»1320 EXEC FEJL(1,2,K1$)«, l3=0x17}
0x0ad3…0ae8 Line {l1=0x13, l2=»1330 GET K1$,36:K2$«, l3=0x13}
0x0ae8…0b01 Line {l1=0x17, l2=»1340 EXEC FEJL(1,3,K1$)«, l3=0x17}
0x0b01…0b11 Line {l1=0x0e, l2=»1350 CLOSE K1$«, l3=0x0e}
0x0b11…0b2a Line {l1=0x17, l2=»1360 EXEC FEJL(1,4,K1$)«, l3=0x17}
0x0b2a…0b3b Line {l1=0x0f, l2=»1370 K2$=N$+K2$«, l3=0x0f}
0x0b3b…0b4c Line {l1=0x0f, l2=»1380 OPEN K2$,R«, l3=0x0f}
0x0b4c…0b65 Line {l1=0x17, l2=»1390 EXEC FEJL(1,5,K2$)«, l3=0x17}
0x0b65…0b7b Line {l1=0x14, l2=»1400 GET K2$,1:MOMS$«, l3=0x14}
0x0b7b…0b94 Line {l1=0x17, l2=»1410 EXEC FEJL(1,6,K2$)«, l3=0x17}
0x0b94…0bda Line {l1=0x44, l2=»1420 GET K2$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x44}
0x0bda…0bf3 Line {l1=0x17, l2=»1430 EXEC FEJL(1,7,K2$)«, l3=0x17}
0x0bf3…0c06 Line {l1=0x11, l2=»1440 FOR I=1 TO 3«, l3=0x11}
0x0c06…0c18 Line {l1=0x10, l2=»1450 J=(I-1)*3+1«, l3=0x10}
0x0c18…0c49 Line {l1=0x2f, l2=»1460 GET K2$,I+2:LAND$(J),LAND$(J+1),LAND$(J+2)«, l3=0x2f}
0x0c49…0c62 Line {l1=0x17, l2=»1470 EXEC FEJL(1,8,K2$)«, l3=0x17}
0x0c62…0c6f Line {l1=0x0b, l2=»1480 NEXT I«, l3=0x0b}
0x0c6f…0c82 Line {l1=0x11, l2=»1490 FOR I=1 TO 3«, l3=0x11}
0x0c82…0c94 Line {l1=0x10, l2=»1500 J=(I-1)*3+1«, l3=0x10}
0x0c94…0cc5 Line {l1=0x2f, l2=»1510 GET K2$,I+5:TFIL$(J),TFIL$(J+1),TFIL$(J+2)«, l3=0x2f}
0x0cc5…0cde Line {l1=0x17, l2=»1520 EXEC FEJL(1,9,K2$)«, l3=0x17}
0x0cde…0ceb Line {l1=0x0b, l2=»1530 NEXT I«, l3=0x0b}
0x0ceb…0cfb Line {l1=0x0e, l2=»1540 CLOSE K2$«, l3=0x0e}
0x0cfb…0d15 Line {l1=0x18, l2=»1550 EXEC FEJL(1,10,K2$)«, l3=0x18}
0x0d15…0d3d Line {l1=0x26, l2=»1560 BLANK$=" "«, l3=0x26}
0x0d3d…0d4b Line {l1=0x0c, l2=»1570 REPEAT «, l3=0x0c}
0x0d4b…0d58 Line {l1=0x0b, l2=»1580 CLEAR «, l3=0x0b}
0x0d58…0d6a Line {l1=0x10, l2=»1590 CURSOR 20,1«, l3=0x10}
0x0d6a…0d95 Line {l1=0x29, l2=»1600 PRINT "Systemvedligeholdelse";BLANK$«, l3=0x29}
0x0d95…0da7 Line {l1=0x10, l2=»1610 CURSOR 15,7«, l3=0x10}
0x0da7…0dbf Line {l1=0x16, l2=»1620 PRINT "0: Færdig"«, l3=0x16}
0x0dbf…0dd1 Line {l1=0x10, l2=»1630 CURSOR 15,9«, l3=0x10}
0x0dd1…0dea Line {l1=0x17, l2=»1640 PRINT "1: Diverse"«, l3=0x17}
0x0dea…0dfd Line {l1=0x11, l2=»1650 CURSOR 15,11«, l3=0x11}
0x0dfd…0e19 Line {l1=0x1a, l2=»1660 PRINT "2: Landenavne"«, l3=0x1a}
0x0e19…0e2c Line {l1=0x11, l2=»1670 CURSOR 15,13«, l3=0x11}
0x0e2c…0e4f Line {l1=0x21, l2=»1680 PRINT "3: Bogholderitekster"«, l3=0x21}
0x0e4f…0e5d Line {l1=0x0c, l2=»1690 REPEAT «, l3=0x0c}
0x0e5d…0e70 Line {l1=0x11, l2=»1700 CURSOR 18,15«, l3=0x11}
0x0e70…0e93 Line {l1=0x21, l2=»1710 INPUT "Vælg type (0-3) :",D$«, l3=0x21}
0x0e93…0eb2 Line {l1=0x1d, l2=»1720 UNTIL D$=>"0" AND D$<"4"«, l3=0x1d}
0x0eb2…0ec9 Line {l1=0x15, l2=»1730 IF D$<>"0" THEN «, l3=0x15}
0x0ec9…0ed7 Line {l1=0x0c, l2=»1740 REPEAT «, l3=0x0c}
0x0ed7…0ee9 Line {l1=0x10, l2=»1750 CASE D$ OF «, l3=0x10}
0x0ee9…0ef5 Line {l1=0x0a, l2=»1760 STOP «, l3=0x0a}
0x0ef5…0f04 Line {l1=0x0d, l2=»1770 WHEN "1"«, l3=0x0d}
0x0f04…0f17 Line {l1=0x11, l2=»1780 F$="Diverse"«, l3=0x11}
0x0f17…0f26 Line {l1=0x0d, l2=»1790 WHEN "2"«, l3=0x0d}
0x0f26…0f3c Line {l1=0x14, l2=»1800 F$="Landenavne"«, l3=0x14}
0x0f3c…0f4b Line {l1=0x0d, l2=»1810 WHEN "3"«, l3=0x0d}
0x0f4b…0f68 Line {l1=0x1b, l2=»1820 F$="Bogholderitekster"«, l3=0x1b}
0x0f68…0f77 Line {l1=0x0d, l2=»1830 ENDCASE «, l3=0x0d}
0x0f77…0f8c Line {l1=0x13, l2=»1840 EXEC START(F$)«, l3=0x13}
0x0f8c…0fa4 Line {l1=0x16, l2=»1850 IF C=0 THEN EXIT «, l3=0x16}
0x0fa4…0fb6 Line {l1=0x10, l2=»1860 CASE D$ OF «, l3=0x10}
0x0fb6…0fc2 Line {l1=0x0a, l2=»1870 STOP «, l3=0x0a}
0x0fc2…0fd1 Line {l1=0x0d, l2=»1880 WHEN "1"«, l3=0x0d}
0x0fd1…0feb Line {l1=0x18, l2=»1890 EXEC INDTASTNING(1)«, l3=0x18}
0x0feb…0ffa Line {l1=0x0d, l2=»1900 WHEN "2"«, l3=0x0d}
0x0ffa…100d Line {l1=0x11, l2=»1910 FOR J=1 TO 9«, l3=0x11}
0x100d…1027 Line {l1=0x18, l2=»1920 EXEC FEKST(J,LAND$)«, l3=0x18}
0x1027…1034 Line {l1=0x0b, l2=»1930 NEXT J«, l3=0x0b}
0x1034…1043 Line {l1=0x0d, l2=»1940 WHEN "3"«, l3=0x0d}
0x1043…1056 Line {l1=0x11, l2=»1950 FOR J=1 TO 9«, l3=0x11}
0x1056…1070 Line {l1=0x18, l2=»1960 EXEC FEKST(J,TFIL$)«, l3=0x18}
0x1070…107d Line {l1=0x0b, l2=»1970 NEXT J«, l3=0x0b}
0x107d…108c Line {l1=0x0d, l2=»1980 ENDCASE «, l3=0x0d}
0x108c…1096 Line {l1=0x08, l2=»1990 C=2«, l3=0x08}
0x1096…10a4 Line {l1=0x0c, l2=»2000 REPEAT «, l3=0x0c}
0x10a4…10b2 Line {l1=0x0c, l2=»2010 REPEAT «, l3=0x0c}
0x10b2…10c4 Line {l1=0x10, l2=»2020 CURSOR 3,23«, l3=0x10}
0x10c4…1103 Line {l1=0x3d, l2=»2030 PRINT "Hvilket felt ønskes ændret , 0 for færdig";BLANK$«, l3=0x3d}
0x1103…1116 Line {l1=0x11, l2=»2040 CURSOR 45,23«, l3=0x11}
0x1116…1125 Line {l1=0x0d, l2=»2050 INPUT A$«, l3=0x0d}
0x1125…1138 Line {l1=0x11, l2=»2060 K=ORD(A$)-48«, l3=0x11}
0x1138…1152 Line {l1=0x18, l2=»2070 UNTIL K>-1 AND K<10«, l3=0x18}
0x1152…116a Line {l1=0x16, l2=»2080 IF K=0 THEN EXIT «, l3=0x16}
0x116a…117c Line {l1=0x10, l2=»2090 CASE D$ OF «, l3=0x10}
0x117c…1188 Line {l1=0x0a, l2=»2100 STOP «, l3=0x0a}
0x1188…1197 Line {l1=0x0d, l2=»2110 WHEN "1"«, l3=0x0d}
0x1197…11b1 Line {l1=0x18, l2=»2120 EXEC INDTASTNING(K)«, l3=0x18}
0x11b1…11c0 Line {l1=0x0d, l2=»2130 WHEN "2"«, l3=0x0d}
0x11c0…11da Line {l1=0x18, l2=»2140 EXEC FEKST(K,LAND$)«, l3=0x18}
0x11da…11e9 Line {l1=0x0d, l2=»2150 WHEN "3"«, l3=0x0d}
0x11e9…1203 Line {l1=0x18, l2=»2160 EXEC FEKST(K,TFIL$)«, l3=0x18}
0x1203…1212 Line {l1=0x0d, l2=»2170 ENDCASE «, l3=0x0d}
0x1212…1222 Line {l1=0x0e, l2=»2180 UNTIL K=0«, l3=0x0e}
0x1222…1232 Line {l1=0x0e, l2=»2190 UNTIL C=0«, l3=0x0e}
0x1232…123f Line {l1=0x0b, l2=»2200 ENDIF «, l3=0x0b}
0x123f…1252 Line {l1=0x11, l2=»2210 UNTIL D$="0"«, l3=0x11}
0x1252…1263 Line {l1=0x0f, l2=»2220 OPEN K2$,W«, l3=0x0f}
0x1263…127c Line {l1=0x17, l2=»2230 EXEC FEJL(2,1,K2$)«, l3=0x17}
0x127c…1292 Line {l1=0x14, l2=»2240 PUT K2$,1:MOMS$«, l3=0x14}
0x1292…12ab Line {l1=0x17, l2=»2250 EXEC FEJL(2,2,K2$)«, l3=0x17}
0x12ab…12f1 Line {l1=0x44, l2=»2260 PUT K2$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x44}
0x12f1…130a Line {l1=0x17, l2=»2270 EXEC FEJL(2,3,K2$)«, l3=0x17}
0x130a…131d Line {l1=0x11, l2=»2280 FOR I=1 TO 3«, l3=0x11}
0x131d…132f Line {l1=0x10, l2=»2290 J=(I-1)*3+1«, l3=0x10}
0x132f…1360 Line {l1=0x2f, l2=»2300 PUT K2$,I+2:LAND$(J),LAND$(J+1),LAND$(J+2)«, l3=0x2f}
0x1360…1379 Line {l1=0x17, l2=»2310 EXEC FEJL(2,4,K2$)«, l3=0x17}
0x1379…1386 Line {l1=0x0b, l2=»2320 NEXT I«, l3=0x0b}
0x1386…1399 Line {l1=0x11, l2=»2330 FOR I=1 TO 3«, l3=0x11}
0x1399…13ab Line {l1=0x10, l2=»2340 J=(I-1)*3+1«, l3=0x10}
0x13ab…13dc Line {l1=0x2f, l2=»2350 PUT K2$,I+5:TFIL$(J),TFIL$(J+1),TFIL$(J+2)«, l3=0x2f}
0x13dc…13f5 Line {l1=0x17, l2=»2360 EXEC FEJL(2,5,K2$)«, l3=0x17}
0x13f5…1402 Line {l1=0x0b, l2=»2370 NEXT I«, l3=0x0b}
0x1402…1412 Line {l1=0x0e, l2=»2380 CLOSE K2$«, l3=0x0e}
0x1412…142b Line {l1=0x17, l2=»2390 EXEC FEJL(2,6,K2$)«, l3=0x17}
0x142b…1449 Line {l1=0x1c, l2=»2400 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x1449…1460 00 00 44 49 4d 20 42 24 28 32 29 2c 41 24 28 31 29 2c 54 31 28 39 29 ┆ DIM B$(2),A$(1),T1(9)┆
0x1460…1480 2c 54 46 49 4c 24 28 31 38 2c 31 30 29 27 0a 30 31 33 30 20 41 52 54 3d 30 0a 1d 30 31 34 30 20 ┆,TFIL$(18,10)' 0130 ART=0 0140 ┆
0x1480…14a0 50 52 4f 43 20 43 41 4c 43 28 41 52 54 31 2c 42 31 2c 42 32 2c 45 53 29 1d 34 30 31 35 30 20 4f ┆PROC CALC(ART1,B1,B2,ES) 40150 O┆
0x14a0…14c0 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┆
[…0x47…]