DataMuseum.dk Presents historical artifacts from the history of: MIKADOS

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦aea588a40⟧ TextFile

    Length: 2496 (0x9c0)
    Types: TextFile
    Notes: Mikados TextFile, Mikados_K
    Names: »BIBLIOTE«

Derivation

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »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 "------------------------------------------------"

<0010 // ------------------------ bibliotek -----------------<)0015 INTEGER NUMMER // heltals-definering)-0020 INPUT "Indtast bogens nummer:   ":NUMMER-▶0b◀0030 CLEAR ▶0b◀▶0f◀0040 CURSOR 1,4▶0f◀!0050 PRINT " B I B L I O T E K ."!!0060 PRINT "--------------------"!▶0f◀0070 CURSOR 1,8▶0f◀<0080 PRINT "Bogen med nummer:   ";NUMMER;"ligger i gruppen:"<=0090 PRINT "------------------------------------------------"=▶0b◀0100 PRINT ▶0b◀▶0b◀0110 PRINT ▶0b◀▶17◀0120 IF NUMMER<=9 THEN ▶17◀;0130 PRINT "00 - 09   Blandede skrifter.                  ";
0140 ELSE 
▶18◀0145 IF NUMMER<=19 THEN ▶18◀B0150 PRINT "10 - 19   Filosofi. Psykologi. Videnskab & forskning."B
0160 ELSE 
▶18◀0165 IF NUMMER<=29 THEN ▶18◀(0170 PRINT "20 - 29   Religion.        "(
0180 ELSE 
▶18◀0185 IF NUMMER<=39 THEN ▶18◀>0190 PRINT "30 - 39   Samfundsvidenskab. Pædagogik. Folkeliv.">
0200 ELSE 
▶18◀0205 IF NUMMER<=49 THEN ▶18◀)0210 PRINT "40 - 49   Geografi & rejser.")
0220 ELSE 
▶18◀0225 IF NUMMER<=59 THEN ▶18◀20230 PRINT "50 - 59   Naturvidenskab & matematik."2
0240 ELSE 
▶18◀0245 IF NUMMER<=69 THEN ▶18◀%0250 PRINT "60 - 69   Praktiske fag."%
0260 ELSE 
▶18◀0265 IF NUMMER<=79 THEN ▶18◀@0270 PRINT "70 - 79   Kunst. Teater. Film. Musik. Spil. Idræt. "@
0280 ELSE 
▶18◀0285 IF NUMMER<=89 THEN ▶18◀*0290 PRINT "80 - 89   Litteratur. Sprog. "*
0300 ELSE 
▶18◀0305 IF NUMMER<=99 THEN ▶18◀ 0310 PRINT "90 - 99   Historie." ▶0b◀0320 ENDIF ▶0b◀▶0b◀0321 ENDIF ▶0b◀▶0b◀0322 ENDIF ▶0b◀▶0b◀0323 ENDIF ▶0b◀▶0b◀0324 ENDIF ▶0b◀▶0b◀0325 ENDIF ▶0b◀▶0b◀0326 ENDIF ▶0b◀▶0b◀0327 ENDIF ▶0b◀▶0b◀0328 ENDIF ▶0b◀▶0b◀0329 ENDIF ▶0b◀=0330 PRINT "------------------------------------------------"=▶00◀▶00◀ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc