|
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: 1062 (0x426)
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$