|
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: 1984 (0x7c0)
Types: TextFile
Notes: Mikados_K
Names: »KASSE.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KASSE.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KASSE.K«
0010 // ------------------------- kasse ------------------------------ 0020 // Udregner rumfang og overflade af en kasse, når man 0030 // indtaster kassens højde, bredde & længde. 0040 0050 CLEAR 0060 INPUT "Indtast længde: ":LÆNGDE 0070 INPUT "Indtast bredde: ":BREDDE 0080 INPUT "Indtast højde: ":HØJDE 0090 0100 EXEC RUMFANG 0110 EXEC OVERFLADE 0120 EXEC UDSKRIFT 0130 0140 PROC RUMFANG 0150 RUMF:=LÆNGDE*BREDDE*HØJDE 0160 ENDPROC RUMFANG 0170 0180 PROC OVERFLADE 0190 TOTALOVERFLADEN:=(LÆNGDE*BREDDE+BREDDE*HØJDE+HØJDE*LÆNGDE)*2 0200 ENDPROC OVERFLADE 0210 0220 PROC UDSKRIFT 0230 PRINT 0240 PRINT USING "Længde: ################.## cm. ":LÆNGDE 0250 PRINT USING "Bredde: ################.## cm. ":BREDDE 0260 PRINT USING "Højde: ################.## cm. ":HØJDE 0270 PRINT USING "Rumfang: ################.## cm3. ":RUMF 0280 PRINT USING "Samlede overflade: ##############.## cm2.":TOTALOVERFLADEN 0290 ENDPROC UDSKRIFT
0x000…048 Line {l1=0x46, l2=»0010 // ------------------------- kasse ------------------------------«, l3=0x46}
0x048…084 Line {l1=0x3a, l2=»0020 // Udregner rumfang og overflade af en kasse, når man«, l3=0x3a}
0x084…0b7 Line {l1=0x31, l2=»0030 // indtaster kassens højde, bredde & længde.«, l3=0x31}
0x0b7…0be Line {l1=0x05, l2=»0040 «, l3=0x05}
0x0be…0cb Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x0cb…0f5 Line {l1=0x28, l2=»0060 INPUT "Indtast længde: ":LÆNGDE«, l3=0x28}
0x0f5…11f Line {l1=0x28, l2=»0070 INPUT "Indtast bredde: ":BREDDE«, l3=0x28}
0x11f…148 Line {l1=0x27, l2=»0080 INPUT "Indtast højde: ":HØJDE«, l3=0x27}
0x148…14f Line {l1=0x05, l2=»0090 «, l3=0x05}
0x14f…162 Line {l1=0x11, l2=»0100 EXEC RUMFANG«, l3=0x11}
0x162…177 Line {l1=0x13, l2=»0110 EXEC OVERFLADE«, l3=0x13}
0x177…18b Line {l1=0x12, l2=»0120 EXEC UDSKRIFT«, l3=0x12}
0x18b…192 Line {l1=0x05, l2=»0130 «, l3=0x05}
0x192…1a5 Line {l1=0x11, l2=»0140 PROC RUMFANG«, l3=0x11}
0x1a5…1c5 Line {l1=0x1e, l2=»0150 RUMF:=LÆNGDE*BREDDE*HØJDE«, l3=0x1e}
0x1c5…1db Line {l1=0x14, l2=»0160 ENDPROC RUMFANG«, l3=0x14}
0x1db…1e2 Line {l1=0x05, l2=»0170 «, l3=0x05}
0x1e2…1f7 Line {l1=0x13, l2=»0180 PROC OVERFLADE«, l3=0x13}
0x1f7…23a Line {l1=0x41, l2=»0190 TOTALOVERFLADEN:=(LÆNGDE*BREDDE+BREDDE*HØJDE+HØJDE*LÆNGDE)*2«, l3=0x41}
0x23a…252 Line {l1=0x16, l2=»0200 ENDPROC OVERFLADE«, l3=0x16}
0x252…259 Line {l1=0x05, l2=»0210 «, l3=0x05}
0x259…26d Line {l1=0x12, l2=»0220 PROC UDSKRIFT«, l3=0x12}
0x26d…27a Line {l1=0x0b, l2=»0230 PRINT «, l3=0x0b}
0x27a…2c2 Line {l1=0x46, l2=»0240 PRINT USING "Længde: ################.## cm. ":LÆNGDE«, l3=0x46}
0x2c2…30a Line {l1=0x46, l2=»0250 PRINT USING "Bredde: ################.## cm. ":BREDDE«, l3=0x46}
0x30a…351 Line {l1=0x45, l2=»0260 PRINT USING "Højde: ################.## cm. ":HØJDE«, l3=0x45}
0x351…397 Line {l1=0x44, l2=»0270 PRINT USING "Rumfang: ################.## cm3. ":RUMF«, l3=0x44}
0x397…3e5 Line {l1=0x4c, l2=»0280 PRINT USING "Samlede overflade: ##############.## cm2.":TOTALOVERFLADEN«, l3=0x4c}
0x3e5…3fc Line {l1=0x15, l2=»0290 ENDPROC UDSKRIFT«, l3=0x15}
0x3fc…400 00 00 2d 2d ┆ --┆
0x400…420 2d 2d 20 6b 61 73 73 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- kasse -----------------------┆
0x420…440 2d 2d 2d 2d 2d 2d 2d 46 3a 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 72 75 6d 66 61 6e ┆-------F:0020 // Udregner rumfan┆
0x440…460 67 20 6f 67 20 6f 76 65 72 66 6c 61 64 65 20 61 66 20 65 6e 20 6b 61 73 73 65 2c 20 6e 7d 72 20 ┆g og overflade af en kasse, når ┆
0x460…480 6d 61 6e 3a 31 30 30 33 30 20 2f 2f 20 69 6e 64 74 61 73 74 65 72 20 6b 61 73 73 65 6e 73 20 68 ┆man:10030 // indtaster kassens h┆
0x480…4a0 7c 6a 64 65 2c 20 62 72 65 64 64 65 20 26 20 6c 7b 6e 67 64 65 2e 31 05 30 30 34 30 20 05 0b 30 ┆øjde, bredde & længde.1 0040 0┆
0x4a0…4c0 30 35 30 20 43 4c 45 41 52 20 0b 28 30 30 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 ┆050 CLEAR (0060 INPUT "Indtast ┆
0x4c0…4e0 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┆
[…0x17…]