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

⟦ade9fb6b0⟧ TextFile

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »STARTB.K«

Derivation

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

Mikados K File

0100DIM FIL$(16) 
0105REPEAT  
0110CLEAR  
0120CURSOR 10,V 
0130PRINT "Lønsystem - DALØN 80 - programvalg" 
0140PRINT  
0150PRINT TAB(10);"0 Færdig" 
0160PRINT  
0170PRINT TAB(10);"1 Lønberegning" 
0180PRINT  
0190PRINT TAB(10);"2 Lønafregning" 
0191PRINT  
0192PRINT TAB(10);"3 Saldo-lister" 
0200PRINT  
0202PRINT TAB(10);"4 Entreprise-fordeling" 
0204PRINT  
0210PRINT TAB(10);"5 Arbejderlønstatistik" 
0220PRINT  
0230PRINT TAB(10);"6 Årsafslutning" 
0240PRINT  
0250PRINT TAB(10);"7 Kartoteksvedligeholdelse" 
0252PRINT  
0254PRINT TAB(10);"8 Særlig ferie-SH-opgørelse" 
0260REPEAT  
0270CURSOR E,23 
0280A=B 
0290EDIT "         Vælg 0 - 8 ",A 
0295A=INT(A) 
0300UNTIL A=>B AND A<=8 
0310CASE A OF  
0320WHEN B 
0330FIL$="OPSTART" 
0340WHEN E 
0350FIL$="AKKLØNBE" 
0360WHEN G 
0370FIL$="ONE" 
0372WHEN 4 
0374FIL$="ENTRETOT" 
0375WHEN V 
0378FIL$="AKKULIST" 
0380WHEN 5 
0390FIL$="ABESTAT" 
0400WHEN 6 
0410FIL$="ÅRSAFSLT" 
0412WHEN 8 
0414FIL$="BKLFERIE" 
0420WHEN 7 
0430CLEAR  
0470PRINT TAB(10);"Kartoteksvedligeholdelse" 
0480PRINT  
0490PRINT TAB(10);"1 Virksomhedskartotek" 
0500PRINT  
0510PRINT TAB(10);"2 Lønartskartotek" 
0520PRINT  
0530PRINT TAB(10);"3 Lønmodtagerkartotek - stamoplysninger" 
0540PRINT  
0550PRINT TAB(10);"4 Lønmodtagerkartotek - tælleværker,arbejderlønstatistik" 
0560PRINT  
0570PRINT TAB(10);"5 Lønmodtagerkartotek - tælleværker,"; 
0580PRINT " ferie- og SH-opgørelse" 
0590PRINT  
0600PRINT TAB(10);"6 Lønmodtagerkartotek - tælleværker, Årsopgørelse" 
0601PRINT  
0602PRINT TAB(10);"7 Akkordhoved - register" 
0603PRINT  
0604PRINT TAB(10);"8 Akkordregnskabs - register" 
0605PRINT  
0606PRINT TAB(10);"9 Akkordliste" 
0607PRINT  
0608PRINT TAB(10);"10 Akkordliste - medarbejderopdelt" 
0610REPEAT  
0620CURSOR E,23 
0630A=B 
0640EDIT "         Vælg 1 - 10 ",A 
0650A=INT(A) 
0660UNTIL A>B AND A<=10 
0670CASE A OF  
0700WHEN E 
0710FIL$="VIRK" 
0720WHEN G 
0730FIL$="LØNARTVD" 
0740WHEN V 
0750FIL$="LØNMODT" 
0760WHEN 4 
0770FIL$="TV1" 
0780WHEN 5 
0790FIL$="TV2" 
0800WHEN 6 
0810FIL$="TV3" 
0811WHEN 7 
0812FIL$="AKKHVEDL" 
0813WHEN 8 
0814FIL$="AKKRVEDL" 
0815WHEN W 
0816FIL$="AKKALIST" 
0817WHEN 10 
0818FIL$="AKKMLIST" 
0820ENDCASE  
0830ENDCASE  
0840UNTIL FIL$<>"" 
0845IF FIL$<>"OPSTART" THEN  
0850FIL$="P641210:"+FIL$ 
0870ELSE  
0880FIL$="P641210:"+FIL$ 
0881CLEAR  
0882A=B 
0890ENDIF  
0900CHAIN FIL$

Mikados K File

0x000…013 Line {l1=0x11, l2=»0100DIM FIL$(16) «, l3=0x11}
0x013…021 Line {l1=0x0c, l2=»0105REPEAT  «, l3=0x0c}
0x021…02e Line {l1=0x0b, l2=»0110CLEAR  «, l3=0x0b}
0x02e…040 Line {l1=0x10, l2=»0120CURSOR 10,V «, l3=0x10}
0x040…071 Line {l1=0x2f, l2=»0130PRINT "Lønsystem - DALØN 80 - programvalg" «, l3=0x2f}
0x071…07e Line {l1=0x0b, l2=»0140PRINT  «, l3=0x0b}
0x07e…09d Line {l1=0x1d, l2=»0150PRINT TAB(10);"0 Færdig" «, l3=0x1d}
0x09d…0aa Line {l1=0x0b, l2=»0160PRINT  «, l3=0x0b}
0x0aa…0cf Line {l1=0x23, l2=»0170PRINT TAB(10);"1 Lønberegning" «, l3=0x23}
0x0cf…0dc Line {l1=0x0b, l2=»0180PRINT  «, l3=0x0b}
0x0dc…101 Line {l1=0x23, l2=»0190PRINT TAB(10);"2 Lønafregning" «, l3=0x23}
0x101…10e Line {l1=0x0b, l2=»0191PRINT  «, l3=0x0b}
0x10e…133 Line {l1=0x23, l2=»0192PRINT TAB(10);"3 Saldo-lister" «, l3=0x23}
0x133…140 Line {l1=0x0b, l2=»0200PRINT  «, l3=0x0b}
0x140…16d Line {l1=0x2b, l2=»0202PRINT TAB(10);"4 Entreprise-fordeling" «, l3=0x2b}
0x16d…17a Line {l1=0x0b, l2=»0204PRINT  «, l3=0x0b}
0x17a…1a7 Line {l1=0x2b, l2=»0210PRINT TAB(10);"5 Arbejderlønstatistik" «, l3=0x2b}
0x1a7…1b4 Line {l1=0x0b, l2=»0220PRINT  «, l3=0x0b}
0x1b4…1da Line {l1=0x24, l2=»0230PRINT TAB(10);"6 Årsafslutning" «, l3=0x24}
0x1da…1e7 Line {l1=0x0b, l2=»0240PRINT  «, l3=0x0b}
0x1e7…218 Line {l1=0x2f, l2=»0250PRINT TAB(10);"7 Kartoteksvedligeholdelse" «, l3=0x2f}
0x218…225 Line {l1=0x0b, l2=»0252PRINT  «, l3=0x0b}
0x225…257 Line {l1=0x30, l2=»0254PRINT TAB(10);"8 Særlig ferie-SH-opgørelse" «, l3=0x30}
0x257…265 Line {l1=0x0c, l2=»0260REPEAT  «, l3=0x0c}
0x265…277 Line {l1=0x10, l2=»0270CURSOR E,23 «, l3=0x10}
0x277…281 Line {l1=0x08, l2=»0280A=B «, l3=0x08}
0x281…2a5 Line {l1=0x22, l2=»0290EDIT "         Vælg 0 - 8 ",A «, l3=0x22}
0x2a5…2b4 Line {l1=0x0d, l2=»0295A=INT(A) «, l3=0x0d}
0x2b4…2ce Line {l1=0x18, l2=»0300UNTIL A=>B AND A<=8 «, l3=0x18}
0x2ce…2df Line {l1=0x0f, l2=»0310CASE A OF  «, l3=0x0f}
0x2df…2ec Line {l1=0x0b, l2=»0320WHEN B «, l3=0x0b}
0x2ec…301 Line {l1=0x13, l2=»0330FIL$="OPSTART" «, l3=0x13}
0x301…30e Line {l1=0x0b, l2=»0340WHEN E «, l3=0x0b}
0x30e…324 Line {l1=0x14, l2=»0350FIL$="AKKLØNBE" «, l3=0x14}
0x324…331 Line {l1=0x0b, l2=»0360WHEN G «, l3=0x0b}
0x331…342 Line {l1=0x0f, l2=»0370FIL$="ONE" «, l3=0x0f}
0x342…34f Line {l1=0x0b, l2=»0372WHEN 4 «, l3=0x0b}
0x34f…365 Line {l1=0x14, l2=»0374FIL$="ENTRETOT" «, l3=0x14}
0x365…372 Line {l1=0x0b, l2=»0375WHEN V «, l3=0x0b}
0x372…388 Line {l1=0x14, l2=»0378FIL$="AKKULIST" «, l3=0x14}
0x388…395 Line {l1=0x0b, l2=»0380WHEN 5 «, l3=0x0b}
0x395…3aa Line {l1=0x13, l2=»0390FIL$="ABESTAT" «, l3=0x13}
0x3aa…3b7 Line {l1=0x0b, l2=»0400WHEN 6 «, l3=0x0b}
0x3b7…3cd Line {l1=0x14, l2=»0410FIL$="ÅRSAFSLT" «, l3=0x14}
0x3cd…3da Line {l1=0x0b, l2=»0412WHEN 8 «, l3=0x0b}
0x3da…3f0 Line {l1=0x14, l2=»0414FIL$="BKLFERIE" «, l3=0x14}
0x3f0…3fd Line {l1=0x0b, l2=»0420WHEN 7 «, l3=0x0b}
0x3fd…40a Line {l1=0x0b, l2=»0430CLEAR  «, l3=0x0b}
0x40a…439 Line {l1=0x2d, l2=»0470PRINT TAB(10);"Kartoteksvedligeholdelse" «, l3=0x2d}
0x439…446 Line {l1=0x0b, l2=»0480PRINT  «, l3=0x0b}
0x446…472 Line {l1=0x2a, l2=»0490PRINT TAB(10);"1 Virksomhedskartotek" «, l3=0x2a}
0x472…47f Line {l1=0x0b, l2=»0500PRINT  «, l3=0x0b}
0x47f…4a7 Line {l1=0x26, l2=»0510PRINT TAB(10);"2 Lønartskartotek" «, l3=0x26}
0x4a7…4b4 Line {l1=0x0b, l2=»0520PRINT  «, l3=0x0b}
0x4b4…4f2 Line {l1=0x3c, l2=»0530PRINT TAB(10);"3 Lønmodtagerkartotek - stamoplysninger" «, l3=0x3c}
0x4f2…4ff Line {l1=0x0b, l2=»0540PRINT  «, l3=0x0b}
0x4ff…54e Line {l1=0x4d, l2=»0550PRINT TAB(10);"4 Lønmodtagerkartotek - tælleværker,arbejderlønstatistik" «, l3=0x4d}
0x54e…55b Line {l1=0x0b, l2=»0560PRINT  «, l3=0x0b}
0x55b…597 Line {l1=0x3a, l2=»0570PRINT TAB(10);"5 Lønmodtagerkartotek - tælleværker,"; «, l3=0x3a}
0x597…5bd Line {l1=0x24, l2=»0580PRINT " ferie- og SH-opgørelse" «, l3=0x24}
0x5bd…5ca Line {l1=0x0b, l2=»0590PRINT  «, l3=0x0b}
0x5ca…612 Line {l1=0x46, l2=»0600PRINT TAB(10);"6 Lønmodtagerkartotek - tælleværker, Årsopgørelse" «, l3=0x46}
0x612…61f Line {l1=0x0b, l2=»0601PRINT  «, l3=0x0b}
0x61f…64e Line {l1=0x2d, l2=»0602PRINT TAB(10);"7 Akkordhoved - register" «, l3=0x2d}
0x64e…65b Line {l1=0x0b, l2=»0603PRINT  «, l3=0x0b}
0x65b…68e Line {l1=0x31, l2=»0604PRINT TAB(10);"8 Akkordregnskabs - register" «, l3=0x31}
0x68e…69b Line {l1=0x0b, l2=»0605PRINT  «, l3=0x0b}
0x69b…6bf Line {l1=0x22, l2=»0606PRINT TAB(10);"9 Akkordliste" «, l3=0x22}
0x6bf…6cc Line {l1=0x0b, l2=»0607PRINT  «, l3=0x0b}
0x6cc…705 Line {l1=0x37, l2=»0608PRINT TAB(10);"10 Akkordliste - medarbejderopdelt" «, l3=0x37}
0x705…713 Line {l1=0x0c, l2=»0610REPEAT  «, l3=0x0c}
0x713…725 Line {l1=0x10, l2=»0620CURSOR E,23 «, l3=0x10}
0x725…72f Line {l1=0x08, l2=»0630A=B «, l3=0x08}
0x72f…754 Line {l1=0x23, l2=»0640EDIT "         Vælg 1 - 10 ",A «, l3=0x23}
0x754…763 Line {l1=0x0d, l2=»0650A=INT(A) «, l3=0x0d}
0x763…77d Line {l1=0x18, l2=»0660UNTIL A>B AND A<=10 «, l3=0x18}
0x77d…78e Line {l1=0x0f, l2=»0670CASE A OF  «, l3=0x0f}
0x78e…79b Line {l1=0x0b, l2=»0700WHEN E «, l3=0x0b}
0x79b…7ad Line {l1=0x10, l2=»0710FIL$="VIRK" «, l3=0x10}
0x7ad…7ba Line {l1=0x0b, l2=»0720WHEN G «, l3=0x0b}
0x7ba…7d0 Line {l1=0x14, l2=»0730FIL$="LØNARTVD" «, l3=0x14}
0x7d0…7dd Line {l1=0x0b, l2=»0740WHEN V «, l3=0x0b}
0x7dd…7f2 Line {l1=0x13, l2=»0750FIL$="LØNMODT" «, l3=0x13}
0x7f2…7ff Line {l1=0x0b, l2=»0760WHEN 4 «, l3=0x0b}
0x7ff…810 Line {l1=0x0f, l2=»0770FIL$="TV1" «, l3=0x0f}
0x810…81d Line {l1=0x0b, l2=»0780WHEN 5 «, l3=0x0b}
0x81d…82e Line {l1=0x0f, l2=»0790FIL$="TV2" «, l3=0x0f}
0x82e…83b Line {l1=0x0b, l2=»0800WHEN 6 «, l3=0x0b}
0x83b…84c Line {l1=0x0f, l2=»0810FIL$="TV3" «, l3=0x0f}
0x84c…859 Line {l1=0x0b, l2=»0811WHEN 7 «, l3=0x0b}
0x859…86f Line {l1=0x14, l2=»0812FIL$="AKKHVEDL" «, l3=0x14}
0x86f…87c Line {l1=0x0b, l2=»0813WHEN 8 «, l3=0x0b}
0x87c…892 Line {l1=0x14, l2=»0814FIL$="AKKRVEDL" «, l3=0x14}
0x892…89f Line {l1=0x0b, l2=»0815WHEN W «, l3=0x0b}
0x89f…8b5 Line {l1=0x14, l2=»0816FIL$="AKKALIST" «, l3=0x14}
0x8b5…8c3 Line {l1=0x0c, l2=»0817WHEN 10 «, l3=0x0c}
0x8c3…8d9 Line {l1=0x14, l2=»0818FIL$="AKKMLIST" «, l3=0x14}
0x8d9…8e8 Line {l1=0x0d, l2=»0820ENDCASE  «, l3=0x0d}
0x8e8…8f7 Line {l1=0x0d, l2=»0830ENDCASE  «, l3=0x0d}
0x8f7…90c Line {l1=0x13, l2=»0840UNTIL FIL$<>"" «, l3=0x13}
0x90c…92b Line {l1=0x1d, l2=»0845IF FIL$<>"OPSTART" THEN  «, l3=0x1d}
0x92b…946 Line {l1=0x19, l2=»0850FIL$="P641210:"+FIL$ «, l3=0x19}
0x946…952 Line {l1=0x0a, l2=»0870ELSE  «, l3=0x0a}
0x952…96d Line {l1=0x19, l2=»0880FIL$="P641210:"+FIL$ «, l3=0x19}
0x96d…97a Line {l1=0x0b, l2=»0881CLEAR  «, l3=0x0b}
0x97a…984 Line {l1=0x08, l2=»0882A=B «, l3=0x08}
0x984…991 Line {l1=0x0b, l2=»0890ENDIF  «, l3=0x0b}
0x991…9a2 Line {l1=0x0f, l2=»0900CHAIN FIL$ «, l3=0x0f}
0x9a2…9c0 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         ┆                              ┆
0x9c0…9e0 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   ┆                                ┆

Reduced view