|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »DEMO_4.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »DEMO_4.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »DEMO_4.K«
0100 // ----------------- demo_4 -----------------------
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' "
0160 PRINT "I filen ligger 6 poster."
0170 CURSOR 1,10
0180 INPUT "Hvilken post skal rettes? ":NR
0190 TAB:=10
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=NR 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_4 -----------------------«, 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…0fd Line {l1=0x25, l2=»0160 PRINT "I filen ligger 6 poster."«, l3=0x25}
0x0fd…10f Line {l1=0x10, l2=»0170 CURSOR 1,10«, l3=0x10}
0x10f…148 Line {l1=0x37, l2=»0180 INPUT "Hvilken post skal rettes? ":NR«, l3=0x37}
0x148…156 Line {l1=0x0c, l2=»0190 TAB:=10«, l3=0x0c}
0x156…177 Line {l1=0x1f, l2=»0200 DIM FIL$ OF 8,KLASSE$ OF 5«, l3=0x1f}
0x177…193 Line {l1=0x1a, l2=»0210 CREATE "SYSTIME:KOPI"«, l3=0x1a}
0x193…1af Line {l1=0x1a, l2=»0220 OPEN "SYSTIME:KOPI",W«, l3=0x1a}
0x1af…1ce Line {l1=0x1d, l2=»0230 OPEN "SYSTIME:DEMOFIL",R«, l3=0x1d}
0x1ce…20c Line {l1=0x3c, l2=»0240 GET "SYSTIME:DEMOFIL":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x3c}
0x20c…237 Line {l1=0x29, l2=»0250 WHILE NOT EOF("SYSTIME:DEMOFIL") DO «, l3=0x29}
0x237…284 Line {l1=0x4b, l2=»0260 PRINT NUMMER;TAB(6);KLASSE$;TAB(17);NAVN$;TAB(39);ADR$;TAB(62);POSTBY$«, l3=0x4b}
0x284…29d Line {l1=0x17, l2=»0270 IF NUMMER=NR THEN «, l3=0x17}
0x29d…2c6 Line {l1=0x27, l2=»0280 INPUT "Nummer. : ":NUMMER«, l3=0x27}
0x2c6…2f0 Line {l1=0x28, l2=»0290 INPUT "Klasse : ":KLASSE$«, l3=0x28}
0x2f0…318 Line {l1=0x26, l2=»0300 INPUT "Navn : ":NAVN$«, l3=0x26}
0x318…33f Line {l1=0x25, l2=»0310 INPUT "Adresse : ":ADR$«, l3=0x25}
0x33f…369 Line {l1=0x28, l2=»0320 INPUT "Postnr. & by : ":POSTBY$«, l3=0x28}
0x369…376 Line {l1=0x0b, l2=»0330 ENDIF «, l3=0x0b}
0x376…3b1 Line {l1=0x39, l2=»0340 PUT "SYSTIME:KOPI":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x39}
0x3b1…3ef Line {l1=0x3c, l2=»0350 GET "SYSTIME:DEMOFIL":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x3c}
0x3ef…3ff Line {l1=0x0e, l2=»0360 ENDWHILE «, l3=0x0e}
0x3ff…41d Line {l1=0x1c, l2=»0370 CLOSE "SYSTIME:DEMOFIL"«, l3=0x1c}
0x41d…457 Line {l1=0x38, l2=»0380 ENDFILE "SYSTIME:KOPI" // Udskriv slutmærke i filen«, l3=0x38}
0x457…472 Line {l1=0x19, l2=»0390 CLOSE "SYSTIME:KOPI"«, l3=0x19}
0x472…479 Line {l1=0x05, l2=»0400 «, l3=0x05}
0x479…495 Line {l1=0x1a, l2=»0410 OPEN "SYSTIME:KOPI",R«, l3=0x1a}
0x495…4b4 Line {l1=0x1d, l2=»0420 OPEN "SYSTIME:DEMOFIL",W«, l3=0x1d}
0x4b4…4ef Line {l1=0x39, l2=»0430 GET "SYSTIME:KOPI":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x39}
0x4ef…517 Line {l1=0x26, l2=»0440 WHILE NOT EOF("SYSTIME:KOPI") DO «, l3=0x26}
0x517…555 Line {l1=0x3c, l2=»0450 PUT "SYSTIME:DEMOFIL":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x3c}
0x555…590 Line {l1=0x39, l2=»0460 GET "SYSTIME:KOPI":NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x39}
0x590…5a0 Line {l1=0x0e, l2=»0470 ENDWHILE «, l3=0x0e}
0x5a0…5bb Line {l1=0x19, l2=»0480 CLOSE "SYSTIME:KOPI"«, l3=0x19}
0x5bb…5f8 Line {l1=0x3b, l2=»0490 ENDFILE "SYSTIME:DEMOFIL" // Udskriv slutmærke i filen«, l3=0x3b}
0x5f8…616 Line {l1=0x1c, l2=»0500 CLOSE "SYSTIME:DEMOFIL"«, l3=0x1c}
0x616…61d Line {l1=0x05, l2=»0510 «, l3=0x05}
0x61d…634 Line {l1=0x15, l2=»0520 PROC EOF(FNAVN$)«, l3=0x15}
0x634…677 Line {l1=0x41, l2=»0530 // EOF funktionen findes ikke i DDE-COMAL80 istedet anvendes«, l3=0x41}
0x677…6b8 Line {l1=0x3f, l2=»0540 // standard funktion STATUS, som returnerer med værdien 19«, l3=0x3f}
0x6b8…6d1 Line {l1=0x17, l2=»0550 // ved END-OF-FILE«, l3=0x17}
0x6d1…6f0 Line {l1=0x1d, l2=»0560 EOF:=(STATUS(FNAVN$)=19)«, l3=0x1d}
0x6f0…702 Line {l1=0x10, l2=»0570 ENDPROC EOF«, l3=0x10}
0x702…720 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 ┆ cccccccccccccccccccccccccccc┆
0x720…740 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┆
[…0x15…]