|
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: 1389 (0x56d)
Notes: Mikados TextFile, Mikados_K
Names: »BIBLIOTE«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BIBLIOTE«
0010 // ------------------------ bibliotek ----------------- 0015 INTEGER NUMMER // heltals-definering 0020 INPUT "Indtast bogens nummer: ":NUMMER 0030 CLEAR 0040 CURSOR 1,4 0050 PRINT " B I B L I O T E K ." 0060 PRINT "--------------------" 0070 CURSOR 1,8 0080 PRINT "Bogen med nummer: ";NUMMER;"ligger i gruppen:" 0090 PRINT "------------------------------------------------" 0100 PRINT 0110 PRINT 0120 IF NUMMER<=9 THEN 0130 PRINT "00 - 09 Blandede skrifter. " 0140 ELSE 0145 IF NUMMER<=19 THEN 0150 PRINT "10 - 19 Filosofi. Psykologi. Videnskab & forskning." 0160 ELSE 0165 IF NUMMER<=29 THEN 0170 PRINT "20 - 29 Religion. " 0180 ELSE 0185 IF NUMMER<=39 THEN 0190 PRINT "30 - 39 Samfundsvidenskab. Pædagogik. Folkeliv." 0200 ELSE 0205 IF NUMMER<=49 THEN 0210 PRINT "40 - 49 Geografi & rejser." 0220 ELSE 0225 IF NUMMER<=59 THEN 0230 PRINT "50 - 59 Naturvidenskab & matematik." 0240 ELSE 0245 IF NUMMER<=69 THEN 0250 PRINT "60 - 69 Praktiske fag." 0260 ELSE 0265 IF NUMMER<=79 THEN 0270 PRINT "70 - 79 Kunst. Teater. Film. Musik. Spil. Idræt. " 0280 ELSE 0285 IF NUMMER<=89 THEN 0290 PRINT "80 - 89 Litteratur. Sprog. " 0300 ELSE 0305 IF NUMMER<=99 THEN 0310 PRINT "90 - 99 Historie." 0320 ENDIF 0321 ENDIF 0322 ENDIF 0323 ENDIF 0324 ENDIF 0325 ENDIF 0326 ENDIF 0327 ENDIF 0328 ENDIF 0329 ENDIF 0330 PRINT "------------------------------------------------"