DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦99c284b29⟧ TextFile

    Length: 5056 (0x13c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »LBILAG.K«

Derivation

└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
    └─⟦this⟧ »LBILAG.K«

Mikados K File

0100PROC CONV(NR2,OK22,CIF) 
0110OK2=OK22 
0120NR2$="" 
0130REPEAT  
0140NR2$=CHR((OK2 MOD 10)+48)+NR2$ 
0150CIF=CIF-E 
0160OK2=OK2 DIV 10 
0170IF CIF<B AND OK2=B THEN CIF=B 
0180UNTIL CIF=B 
0190ENDPROC  
0200PROC INDVIRK 
0210OPEN FIL$,R 
0220EXEC FEJL(B,B,FIL$) 
0230GET FIL$,E:POST3$ 
0240GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM 
0245GET FIL$,V:DAD$ 
0250ENDPROC  
0260PROC CONVDATE(NR1,OK1) 
0270OK11=OK1;NR1$="" 
0280FOR I=8 TO E STEP -E 
0290IF I MOD V=B THEN  
0300NR1$(I)="-" 
0310ELSE  
0320NR1$(I)=CHR(OK11 MOD 10+48) 
0330OK11=OK11 DIV 10 
0340ENDIF  
0350NEXT I 
0360ENDPROC  
0900PROC INLØNMOD(N) 
0902GET FIL1$,G*N-E:POST1$ 
0904GET FIL1$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 
0906EXEC FEJL(E,N,FIL1$) 
0908ENDPROC  
1000DIM STARTPER$(8),DAD$(6) 
1010DIM RES$(15),OP1$(12),OP2$(12),TAH$(12) 
1020DIM TOTAL$(100,12),FIL1$(16),POST1$(71),POST2$(27) 
1030DIM RESUL$(12),RESUL1$(12),POST3$(55),POST4$(34),FIL$(16),AB(100) 
1050DIM MF5$(16) 
1060TAH$="          0+" 
1070DIM BL$(79) 
1080FOR I=E TO 79 
1090BL$=BL$+" " 
1100NEXT I 
1110PROC CALC(AR3,B1,B2,ES) 
1120RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 
1130CALL "P641210:REGN" 
1140IF AR3<6 THEN  
1150IF FLAG THEN STOP  
1160ENDIF  
1170ES$=RES$ 
1180ENDPROC  
1580PROC FEJL(P1,P2,P3) 
1590IF STATUS(P3$)<>B THEN  
1600OUTPUT T 
1610PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 
1620STOP  
1630ENDIF  
1640ENDPROC  
1650FIL$="P641220:VIRKKART" 
1660EXEC INDVIRK 
1670CLOSE FIL$ 
1675FIL1$="P641220:LØNMODRG" 
1680OPEN FIL1$,R 
1710MF5$="P641210:LØNBILAG" 
1720OPEN MF5$,R 
1750GET MF5$:DD 
1755EXEC CONVDATE(STARTPER$,DD) 
1760OUTPUT P 
1765LINIE=B 
1770FOR I=E TO 100 
1780TOTAL$(I)=TAH$ 
1785AB(I)=B 
1790NEXT I 
1810GET MF5$:LMNR,RESUL$ 
1820WHILE STATUS(MF5$)=B 
1825EXEC INLØNMOD(LMNR) 
1830LPI=RPI DIV 10000+E 
1832AB(LPI)=AB(LPI)+E 
1834EXEC CALC(B,RESUL$,TOTAL$(LPI),TOTAL$(LPI)) 
1836PRINT  
1838PRINT  
1840PRINT TAB(37);"L Ø N O V E R F Ø R S E L    Dato ";DAD$ 
1842PRINT  
1844PRINT TAB(5);"LØNKONTOFØRENDE PI"; 
1846PRINT USING "###":LPI-E; 
1848PRINT TAB(45);"AFTALENUMMER ";POST4$(19,22);"/";POST4$(23,24) 
1850PRINT TAB(5);"DISPOSITIONSDAG ";STARTPER$;TAB(45);"ARBEJDSGIVER "; 
1852PRINT POST4$(25,34) 
1854PRINT TAB(5);"LØNMODTAGER" 
1856PRINT TAB(5);POST1$(E,25);TAB(45);POST3$(8,32) 
1858PRINT TAB(5);POST1$(26,48);TAB(45);POST3$(33,55) 
1860PRINT TAB(5);POST1$(49,71);TAB(45);POST4$(E,4);" ";POST4$(5,18) 
1862PRINT TAB(5);POST2$(E,4);" ";POST2$(5,18) 
1864PRINT  
1866PRINT  
1868PRINT TAB(22);"REG NR  TK KONTO NR";TAB(65);"KRONER" 
1870PRINT  
1872FOR I=E TO 10 
1874IF RESUL$(I)=" " THEN RESUL$(I)="*" 
1876NEXT I 
1878PRINT TAB(8);"ANV/UDLIGNET";TAB(23); 
1880PRINT USING "#####  49 ":RPI MOD 10000; 
1882EXEC CONV(OP1$,K1,5) 
1884EXEC CONV(OP2$,K2,5) 
1886OP1$=OP1$+OP2$ 
1888PRINT OP1$;TAB(61);RESUL$(E,10) 
1890FOR I=E TO 7 
1892PRINT  
1894NEXT I 
2000LINIE=LINIE+24 
2075PRINT "============================================================"; 
2076PRINT "==================="; 
2080GET MF5$:LMNR,RESUL$ 
2090ENDWHILE  
2095IF STATUS(MF5$)<>19 THEN EXEC FEJL(LMNR,B,MF5$) 
2130FOR I=E TO 100 
2140IF AB(I)>B THEN  
2150PRINT  
2160PRINT  
2170PRINT TAB(5);"UDSKRIFTSDATO ";DAD$ 
2180PRINT  
2200PRINT TAB(5);"LØNKONTOFØRENDE PI"; 
2210PRINT USING "###":I-E; 
2220PRINT TAB(45);"AFTALENUMMER ";POST4$(19,22);"/";POST4$(23,24) 
2230PRINT TAB(5);"DISPOSITIONSDAG ";STARTPER$;TAB(45);"ARBEJDSGIVER "; 
2240PRINT POST4$(25,34) 
2250PRINT  
2260PRINT  
2270PRINT TAB(5);"**T O T A L B I L A G**" 
2280PRINT  
2290PRINT  
2300PRINT  
2310PRINT  
2320PRINT TAB(65);"KRONER" 
2330PRINT  
2340FOR J=E TO 11 
2350IF TOTAL$(I,J)=" " THEN TOTAL$(I,J)="*" 
2360NEXT J 
2370PRINT TAB(8);"ANTAL BILAG";TAB(24); 
2380PRINT USING "####":AB(I); 
2390PRINT TAB(60);TOTAL$(I,E,11) 
2400FOR J=E TO 7 
2410PRINT  
2420NEXT J 
2500PRINT "============================================================"; 
2510PRINT "==================="; 
2511LINIE=LINIE+24 
2512ENDIF  
2515NEXT I 
2519LINIE=LINIE MOD 72 
2520CLOSE  
2521WHILE LINIE<72 
2522PRINT  
2523LINIE=LINIE+E 
2524ENDWHILE  
2525OUTPUT T 
2530CHAIN "P641210:STARTB"

Mikados K File

0x0000…001e Line {l1=0x1c, l2=»0100PROC CONV(NR2,OK22,CIF) «, l3=0x1c}
0x001e…002d Line {l1=0x0d, l2=»0110OK2=OK22 «, l3=0x0d}
0x002d…003b Line {l1=0x0c, l2=»0120NR2$="" «, l3=0x0c}
0x003b…0049 Line {l1=0x0c, l2=»0130REPEAT  «, l3=0x0c}
0x0049…006e Line {l1=0x23, l2=»0140NR2$=CHR((OK2 MOD 10)+48)+NR2$ «, l3=0x23}
0x006e…007e Line {l1=0x0e, l2=»0150CIF=CIF-E «, l3=0x0e}
0x007e…0093 Line {l1=0x13, l2=»0160OK2=OK2 DIV 10 «, l3=0x13}
0x0093…00b7 Line {l1=0x22, l2=»0170IF CIF<B AND OK2=B THEN CIF=B «, l3=0x22}
0x00b7…00c9 Line {l1=0x10, l2=»0180UNTIL CIF=B «, l3=0x10}
0x00c9…00d8 Line {l1=0x0d, l2=»0190ENDPROC  «, l3=0x0d}
0x00d8…00eb Line {l1=0x11, l2=»0200PROC INDVIRK «, l3=0x11}
0x00eb…00fd Line {l1=0x10, l2=»0210OPEN FIL$,R «, l3=0x10}
0x00fd…0117 Line {l1=0x18, l2=»0220EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x0117…012f Line {l1=0x16, l2=»0230GET FIL$,E:POST3$ «, l3=0x16}
0x012f…0159 Line {l1=0x28, l2=»0240GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x0159…016f Line {l1=0x14, l2=»0245GET FIL$,V:DAD$ «, l3=0x14}
0x016f…017e Line {l1=0x0d, l2=»0250ENDPROC  «, l3=0x0d}
0x017e…019b Line {l1=0x1b, l2=»0260PROC CONVDATE(NR1,OK1) «, l3=0x1b}
0x019b…01b2 Line {l1=0x15, l2=»0270OK11=OK1;NR1$="" «, l3=0x15}
0x01b2…01cd Line {l1=0x19, l2=»0280FOR I=8 TO E STEP -E «, l3=0x19}
0x01cd…01e6 Line {l1=0x17, l2=»0290IF I MOD V=B THEN  «, l3=0x17}
0x01e6…01f8 Line {l1=0x10, l2=»0300NR1$(I)="-" «, l3=0x10}
0x01f8…0204 Line {l1=0x0a, l2=»0310ELSE  «, l3=0x0a}
0x0204…0226 Line {l1=0x20, l2=»0320NR1$(I)=CHR(OK11 MOD 10+48) «, l3=0x20}
0x0226…023d Line {l1=0x15, l2=»0330OK11=OK11 DIV 10 «, l3=0x15}
0x023d…024a Line {l1=0x0b, l2=»0340ENDIF  «, l3=0x0b}
0x024a…0257 Line {l1=0x0b, l2=»0350NEXT I «, l3=0x0b}
0x0257…0266 Line {l1=0x0d, l2=»0360ENDPROC  «, l3=0x0d}
0x0266…027d Line {l1=0x15, l2=»0900PROC INLØNMOD(N) «, l3=0x15}
0x027d…029a Line {l1=0x1b, l2=»0902GET FIL1$,G*N-E:POST1$ «, l3=0x1b}
0x029a…02d7 Line {l1=0x3b, l2=»0904GET FIL1$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD «, l3=0x3b}
0x02d7…02f2 Line {l1=0x19, l2=»0906EXEC FEJL(E,N,FIL1$) «, l3=0x19}
0x02f2…0301 Line {l1=0x0d, l2=»0908ENDPROC  «, l3=0x0d}
0x0301…0320 Line {l1=0x1d, l2=»1000DIM STARTPER$(8),DAD$(6) «, l3=0x1d}
0x0320…034e Line {l1=0x2c, l2=»1010DIM RES$(15),OP1$(12),OP2$(12),TAH$(12) «, l3=0x2c}
0x034e…0387 Line {l1=0x37, l2=»1020DIM TOTAL$(100,12),FIL1$(16),POST1$(71),POST2$(27) «, l3=0x37}
0x0387…03cf Line {l1=0x46, l2=»1030DIM RESUL$(12),RESUL1$(12),POST3$(55),POST4$(34),FIL$(16),AB(100) «, l3=0x46}
0x03cf…03e2 Line {l1=0x11, l2=»1050DIM MF5$(16) «, l3=0x11}
0x03e2…03fc Line {l1=0x18, l2=»1060TAH$="          0+" «, l3=0x18}
0x03fc…040e Line {l1=0x10, l2=»1070DIM BL$(79) «, l3=0x10}
0x040e…0422 Line {l1=0x12, l2=»1080FOR I=E TO 79 «, l3=0x12}
0x0422…0434 Line {l1=0x10, l2=»1090BL$=BL$+" " «, l3=0x10}
0x0434…0441 Line {l1=0x0b, l2=»1100NEXT I «, l3=0x0b}
0x0441…045f Line {l1=0x1c, l2=»1110PROC CALC(AR3,B1,B2,ES) «, l3=0x1c}
0x045f…049e Line {l1=0x3d, l2=»1120RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) «, l3=0x3d}
0x049e…04b8 Line {l1=0x18, l2=»1130CALL "P641210:REGN" «, l3=0x18}
0x04b8…04cd Line {l1=0x13, l2=»1140IF AR3<6 THEN  «, l3=0x13}
0x04cd…04e6 Line {l1=0x17, l2=»1150IF FLAG THEN STOP  «, l3=0x17}
0x04e6…04f3 Line {l1=0x0b, l2=»1160ENDIF  «, l3=0x0b}
0x04f3…0502 Line {l1=0x0d, l2=»1170ES$=RES$ «, l3=0x0d}
0x0502…0511 Line {l1=0x0d, l2=»1180ENDPROC  «, l3=0x0d}
0x0511…052b Line {l1=0x18, l2=»1580PROC FEJL(P1,P2,P3) «, l3=0x18}
0x052b…0549 Line {l1=0x1c, l2=»1590IF STATUS(P3$)<>B THEN  «, l3=0x1c}
0x0549…0558 Line {l1=0x0d, l2=»1600OUTPUT T «, l3=0x0d}
0x0558…0586 Line {l1=0x2c, l2=»1610PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x0586…0592 Line {l1=0x0a, l2=»1620STOP  «, l3=0x0a}
0x0592…059f Line {l1=0x0b, l2=»1630ENDIF  «, l3=0x0b}
0x059f…05ae Line {l1=0x0d, l2=»1640ENDPROC  «, l3=0x0d}
0x05ae…05cc Line {l1=0x1c, l2=»1650FIL$="P641220:VIRKKART" «, l3=0x1c}
0x05cc…05df Line {l1=0x11, l2=»1660EXEC INDVIRK «, l3=0x11}
0x05df…05f0 Line {l1=0x0f, l2=»1670CLOSE FIL$ «, l3=0x0f}
0x05f0…060f Line {l1=0x1d, l2=»1675FIL1$="P641220:LØNMODRG" «, l3=0x1d}
0x060f…0622 Line {l1=0x11, l2=»1680OPEN FIL1$,R «, l3=0x11}
0x0622…0640 Line {l1=0x1c, l2=»1710MF5$="P641210:LØNBILAG" «, l3=0x1c}
0x0640…0652 Line {l1=0x10, l2=»1720OPEN MF5$,R «, l3=0x10}
0x0652…0664 Line {l1=0x10, l2=»1750GET MF5$:DD «, l3=0x10}
0x0664…0686 Line {l1=0x20, l2=»1755EXEC CONVDATE(STARTPER$,DD) «, l3=0x20}
0x0686…0695 Line {l1=0x0d, l2=»1760OUTPUT P «, l3=0x0d}
0x0695…06a3 Line {l1=0x0c, l2=»1765LINIE=B «, l3=0x0c}
0x06a3…06b8 Line {l1=0x13, l2=»1770FOR I=E TO 100 «, l3=0x13}
0x06b8…06cd Line {l1=0x13, l2=»1780TOTAL$(I)=TAH$ «, l3=0x13}
0x06cd…06db Line {l1=0x0c, l2=»1785AB(I)=B «, l3=0x0c}
0x06db…06e8 Line {l1=0x0b, l2=»1790NEXT I «, l3=0x0b}
0x06e8…0703 Line {l1=0x19, l2=»1810GET MF5$:LMNR,RESUL$ «, l3=0x19}
0x0703…071e Line {l1=0x19, l2=»1820WHILE STATUS(MF5$)=B «, l3=0x19}
0x071e…0738 Line {l1=0x18, l2=»1825EXEC INLØNMOD(LMNR) «, l3=0x18}
0x0738…0752 Line {l1=0x18, l2=»1830LPI=RPI DIV 10000+E «, l3=0x18}
0x0752…076a Line {l1=0x16, l2=»1832AB(LPI)=AB(LPI)+E «, l3=0x16}
0x076a…079c Line {l1=0x30, l2=»1834EXEC CALC(B,RESUL$,TOTAL$(LPI),TOTAL$(LPI)) «, l3=0x30}
0x079c…07a9 Line {l1=0x0b, l2=»1836PRINT  «, l3=0x0b}
0x07a9…07b6 Line {l1=0x0b, l2=»1838PRINT  «, l3=0x0b}
0x07b6…07f4 Line {l1=0x3c, l2=»1840PRINT TAB(37);"L Ø N O V E R F Ø R S E L    Dato ";DAD$ «, l3=0x3c}
0x07f4…0801 Line {l1=0x0b, l2=»1842PRINT  «, l3=0x0b}
0x0801…082a Line {l1=0x27, l2=»1844PRINT TAB(5);"LØNKONTOFØRENDE PI"; «, l3=0x27}
0x082a…0849 Line {l1=0x1d, l2=»1846PRINT USING "###":LPI-E; «, l3=0x1d}
0x0849…088d Line {l1=0x42, l2=»1848PRINT TAB(45);"AFTALENUMMER ";POST4$(19,22);"/";POST4$(23,24) «, l3=0x42}
0x088d…08d6 Line {l1=0x47, l2=»1850PRINT TAB(5);"DISPOSITIONSDAG ";STARTPER$;TAB(45);"ARBEJDSGIVER "; «, l3=0x47}
0x08d6…08f0 Line {l1=0x18, l2=»1852PRINT POST4$(25,34) «, l3=0x18}
0x08f0…0911 Line {l1=0x1f, l2=»1854PRINT TAB(5);"LØNMODTAGER" «, l3=0x1f}
0x0911…0946 Line {l1=0x33, l2=»1856PRINT TAB(5);POST1$(E,25);TAB(45);POST3$(8,32) «, l3=0x33}
0x0946…097d Line {l1=0x35, l2=»1858PRINT TAB(5);POST1$(26,48);TAB(45);POST3$(33,55) «, l3=0x35}
0x097d…09c3 Line {l1=0x44, l2=»1860PRINT TAB(5);POST1$(49,71);TAB(45);POST4$(E,4);" ";POST4$(5,18) «, l3=0x44}
0x09c3…09f3 Line {l1=0x2e, l2=»1862PRINT TAB(5);POST2$(E,4);" ";POST2$(5,18) «, l3=0x2e}
0x09f3…0a00 Line {l1=0x0b, l2=»1864PRINT  «, l3=0x0b}
0x0a00…0a0d Line {l1=0x0b, l2=»1866PRINT  «, l3=0x0b}
0x0a0d…0a48 Line {l1=0x39, l2=»1868PRINT TAB(22);"REG NR  TK KONTO NR";TAB(65);"KRONER" «, l3=0x39}
0x0a48…0a55 Line {l1=0x0b, l2=»1870PRINT  «, l3=0x0b}
0x0a55…0a69 Line {l1=0x12, l2=»1872FOR I=E TO 10 «, l3=0x12}
0x0a69…0a93 Line {l1=0x28, l2=»1874IF RESUL$(I)=" " THEN RESUL$(I)="*" «, l3=0x28}
0x0a93…0aa0 Line {l1=0x0b, l2=»1876NEXT I «, l3=0x0b}
0x0aa0…0acb Line {l1=0x29, l2=»1878PRINT TAB(8);"ANV/UDLIGNET";TAB(23); «, l3=0x29}
0x0acb…0af9 Line {l1=0x2c, l2=»1880PRINT USING "#####  49 ":RPI MOD 10000; «, l3=0x2c}
0x0af9…0b14 Line {l1=0x19, l2=»1882EXEC CONV(OP1$,K1,5) «, l3=0x19}
0x0b14…0b2f Line {l1=0x19, l2=»1884EXEC CONV(OP2$,K2,5) «, l3=0x19}
0x0b2f…0b44 Line {l1=0x13, l2=»1886OP1$=OP1$+OP2$ «, l3=0x13}
0x0b44…0b6a Line {l1=0x24, l2=»1888PRINT OP1$;TAB(61);RESUL$(E,10) «, l3=0x24}
0x0b6a…0b7d Line {l1=0x11, l2=»1890FOR I=E TO 7 «, l3=0x11}
0x0b7d…0b8a Line {l1=0x0b, l2=»1892PRINT  «, l3=0x0b}
0x0b8a…0b97 Line {l1=0x0b, l2=»1894NEXT I «, l3=0x0b}
0x0b97…0bac Line {l1=0x13, l2=»2000LINIE=LINIE+24 «, l3=0x13}
0x0bac…0bf8 Line {l1=0x4a, l2=»2075PRINT "============================================================"; «, l3=0x4a}
0x0bf8…0c1b Line {l1=0x21, l2=»2076PRINT "==================="; «, l3=0x21}
0x0c1b…0c36 Line {l1=0x19, l2=»2080GET MF5$:LMNR,RESUL$ «, l3=0x19}
0x0c36…0c46 Line {l1=0x0e, l2=»2090ENDWHILE  «, l3=0x0e}
0x0c46…0c7c Line {l1=0x34, l2=»2095IF STATUS(MF5$)<>19 THEN EXEC FEJL(LMNR,B,MF5$) «, l3=0x34}
0x0c7c…0c91 Line {l1=0x13, l2=»2130FOR I=E TO 100 «, l3=0x13}
0x0c91…0ca8 Line {l1=0x15, l2=»2140IF AB(I)>B THEN  «, l3=0x15}
0x0ca8…0cb5 Line {l1=0x0b, l2=»2150PRINT  «, l3=0x0b}
0x0cb5…0cc2 Line {l1=0x0b, l2=»2160PRINT  «, l3=0x0b}
0x0cc2…0ceb Line {l1=0x27, l2=»2170PRINT TAB(5);"UDSKRIFTSDATO ";DAD$ «, l3=0x27}
0x0ceb…0cf8 Line {l1=0x0b, l2=»2180PRINT  «, l3=0x0b}
0x0cf8…0d21 Line {l1=0x27, l2=»2200PRINT TAB(5);"LØNKONTOFØRENDE PI"; «, l3=0x27}
0x0d21…0d3e Line {l1=0x1b, l2=»2210PRINT USING "###":I-E; «, l3=0x1b}
0x0d3e…0d82 Line {l1=0x42, l2=»2220PRINT TAB(45);"AFTALENUMMER ";POST4$(19,22);"/";POST4$(23,24) «, l3=0x42}
0x0d82…0dcb Line {l1=0x47, l2=»2230PRINT TAB(5);"DISPOSITIONSDAG ";STARTPER$;TAB(45);"ARBEJDSGIVER "; «, l3=0x47}
0x0dcb…0de5 Line {l1=0x18, l2=»2240PRINT POST4$(25,34) «, l3=0x18}
0x0de5…0df2 Line {l1=0x0b, l2=»2250PRINT  «, l3=0x0b}
0x0df2…0dff Line {l1=0x0b, l2=»2260PRINT  «, l3=0x0b}
0x0dff…0e2c Line {l1=0x2b, l2=»2270PRINT TAB(5);"**T O T A L B I L A G**" «, l3=0x2b}
0x0e2c…0e39 Line {l1=0x0b, l2=»2280PRINT  «, l3=0x0b}
0x0e39…0e46 Line {l1=0x0b, l2=»2290PRINT  «, l3=0x0b}
0x0e46…0e53 Line {l1=0x0b, l2=»2300PRINT  «, l3=0x0b}
0x0e53…0e60 Line {l1=0x0b, l2=»2310PRINT  «, l3=0x0b}
0x0e60…0e7d Line {l1=0x1b, l2=»2320PRINT TAB(65);"KRONER" «, l3=0x1b}
0x0e7d…0e8a Line {l1=0x0b, l2=»2330PRINT  «, l3=0x0b}
0x0e8a…0e9e Line {l1=0x12, l2=»2340FOR J=E TO 11 «, l3=0x12}
0x0e9e…0ecc Line {l1=0x2c, l2=»2350IF TOTAL$(I,J)=" " THEN TOTAL$(I,J)="*" «, l3=0x2c}
0x0ecc…0ed9 Line {l1=0x0b, l2=»2360NEXT J «, l3=0x0b}
0x0ed9…0f03 Line {l1=0x28, l2=»2370PRINT TAB(8);"ANTAL BILAG";TAB(24); «, l3=0x28}
0x0f03…0f23 Line {l1=0x1e, l2=»2380PRINT USING "####":AB(I); «, l3=0x1e}
0x0f23…0f46 Line {l1=0x21, l2=»2390PRINT TAB(60);TOTAL$(I,E,11) «, l3=0x21}
0x0f46…0f59 Line {l1=0x11, l2=»2400FOR J=E TO 7 «, l3=0x11}
0x0f59…0f66 Line {l1=0x0b, l2=»2410PRINT  «, l3=0x0b}
0x0f66…0f73 Line {l1=0x0b, l2=»2420NEXT J «, l3=0x0b}
0x0f73…0fbf Line {l1=0x4a, l2=»2500PRINT "============================================================"; «, l3=0x4a}
0x0fbf…0fe2 Line {l1=0x21, l2=»2510PRINT "==================="; «, l3=0x21}
0x0fe2…0ff7 Line {l1=0x13, l2=»2511LINIE=LINIE+24 «, l3=0x13}
0x0ff7…1004 Line {l1=0x0b, l2=»2512ENDIF  «, l3=0x0b}
0x1004…1011 Line {l1=0x0b, l2=»2515NEXT I «, l3=0x0b}
0x1011…102a Line {l1=0x17, l2=»2519LINIE=LINIE MOD 72 «, l3=0x17}
0x102a…1037 Line {l1=0x0b, l2=»2520CLOSE  «, l3=0x0b}
0x1037…104c Line {l1=0x13, l2=»2521WHILE LINIE<72 «, l3=0x13}
0x104c…1059 Line {l1=0x0b, l2=»2522PRINT  «, l3=0x0b}
0x1059…106d Line {l1=0x12, l2=»2523LINIE=LINIE+E «, l3=0x12}
0x106d…107d Line {l1=0x0e, l2=»2524ENDWHILE  «, l3=0x0e}
0x107d…108c Line {l1=0x0d, l2=»2525OUTPUT T «, l3=0x0d}
0x108c…10a9 Line {l1=0x1b, l2=»2530CHAIN "P641210:STARTB" «, l3=0x1b}
0x10a9…10c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00                              ┆                       ┆
0x10c0…10e0 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   ┆                                ┆
            […0x17…]

Reduced view