|
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: 1504 (0x5e0)
Types: TextFile
Notes: Mikados_K
Names: »GULD.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »GULD.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »GULD.K«
0010 // -------------------------- guld ---------------------------- 0020 CLEAR 0030 INPUT "Indtast nummer: ":NUMMER 0040 INPUT "Indtast points i hest: ":HEST 0050 INPUT "Indtast points i barre: ":BARRE 0060 INPUT "Indtast points i bom: ":BOM 0070 INPUT "Indtast points i gulv: ":GULV 0080 CLEAR 0090 CURSOR 1,5 0100 PRINT "DANMARKSMESTERSKABERNE I IDRÆTSGYMNASTIK FOR KVINDER: " 0110 PRINT "------------------------------------------------------" 0120 PRINT 0130 PRINT USING "Nummer: ####":NUMMER; 0140 IF NUMMER=1 THEN PRINT " G U L D " 0150 IF NUMMER=2 THEN PRINT " S Ø L V " 0160 IF NUMMER=3 THEN PRINT " B R O N Z E " 0170 PRINT 0180 PRINT USING "Hest: ###.###":HEST 0190 PRINT USING "Barre: ###.###":BARRE 0200 PRINT USING "Bom: ###.###":BOM 0210 PRINT USING "Gulv: ###.###":GULV 0220 PRINT "-------------------------------------------------------"
0x000…046 Line {l1=0x44, l2=»0010 // -------------------------- guld ----------------------------«, l3=0x44}
0x046…053 Line {l1=0x0b, l2=»0020 CLEAR «, l3=0x0b}
0x053…097 Line {l1=0x42, l2=»0030 INPUT "Indtast nummer: ":NUMMER«, l3=0x42}
0x097…0d9 Line {l1=0x40, l2=»0040 INPUT "Indtast points i hest: ":HEST«, l3=0x40}
0x0d9…11c Line {l1=0x41, l2=»0050 INPUT "Indtast points i barre: ":BARRE«, l3=0x41}
0x11c…15d Line {l1=0x3f, l2=»0060 INPUT "Indtast points i bom: ":BOM«, l3=0x3f}
0x15d…19f Line {l1=0x40, l2=»0070 INPUT "Indtast points i gulv: ":GULV«, l3=0x40}
0x19f…1ac Line {l1=0x0b, l2=»0080 CLEAR «, l3=0x0b}
0x1ac…1bd Line {l1=0x0f, l2=»0090 CURSOR 1,5«, l3=0x0f}
0x1bd…202 Line {l1=0x43, l2=»0100 PRINT "DANMARKSMESTERSKABERNE I IDRÆTSGYMNASTIK FOR KVINDER: "«, l3=0x43}
0x202…247 Line {l1=0x43, l2=»0110 PRINT "------------------------------------------------------"«, l3=0x43}
0x247…254 Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x254…28c Line {l1=0x36, l2=»0130 PRINT USING "Nummer: ####":NUMMER;«, l3=0x36}
0x28c…2ba Line {l1=0x2c, l2=»0140 IF NUMMER=1 THEN PRINT " G U L D "«, l3=0x2c}
0x2ba…2e8 Line {l1=0x2c, l2=»0150 IF NUMMER=2 THEN PRINT " S Ø L V "«, l3=0x2c}
0x2e8…31a Line {l1=0x30, l2=»0160 IF NUMMER=3 THEN PRINT " B R O N Z E "«, l3=0x30}
0x31a…327 Line {l1=0x0b, l2=»0170 PRINT «, l3=0x0b}
0x327…35e Line {l1=0x35, l2=»0180 PRINT USING "Hest: ###.###":HEST«, l3=0x35}
0x35e…396 Line {l1=0x36, l2=»0190 PRINT USING "Barre: ###.###":BARRE«, l3=0x36}
0x396…3cc Line {l1=0x34, l2=»0200 PRINT USING "Bom: ###.###":BOM«, l3=0x34}
0x3cc…403 Line {l1=0x35, l2=»0210 PRINT USING "Gulv: ###.###":GULV«, l3=0x35}
0x403…449 Line {l1=0x44, l2=»0220 PRINT "-------------------------------------------------------"«, l3=0x44}
0x449…460 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccc┆
0x460…480 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┆
[…0xb…]