|
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: 1504 (0x5e0)
Notes: Mikados TextFile, Mikados_K
Names: »GULD«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »GULD«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »GULD«
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 "-------------------------------------------------------"