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