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

⟦bcaccd15d⟧ TextFile

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

Derivation

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »KRONEFOR.K« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »KRONEFOR.K«

Mikados K File

0010 // ------------------------ kroneformat ------------------------
0020 // 
0030 PROC TRECIFFER(PRTAL,REF PRSTRENG$)
0050 IF PRTAL=>0 THEN 
0060 FORTEGN$:=""
0070 ELSE 
0080 FORTEGN$:="-"
0090 ENDIF 
0100 // 
0110 PRTAL:=ABS(PRTAL)
0120 PRTAL:=INT(PRTAL*100+0.5)/100
0130 DECIMALDEL:=PRTAL-INT(PRTAL)
0140 DECIMAL$:=CHR$(DECIMALDEL*100,2)
0150 IF DECIMAL$(1)=" " THEN DECIMAL$(1):="0"
0160 HEL$:=CHR$(INT(PRTAL),11)
0170 L:=LEN(HEL$)
0180 IF HEL$(9)<>" " THEN 
0190 HEL$(L-1:3):=HEL$(L-2:3)
0200 HEL$(L-2):=" "
0210 ENDIF 
0220 IF HEL$(6)<>" " THEN 
0230 HEL$(L-4:7):=HEL$(L-5:7)
0240 HEL$(L-5):=" "
0250 ENDIF 
0260 IF HEL$(3)<>" " THEN 
0270 HEL$(L-7:11):=HEL$(L-8:11)
0280 HEL$(L-8):=" "
0290 ENDIF 
0300 IF (1=0) AND (HEL$(2)<>" ") THEN 
0310 HEL$(L-10:15):=HEL$(L-11:15)
0320 HEL$(L-11):=" "
0330 ENDIF 
0340 // 
0350 PRSTRENG$:=FORTEGN$+HEL$+"."+DECIMAL$
0360 // 
0370 ENDPROC TRECIFFER
0380 // 
0390 CLEAR 
0400 DIM S$ OF 21
0405 DIM FORTEGN$ OF 1,HEL$ OF 17,DECIMAL$ OF 2
0406 PRINT 
0410 INPUT "Indtast et beløb:   ":BELØB
0420 EXEC TRECIFFER(BELØB,S$)
0430 PRINT BELØB
0440 PRINT 
0450 PRINT S$

Mikados K File

0x000…047 Line {l1=0x45, l2=»0010 // ------------------------ kroneformat ------------------------«, l3=0x45}
0x047…051 Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x051…07b Line {l1=0x28, l2=»0030 PROC TRECIFFER(PRTAL,REF PRSTRENG$)«, l3=0x28}
0x07b…093 Line {l1=0x16, l2=»0050 IF PRTAL=>0 THEN «, l3=0x16}
0x093…0a6 Line {l1=0x11, l2=»0060 FORTEGN$:=""«, l3=0x11}
0x0a6…0b2 Line {l1=0x0a, l2=»0070 ELSE «, l3=0x0a}
0x0b2…0c6 Line {l1=0x12, l2=»0080 FORTEGN$:="-"«, l3=0x12}
0x0c6…0d3 Line {l1=0x0b, l2=»0090 ENDIF «, l3=0x0b}
0x0d3…0dd Line {l1=0x08, l2=»0100 // «, l3=0x08}
0x0dd…0f5 Line {l1=0x16, l2=»0110 PRTAL:=ABS(PRTAL)«, l3=0x16}
0x0f5…119 Line {l1=0x22, l2=»0120 PRTAL:=INT(PRTAL*100+0.5)/100«, l3=0x22}
0x119…13c Line {l1=0x21, l2=»0130 DECIMALDEL:=PRTAL-INT(PRTAL)«, l3=0x21}
0x13c…163 Line {l1=0x25, l2=»0140 DECIMAL$:=CHR$(DECIMALDEL*100,2)«, l3=0x25}
0x163…192 Line {l1=0x2d, l2=»0150 IF DECIMAL$(1)=" " THEN DECIMAL$(1):="0"«, l3=0x2d}
0x192…1b2 Line {l1=0x1e, l2=»0160 HEL$:=CHR$(INT(PRTAL),11)«, l3=0x1e}
0x1b2…1c5 Line {l1=0x11, l2=»0170 L:=LEN(HEL$)«, l3=0x11}
0x1c5…1e1 Line {l1=0x1a, l2=»0180 IF HEL$(9)<>" " THEN «, l3=0x1a}
0x1e1…200 Line {l1=0x1d, l2=»0190 HEL$(L-1:3):=HEL$(L-2:3)«, l3=0x1d}
0x200…215 Line {l1=0x13, l2=»0200 HEL$(L-2):=" "«, l3=0x13}
0x215…222 Line {l1=0x0b, l2=»0210 ENDIF «, l3=0x0b}
0x222…23e Line {l1=0x1a, l2=»0220 IF HEL$(6)<>" " THEN «, l3=0x1a}
0x23e…25d Line {l1=0x1d, l2=»0230 HEL$(L-4:7):=HEL$(L-5:7)«, l3=0x1d}
0x25d…272 Line {l1=0x13, l2=»0240 HEL$(L-5):=" "«, l3=0x13}
0x272…27f Line {l1=0x0b, l2=»0250 ENDIF «, l3=0x0b}
0x27f…29b Line {l1=0x1a, l2=»0260 IF HEL$(3)<>" " THEN «, l3=0x1a}
0x29b…2bc Line {l1=0x1f, l2=»0270 HEL$(L-7:11):=HEL$(L-8:11)«, l3=0x1f}
0x2bc…2d1 Line {l1=0x13, l2=»0280 HEL$(L-8):=" "«, l3=0x13}
0x2d1…2de Line {l1=0x0b, l2=»0290 ENDIF «, l3=0x0b}
0x2de…306 Line {l1=0x26, l2=»0300 IF (1=0) AND (HEL$(2)<>" ") THEN «, l3=0x26}
0x306…329 Line {l1=0x21, l2=»0310 HEL$(L-10:15):=HEL$(L-11:15)«, l3=0x21}
0x329…33f Line {l1=0x14, l2=»0320 HEL$(L-11):=" "«, l3=0x14}
0x33f…34c Line {l1=0x0b, l2=»0330 ENDIF «, l3=0x0b}
0x34c…356 Line {l1=0x08, l2=»0340 // «, l3=0x08}
0x356…382 Line {l1=0x2a, l2=»0350 PRSTRENG$:=FORTEGN$+HEL$+"."+DECIMAL$«, l3=0x2a}
0x382…38c Line {l1=0x08, l2=»0360 // «, l3=0x08}
0x38c…3a4 Line {l1=0x16, l2=»0370 ENDPROC TRECIFFER«, l3=0x16}
0x3a4…3ae Line {l1=0x08, l2=»0380 // «, l3=0x08}
0x3ae…3bb Line {l1=0x0b, l2=»0390 CLEAR «, l3=0x0b}
0x3bb…3ce Line {l1=0x11, l2=»0400 DIM S$ OF 21«, l3=0x11}
0x3ce…3ff Line {l1=0x2f, l2=»0405 DIM FORTEGN$ OF 1,HEL$ OF 17,DECIMAL$ OF 2«, l3=0x2f}
0x3ff…40c Line {l1=0x0b, l2=»0406 PRINT «, l3=0x0b}
0x40c…435 Line {l1=0x27, l2=»0410 INPUT "Indtast et beløb:   ":BELØB«, l3=0x27}
0x435…454 Line {l1=0x1d, l2=»0420 EXEC TRECIFFER(BELØB,S$)«, l3=0x1d}
0x454…466 Line {l1=0x10, l2=»0430 PRINT BELØB«, l3=0x10}
0x466…473 Line {l1=0x0b, l2=»0440 PRINT «, l3=0x0b}
0x473…482 Line {l1=0x0d, l2=»0450 PRINT S$«, l3=0x0d}
0x482…4a0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63         ┆  cccccccccccccccccccccccccccc┆
0x4a0…4c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆cccccccccccccccccccccccccccccccc┆
          […0x29…]

TextFile

E0010 // ------------------------ kroneformat ------------------------E▶08◀0020 // ▶08◀(0030 PROC TRECIFFER(PRTAL,REF PRSTRENG$)(▶16◀0050 IF PRTAL=>0 THEN ▶16◀▶11◀0060 FORTEGN$:=""▶11◀
0070 ELSE 
▶12◀0080 FORTEGN$:="-"▶12◀▶0b◀0090 ENDIF ▶0b◀▶08◀0100 // ▶08◀▶16◀0110 PRTAL:=ABS(PRTAL)▶16◀"0120 PRTAL:=INT(PRTAL*100+0.5)/100"!0130 DECIMALDEL:=PRTAL-INT(PRTAL)!%0140 DECIMAL$:=CHR$(DECIMALDEL*100,2)%-0150 IF DECIMAL$(1)=" " THEN DECIMAL$(1):="0"-▶1e◀0160 HEL$:=CHR$(INT(PRTAL),11)▶1e◀▶11◀0170 L:=LEN(HEL$)▶11◀▶1a◀0180 IF HEL$(9)<>" " THEN ▶1a◀▶1d◀0190 HEL$(L-1:3):=HEL$(L-2:3)▶1d◀▶13◀0200 HEL$(L-2):=" "▶13◀▶0b◀0210 ENDIF ▶0b◀▶1a◀0220 IF HEL$(6)<>" " THEN ▶1a◀▶1d◀0230 HEL$(L-4:7):=HEL$(L-5:7)▶1d◀▶13◀0240 HEL$(L-5):=" "▶13◀▶0b◀0250 ENDIF ▶0b◀▶1a◀0260 IF HEL$(3)<>" " THEN ▶1a◀▶1f◀0270 HEL$(L-7:11):=HEL$(L-8:11)▶1f◀▶13◀0280 HEL$(L-8):=" "▶13◀▶0b◀0290 ENDIF ▶0b◀&0300 IF (1=0) AND (HEL$(2)<>" ") THEN &!0310 HEL$(L-10:15):=HEL$(L-11:15)!▶14◀0320 HEL$(L-11):=" "▶14◀▶0b◀0330 ENDIF ▶0b◀▶08◀0340 // ▶08◀*0350 PRSTRENG$:=FORTEGN$+HEL$+"."+DECIMAL$*▶08◀0360 // ▶08◀▶16◀0370 ENDPROC TRECIFFER▶16◀▶08◀0380 // ▶08◀▶0b◀0390 CLEAR ▶0b◀▶11◀0400 DIM S$ OF 21▶11◀/0405 DIM FORTEGN$ OF 1,HEL$ OF 17,DECIMAL$ OF 2/▶0b◀0406 PRINT ▶0b◀'0410 INPUT "Indtast et beløb:   ":BELØB'▶1d◀0420 EXEC TRECIFFER(BELØB,S$)▶1d◀▶10◀0430 PRINT BELØB▶10◀▶0b◀0440 PRINT ▶0b◀\r0450 PRINT S$\r▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Reduced view