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 - download

⟦aea588a40⟧ TextFile

    Length: 2496 (0x9c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »BIBLIOTE.K«

Derivation

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »BIBLIOTE.K« 
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »BIBLIOTE.K« 

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 "------------------------------------------------"

0x000…03e Line {l1=0x3c, l2=»0010 // ------------------------ bibliotek -----------------«, l3=0x3c}
0x03e…069 Line {l1=0x29, l2=»0015 INTEGER NUMMER // heltals-definering«, l3=0x29}
0x069…098 Line {l1=0x2d, l2=»0020 INPUT "Indtast bogens nummer:   ":NUMMER«, l3=0x2d}
0x098…0a5 Line {l1=0x0b, l2=»0030 CLEAR «, l3=0x0b}
0x0a5…0b6 Line {l1=0x0f, l2=»0040 CURSOR 1,4«, l3=0x0f}
0x0b6…0d9 Line {l1=0x21, l2=»0050 PRINT " B I B L I O T E K ."«, l3=0x21}
0x0d9…0fc Line {l1=0x21, l2=»0060 PRINT "--------------------"«, l3=0x21}
0x0fc…10d Line {l1=0x0f, l2=»0070 CURSOR 1,8«, l3=0x0f}
0x10d…14b Line {l1=0x3c, l2=»0080 PRINT "Bogen med nummer:   ";NUMMER;"ligger i gruppen:"«, l3=0x3c}
0x14b…18a Line {l1=0x3d, l2=»0090 PRINT "------------------------------------------------"«, l3=0x3d}
0x18a…197 Line {l1=0x0b, l2=»0100 PRINT «, l3=0x0b}
0x197…1a4 Line {l1=0x0b, l2=»0110 PRINT «, l3=0x0b}
0x1a4…1bd Line {l1=0x17, l2=»0120 IF NUMMER<=9 THEN «, l3=0x17}
0x1bd…1fa Line {l1=0x3b, l2=»0130 PRINT "00 - 09   Blandede skrifter.                  "«, l3=0x3b}
0x1fa…206 Line {l1=0x0a, l2=»0140 ELSE «, l3=0x0a}
0x206…220 Line {l1=0x18, l2=»0145 IF NUMMER<=19 THEN «, l3=0x18}
0x220…264 Line {l1=0x42, l2=»0150 PRINT "10 - 19   Filosofi. Psykologi. Videnskab & forskning."«, l3=0x42}
0x264…270 Line {l1=0x0a, l2=»0160 ELSE «, l3=0x0a}
0x270…28a Line {l1=0x18, l2=»0165 IF NUMMER<=29 THEN «, l3=0x18}
0x28a…2b4 Line {l1=0x28, l2=»0170 PRINT "20 - 29   Religion.        "«, l3=0x28}
0x2b4…2c0 Line {l1=0x0a, l2=»0180 ELSE «, l3=0x0a}
0x2c0…2da Line {l1=0x18, l2=»0185 IF NUMMER<=39 THEN «, l3=0x18}
0x2da…31a Line {l1=0x3e, l2=»0190 PRINT "30 - 39   Samfundsvidenskab. Pædagogik. Folkeliv."«, l3=0x3e}
0x31a…326 Line {l1=0x0a, l2=»0200 ELSE «, l3=0x0a}
0x326…340 Line {l1=0x18, l2=»0205 IF NUMMER<=49 THEN «, l3=0x18}
0x340…36b Line {l1=0x29, l2=»0210 PRINT "40 - 49   Geografi & rejser."«, l3=0x29}
0x36b…377 Line {l1=0x0a, l2=»0220 ELSE «, l3=0x0a}
0x377…391 Line {l1=0x18, l2=»0225 IF NUMMER<=59 THEN «, l3=0x18}
0x391…3c5 Line {l1=0x32, l2=»0230 PRINT "50 - 59   Naturvidenskab & matematik."«, l3=0x32}
0x3c5…3d1 Line {l1=0x0a, l2=»0240 ELSE «, l3=0x0a}
0x3d1…3eb Line {l1=0x18, l2=»0245 IF NUMMER<=69 THEN «, l3=0x18}
0x3eb…412 Line {l1=0x25, l2=»0250 PRINT "60 - 69   Praktiske fag."«, l3=0x25}
0x412…41e Line {l1=0x0a, l2=»0260 ELSE «, l3=0x0a}
0x41e…438 Line {l1=0x18, l2=»0265 IF NUMMER<=79 THEN «, l3=0x18}
0x438…47a Line {l1=0x40, l2=»0270 PRINT "70 - 79   Kunst. Teater. Film. Musik. Spil. Idræt. "«, l3=0x40}
0x47a…486 Line {l1=0x0a, l2=»0280 ELSE «, l3=0x0a}
0x486…4a0 Line {l1=0x18, l2=»0285 IF NUMMER<=89 THEN «, l3=0x18}
0x4a0…4cc Line {l1=0x2a, l2=»0290 PRINT "80 - 89   Litteratur. Sprog. "«, l3=0x2a}
0x4cc…4d8 Line {l1=0x0a, l2=»0300 ELSE «, l3=0x0a}
0x4d8…4f2 Line {l1=0x18, l2=»0305 IF NUMMER<=99 THEN «, l3=0x18}
0x4f2…514 Line {l1=0x20, l2=»0310 PRINT "90 - 99   Historie."«, l3=0x20}
0x514…521 Line {l1=0x0b, l2=»0320 ENDIF «, l3=0x0b}
0x521…52e Line {l1=0x0b, l2=»0321 ENDIF «, l3=0x0b}
0x52e…53b Line {l1=0x0b, l2=»0322 ENDIF «, l3=0x0b}
0x53b…548 Line {l1=0x0b, l2=»0323 ENDIF «, l3=0x0b}
0x548…555 Line {l1=0x0b, l2=»0324 ENDIF «, l3=0x0b}
0x555…562 Line {l1=0x0b, l2=»0325 ENDIF «, l3=0x0b}
0x562…56f Line {l1=0x0b, l2=»0326 ENDIF «, l3=0x0b}
0x56f…57c Line {l1=0x0b, l2=»0327 ENDIF «, l3=0x0b}
0x57c…589 Line {l1=0x0b, l2=»0328 ENDIF «, l3=0x0b}
0x589…596 Line {l1=0x0b, l2=»0329 ENDIF «, l3=0x0b}
0x596…5d5 Line {l1=0x3d, l2=»0330 PRINT "------------------------------------------------"«, l3=0x3d}
0x5d5…5e0 00 00 63 63 63 63 63 63 63 63 63                                                                  ┆  ccccccccc┆
0x5e0…600 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┆
          […0x1e…]

<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

Reduced view