|
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: 1337 (0x539)
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