|
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: »DEMO_3.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »DEMO_3.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »DEMO_3.K«
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
0x000…03a Line {l1=0x38, l2=»0100 // ----------------- demo_3 -----------------------«, l3=0x38}
0x03a…069 Line {l1=0x2d, l2=»0110 DIM NAVN$ OF 22,ADR$ OF 22,POSTBY$ OF 20«, l3=0x2d}
0x069…081 Line {l1=0x16, l2=»0120 INTEGER NR,NUMMER«, l3=0x16}
0x081…08e Line {l1=0x0b, l2=»0130 CLEAR «, l3=0x0b}
0x08e…09f Line {l1=0x0f, l2=»0140 CURSOR 1,6«, l3=0x0f}
0x09f…0d6 Line {l1=0x35, l2=»0150 PRINT "Du skal nu rette i kartoteket 'DEMOFIL' "«, l3=0x35}
0x0d6…0f7 Line {l1=0x1f, l2=»0200 DIM FIL$ OF 8,KLASSE$ OF 5«, l3=0x1f}
0x0f7…113 Line {l1=0x1a, l2=»0210 CREATE "SYSTIME:KOPI"«, l3=0x1a}
0x113…12f Line {l1=0x1a, l2=»0220 OPEN "SYSTIME:KOPI",W«, l3=0x1a}
0x12f…14e Line {l1=0x1d, l2=»0230 OPEN "SYSTIME:DEMOFIL",R«, l3=0x1d}
0x14e…18c Line {l1=0x3c, l2=»0240 GET "SYSTIME:DEMOFIL":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x3c}
0x18c…1b7 Line {l1=0x29, l2=»0250 WHILE NOT EOF("SYSTIME:DEMOFIL") DO «, l3=0x29}
0x1b7…204 Line {l1=0x4b, l2=»0260 PRINT NUMMER;TAB(6);KLASSE$;TAB(17);NAVN$;TAB(39);ADR$;TAB(62);POSTBY$«, l3=0x4b}
0x204…21c Line {l1=0x16, l2=»0270 IF NUMMER=5 THEN «, l3=0x16}
0x21c…245 Line {l1=0x27, l2=»0280 INPUT "Nummer. : ":NUMMER«, l3=0x27}
0x245…26f Line {l1=0x28, l2=»0290 INPUT "Klasse : ":KLASSE$«, l3=0x28}
0x26f…297 Line {l1=0x26, l2=»0300 INPUT "Navn : ":NAVN$«, l3=0x26}
0x297…2be Line {l1=0x25, l2=»0310 INPUT "Adresse : ":ADR$«, l3=0x25}
0x2be…2e8 Line {l1=0x28, l2=»0320 INPUT "Postnr. & by : ":POSTBY$«, l3=0x28}
0x2e8…2f5 Line {l1=0x0b, l2=»0330 ENDIF «, l3=0x0b}
0x2f5…330 Line {l1=0x39, l2=»0340 PUT "SYSTIME:KOPI":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x39}
0x330…36e Line {l1=0x3c, l2=»0350 GET "SYSTIME:DEMOFIL":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x3c}
0x36e…37e Line {l1=0x0e, l2=»0360 ENDWHILE «, l3=0x0e}
0x37e…39c Line {l1=0x1c, l2=»0370 CLOSE "SYSTIME:DEMOFIL"«, l3=0x1c}
0x39c…3d6 Line {l1=0x38, l2=»0380 ENDFILE "SYSTIME:KOPI" // Udskriv slutmærke i filen«, l3=0x38}
0x3d6…3f1 Line {l1=0x19, l2=»0390 CLOSE "SYSTIME:KOPI"«, l3=0x19}
0x3f1…3f8 Line {l1=0x05, l2=»0400 «, l3=0x05}
0x3f8…414 Line {l1=0x1a, l2=»0410 OPEN "SYSTIME:KOPI",R«, l3=0x1a}
0x414…433 Line {l1=0x1d, l2=»0420 OPEN "SYSTIME:DEMOFIL",W«, l3=0x1d}
0x433…46e Line {l1=0x39, l2=»0430 GET "SYSTIME:KOPI":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x39}
0x46e…496 Line {l1=0x26, l2=»0440 WHILE NOT EOF("SYSTIME:KOPI") DO «, l3=0x26}
0x496…4d4 Line {l1=0x3c, l2=»0450 PUT "SYSTIME:DEMOFIL":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x3c}
0x4d4…50f Line {l1=0x39, l2=»0460 GET "SYSTIME:KOPI":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x39}
0x50f…51f Line {l1=0x0e, l2=»0470 ENDWHILE «, l3=0x0e}
0x51f…53a Line {l1=0x19, l2=»0480 CLOSE "SYSTIME:KOPI"«, l3=0x19}
0x53a…577 Line {l1=0x3b, l2=»0490 ENDFILE "SYSTIME:DEMOFIL" // Udskriv slutmærke i filen«, l3=0x3b}
0x577…595 Line {l1=0x1c, l2=»0500 CLOSE "SYSTIME:DEMOFIL"«, l3=0x1c}
0x595…59c Line {l1=0x05, l2=»0510 «, l3=0x05}
0x59c…5b3 Line {l1=0x15, l2=»0520 PROC EOF(FNAVN$)«, l3=0x15}
0x5b3…5f6 Line {l1=0x41, l2=»0530 // EOF funktionen findes ikke i DDE-COMAL80 istedet anvendes«, l3=0x41}
0x5f6…637 Line {l1=0x3f, l2=»0540 // standard funktion STATUS, som returnerer med værdien 19«, l3=0x3f}
0x637…650 Line {l1=0x17, l2=»0550 // ved END-OF-FILE«, l3=0x17}
0x650…66f Line {l1=0x1d, l2=»0560 EOF:=(STATUS(FNAVN$)=19)«, l3=0x1d}
0x66f…681 Line {l1=0x10, l2=»0570 ENDPROC EOF«, l3=0x10}
0x681…6a0 00 00 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 ┆ ccccccccccccccccccccccccccccc┆
0x6a0…6c0 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┆
[…0x1…]