|
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: 1472 (0x5c0)
Types: TextFile
Notes: Mikados_K
Names: »SKOLEBØG.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SKOLEBØG.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SKOLEBØG.K«
0010 // ------------------ skolebøger -------------------- 0015 INTEGER I,ANTAL 0020 INPUT "Antal bøger: (Skriv antal): ":ANTAL 0030 DIM BOGLISTE$(ANTAL) OF 50 0040 // -------------------------------------------------- 0050 CLEAR // Indtastning af bognavne. 0060 FOR I:=1 TO ANTAL DO 0070 PRINT 0080 PRINT "Bognummer: ";I 0090 INPUT "Indtast bogens titel: ":BOGLISTE$(I) 0100 NEXT I 0110 // -------------------------------------------------- 0120 CLEAR // Udskrivning af bognavne 0130 PRINT 0140 PRINT "L I S T E O V E R S K O L E B Ø G E R ." 0150 PRINT "------------------------------------------" 0160 FOR I:=1 TO ANTAL DO 0170 PRINT 0180 PRINT "Bognummer: ";I;" ";BOGLISTE$(I) 0190 NEXT I 0200 // --------------------------------------------------
0x000…03c Line {l1=0x3a, l2=»0010 // ------------------ skolebøger --------------------«, l3=0x3a}
0x03c…052 Line {l1=0x14, l2=»0015 INTEGER I,ANTAL«, l3=0x14}
0x052…08b Line {l1=0x37, l2=»0020 INPUT "Antal bøger: (Skriv antal): ":ANTAL«, l3=0x37}
0x08b…0ac Line {l1=0x1f, l2=»0030 DIM BOGLISTE$(ANTAL) OF 50«, l3=0x1f}
0x0ac…0e8 Line {l1=0x3a, l2=»0040 // --------------------------------------------------«, l3=0x3a}
0x0e8…110 Line {l1=0x26, l2=»0050 CLEAR // Indtastning af bognavne.«, l3=0x26}
0x110…12c Line {l1=0x1a, l2=»0060 FOR I:=1 TO ANTAL DO «, l3=0x1a}
0x12c…139 Line {l1=0x0b, l2=»0070 PRINT «, l3=0x0b}
0x139…158 Line {l1=0x1d, l2=»0080 PRINT "Bognummer: ";I«, l3=0x1d}
0x158…18c Line {l1=0x32, l2=»0090 INPUT "Indtast bogens titel: ":BOGLISTE$(I)«, l3=0x32}
0x18c…199 Line {l1=0x0b, l2=»0100 NEXT I«, l3=0x0b}
0x199…1d5 Line {l1=0x3a, l2=»0110 // --------------------------------------------------«, l3=0x3a}
0x1d5…1fc Line {l1=0x25, l2=»0120 CLEAR // Udskrivning af bognavne«, l3=0x25}
0x1fc…209 Line {l1=0x0b, l2=»0130 PRINT «, l3=0x0b}
0x209…242 Line {l1=0x37, l2=»0140 PRINT "L I S T E O V E R S K O L E B Ø G E R ."«, l3=0x37}
0x242…27b Line {l1=0x37, l2=»0150 PRINT "------------------------------------------"«, l3=0x37}
0x27b…297 Line {l1=0x1a, l2=»0160 FOR I:=1 TO ANTAL DO «, l3=0x1a}
0x297…2a4 Line {l1=0x0b, l2=»0170 PRINT «, l3=0x0b}
0x2a4…2d6 Line {l1=0x30, l2=»0180 PRINT "Bognummer: ";I;" ";BOGLISTE$(I)«, l3=0x30}
0x2d6…2e3 Line {l1=0x0b, l2=»0190 NEXT I«, l3=0x0b}
0x2e3…31f Line {l1=0x3a, l2=»0200 // --------------------------------------------------«, l3=0x3a}
0x31f…320 00 ┆ ┆
0x320…340 00 20 49 4e 54 45 47 45 52 20 49 2c 41 4e 54 41 4c 14 37 30 30 32 30 20 49 4e 50 55 54 20 22 41 ┆ INTEGER I,ANTAL 70020 INPUT "A┆
0x340…360 6e 74 61 6c 20 62 7c 67 65 72 3a 20 20 20 28 53 6b 72 69 76 20 61 6e 74 61 6c 29 3a 20 20 20 20 ┆ntal bøger: (Skriv antal): ┆
0x360…380 20 20 20 22 3a 41 4e 54 41 4c 37 1f 30 30 33 30 20 44 49 4d 20 42 4f 47 4c 49 53 54 45 24 28 41 ┆ ":ANTAL7 0030 DIM BOGLISTE$(A┆
0x380…3a0 4e 54 41 4c 29 20 4f 46 20 35 30 1f 3a 30 30 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NTAL) OF 50 :0040 // -----------┆
0x3a0…3c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3c0…3e0 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┆
[…0xf…]