DataMuseum.dk

top - download

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

└─⟦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$