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

⟦607a83d77⟧ TextFile

    Length: 1504 (0x5e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »OPLYSNIN.K«

Derivation

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »OPLYSNIN.K« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »OPLYSNIN.K«

Mikados K File

0010 // ------------------------ oplysning --------------------
0020 // Programmet finder nummer på en lærer, når man indtaster
0030 // lærerens navn. Lærernes data ligger i en strengtabel.
0040 // 
0045 INTEGER I
0050 DIM LÆRER$(12) OF 30,TEACHER$ OF 25,SV$ OF 1
0060 // 
0070 EXEC STRENGTABEL
0080 EXEC OPLYSNING
0090 // 
0100 PROC STRENGTABEL
0110 LÆRER$(1):="Hans Hansen"
0120 LÆRER$(2):="Jens Jensen"
0130 LÆRER$(3):="Peter Petersen"
0140 LÆRER$(4):="Niels Nielsen"
0150 LÆRER$(5):="Ove Ovesen"
0160 LÆRER$(6):="John Johnsen"
0170 LÆRER$(7):="Hanne Hannesen"
0180 LÆRER$(8):="Sørine Sørensen"
0190 LÆRER$(9):="Petra Petersen"
0200 LÆRER$(10):="Birthe Birthesen"
0210 LÆRER$(11):="Line Lenesen"
0220 LÆRER$(12):="Pia Nielsen"
0230 ENDPROC STRENGTABEL
0240 // 
0250 PROC OPLYSNING
0260 REPEAT 
0270 CLEAR 
0280 I:=0
0290 CURSOR 5,7
0300 INPUT "Skriv lærerens navn:            ":TEACHER$
0310 REPEAT 
0320 I:=I+1
0330 UNTIL LÆRER$(I)=TEACHER$ OR I=>12
0340 IF LÆRER$(I)=TEACHER$ THEN 
0350 CURSOR 5,14
0360 PRINT "Lærernummer:           ";I+99
0370 CURSOR 5,16
0380 PRINT "Navn:                  ";LÆRER$(I)
0390 ELSE 
0400 CURSOR 5,14
0410 PRINT "Vi har desværre ingen lærer med navnet: ";TEACHER$
0420 ENDIF 
0440 CURSOR 5,20
0450 INPUT "Ønsker du flere oplysninger?      (j/n)  ":SV$
0480 UNTIL SV$="n"
0490 CURSOR 5,23
0500 PRINT "Så slutter vi for i dag."
0510 ENDPROC OPLYSNING

Mikados K File

0x000…041 Line {l1=0x3f, l2=»0010 // ------------------------ oplysning --------------------«, l3=0x3f}
0x041…082 Line {l1=0x3f, l2=»0020 // Programmet finder nummer på en lærer, når man indtaster«, l3=0x3f}
0x082…0c1 Line {l1=0x3d, l2=»0030 // lærerens navn. Lærernes data ligger i en strengtabel.«, l3=0x3d}
0x0c1…0cb Line {l1=0x08, l2=»0040 // «, l3=0x08}
0x0cb…0db Line {l1=0x0e, l2=»0045 INTEGER I«, l3=0x0e}
0x0db…10e Line {l1=0x31, l2=»0050 DIM LÆRER$(12) OF 30,TEACHER$ OF 25,SV$ OF 1«, l3=0x31}
0x10e…118 Line {l1=0x08, l2=»0060 // «, l3=0x08}
0x118…12f Line {l1=0x15, l2=»0070 EXEC STRENGTABEL«, l3=0x15}
0x12f…144 Line {l1=0x13, l2=»0080 EXEC OPLYSNING«, l3=0x13}
0x144…14e Line {l1=0x08, l2=»0090 // «, l3=0x08}
0x14e…165 Line {l1=0x15, l2=»0100 PROC STRENGTABEL«, l3=0x15}
0x165…184 Line {l1=0x1d, l2=»0110 LÆRER$(1):="Hans Hansen"«, l3=0x1d}
0x184…1a3 Line {l1=0x1d, l2=»0120 LÆRER$(2):="Jens Jensen"«, l3=0x1d}
0x1a3…1c5 Line {l1=0x20, l2=»0130 LÆRER$(3):="Peter Petersen"«, l3=0x20}
0x1c5…1e6 Line {l1=0x1f, l2=»0140 LÆRER$(4):="Niels Nielsen"«, l3=0x1f}
0x1e6…204 Line {l1=0x1c, l2=»0150 LÆRER$(5):="Ove Ovesen"«, l3=0x1c}
0x204…224 Line {l1=0x1e, l2=»0160 LÆRER$(6):="John Johnsen"«, l3=0x1e}
0x224…246 Line {l1=0x20, l2=»0170 LÆRER$(7):="Hanne Hannesen"«, l3=0x20}
0x246…269 Line {l1=0x21, l2=»0180 LÆRER$(8):="Sørine Sørensen"«, l3=0x21}
0x269…28b Line {l1=0x20, l2=»0190 LÆRER$(9):="Petra Petersen"«, l3=0x20}
0x28b…2b0 Line {l1=0x23, l2=»0200 LÆRER$(10):="Birthe Birthesen"«, l3=0x23}
0x2b0…2d1 Line {l1=0x1f, l2=»0210 LÆRER$(11):="Line Lenesen"«, l3=0x1f}
0x2d1…2f1 Line {l1=0x1e, l2=»0220 LÆRER$(12):="Pia Nielsen"«, l3=0x1e}
0x2f1…30b Line {l1=0x18, l2=»0230 ENDPROC STRENGTABEL«, l3=0x18}
0x30b…315 Line {l1=0x08, l2=»0240 // «, l3=0x08}
0x315…32a Line {l1=0x13, l2=»0250 PROC OPLYSNING«, l3=0x13}
0x32a…338 Line {l1=0x0c, l2=»0260 REPEAT «, l3=0x0c}
0x338…345 Line {l1=0x0b, l2=»0270 CLEAR «, l3=0x0b}
0x345…350 Line {l1=0x09, l2=»0280 I:=0«, l3=0x09}
0x350…361 Line {l1=0x0f, l2=»0290 CURSOR 5,7«, l3=0x0f}
0x361…399 Line {l1=0x36, l2=»0300 INPUT "Skriv lærerens navn:            ":TEACHER$«, l3=0x36}
0x399…3a7 Line {l1=0x0c, l2=»0310 REPEAT «, l3=0x0c}
0x3a7…3b4 Line {l1=0x0b, l2=»0320 I:=I+1«, l3=0x0b}
0x3b4…3dc Line {l1=0x26, l2=»0330 UNTIL LÆRER$(I)=TEACHER$ OR I=>12«, l3=0x26}
0x3dc…3fe Line {l1=0x20, l2=»0340 IF LÆRER$(I)=TEACHER$ THEN «, l3=0x20}
0x3fe…410 Line {l1=0x10, l2=»0350 CURSOR 5,14«, l3=0x10}
0x410…43b Line {l1=0x29, l2=»0360 PRINT "Lærernummer:           ";I+99«, l3=0x29}
0x43b…44d Line {l1=0x10, l2=»0370 CURSOR 5,16«, l3=0x10}
0x44d…47d Line {l1=0x2e, l2=»0380 PRINT "Navn:                  ";LÆRER$(I)«, l3=0x2e}
0x47d…489 Line {l1=0x0a, l2=»0390 ELSE «, l3=0x0a}
0x489…49b Line {l1=0x10, l2=»0400 CURSOR 5,14«, l3=0x10}
0x49b…4db Line {l1=0x3e, l2=»0410 PRINT "Vi har desværre ingen lærer med navnet: ";TEACHER$«, l3=0x3e}
0x4db…4e8 Line {l1=0x0b, l2=»0420 ENDIF «, l3=0x0b}
0x4e8…4fa Line {l1=0x10, l2=»0440 CURSOR 5,20«, l3=0x10}
0x4fa…536 Line {l1=0x3a, l2=»0450 INPUT "Ønsker du flere oplysninger?      (j/n)  ":SV$«, l3=0x3a}
0x536…54a Line {l1=0x12, l2=»0480 UNTIL SV$="n"«, l3=0x12}
0x54a…55c Line {l1=0x10, l2=»0490 CURSOR 5,23«, l3=0x10}
0x55c…583 Line {l1=0x25, l2=»0500 PRINT "Så slutter vi for i dag."«, l3=0x25}
0x583…59b Line {l1=0x16, l2=»0510 ENDPROC OPLYSNING«, l3=0x16}
0x59b…5a0 00 00 63 63 63                                                                                    ┆  ccc┆
0x5a0…5c0 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┆
          […0x1…]

TextFile

?0010 // ------------------------ oplysning --------------------??0020 // Programmet finder nummer på en lærer, når man indtaster?=0030 // lærerens navn. Lærernes data ligger i en strengtabel.=▶08◀0040 // ▶08◀▶0e◀0045 INTEGER I▶0e◀10050 DIM LÆRER$(12) OF 30,TEACHER$ OF 25,SV$ OF 11▶08◀0060 // ▶08◀▶15◀0070 EXEC STRENGTABEL▶15◀▶13◀0080 EXEC OPLYSNING▶13◀▶08◀0090 // ▶08◀▶15◀0100 PROC STRENGTABEL▶15◀▶1d◀0110 LÆRER$(1):="Hans Hansen"▶1d◀▶1d◀0120 LÆRER$(2):="Jens Jensen"▶1d◀ 0130 LÆRER$(3):="Peter Petersen" ▶1f◀0140 LÆRER$(4):="Niels Nielsen"▶1f◀▶1c◀0150 LÆRER$(5):="Ove Ovesen"▶1c◀▶1e◀0160 LÆRER$(6):="John Johnsen"▶1e◀ 0170 LÆRER$(7):="Hanne Hannesen" !0180 LÆRER$(8):="Sørine Sørensen"! 0190 LÆRER$(9):="Petra Petersen" #0200 LÆRER$(10):="Birthe Birthesen"#▶1f◀0210 LÆRER$(11):="Line Lenesen"▶1f◀▶1e◀0220 LÆRER$(12):="Pia Nielsen"▶1e◀▶18◀0230 ENDPROC STRENGTABEL▶18◀▶08◀0240 // ▶08◀▶13◀0250 PROC OPLYSNING▶13◀\f

0260 REPEAT \f

▶0b◀0270 CLEAR ▶0b◀	0280 I:=0	▶0f◀0290 CURSOR 5,7▶0f◀60300 INPUT "Skriv lærerens navn:            ":TEACHER$6\f

0310 REPEAT \f

▶0b◀0320 I:=I+1▶0b◀&0330 UNTIL LÆRER$(I)=TEACHER$ OR I=>12& 0340 IF LÆRER$(I)=TEACHER$ THEN  ▶10◀0350 CURSOR 5,14▶10◀)0360 PRINT "Lærernummer:           ";I+99)▶10◀0370 CURSOR 5,16▶10◀.0380 PRINT "Navn:                  ";LÆRER$(I).
0390 ELSE 
▶10◀0400 CURSOR 5,14▶10◀>0410 PRINT "Vi har desværre ingen lærer med navnet: ";TEACHER$>▶0b◀0420 ENDIF ▶0b◀▶10◀0440 CURSOR 5,20▶10◀:0450 INPUT "Ønsker du flere oplysninger?      (j/n)  ":SV$:▶12◀0480 UNTIL SV$="n"▶12◀▶10◀0490 CURSOR 5,23▶10◀%0500 PRINT "Så slutter vi for i dag."%▶16◀0510 ENDPROC OPLYSNING▶16◀▶00◀▶00◀ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Reduced view