|
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: 3008 (0xbc0)
Types: TextFile
Notes: Mikados_K
Names: »LØNOUT.K«
└─⟦e5337a0bc⟧ Bits:30008987 DDE SPC/1 COMAL programmer: BUD, GR85, LØN
└─⟦this⟧ »LØNOUT.K«
0100 DIM OVER$(3,27) 0110 OVER$(1)=" " 0120 OVER$(2)=" " 0130 OVER$(3)=" " 0140 REPEAT 0150 CLEAR 0160 PRINT "Overskrift" 0170 EDIT OVER$(1) 0180 EDIT OVER$(2) 0190 EDIT OVER$(3) 0200 I=0 0210 EDIT "Tilfreds 0 ",I 0220 UNTIL I=0 0230 DIM SYM$(57),KAP$(8) 0240 DIM UDFIL$(20) 0250 OUTPUT P 0260 FOR I=1 TO 9 0270 PRINT " " 0280 NEXT I 0281 PRINT TAB(7);OVER$(1) 0282 PRINT " " 0283 PRINT TAB(7);OVER$(2) 0284 PRINT 0285 PRINT TAB(7);OVER$(3) 0286 FOR I=1 TO 3 0287 PRINT " " 0288 NEXT I 0290 LINES=0 0300 SIDE=1 0310 PRINT TAB(36);"-";SIDE;"-" 0320 SIDE=SIDE+1 0330 PRINT " " 0340 PRINT " " 0350 PRINT " " 0360 FOR II=1 TO 18 0370 READ KAP$ 0380 UDFIL$="DDE:"+KAP$ 0390 EXEC WRITE 0392 PRINT " " 0393 PRINT " " 0394 PRINT " " 0395 LINES=LINES+3 0396 WHILE LINES>40 AND LINES<45 0397 PRINT " " 0398 LINES=LINES+1 0399 ENDWHILE 0400 NEXT II 0410 STOP 0420 PROC WRITE 0430 OPEN UDFIL$,R 0440 GET UDFIL$:SYM$ 0450 WHILE STATUS(UDFIL$)=0 0460 LINES=LINES+1 0470 IF SYM$="%P" OR LINES>45 THEN 0480 REPEAT 0490 PRINT " " 0500 LINES=LINES+1 0510 UNTIL LINES>60 0511 PRINT TAB(7);OVER$(1) 0512 PRINT " " 0513 PRINT TAB(7);OVER$(2) 0514 PRINT 0515 PRINT TAB(7);OVER$(3) 0516 FOR I=1 TO 3 0517 PRINT " " 0518 NEXT I 0520 PRINT TAB(36);"-";SIDE;"-" 0530 SIDE=SIDE+1 0540 PRINT " " 0550 PRINT " " 0560 PRINT " " 0570 LINES=1 0580 IF SYM$="%P" THEN GET UDFIL$:SYM$ 0590 ENDIF 0595 IF STATUS(UDFIL$)=0 THEN 0600 PRINT TAB(10);SYM$ 0610 GET UDFIL$:SYM$ 0615 ENDIF 0620 ENDWHILE 0625 IF LINES>1 THEN 0630 PRINT " " 0640 PRINT " " 0650 PRINT " " 0660 LINES=LINES+3 0665 ENDIF 0670 CLOSE UDFIL$ 0680 ENDPROC 0690 DATA "LØNDOK" 0700 DATA "LØNOPRET","LØNOVER" 0710 DATA "LØNINDH","LØNOPST","LØNARBG","LØNENTRE","LØNFEJL" 0720 DATA "LØNAFREG","LØNARTS","LØNBEREG","LØNLØNMO" 0730 DATA "LØNPAPIR","LØNVALG","LØNSIKK","LØNTÆLLE" 0740 DATA "LØNVIRK","LØNÅRSAF"
0x000…016 Line {l1=0x14, l2=»0100 DIM OVER$(3,27)«, l3=0x14}
0x016…043 Line {l1=0x2b, l2=»0110 OVER$(1)=" "«, l3=0x2b}
0x043…070 Line {l1=0x2b, l2=»0120 OVER$(2)=" "«, l3=0x2b}
0x070…09d Line {l1=0x2b, l2=»0130 OVER$(3)=" "«, l3=0x2b}
0x09d…0ab Line {l1=0x0c, l2=»0140 REPEAT «, l3=0x0c}
0x0ab…0b8 Line {l1=0x0b, l2=»0150 CLEAR «, l3=0x0b}
0x0b8…0d1 Line {l1=0x17, l2=»0160 PRINT "Overskrift"«, l3=0x17}
0x0d1…0e5 Line {l1=0x12, l2=»0170 EDIT OVER$(1)«, l3=0x12}
0x0e5…0f9 Line {l1=0x12, l2=»0180 EDIT OVER$(2)«, l3=0x12}
0x0f9…10d Line {l1=0x12, l2=»0190 EDIT OVER$(3)«, l3=0x12}
0x10d…117 Line {l1=0x08, l2=»0200 I=0«, l3=0x08}
0x117…132 Line {l1=0x19, l2=»0210 EDIT "Tilfreds 0 ",I«, l3=0x19}
0x132…142 Line {l1=0x0e, l2=»0220 UNTIL I=0«, l3=0x0e}
0x142…15d Line {l1=0x19, l2=»0230 DIM SYM$(57),KAP$(8)«, l3=0x19}
0x15d…172 Line {l1=0x13, l2=»0240 DIM UDFIL$(20)«, l3=0x13}
0x172…181 Line {l1=0x0d, l2=»0250 OUTPUT P«, l3=0x0d}
0x181…194 Line {l1=0x11, l2=»0260 FOR I=1 TO 9«, l3=0x11}
0x194…1a4 Line {l1=0x0e, l2=»0270 PRINT " "«, l3=0x0e}
0x1a4…1b1 Line {l1=0x0b, l2=»0280 NEXT I«, l3=0x0b}
0x1b1…1cd Line {l1=0x1a, l2=»0281 PRINT TAB(7);OVER$(1)«, l3=0x1a}
0x1cd…1dd Line {l1=0x0e, l2=»0282 PRINT " "«, l3=0x0e}
0x1dd…1f9 Line {l1=0x1a, l2=»0283 PRINT TAB(7);OVER$(2)«, l3=0x1a}
0x1f9…206 Line {l1=0x0b, l2=»0284 PRINT «, l3=0x0b}
0x206…222 Line {l1=0x1a, l2=»0285 PRINT TAB(7);OVER$(3)«, l3=0x1a}
0x222…235 Line {l1=0x11, l2=»0286 FOR I=1 TO 3«, l3=0x11}
0x235…245 Line {l1=0x0e, l2=»0287 PRINT " "«, l3=0x0e}
0x245…252 Line {l1=0x0b, l2=»0288 NEXT I«, l3=0x0b}
0x252…260 Line {l1=0x0c, l2=»0290 LINES=0«, l3=0x0c}
0x260…26d Line {l1=0x0b, l2=»0300 SIDE=1«, l3=0x0b}
0x26d…28e Line {l1=0x1f, l2=»0310 PRINT TAB(36);"-";SIDE;"-"«, l3=0x1f}
0x28e…2a0 Line {l1=0x10, l2=»0320 SIDE=SIDE+1«, l3=0x10}
0x2a0…2b0 Line {l1=0x0e, l2=»0330 PRINT " "«, l3=0x0e}
0x2b0…2c0 Line {l1=0x0e, l2=»0340 PRINT " "«, l3=0x0e}
0x2c0…2d0 Line {l1=0x0e, l2=»0350 PRINT " "«, l3=0x0e}
0x2d0…2e5 Line {l1=0x13, l2=»0360 FOR II=1 TO 18«, l3=0x13}
0x2e5…2f5 Line {l1=0x0e, l2=»0370 READ KAP$«, l3=0x0e}
0x2f5…30e Line {l1=0x17, l2=»0380 UDFIL$="DDE:"+KAP$«, l3=0x17}
0x30e…31f Line {l1=0x0f, l2=»0390 EXEC WRITE«, l3=0x0f}
0x31f…32f Line {l1=0x0e, l2=»0392 PRINT " "«, l3=0x0e}
0x32f…33f Line {l1=0x0e, l2=»0393 PRINT " "«, l3=0x0e}
0x33f…34f Line {l1=0x0e, l2=»0394 PRINT " "«, l3=0x0e}
0x34f…363 Line {l1=0x12, l2=»0395 LINES=LINES+3«, l3=0x12}
0x363…385 Line {l1=0x20, l2=»0396 WHILE LINES>40 AND LINES<45«, l3=0x20}
0x385…395 Line {l1=0x0e, l2=»0397 PRINT " "«, l3=0x0e}
0x395…3a9 Line {l1=0x12, l2=»0398 LINES=LINES+1«, l3=0x12}
0x3a9…3b9 Line {l1=0x0e, l2=»0399 ENDWHILE «, l3=0x0e}
0x3b9…3c7 Line {l1=0x0c, l2=»0400 NEXT II«, l3=0x0c}
0x3c7…3d3 Line {l1=0x0a, l2=»0410 STOP «, l3=0x0a}
0x3d3…3e4 Line {l1=0x0f, l2=»0420 PROC WRITE«, l3=0x0f}
0x3e4…3f8 Line {l1=0x12, l2=»0430 OPEN UDFIL$,R«, l3=0x12}
0x3f8…40e Line {l1=0x14, l2=»0440 GET UDFIL$:SYM$«, l3=0x14}
0x40e…42b Line {l1=0x1b, l2=»0450 WHILE STATUS(UDFIL$)=0«, l3=0x1b}
0x42b…43f Line {l1=0x12, l2=»0460 LINES=LINES+1«, l3=0x12}
0x43f…464 Line {l1=0x23, l2=»0470 IF SYM$="%P" OR LINES>45 THEN «, l3=0x23}
0x464…472 Line {l1=0x0c, l2=»0480 REPEAT «, l3=0x0c}
0x472…482 Line {l1=0x0e, l2=»0490 PRINT " "«, l3=0x0e}
0x482…496 Line {l1=0x12, l2=»0500 LINES=LINES+1«, l3=0x12}
0x496…4ab Line {l1=0x13, l2=»0510 UNTIL LINES>60«, l3=0x13}
0x4ab…4c7 Line {l1=0x1a, l2=»0511 PRINT TAB(7);OVER$(1)«, l3=0x1a}
0x4c7…4d7 Line {l1=0x0e, l2=»0512 PRINT " "«, l3=0x0e}
0x4d7…4f3 Line {l1=0x1a, l2=»0513 PRINT TAB(7);OVER$(2)«, l3=0x1a}
0x4f3…500 Line {l1=0x0b, l2=»0514 PRINT «, l3=0x0b}
0x500…51c Line {l1=0x1a, l2=»0515 PRINT TAB(7);OVER$(3)«, l3=0x1a}
0x51c…52f Line {l1=0x11, l2=»0516 FOR I=1 TO 3«, l3=0x11}
0x52f…53f Line {l1=0x0e, l2=»0517 PRINT " "«, l3=0x0e}
0x53f…54c Line {l1=0x0b, l2=»0518 NEXT I«, l3=0x0b}
0x54c…56d Line {l1=0x1f, l2=»0520 PRINT TAB(36);"-";SIDE;"-"«, l3=0x1f}
0x56d…57f Line {l1=0x10, l2=»0530 SIDE=SIDE+1«, l3=0x10}
0x57f…58f Line {l1=0x0e, l2=»0540 PRINT " "«, l3=0x0e}
0x58f…59f Line {l1=0x0e, l2=»0550 PRINT " "«, l3=0x0e}
0x59f…5af Line {l1=0x0e, l2=»0560 PRINT " "«, l3=0x0e}
0x5af…5bd Line {l1=0x0c, l2=»0570 LINES=1«, l3=0x0c}
0x5bd…5e5 Line {l1=0x26, l2=»0580 IF SYM$="%P" THEN GET UDFIL$:SYM$«, l3=0x26}
0x5e5…5f2 Line {l1=0x0b, l2=»0590 ENDIF «, l3=0x0b}
0x5f2…612 Line {l1=0x1e, l2=»0595 IF STATUS(UDFIL$)=0 THEN «, l3=0x1e}
0x612…62b Line {l1=0x17, l2=»0600 PRINT TAB(10);SYM$«, l3=0x17}
0x62b…641 Line {l1=0x14, l2=»0610 GET UDFIL$:SYM$«, l3=0x14}
0x641…64e Line {l1=0x0b, l2=»0615 ENDIF «, l3=0x0b}
0x64e…65e Line {l1=0x0e, l2=»0620 ENDWHILE «, l3=0x0e}
0x65e…675 Line {l1=0x15, l2=»0625 IF LINES>1 THEN «, l3=0x15}
0x675…685 Line {l1=0x0e, l2=»0630 PRINT " "«, l3=0x0e}
0x685…695 Line {l1=0x0e, l2=»0640 PRINT " "«, l3=0x0e}
0x695…6a5 Line {l1=0x0e, l2=»0650 PRINT " "«, l3=0x0e}
0x6a5…6b9 Line {l1=0x12, l2=»0660 LINES=LINES+3«, l3=0x12}
0x6b9…6c6 Line {l1=0x0b, l2=»0665 ENDIF «, l3=0x0b}
0x6c6…6d9 Line {l1=0x11, l2=»0670 CLOSE UDFIL$«, l3=0x11}
0x6d9…6e8 Line {l1=0x0d, l2=»0680 ENDPROC «, l3=0x0d}
0x6e8…6fc Line {l1=0x12, l2=»0690 DATA "LØNDOK"«, l3=0x12}
0x6fc…71c Line {l1=0x1e, l2=»0700 DATA "LØNOPRET","LØNOVER"«, l3=0x1e}
0x71c…75a Line {l1=0x3c, l2=»0710 DATA "LØNINDH","LØNOPST","LØNARBG","LØNENTRE","LØNFEJL"«, l3=0x3c}
0x75a…790 Line {l1=0x34, l2=»0720 DATA "LØNAFREG","LØNARTS","LØNBEREG","LØNLØNMO"«, l3=0x34}
0x790…7c5 Line {l1=0x33, l2=»0730 DATA "LØNPAPIR","LØNVALG","LØNSIKK","LØNTÆLLE"«, l3=0x33}
0x7c5…7e5 Line {l1=0x1e, l2=»0740 DATA "LØNVIRK","LØNÅRSAF"«, l3=0x1e}
0x7e5…800 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 ┆ ┆
0x800…820 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 ┆ ┆
[…0x1d…]