DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦711a85d35⟧

    Length: 2432 (0x980)
    Names: »DOKTOR.CSB«

Derivation

└─⟦b5c9f25d9⟧ Bits:30004195/disk4.imd Programmer til datalære fra UV-Datateket på Comet
    └─⟦this⟧ »DOKTOR.CSB« 

Hex Dump

0x000…020 (0,) 45 20 48 41 52 20 48 45 52 56 45 44 20 46 4f 52 42 55 44 20 4d 4f 44 31 f7 04 f8 62 02 3a aa fa   ┆E HAR HERVED FORBUD MOD1   b :  ┆
0x020…040      32 45 2d 00 41 54 20 4e 59 44 45 20 53 50 49 52 49 54 55 53 20 49 20 44 45 20 4e 5b 53 54 45 20   ┆2E- AT NYDE SPIRITUS I DE NÆSTE ┆
0x040…060      33 30 20 5d 52 2c 20 48 56 49 53 20 44 45 20 44 41 31 f7 04 f8 6c 02 2a aa fa 22 45 1d 00 4f 56   ┆30 ÅR, HVIS DE DA1   l *  "E  OV┆
0x060…080      45 52 48 4f 56 45 44 45 54 20 42 4c 49 56 45 52 20 53 5d 20 47 41 4d 4d 45 4c 21 31 f7 04 f8 76   ┆ERHOVEDET BLIVER SÅ GAMMEL!1   v┆
0x080…0a0      02 15 81 42 2e 42 2e 04 fa 08 45 03 00 47 55 4c 31 f7 04 f8 80 02 1b aa fa 12 45 0d 00 45 52 20   ┆   B.B.   E  GUL1         E  ER ┆
0x0a0…0c0      44 45 20 4b 49 4e 45 53 45 52 31 f7 04 e7 f8 8a 02 0a 95 fa 04 38 01 31 f8 94 02 14 9c fb cf fa   ┆DE KINESER1          8 1        ┆
0x0c0…0e0      0b 38 01 3b 45 02 00 4a 41 6f 31 dd f8 9e 02 43 aa fa 3b 45 36 00 48 56 49 53 20 44 45 20 49 4b   ┆ 8 ;E  JAo1    C  ;E6 HVIS DE IK┆
0x0e0…100      4b 45 20 48 41 52 20 44 45 54 20 47 4f 44 54 2c 20 4c 49 44 45 52 20 44 45 20 53 49 4b 4b 45 52   ┆KE HAR DET GODT, LIDER DE SIKKER┆
0x100…120      54 20 41 46 20 48 4a 45 4d 56 45 2e 31 f7 04 f8 a8 02 3b aa fa 33 45 2e 00 4d 49 4e 20 46 5b 54   ┆T AF HJEMVE.1     ;  3E. MIN FÆT┆
0x120…140      54 45 52 20 4c 45 4a 45 52 20 4b 41 4e 4f 45 52 20 55 44 20 46 4f 52 20 31 30 20 4b 52 2e 20 49   ┆TER LEJER KANOER UD FOR 10 KR. I┆
0x140…160      20 54 49 4d 45 4e 2e 31 f7 04 f8 b2 02 07 7a 3f 2e f8 bc 02 41 aa fa 39 45 34 00 44 45 20 48 41   ┆ TIMEN.1      z?.   A  9E4 DE HA┆
0x160…180      52 20 47 55 4c 20 46 45 42 45 52 2e 20 44 45 20 42 5c 52 20 49 4b 4b 45 20 52 45 4a 53 45 20 54   ┆R GUL FEBER. DE BØR IKKE REJSE T┆
0x180…1a0      49 4c 20 41 46 52 49 4b 41 20 4d 45 52 45 21 31 f7 04 f8 c6 02 41 aa fa 39 45 34 00 49 20 5c 56   ┆IL AFRIKA MERE!1     A  9E4 I ØV┆
0x1a0…1c0      52 49 47 54 20 42 5c 52 20 44 45 20 44 59 50 50 45 20 48 4f 56 45 44 45 54 20 49 20 45 4e 20 42   ┆RIGT BØR DE DYPPE HOVEDET I EN B┆
0x1c0…1e0      5c 54 54 45 20 52 5c 44 20 4d 41 4c 49 4e 47 2c 31 f7 04 f8 d0 02 3c aa fa 34 45 2f 00 53 5d 20   ┆ØTTE RØD MALING,1     <  4E/ SÅ ┆
0x1e0…200      56 49 20 41 4e 44 52 45 20 45 52 20 46 52 49 20 46 4f 52 20 41 54 20 53 45 20 50 5d 20 44 45 4e   ┆VI ANDRE ER FRI FOR AT SE PÅ DEN┆
0x200…220 (1,) 07 00 b5 06 03 0f 00 02 00 b5 06 f8 0a 00 1e 71 f9 16 00 50 52 4f 47 52 41 4d 2d 49 44 45 4e 54   ┆               q   PROGRAM-IDENT┆
0x220…240      49 46 49 4b 41 54 49 4f 4e f8 14 00 08 71 f9 00 00 f8 1e 00 32 71 f9 2a 00 70 72 6f 67 72 61 6d   ┆IFIKATION    q      2q * program┆
0x240…260      2d 74 69 74 65 6c 2f 76 65 72 73 69 6f 6e 3a 20 20 20 20 20 20 20 20 20 64 65 73 73 65 72 74 2f   ┆-titel/version:         dessert/┆
0x260…280      31 2e 30 f8 28 00 2e 71 f9 26 00 62 65 73 74 69 6c 6c 69 6e 67 73 6e 75 6d 6d 65 72 3a 20 20 20   ┆1.0 ( .q & bestillingsnummer:   ┆
0x280…2a0      20 20 20 20 20 20 20 20 20 20 30 34 2e 34 30 33 33 f8 32 00 36 71 f9 2e 00 73 70 6e 20 6e 72 3a   ┆          04.4033 2 6q . spn nr:┆
0x2a0…2c0      20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 38 36 36 39 2d 38 33   ┆                        88669-83┆
0x2c0…2e0      30 38 30 33 2d 33 32 f8 3c 00 08 71 f9 00 00 f8 46 00 3b 71 f9 33 00 73 70 72 6f 67 3a 20 20 20   ┆0803-32 <  q    F ;q 3 sprog:   ┆
0x2e0…300      20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 74 61 6e 69 63 20 63 6f   ┆                      metanic co┆
0x300…320      6d 61 6c 20 31 2e 36 20 63 61 f8 50 00 2c 71 f9 24 00 6b 69 6c 64 65 6d 61 73 6b 69 6e 65 3a 20   ┆mal 1.6 ca P ,q $ kildemaskine: ┆
0x320…340      20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 65 74 f8 5a 00 2c 71 f9 24 00 61 66   ┆                 comet Z ,q $ af┆
0x340…360      76 69 6b 6c 69 6e 67 73 6d 61 73 6b 69 6e 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d   ┆viklingsmaskine:             com┆
0x360…380      65 74 f8 64 00 08 71 f9 00 00 f8 6e 00 3f 71 f9 37 00 66 6f 72 66 61 74 74 65 72 3a 20 20 20 20   ┆et d  q    n ?q 7 forfatter:    ┆
0x380…3a0      20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 7c 72 67 65 20 63 68 72 69 73 74 65 6e 73   ┆                 børge christens┆
0x3a0…3c0      65 6e 2c 74 7c 6e 64 65 72 f8 78 00 33 71 f9 2b 00 6b 6f 70 69 72 65 74 3a 20 20 20 20 20 20 20   ┆en,tønder x 3q + kopiret:       ┆
0x3c0…3e0      20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 76 2d 64 61 74 61 74 65 6b 65 74 f8 82 00 3f   ┆                uv-datateket   ?┆
0x3e0…400      71 f9 37 00 72 65 74 74 69 67 68 65 64 73 68 61 76 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20   ┆q 7 rettighedshaver:            ┆
0x400…420 (2,) 20 20 20 62 7c 72 67 65 20 63 68 72 69 73 74 65 6e 73 65 6e 2c 74 7c 6e 64 65 72 f8 8c 00 08 71   ┆   børge christensen,tønder    q┆
0x420…440      f9 00 00 f8 96 00 44 71 f9 3c 00 50 52 4f 47 52 41 4d 42 45 53 4b 52 49 56 45 4c 53 45 3a 20 20   ┆      Dq < PROGRAMBESKRIVELSE:  ┆
0x440…460      45 6b 73 65 6d 70 65 6c 20 70 7d 20 73 74 72 75 6b 74 75 72 65 72 65 74 20 62 72 75 67 20 61 66   ┆Eksempel på struktureret brug af┆
0x460…480      20 6c 7c 6b 6b 65 2d f8 a0 00 43 71 f9 3b 00 73 74 72 75 6b 74 75 72 65 72 20 6f 67 20 66 6f 72   ┆ løkke-   Cq ; strukturer og for┆
0x480…4a0      67 72 65 6e 69 6e 67 20 69 20 43 6f 6d 61 6c 2d 38 30 2c 20 48 65 72 75 6e 64 65 72 20 61 6e 76   ┆grening i Comal-80, Herunder anv┆
0x4a0…4c0      65 6e 64 65 6c 73 65 20 61 66 f8 aa 00 39 71 f9 31 00 52 45 50 45 41 54 2d 55 4e 54 49 4c 2c 20   ┆endelse af   9q 1 REPEAT-UNTIL, ┆
0x4c0…4e0      57 48 49 4c 45 2d 45 4e 44 57 48 49 4c 45 2c 20 73 61 6d 74 20 49 46 2d 45 4c 53 45 2d 45 4e 44   ┆WHILE-ENDWHILE, samt IF-ELSE-END┆
0x4e0…500      49 46 2e f8 b4 00 1f 71 f9 17 00 56 65 6c 65 67 6e 65 74 20 74 69 6c 20 75 64 62 79 67 6e 69 6e   ┆IF.    q   Velegnet til udbygnin┆
0x500…520      67 2e f8 be 00 08 71 f9 00 00 f8 c8 00 08 71 f9 00 00 f8 d2 00 10 71 f9 08 00 69 6e 64 64 61 74   ┆g.    q       q       q   inddat┆
0x520…540      61 3a f8 dc 00 08 71 f9 00 00 f8 e6 00 08 71 f9 00 00 f8 f0 00 08 71 f9 00 00 f8 fa 00 08 71 f9   ┆a:    q       q       q       q ┆
0x540…560      00 00 f8 04 01 17 71 f9 0f 00 66 69 6c 62 65 73 6b 72 69 76 65 6c 73 65 3a f8 0e 01 08 71 f9 00   ┆      q   filbeskrivelse:    q  ┆
0x560…580      00 f8 18 01 08 71 f9 00 00 f8 22 01 0f 71 f9 07 00 75 64 64 61 74 61 3a f8 2c 01 08 71 f9 00 00   ┆     q    "  q   uddata: ,  q   ┆
0x580…5a0      f8 36 01 08 71 f9 00 00 f8 40 01 08 71 f9 00 00 f8 4a 01 08 71 f9 00 00 f8 54 01 08 71 f9 00 00   ┆ 6  q    @  q    J  q    T  q   ┆
0x5a0…5c0      f8 5e 01 08 71 f9 00 00 f8 68 01 20 73 ff 00 4a fa 05 47 06 00 31 4b df fa 05 47 14 00 31 e6 ff   ┆ ^  q    h  s  J  G  1K   G  1  ┆
0x5c0…5e0      01 df fa 05 47 14 00 31 f8 72 01 1f aa fa 17 45 12 00 56 49 20 53 45 52 56 45 52 45 52 20 49 20   ┆    G  1 r     E  VI SERVERER I ┆
0x5e0…600      44 41 47 3a 31 f7 04 f8 7c 01 27 aa fa 1f 45 1a 00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ┆DAG:1   ø '   E  ---------------┆
0x600…620 (3,) 07 00 de 08 06 2b 00 02 00 de 08 f8 0a 00 1e 71 f9 16 00 50 52 4f 47 52 41 4d 2d 49 44 45 4e 54   ┆     +         q   PROGRAM-IDENT┆
0x620…640      49 46 49 4b 41 54 49 4f 4e f8 14 00 08 71 f9 00 00 f8 1e 00 33 71 f9 2b 00 70 72 6f 67 72 61 6d   ┆IFIKATION    q      3q + program┆
0x640…660      2d 74 69 74 65 6c 2f 76 65 72 73 69 6f 6e 3a 20 20 20 20 20 20 20 20 20 20 20 64 6f 6b 74 6f 72   ┆-titel/version:           doktor┆
0x660…680      2f 31 2e 30 f8 28 00 30 71 f9 28 00 62 65 73 74 69 6c 6c 69 6e 67 73 6e 75 6d 6d 65 72 3a 20 20   ┆/1.0 ( 0q ( bestillingsnummer:  ┆
0x680…6a0      20 20 20 20 20 20 20 20 20 20 20 20 20 30 34 2e 34 30 34 33 f8 32 00 38 71 f9 30 00 73 70 6e 20   ┆             04.4043 2 8q 0 spn ┆
0x6a0…6c0      6e 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 38 36   ┆nr:                          886┆
0x6c0…6e0      36 39 2d 38 33 30 38 30 37 2d 33 33 f8 3c 00 08 71 f9 00 00 f8 46 00 3d 71 f9 35 00 73 70 72 6f   ┆69-830807-33 <  q    F =q 5 spro┆
0x6e0…700      67 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 74   ┆g:                           met┆
0x700…720      61 6e 69 63 20 63 6f 6d 61 6c 20 31 2e 36 20 63 61 f8 50 00 2e 71 f9 26 00 6b 69 6c 64 65 6d 61   ┆anic comal 1.6 ca P .q & kildema┆
0x720…740      73 6b 69 6e 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 65 74 f8   ┆skine:                    comet ┆
0x740…760      5a 00 2e 71 f9 26 00 61 66 76 69 6b 6c 69 6e 67 73 6d 61 73 6b 69 6e 65 3a 20 20 20 20 20 20 20   ┆Z .q & afviklingsmaskine:       ┆
0x760…780      20 20 20 20 20 20 20 20 63 6f 6d 65 74 f8 64 00 08 71 f9 00 00 f8 6e 00 41 71 f9 39 00 66 6f 72   ┆        comet d  q    n Aq 9 for┆
0x780…7a0      66 61 74 74 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 7c   ┆fatter:                       bø┆
0x7a0…7c0      72 67 65 20 63 68 72 69 73 74 65 6e 73 65 6e 2c 74 7c 6e 64 65 72 f8 78 00 35 71 f9 2d 00 6b 6f   ┆rge christensen,tønder x 5q - ko┆
0x7c0…7e0      70 69 72 65 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75   ┆piret:                         u┆
0x7e0…800      76 2d 64 61 74 61 74 65 6b 65 74 f8 82 00 41 71 f9 39 00 72 65 74 74 69 67 68 65 64 73 68 61 76   ┆v-datateket   Aq 9 rettighedshav┆
0x800…820 (4,) 20 20 20 20 20 20 20 20 4e 45 58 54 20 46 41 47 4e 52 0d 30 36 30 30 20 20 20 20 20 20 20 45 4e   ┆        NEXT FAGNR 0600       EN┆
0x820…840      44 49 46 20 0d 30 36 31 30 20 20 20 20 20 20 20 45 58 45 43 20 49 4e 44 28 22 45 4c 45 56 4e 52   ┆DIF  0610       EXEC IND("ELEVNR┆
0x840…860      22 29 0d 30 36 32 30 20 20 20 20 20 45 4e 44 57 48 49 4c 45 20 0d 30 36 33 30 20 20 20 45 4e 44   ┆") 0620     ENDWHILE  0630   END┆
0x860…880      49 46 20 0d 30 36 34 30 20 45 4e 44 50 52 4f 43 20 4f 50 52 45 54 0d 30 36 35 30 20 2f 2f 0d 30   ┆IF  0640 ENDPROC OPRET 0650 // 0┆
0x880…8a0      36 36 30 20 50 52 4f 43 20 5b 4e 44 52 49 4e 47 0d 30 36 37 30 20 20 20 52 45 50 45 41 54 20 0d   ┆660 PROC ÆNDRING 0670   REPEAT  ┆
0x8a0…8c0      30 36 38 30 20 20 20 20 20 45 58 45 43 20 49 4e 44 28 22 45 4c 45 56 4e 52 22 29 0d 30 36 39 30   ┆0680     EXEC IND("ELEVNR") 0690┆
0x8c0…8e0      20 20 20 20 20 49 46 20 4e 41 56 4e 24 28 45 4c 45 56 4e 52 29 3c 3e 22 22 20 54 48 45 4e 20 0d   ┆     IF NAVN$(ELEVNR)<>"" THEN  ┆
0x8e0…900      30 37 30 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 44 52 45 4a 45 52 20 44 45 54 20 53 49 47   ┆0700       PRINT "DREJER DET SIG┆
0x900…920      20 4f 4d 20 46 5c 4c 47 45 4e 44 45 3a 22 0d 30 37 31 30 20 20 20 20 20 20 20 50 52 49 4e 54 20   ┆ OM FØLGENDE:" 0710       PRINT ┆
0x920…940      4e 41 56 4e 24 28 45 4c 45 56 4e 52 29 2c 22 28 4a 41 2f 52 45 54 55 52 4e 29 22 0d 30 37 32 30   ┆NAVN$(ELEVNR),"(JA/RETURN)" 0720┆
0x940…960      20 20 20 20 20 20 20 49 4e 50 55 54 20 53 24 0d 30 37 33 30 20 20 20 20 20 20 20 49 46 20 53 24   ┆       INPUT S$ 0730       IF S$┆
0x960…980      3d 22 4a 41 22 20 54 48 45 4e 20 0d 30 37 34 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 52 45   ┆="JA" THEN  0740         EXEC RE┆