|
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 - download
Length: 1760 (0x6e0)
Types: TextFile
Notes: Mikados_K
Names: »TELEFONN.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TELEFONN.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TELEFONN.K«
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
0x000…04a Line {l1=0x48, l2=»0010 // --------------------------- telefonnr --------------------------«, l3=0x48}
0x04a…097 Line {l1=0x4b, l2=»0020 // Programmet finder er telefonnummerpå en person, hvis navn og tlfnr.«, l3=0x4b}
0x097…0ba Line {l1=0x21, l2=»0030 // ligger i filen 'telefon'"«, l3=0x21}
0x0ba…100 Line {l1=0x44, l2=»0040 // Hvis du ønsker at kende indholdet af filen, benyt linie 150.«, l3=0x44}
0x100…10a Line {l1=0x08, l2=»0050 // «, l3=0x08}
0x10a…144 Line {l1=0x38, l2=»0060 DIM LISTE(10),PERSON$(10) OF 30,S$ OF 1,NAVN$ OF 30«, l3=0x38}
0x144…15d Line {l1=0x17, l2=»0061 INTEGER TRUE,FALSE«, l3=0x17}
0x15d…174 Line {l1=0x15, l2=»0062 TRUE:=1;FALSE:=0«, l3=0x15}
0x174…17e Line {l1=0x08, l2=»0070 // «, l3=0x08}
0x17e…18c Line {l1=0x0c, l2=»0080 REPEAT «, l3=0x0c}
0x18c…199 Line {l1=0x0b, l2=»0090 CLEAR «, l3=0x0b}
0x199…1aa Line {l1=0x0f, l2=»0100 CURSOR 1,6«, l3=0x0f}
0x1aa…1da Line {l1=0x2e, l2=»0110 INPUT "Hvilket navn søger du? ":NAVN$«, l3=0x2e}
0x1da…1ee Line {l1=0x12, l2=»0120 FUNDET:=FALSE«, l3=0x12}
0x1ee…20d Line {l1=0x1d, l2=»0130 OPEN "SYSTIME:TELEFON",R«, l3=0x1d}
0x20d…226 Line {l1=0x17, l2=»0140 FOR I:=1 TO 10 DO «, l3=0x17}
0x226…256 Line {l1=0x2e, l2=»0150 GET "SYSTIME:TELEFON":LISTE(I),PERSON$(I)«, l3=0x2e}
0x256…279 Line {l1=0x21, l2=»0160 // PRINT LISTE(I),PERSON$(I)«, l3=0x21}
0x279…299 Line {l1=0x1e, l2=»0170 IF PERSON$(I)=NAVN$ THEN «, l3=0x1e}
0x299…2ab Line {l1=0x10, l2=»0180 CURSOR 1,10«, l3=0x10}
0x2ab…2be Line {l1=0x11, l2=»0190 PRINT NAVN$;«, l3=0x11}
0x2be…2f6 Line {l1=0x36, l2=»0191 PRINT USING " har telefonnummer:#######":LISTE(I)«, l3=0x36}
0x2f6…309 Line {l1=0x11, l2=»0200 FUNDET:=TRUE«, l3=0x11}
0x309…316 Line {l1=0x0b, l2=»0210 ENDIF «, l3=0x0b}
0x316…323 Line {l1=0x0b, l2=»0220 NEXT I«, l3=0x0b}
0x323…341 Line {l1=0x1c, l2=»0230 CLOSE "SYSTIME:TELEFON"«, l3=0x1c}
0x341…36a Line {l1=0x27, l2=»0240 IF NOT FUNDET THEN EXEC FEJLSKRIFT«, l3=0x27}
0x36a…374 Line {l1=0x08, l2=»0250 // «, l3=0x08}
0x374…386 Line {l1=0x10, l2=»0270 CURSOR 1,22«, l3=0x10}
0x386…3bc Line {l1=0x34, l2=»0280 INPUT "Ønskes flere telefonnumre? (j/n) ":S$«, l3=0x34}
0x3bc…3d9 Line {l1=0x1b, l2=»0310 UNTIL S$="N" OR S$="n"«, l3=0x1b}
0x3d9…3e3 Line {l1=0x08, l2=»0320 // «, l3=0x08}
0x3e3…3f9 Line {l1=0x14, l2=»0330 PROC FEJLSKRIFT«, l3=0x14}
0x3f9…40b Line {l1=0x10, l2=»0340 CURSOR 1,10«, l3=0x10}
0x40b…44f Line {l1=0x42, l2=»0350 PRINT NAVN$;" har ikke noget telefonnummer i vores kartotek."«, l3=0x42}
0x44f…468 Line {l1=0x17, l2=»0360 ENDPROC FEJLSKRIFT«, l3=0x17}
0x468…480 00 00 2f 20 50 52 4f 43 20 46 45 4a 4c 53 4b 52 49 46 54 17 00 00 63 63 ┆ / PROC FEJLSKRIFT cc┆
0x480…4a0 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┆
[…0x12…]