|
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: 1760 (0x6e0)
Notes: Mikados TextFile, Mikados_K
Names: »TELEFONN«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TELEFONN«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TELEFONN«
0010 // --------------------------- telefonnr -------------------------- 0020 // Programmet finder er telefonnummerpå en person, hvis navn og tlfnr. 0030 // ligger i filen 'telefon'" 0040 // Hvis du ønsker at kende indholdet af filen, benyt linie 150. 0050 // 0060 DIM LISTE(10),PERSON$(10) OF 30,S$ OF 1,NAVN$ OF 30 0061 INTEGER TRUE,FALSE 0062 TRUE:=1;FALSE:=0 0070 // 0080 REPEAT 0090 CLEAR 0100 CURSOR 1,6 0110 INPUT "Hvilket navn søger du? ":NAVN$ 0120 FUNDET:=FALSE 0130 OPEN "SYSTIME:TELEFON",R 0140 FOR I:=1 TO 10 DO 0150 GET "SYSTIME:TELEFON":LISTE(I),PERSON$(I) 0160 // PRINT LISTE(I),PERSON$(I) 0170 IF PERSON$(I)=NAVN$ THEN 0180 CURSOR 1,10 0190 PRINT NAVN$; 0191 PRINT USING " har telefonnummer:#######":LISTE(I) 0200 FUNDET:=TRUE 0210 ENDIF 0220 NEXT I 0230 CLOSE "SYSTIME:TELEFON" 0240 IF NOT FUNDET THEN EXEC FEJLSKRIFT 0250 // 0270 CURSOR 1,22 0280 INPUT "Ønskes flere telefonnumre? (j/n) ":S$ 0310 UNTIL S$="N" OR S$="n" 0320 // 0330 PROC FEJLSKRIFT 0340 CURSOR 1,10 0350 PRINT NAVN$;" har ikke noget telefonnummer i vores kartotek." 0360 ENDPROC FEJLSKRIFT