|
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: 1504 (0x5e0)
Types: TextFile
Notes: Mikados_K
Names: »DEMO_EOF.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »DEMO_EOF.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »DEMO_EOF.K«
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
0x000…03d Line {l1=0x3b, l2=»0010 // ---------------- eks-EOF --------------------------«, l3=0x3b}
0x03d…068 Line {l1=0x29, l2=»0020 // Programmet viser værdien af EOF .«, l3=0x29}
0x068…07e Line {l1=0x14, l2=»0030 DIM NAVN$ OF 25«, l3=0x14}
0x07e…09c Line {l1=0x1c, l2=»0040 OPEN "SYSTIME:eksEOF",W«, l3=0x1c}
0x09c…0ab Line {l1=0x0d, l2=»0045 READ ANT«, l3=0x0d}
0x0ab…0c5 Line {l1=0x18, l2=»0050 FOR I:=1 TO ANT DO «, l3=0x18}
0x0c5…0d6 Line {l1=0x0f, l2=»0060 READ NAVN$«, l3=0x0f}
0x0d6…0f7 Line {l1=0x1f, l2=»0070 PUT "SYSTIME:eksEOF":NAVN$«, l3=0x1f}
0x0f7…104 Line {l1=0x0b, l2=»0080 NEXT I«, l3=0x0b}
0x104…14c Line {l1=0x46, l2=»0090 DATA 7,"Lars","Hanne","Alice","Jean-Pierre","Jeanette","Francois"«, l3=0x46}
0x14c…15d Line {l1=0x0f, l2=»0095 DATA "Ole"«, l3=0x0f}
0x15d…16a Line {l1=0x0b, l2=»0100 CLOSE «, l3=0x0b}
0x16a…171 Line {l1=0x05, l2=»0110 «, l3=0x05}
0x171…17e Line {l1=0x0b, l2=»0120 CLEAR «, l3=0x0b}
0x17e…19c Line {l1=0x1c, l2=»0130 OPEN "SYSTIME:eksEOF",R«, l3=0x1c}
0x19c…1ad Line {l1=0x0f, l2=»0150 CURSOR 1,5«, l3=0x0f}
0x1ad…1c8 Line {l1=0x19, l2=»0160 PRINT "Navn:","EOF:"«, l3=0x19}
0x1c8…1f2 Line {l1=0x28, l2=»0170 PRINT "---------------------------"«, l3=0x28}
0x1f2…1ff Line {l1=0x0b, l2=»0180 PRINT «, l3=0x0b}
0x1ff…20c Line {l1=0x0b, l2=»0190 PRINT «, l3=0x0b}
0x20c…21a Line {l1=0x0c, l2=»0200 REPEAT «, l3=0x0c}
0x21a…23b Line {l1=0x1f, l2=»0210 GET "SYSTIME:eksEOF":NAVN$«, l3=0x1f}
0x23b…263 Line {l1=0x26, l2=»0220 PRINT NAVN$,EOF("SYSTIME:eksEOF")«, l3=0x26}
0x263…270 Line {l1=0x0b, l2=»0230 PRINT «, l3=0x0b}
0x270…292 Line {l1=0x20, l2=»0240 UNTIL EOF("SYSTIME:eksEOF")«, l3=0x20}
0x292…29f Line {l1=0x0b, l2=»0250 CLOSE «, l3=0x0b}
0x29f…2a6 Line {l1=0x05, l2=»0260 «, l3=0x05}
0x2a6…2bd Line {l1=0x15, l2=»0270 PROC EOF(FNAVN$)«, l3=0x15}
0x2bd…308 Line {l1=0x49, l2=»0275 // EOF funktionen findes ikke i DDE-COMAL80 men realiseres ved hjælp«, l3=0x49}
0x308…348 Line {l1=0x3e, l2=»0276 // af kald til standardfunktion STATUS(filnavn), 19 = EOF«, l3=0x3e}
0x348…367 Line {l1=0x1d, l2=»0280 EOF:=(STATUS(FNAVN$)=19)«, l3=0x1d}
0x367…379 Line {l1=0x10, l2=»0290 ENDPROC EOF«, l3=0x10}
0x379…380 00 00 63 63 63 63 63 ┆ ccccc┆
0x380…3a0 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…]