|
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: »DEMO_3«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen └─⟦this⟧ »DEMO_3« └─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen └─⟦this⟧ »DEMO_3«
0100 // ----------------- demo_3 ----------------------- 0110 DIM NAVN$ OF 22,ADR$ OF 22,POSTBY$ OF 20 0120 INTEGER NR,NUMMER 0130 CLEAR 0140 CURSOR 1,6 0150 PRINT "Du skal nu rette i kartoteket 'DEMOFIL' " 0200 DIM FIL$ OF 8,KLASSE$ OF 5 0210 CREATE "SYSTIME:KOPI" 0220 OPEN "SYSTIME:KOPI",W 0230 OPEN "SYSTIME:DEMOFIL",R 0240 GET "SYSTIME:DEMOFIL":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$ 0250 WHILE NOT EOF("SYSTIME:DEMOFIL") DO 0260 PRINT NUMMER;TAB(6);KLASSE$;TAB(17);NAVN$;TAB(39);ADR$;TAB(62);POSTBY$ 0270 IF NUMMER=5 THEN 0280 INPUT "Nummer. : ":NUMMER 0290 INPUT "Klasse : ":KLASSE$ 0300 INPUT "Navn : ":NAVN$ 0310 INPUT "Adresse : ":ADR$ 0320 INPUT "Postnr. & by : ":POSTBY$ 0330 ENDIF 0340 PUT "SYSTIME:KOPI":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$ 0350 GET "SYSTIME:DEMOFIL":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$ 0360 ENDWHILE 0370 CLOSE "SYSTIME:DEMOFIL" 0380 ENDFILE "SYSTIME:KOPI" // Udskriv slutmærke i filen 0390 CLOSE "SYSTIME:KOPI" 0400 0410 OPEN "SYSTIME:KOPI",R 0420 OPEN "SYSTIME:DEMOFIL",W 0430 GET "SYSTIME:KOPI":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$ 0440 WHILE NOT EOF("SYSTIME:KOPI") DO 0450 PUT "SYSTIME:DEMOFIL":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$ 0460 GET "SYSTIME:KOPI":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$ 0470 ENDWHILE 0480 CLOSE "SYSTIME:KOPI" 0490 ENDFILE "SYSTIME:DEMOFIL" // Udskriv slutmærke i filen 0500 CLOSE "SYSTIME:DEMOFIL" 0510 0520 PROC EOF(FNAVN$) 0530 // EOF funktionen findes ikke i DDE-COMAL80 istedet anvendes 0540 // standard funktion STATUS, som returnerer med værdien 19 0550 // ved END-OF-FILE 0560 EOF:=(STATUS(FNAVN$)=19) 0570 ENDPROC EOF