|
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: 1504 (0x5e0)
Types: TextFile
Notes: Mikados TextFile, Mikados_K
Names: »OPLYSNIN«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »OPLYSNIN«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »OPLYSNIN«
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
?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