⟦0566c93d0⟧

Mikados K File

0100 // ------------------------- demosekvent -------------------------------
0110 // Programmet indlæser v/indtastning elevliste og udskriver
0120 // den. APPEND findes ikke for denne Comal-version.
0130 DIM NAVN$ OF 22,ADR$ OF 22,POSTBY$ OF 20,FIL$ OF 16,KLASSE$ OF 5,S$ OF 1
0140 INTEGER NUMMER,ØNSKE
0150 // 
0160 REPEAT 
0170 EXEC VALG
0180 UNTIL ØNSKE=4
0190 // 
0200 PROC VALG
0210 CLEAR 
0220 CURSOR 1,3
0230 PRINT "     E L E V K A R T O T E K ."
0240 PRINT "     --------------------------------------------------------"
0250 PRINT "     Du har følgende muligheder for at vælge:"
0260 PRINT "     --------------------------------------------------------"
0270 PRINT 
0280 PRINT "     Oprettelse af kartotek............Tast 1"
0290 PRINT 
0300 PRINT "     Tilføjelse i kartotek.............Tast 2"
0310 PRINT 
0320 PRINT "     Udlæsningen af kartotek...........Tast 3"
0330 PRINT 
0340 PRINT "     Ønsker du at slutte...............Tast 4"
0350 CURSOR 5,20
0360 INPUT "Indtast ønske: ":ØNSKE
0370 CASE ØNSKE OF 
0380 WHEN 1
0390 EXEC OPRET
0400 WHEN 2
0410 EXEC TILFØJ
0420 WHEN 3
0430 EXEC UDSKRIFT
0440 OTHERWISE 
0450 CURSOR 5,22
0460 PRINT "Så slutter vi for idag."
0470 ENDCASE 
0480 ENDPROC VALG
0490 // 
0500 PROC OPRET
0510 CLEAR 
0520 CURSOR 1,6
0530 INPUT "Navn på filen :               ":FIL$
0540 NUMMER:=0;FIL$:="SYSTIME:"+FIL$
0550 CREATE FIL$
0560 OPEN FIL$,W
0570 REPEAT 
0580 CLEAR 
0590 CURSOR 1,4
0600 PRINT "Oprettelse af nyt kartotek"
0610 PRINT "--------------------------------------------------------------"
0620 NUMMER:=NUMMER+1
0630 CURSOR 1,8
0640 PRINT "Nummer:         ";NUMMER
0650 PRINT 
0660 INPUT "Indtast klasse:                  ":KLASSE$
0670 INPUT "indtast navn:                    ":NAVN$
0680 INPUT "indtast adresse:                 ":ADR$
0690 INPUT "indtast postnummer & by:         ":POSTBY$
0700 PUT FIL$:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$
0710 CURSOR 1,22
0720 INPUT "Ønsker du at fortsætte?  j/n ":S$
0730 UNTIL S$="N" OR S$="n"
0740 ENDFILE FIL$
0750 CLOSE FIL$
0760 ENDPROC OPRET
0770 // 
0780 // 
0790 PROC UDSKRIFT
0800 CLEAR 
0810 INPUT "Filens navn:                  ":FIL$
0820 FIL$:="SYSTIME:"+FIL$
0830 PRINT 
0840 OPEN FIL$,R
0850 PRINT "Nr:  Klasse:    Navn:                 Adresse:               ";
0860 PRINT "Postnummer & By"
0870 PRINT "_______________________________________________________________";
0880 PRINT "_____________"
0890 PRINT 
0900 GET FIL$:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$
0910 WHILE NOT EOF(FIL$) DO 
0920 PRINT NUMMER;TAB(6);KLASSE$;TAB(17);NAVN$;TAB(39);ADR$;TAB(62);POSTBY$
0930 GET FIL$:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$
0940 ENDWHILE 
0950 CLOSE FIL$
0960 CURSOR 65,22
0970 INPUT "Tast return ":S$
0980 ENDPROC UDSKRIFT
0990 // 
1000 PROC TILFØJ
1010 CLEAR 
1020 CURSOR 25,12
1030 PRINT "APPEND findes ikke på denne Comal-version."
1040 CURSOR 70,23
1050 INPUT "Return!":S$
1060 ENDPROC TILFØJ
1070 // 
1080 PROC EOF(FNAVN$)
1090 EOF:=(STATUS(FNAVN$)=19) // 19 = DDE-comal End-Of-File status nr.
1100 ENDPROC EOF

Mikados K File

0x0000…004f Line {l1=0x4d, l2=»0100 // ------------------------- demosekvent -------------------------------«, l3=0x4d}
0x004f…0091 Line {l1=0x40, l2=»0110 // Programmet indlæser v/indtastning elevliste og udskriver«, l3=0x40}
0x0091…00cb Line {l1=0x38, l2=»0120 // den. APPEND findes ikke for denne Comal-version.«, l3=0x38}
0x00cb…011a Line {l1=0x4d, l2=»0130 DIM NAVN$ OF 22,ADR$ OF 22,POSTBY$ OF 20,FIL$ OF 16,KLASSE$ OF 5,S$ OF 1«, l3=0x4d}
0x011a…0135 Line {l1=0x19, l2=»0140 INTEGER NUMMER,ØNSKE«, l3=0x19}
0x0135…013f Line {l1=0x08, l2=»0150 // «, l3=0x08}
0x013f…014d Line {l1=0x0c, l2=»0160 REPEAT «, l3=0x0c}
0x014d…015d Line {l1=0x0e, l2=»0170 EXEC VALG«, l3=0x0e}
0x015d…0171 Line {l1=0x12, l2=»0180 UNTIL ØNSKE=4«, l3=0x12}
0x0171…017b Line {l1=0x08, l2=»0190 // «, l3=0x08}
0x017b…018b Line {l1=0x0e, l2=»0200 PROC VALG«, l3=0x0e}
0x018b…0198 Line {l1=0x0b, l2=»0210 CLEAR «, l3=0x0b}
0x0198…01a9 Line {l1=0x0f, l2=»0220 CURSOR 1,3«, l3=0x0f}
0x01a9…01d6 Line {l1=0x2b, l2=»0230 PRINT "     E L E V K A R T O T E K ."«, l3=0x2b}
0x01d6…0222 Line {l1=0x4a, l2=»0240 PRINT "     --------------------------------------------------------"«, l3=0x4a}
0x0222…025e Line {l1=0x3a, l2=»0250 PRINT "     Du har følgende muligheder for at vælge:"«, l3=0x3a}
0x025e…02aa Line {l1=0x4a, l2=»0260 PRINT "     --------------------------------------------------------"«, l3=0x4a}
0x02aa…02b7 Line {l1=0x0b, l2=»0270 PRINT «, l3=0x0b}
0x02b7…02f3 Line {l1=0x3a, l2=»0280 PRINT "     Oprettelse af kartotek............Tast 1"«, l3=0x3a}
0x02f3…0300 Line {l1=0x0b, l2=»0290 PRINT «, l3=0x0b}
0x0300…033c Line {l1=0x3a, l2=»0300 PRINT "     Tilføjelse i kartotek.............Tast 2"«, l3=0x3a}
0x033c…0349 Line {l1=0x0b, l2=»0310 PRINT «, l3=0x0b}
0x0349…0385 Line {l1=0x3a, l2=»0320 PRINT "     Udlæsningen af kartotek...........Tast 3"«, l3=0x3a}
0x0385…0392 Line {l1=0x0b, l2=»0330 PRINT «, l3=0x0b}
0x0392…03ce Line {l1=0x3a, l2=»0340 PRINT "     Ønsker du at slutte...............Tast 4"«, l3=0x3a}
0x03ce…03e0 Line {l1=0x10, l2=»0350 CURSOR 5,20«, l3=0x10}
0x03e0…0404 Line {l1=0x22, l2=»0360 INPUT "Indtast ønske: ":ØNSKE«, l3=0x22}
0x0404…0419 Line {l1=0x13, l2=»0370 CASE ØNSKE OF «, l3=0x13}
0x0419…0426 Line {l1=0x0b, l2=»0380 WHEN 1«, l3=0x0b}
0x0426…0437 Line {l1=0x0f, l2=»0390 EXEC OPRET«, l3=0x0f}
0x0437…0444 Line {l1=0x0b, l2=»0400 WHEN 2«, l3=0x0b}
0x0444…0456 Line {l1=0x10, l2=»0410 EXEC TILFØJ«, l3=0x10}
0x0456…0463 Line {l1=0x0b, l2=»0420 WHEN 3«, l3=0x0b}
0x0463…0477 Line {l1=0x12, l2=»0430 EXEC UDSKRIFT«, l3=0x12}
0x0477…0488 Line {l1=0x0f, l2=»0440 OTHERWISE «, l3=0x0f}
0x0488…049a Line {l1=0x10, l2=»0450 CURSOR 5,22«, l3=0x10}
0x049a…04c0 Line {l1=0x24, l2=»0460 PRINT "Så slutter vi for idag."«, l3=0x24}
0x04c0…04cf Line {l1=0x0d, l2=»0470 ENDCASE «, l3=0x0d}
0x04cf…04e2 Line {l1=0x11, l2=»0480 ENDPROC VALG«, l3=0x11}
0x04e2…04ec Line {l1=0x08, l2=»0490 // «, l3=0x08}
0x04ec…04fd Line {l1=0x0f, l2=»0500 PROC OPRET«, l3=0x0f}
0x04fd…050a Line {l1=0x0b, l2=»0510 CLEAR «, l3=0x0b}
0x050a…051b Line {l1=0x0f, l2=»0520 CURSOR 1,6«, l3=0x0f}
0x051b…054d Line {l1=0x30, l2=»0530 INPUT "Navn på filen :               ":FIL$«, l3=0x30}
0x054d…0573 Line {l1=0x24, l2=»0540 NUMMER:=0;FIL$:="SYSTIME:"+FIL$«, l3=0x24}
0x0573…0585 Line {l1=0x10, l2=»0550 CREATE FIL$«, l3=0x10}
0x0585…0597 Line {l1=0x10, l2=»0560 OPEN FIL$,W«, l3=0x10}
0x0597…05a5 Line {l1=0x0c, l2=»0570 REPEAT «, l3=0x0c}
0x05a5…05b2 Line {l1=0x0b, l2=»0580 CLEAR «, l3=0x0b}
0x05b2…05c3 Line {l1=0x0f, l2=»0590 CURSOR 1,4«, l3=0x0f}
0x05c3…05ec Line {l1=0x27, l2=»0600 PRINT "Oprettelse af nyt kartotek"«, l3=0x27}
0x05ec…0639 Line {l1=0x4b, l2=»0610 PRINT "--------------------------------------------------------------"«, l3=0x4b}
0x0639…0650 Line {l1=0x15, l2=»0620 NUMMER:=NUMMER+1«, l3=0x15}
0x0650…0661 Line {l1=0x0f, l2=»0630 CURSOR 1,8«, l3=0x0f}
0x0661…0687 Line {l1=0x24, l2=»0640 PRINT "Nummer:         ";NUMMER«, l3=0x24}
0x0687…0694 Line {l1=0x0b, l2=»0650 PRINT «, l3=0x0b}
0x0694…06cc Line {l1=0x36, l2=»0660 INPUT "Indtast klasse:                  ":KLASSE$«, l3=0x36}
0x06cc…0702 Line {l1=0x34, l2=»0670 INPUT "indtast navn:                    ":NAVN$«, l3=0x34}
0x0702…0737 Line {l1=0x33, l2=»0680 INPUT "indtast adresse:                 ":ADR$«, l3=0x33}
0x0737…076f Line {l1=0x36, l2=»0690 INPUT "indtast postnummer & by:         ":POSTBY$«, l3=0x36}
0x076f…07a0 Line {l1=0x2f, l2=»0700 PUT FIL$:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x2f}
0x07a0…07b2 Line {l1=0x10, l2=»0710 CURSOR 1,22«, l3=0x10}
0x07b2…07e1 Line {l1=0x2d, l2=»0720 INPUT "Ønsker du at fortsætte?  j/n ":S$«, l3=0x2d}
0x07e1…07fe Line {l1=0x1b, l2=»0730 UNTIL S$="N" OR S$="n"«, l3=0x1b}
0x07fe…0811 Line {l1=0x11, l2=»0740 ENDFILE FIL$«, l3=0x11}
0x0811…0822 Line {l1=0x0f, l2=»0750 CLOSE FIL$«, l3=0x0f}
0x0822…0836 Line {l1=0x12, l2=»0760 ENDPROC OPRET«, l3=0x12}
0x0836…0840 Line {l1=0x08, l2=»0770 // «, l3=0x08}
0x0840…084a Line {l1=0x08, l2=»0780 // «, l3=0x08}
0x084a…085e Line {l1=0x12, l2=»0790 PROC UDSKRIFT«, l3=0x12}
0x085e…086b Line {l1=0x0b, l2=»0800 CLEAR «, l3=0x0b}
0x086b…089d Line {l1=0x30, l2=»0810 INPUT "Filens navn:                  ":FIL$«, l3=0x30}
0x089d…08b9 Line {l1=0x1a, l2=»0820 FIL$:="SYSTIME:"+FIL$«, l3=0x1a}
0x08b9…08c6 Line {l1=0x0b, l2=»0830 PRINT «, l3=0x0b}
0x08c6…08d8 Line {l1=0x10, l2=»0840 OPEN FIL$,R«, l3=0x10}
0x08d8…0925 Line {l1=0x4b, l2=»0850 PRINT "Nr:  Klasse:    Navn:                 Adresse:               ";«, l3=0x4b}
0x0925…0943 Line {l1=0x1c, l2=»0860 PRINT "Postnummer & By"«, l3=0x1c}
0x0943…0992 Line {l1=0x4d, l2=»0870 PRINT "_______________________________________________________________";«, l3=0x4d}
0x0992…09ae Line {l1=0x1a, l2=»0880 PRINT "_____________"«, l3=0x1a}
0x09ae…09bb Line {l1=0x0b, l2=»0890 PRINT «, l3=0x0b}
0x09bb…09ec Line {l1=0x2f, l2=»0900 GET FIL$:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x2f}
0x09ec…0a0a Line {l1=0x1c, l2=»0910 WHILE NOT EOF(FIL$) DO «, l3=0x1c}
0x0a0a…0a57 Line {l1=0x4b, l2=»0920 PRINT NUMMER;TAB(6);KLASSE$;TAB(17);NAVN$;TAB(39);ADR$;TAB(62);POSTBY$«, l3=0x4b}
0x0a57…0a88 Line {l1=0x2f, l2=»0930 GET FIL$:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x2f}
0x0a88…0a98 Line {l1=0x0e, l2=»0940 ENDWHILE «, l3=0x0e}
0x0a98…0aa9 Line {l1=0x0f, l2=»0950 CLOSE FIL$«, l3=0x0f}
0x0aa9…0abc Line {l1=0x11, l2=»0960 CURSOR 65,22«, l3=0x11}
0x0abc…0ada Line {l1=0x1c, l2=»0970 INPUT "Tast return ":S$«, l3=0x1c}
0x0ada…0af1 Line {l1=0x15, l2=»0980 ENDPROC UDSKRIFT«, l3=0x15}
0x0af1…0afb Line {l1=0x08, l2=»0990 // «, l3=0x08}
0x0afb…0b0d Line {l1=0x10, l2=»1000 PROC TILFØJ«, l3=0x10}
0x0b0d…0b1a Line {l1=0x0b, l2=»1010 CLEAR «, l3=0x0b}
0x0b1a…0b2d Line {l1=0x11, l2=»1020 CURSOR 25,12«, l3=0x11}
0x0b2d…0b66 Line {l1=0x37, l2=»1030 PRINT "APPEND findes ikke på denne Comal-version."«, l3=0x37}
0x0b66…0b79 Line {l1=0x11, l2=»1040 CURSOR 70,23«, l3=0x11}
0x0b79…0b92 Line {l1=0x17, l2=»1050 INPUT "Return!":S$«, l3=0x17}
0x0b92…0ba7 Line {l1=0x13, l2=»1060 ENDPROC TILFØJ«, l3=0x13}
0x0ba7…0bb1 Line {l1=0x08, l2=»1070 // «, l3=0x08}
0x0bb1…0bc8 Line {l1=0x15, l2=»1080 PROC EOF(FNAVN$)«, l3=0x15}
0x0bc8…0c10 Line {l1=0x46, l2=»1090 EOF:=(STATUS(FNAVN$)=19) // 19 = DDE-comal End-Of-File status nr.«, l3=0x46}
0x0c10…0c22 Line {l1=0x10, l2=»1100 ENDPROC EOF«, l3=0x10}
0x0c22…0c40 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┆
0x0c40…0c60 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┆
            […0x3b…]

DataMuseum.dk

MIKADOS

⟦0566c93d0⟧ TextFile

Derivation

Mikados K File

Mikados K File

Reduced view