|
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