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

⟦d4f3cd7c7⟧ SPC/1-COMAL-BIN

    Length: 2047 (0x7ff)
    Types: SPC/1-COMAL-BIN
    Notes: Mikados_B
    Names: »STARTB.B«

Derivation

└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
    └─⟦this⟧ »STARTB.B« 
└─⟦ff7f7aeee⟧ Bits:30009007 NBT	15/3-84
    └─⟦this⟧ »STARTB.B«

SPC/1 COMAL-BIN

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

Full view