|
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: 1504 (0x5e0)
Notes: Mikados TextFile, Mikados_K
Names: »DEMO_EOF«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »DEMO_EOF«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »DEMO_EOF«
0010 // ---------------- eks-EOF --------------------------
0020 // Programmet viser værdien af EOF .
0030 DIM NAVN$ OF 25
0040 OPEN "SYSTIME:eksEOF",W
0045 READ ANT
0050 FOR I:=1 TO ANT DO
0060 READ NAVN$
0070 PUT "SYSTIME:eksEOF":NAVN$
0080 NEXT I
0090 DATA 7,"Lars","Hanne","Alice","Jean-Pierre","Jeanette","Francois"
0095 DATA "Ole"
0100 CLOSE
0110
0120 CLEAR
0130 OPEN "SYSTIME:eksEOF",R
0150 CURSOR 1,5
0160 PRINT "Navn:","EOF:"
0170 PRINT "---------------------------"
0180 PRINT
0190 PRINT
0200 REPEAT
0210 GET "SYSTIME:eksEOF":NAVN$
0220 PRINT NAVN$,EOF("SYSTIME:eksEOF")
0230 PRINT
0240 UNTIL EOF("SYSTIME:eksEOF")
0250 CLOSE
0260
0270 PROC EOF(FNAVN$)
0275 // EOF funktionen findes ikke i DDE-COMAL80 men realiseres ved hjælp
0276 // af kald til standardfunktion STATUS(filnavn), 19 = EOF
0280 EOF:=(STATUS(FNAVN$)=19)
0290 ENDPROC EOF