|
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 - metrics - download
Length: 2528 (0x9e0)
Types: TextFile
Notes: Mikados TextFile, Mikados_K
Names: »KRONEFOR«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KRONEFOR«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KRONEFOR«
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$
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