|
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: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »KARTOTEK.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KARTOTEK.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KARTOTEK.K«
0010 // ------------------------- kartotek ---------------------------------- 0020 // Programmet indlæser v/indtastning elevliste og udskriver 0030 // nummer,klasse,navn,adresse,postnummer & by. 0040 // APPEND findes ikke for denne Comal-version. 0050 // Benyt evt. filen 'VESTER' 0060 // 0065 INTEGER NUMMER,I,ØNSKE 0070 DIM NAVN$ OF 22,ADR$ OF 22,POSTBY$ OF 20,FIL$ OF 16,KLASSE$ OF 5 0075 DIM S$ OF 1 0080 // 0090 REPEAT 0100 EXEC VALG 0110 UNTIL ØNSKE=52 0120 // 0130 PROC VALG 0140 CLEAR 0150 CURSOR 1,3 0160 PRINT " E L E V K A R T O T E K ." 0170 PRINT " ----------------------------------------" 0180 PRINT " Du har følgende muligheder for at vælge:" 0190 PRINT " ----------------------------------------" 0210 PRINT " Oprettelse af kartotek............Tast 1" 0220 PRINT 0230 PRINT " Rettelse i kartotek...............Tast 2" 0240 PRINT 0250 PRINT " Udlæsningen af kartotek...........Tast 3" 0260 PRINT 0270 PRINT " Ønsker du at slutte...............Tast 4" 0280 CURSOR 5,20 0290 INPUT "Indtast ønske: ":S$ 0300 ØNSKE:=ORD(S$) 0340 CASE ØNSKE OF 0350 WHEN 49 0360 EXEC OPRET 0370 WHEN 50 0380 EXEC RETTELSE 0390 WHEN 51 0400 EXEC UDSKRIFT 0410 OTHERWISE 0420 CURSOR 5,22 0430 PRINT "Så slutter vi for idag." 0440 ENDCASE 0450 ENDPROC VALG 0460 // 0470 PROC OPRET 0480 CLEAR 0490 CURSOR 1,6 0500 INPUT "Navn på filen : ":FIL$ 0510 FIL$:="SYSTIME:"+FIL$;NUMMER:=0 0515 CREATE FIL$,50,95 0520 OPEN FIL$,W 0530 REPEAT 0540 CLEAR 0550 CURSOR 1,4 0560 PRINT "Oprettelse af nyt kartotek" 0570 PRINT "--------------------------" 0580 NUMMER:=NUMMER+1 0590 CURSOR 1,8 0600 PRINT "Nummer: ";NUMMER 0610 PRINT 0620 INPUT "Indtast klasse: ":KLASSE$ 0630 INPUT "Indtast navn: ":NAVN$ 0640 INPUT "Indtast adresse: ":ADR$ 0650 INPUT "Indtast postnummer & by: ":POSTBY$ 0660 PUT FIL$,NUMMER:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$ 0680 CURSOR 1,22 0690 INPUT "Ønsker du at fortsætte? j/n ":S$ 0720 UNTIL S$="N" OR S$="n" 0730 CLOSE FIL$ 0740 ENDPROC OPRET 0750 // 0760 // 0770 PROC UDSKRIFT 0780 CLEAR 0790 INPUT "Filens navn: ":FIL$ 0795 FIL$:="SYSTIME:"+FIL$ 0800 PRINT 0810 INPUT "Hvor mange elever ønskes udskrevet? (Skriv antal): ":ANTAL 0820 OPEN FIL$,W 0830 PRINT "Nr: Klasse: Navn: Adresse: Post 0840 PRINT "_______________________________________________________________"; 0841 PRINT "_______________" 0850 PRINT 0860 FOR N:=1 TO ANTAL DO 0870 GET FIL$,N:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$ 0880 PRINT NUMMER;" ";KLASSE$;TAB(17);NAVN$;TAB(39);ADR$;TAB(62);POSTBY$ 0890 NEXT N 0900 CLOSE FIL$ 0920 CURSOR 65,22 0930 INPUT "Tast return ":S$ 0960 ENDPROC UDSKRIFT 0970 // 0980 // 0990 PROC RETTELSE 1000 CLEAR 1010 CURSOR 1,6 1020 INPUT "Navn på filen : ":FIL$ 1030 FIL$:="SYSTIME:"+FIL$;NUMMER:=0 1040 OPEN FIL$,W 1050 REPEAT 1060 CLEAR 1070 CURSOR 1,4 1080 PRINT "Rettelse i kartotek" 1090 PRINT "-------------------" 1100 NUMMER:=NUMMER+1 1110 CURSOR 1,8 1120 INPUT "Hvilket nummer skal rettes? ":NUMMER 1130 PRINT 1140 INPUT "Indtast klasse: ":KLASSE$ 1150 INPUT "Indtast navn: ":NAVN$ 1160 INPUT "Indtast adresse: ":ADR$ 1170 INPUT "Indtast postnummer & by: ":POSTBY$ 1180 PUT FIL$,NUMMER:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$ 1200 CURSOR 1,22 1210 INPUT "Ønsker du at fortsætte? j/n ":S$ 1240 UNTIL S$="N" OR S$="n" 1250 CLOSE FIL$ 1260 ENDPROC RETTELSE
0x0000…004f Line {l1=0x4d, l2=»0010 // ------------------------- kartotek ----------------------------------«, l3=0x4d}
0x004f…0091 Line {l1=0x40, l2=»0020 // Programmet indlæser v/indtastning elevliste og udskriver«, l3=0x40}
0x0091…00c6 Line {l1=0x33, l2=»0030 // nummer,klasse,navn,adresse,postnummer & by.«, l3=0x33}
0x00c6…00fb Line {l1=0x33, l2=»0040 // APPEND findes ikke for denne Comal-version.«, l3=0x33}
0x00fb…011e Line {l1=0x21, l2=»0050 // Benyt evt. filen 'VESTER'«, l3=0x21}
0x011e…0128 Line {l1=0x08, l2=»0060 // «, l3=0x08}
0x0128…0145 Line {l1=0x1b, l2=»0065 INTEGER NUMMER,I,ØNSKE«, l3=0x1b}
0x0145…018c Line {l1=0x45, l2=»0070 DIM NAVN$ OF 22,ADR$ OF 22,POSTBY$ OF 20,FIL$ OF 16,KLASSE$ OF 5«, l3=0x45}
0x018c…019e Line {l1=0x10, l2=»0075 DIM S$ OF 1«, l3=0x10}
0x019e…01a8 Line {l1=0x08, l2=»0080 // «, l3=0x08}
0x01a8…01b6 Line {l1=0x0c, l2=»0090 REPEAT «, l3=0x0c}
0x01b6…01c6 Line {l1=0x0e, l2=»0100 EXEC VALG«, l3=0x0e}
0x01c6…01db Line {l1=0x13, l2=»0110 UNTIL ØNSKE=52«, l3=0x13}
0x01db…01e5 Line {l1=0x08, l2=»0120 // «, l3=0x08}
0x01e5…01f5 Line {l1=0x0e, l2=»0130 PROC VALG«, l3=0x0e}
0x01f5…0202 Line {l1=0x0b, l2=»0140 CLEAR «, l3=0x0b}
0x0202…0213 Line {l1=0x0f, l2=»0150 CURSOR 1,3«, l3=0x0f}
0x0213…0240 Line {l1=0x2b, l2=»0160 PRINT " E L E V K A R T O T E K ."«, l3=0x2b}
0x0240…027c Line {l1=0x3a, l2=»0170 PRINT " ----------------------------------------"«, l3=0x3a}
0x027c…02b8 Line {l1=0x3a, l2=»0180 PRINT " Du har følgende muligheder for at vælge:"«, l3=0x3a}
0x02b8…02f4 Line {l1=0x3a, l2=»0190 PRINT " ----------------------------------------"«, l3=0x3a}
0x02f4…0330 Line {l1=0x3a, l2=»0210 PRINT " Oprettelse af kartotek............Tast 1"«, l3=0x3a}
0x0330…033d Line {l1=0x0b, l2=»0220 PRINT «, l3=0x0b}
0x033d…0379 Line {l1=0x3a, l2=»0230 PRINT " Rettelse i kartotek...............Tast 2"«, l3=0x3a}
0x0379…0386 Line {l1=0x0b, l2=»0240 PRINT «, l3=0x0b}
0x0386…03c2 Line {l1=0x3a, l2=»0250 PRINT " Udlæsningen af kartotek...........Tast 3"«, l3=0x3a}
0x03c2…03cf Line {l1=0x0b, l2=»0260 PRINT «, l3=0x0b}
0x03cf…040b Line {l1=0x3a, l2=»0270 PRINT " Ønsker du at slutte...............Tast 4"«, l3=0x3a}
0x040b…041d Line {l1=0x10, l2=»0280 CURSOR 5,20«, l3=0x10}
0x041d…043e Line {l1=0x1f, l2=»0290 INPUT "Indtast ønske: ":S$«, l3=0x1f}
0x043e…0453 Line {l1=0x13, l2=»0300 ØNSKE:=ORD(S$)«, l3=0x13}
0x0453…0468 Line {l1=0x13, l2=»0340 CASE ØNSKE OF «, l3=0x13}
0x0468…0476 Line {l1=0x0c, l2=»0350 WHEN 49«, l3=0x0c}
0x0476…0487 Line {l1=0x0f, l2=»0360 EXEC OPRET«, l3=0x0f}
0x0487…0495 Line {l1=0x0c, l2=»0370 WHEN 50«, l3=0x0c}
0x0495…04a9 Line {l1=0x12, l2=»0380 EXEC RETTELSE«, l3=0x12}
0x04a9…04b7 Line {l1=0x0c, l2=»0390 WHEN 51«, l3=0x0c}
0x04b7…04cb Line {l1=0x12, l2=»0400 EXEC UDSKRIFT«, l3=0x12}
0x04cb…04dc Line {l1=0x0f, l2=»0410 OTHERWISE «, l3=0x0f}
0x04dc…04ee Line {l1=0x10, l2=»0420 CURSOR 5,22«, l3=0x10}
0x04ee…0514 Line {l1=0x24, l2=»0430 PRINT "Så slutter vi for idag."«, l3=0x24}
0x0514…0523 Line {l1=0x0d, l2=»0440 ENDCASE «, l3=0x0d}
0x0523…0536 Line {l1=0x11, l2=»0450 ENDPROC VALG«, l3=0x11}
0x0536…0540 Line {l1=0x08, l2=»0460 // «, l3=0x08}
0x0540…0551 Line {l1=0x0f, l2=»0470 PROC OPRET«, l3=0x0f}
0x0551…055e Line {l1=0x0b, l2=»0480 CLEAR «, l3=0x0b}
0x055e…056f Line {l1=0x0f, l2=»0490 CURSOR 1,6«, l3=0x0f}
0x056f…05a1 Line {l1=0x30, l2=»0500 INPUT "Navn på filen : ":FIL$«, l3=0x30}
0x05a1…05c7 Line {l1=0x24, l2=»0510 FIL$:="SYSTIME:"+FIL$;NUMMER:=0«, l3=0x24}
0x05c7…05df Line {l1=0x16, l2=»0515 CREATE FIL$,50,95«, l3=0x16}
0x05df…05f1 Line {l1=0x10, l2=»0520 OPEN FIL$,W«, l3=0x10}
0x05f1…05ff Line {l1=0x0c, l2=»0530 REPEAT «, l3=0x0c}
0x05ff…060c Line {l1=0x0b, l2=»0540 CLEAR «, l3=0x0b}
0x060c…061d Line {l1=0x0f, l2=»0550 CURSOR 1,4«, l3=0x0f}
0x061d…0646 Line {l1=0x27, l2=»0560 PRINT "Oprettelse af nyt kartotek"«, l3=0x27}
0x0646…066f Line {l1=0x27, l2=»0570 PRINT "--------------------------"«, l3=0x27}
0x066f…0686 Line {l1=0x15, l2=»0580 NUMMER:=NUMMER+1«, l3=0x15}
0x0686…0697 Line {l1=0x0f, l2=»0590 CURSOR 1,8«, l3=0x0f}
0x0697…06bd Line {l1=0x24, l2=»0600 PRINT "Nummer: ";NUMMER«, l3=0x24}
0x06bd…06ca Line {l1=0x0b, l2=»0610 PRINT «, l3=0x0b}
0x06ca…0702 Line {l1=0x36, l2=»0620 INPUT "Indtast klasse: ":KLASSE$«, l3=0x36}
0x0702…0738 Line {l1=0x34, l2=»0630 INPUT "Indtast navn: ":NAVN$«, l3=0x34}
0x0738…076d Line {l1=0x33, l2=»0640 INPUT "Indtast adresse: ":ADR$«, l3=0x33}
0x076d…07a5 Line {l1=0x36, l2=»0650 INPUT "Indtast postnummer & by: ":POSTBY$«, l3=0x36}
0x07a5…07dd Line {l1=0x36, l2=»0660 PUT FIL$,NUMMER:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x36}
0x07dd…07ef Line {l1=0x10, l2=»0680 CURSOR 1,22«, l3=0x10}
0x07ef…081e Line {l1=0x2d, l2=»0690 INPUT "Ønsker du at fortsætte? j/n ":S$«, l3=0x2d}
0x081e…083b Line {l1=0x1b, l2=»0720 UNTIL S$="N" OR S$="n"«, l3=0x1b}
0x083b…084c Line {l1=0x0f, l2=»0730 CLOSE FIL$«, l3=0x0f}
0x084c…0860 Line {l1=0x12, l2=»0740 ENDPROC OPRET«, l3=0x12}
0x0860…086a Line {l1=0x08, l2=»0750 // «, l3=0x08}
0x086a…0874 Line {l1=0x08, l2=»0760 // «, l3=0x08}
0x0874…0888 Line {l1=0x12, l2=»0770 PROC UDSKRIFT«, l3=0x12}
0x0888…0895 Line {l1=0x0b, l2=»0780 CLEAR «, l3=0x0b}
0x0895…08c7 Line {l1=0x30, l2=»0790 INPUT "Filens navn: ":FIL$«, l3=0x30}
0x08c7…08e3 Line {l1=0x1a, l2=»0795 FIL$:="SYSTIME:"+FIL$«, l3=0x1a}
0x08e3…08f0 Line {l1=0x0b, l2=»0800 PRINT «, l3=0x0b}
0x08f0…0939 Line {l1=0x47, l2=»0810 INPUT "Hvor mange elever ønskes udskrevet? (Skriv antal): ":ANTAL«, l3=0x47}
0x0939…094b Line {l1=0x10, l2=»0820 OPEN FIL$,W«, l3=0x10}
0x094b…099a Line {l1=0x4d, l2=»0830 PRINT "Nr: Klasse: Navn: Adresse: Post«, l3=0x4d}
0x099a…09e9 Line {l1=0x4d, l2=»0840 PRINT "_______________________________________________________________";«, l3=0x4d}
0x09e9…0a07 Line {l1=0x1c, l2=»0841 PRINT "_______________"«, l3=0x1c}
0x0a07…0a14 Line {l1=0x0b, l2=»0850 PRINT «, l3=0x0b}
0x0a14…0a30 Line {l1=0x1a, l2=»0860 FOR N:=1 TO ANTAL DO «, l3=0x1a}
0x0a30…0a63 Line {l1=0x31, l2=»0870 GET FIL$,N:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x31}
0x0a63…0aaf Line {l1=0x4a, l2=»0880 PRINT NUMMER;" ";KLASSE$;TAB(17);NAVN$;TAB(39);ADR$;TAB(62);POSTBY$«, l3=0x4a}
0x0aaf…0abc Line {l1=0x0b, l2=»0890 NEXT N«, l3=0x0b}
0x0abc…0acd Line {l1=0x0f, l2=»0900 CLOSE FIL$«, l3=0x0f}
0x0acd…0ae0 Line {l1=0x11, l2=»0920 CURSOR 65,22«, l3=0x11}
0x0ae0…0afe Line {l1=0x1c, l2=»0930 INPUT "Tast return ":S$«, l3=0x1c}
0x0afe…0b15 Line {l1=0x15, l2=»0960 ENDPROC UDSKRIFT«, l3=0x15}
0x0b15…0b1f Line {l1=0x08, l2=»0970 // «, l3=0x08}
0x0b1f…0b29 Line {l1=0x08, l2=»0980 // «, l3=0x08}
0x0b29…0b3d Line {l1=0x12, l2=»0990 PROC RETTELSE«, l3=0x12}
0x0b3d…0b4a Line {l1=0x0b, l2=»1000 CLEAR «, l3=0x0b}
0x0b4a…0b5b Line {l1=0x0f, l2=»1010 CURSOR 1,6«, l3=0x0f}
0x0b5b…0b8d Line {l1=0x30, l2=»1020 INPUT "Navn på filen : ":FIL$«, l3=0x30}
0x0b8d…0bb3 Line {l1=0x24, l2=»1030 FIL$:="SYSTIME:"+FIL$;NUMMER:=0«, l3=0x24}
0x0bb3…0bc5 Line {l1=0x10, l2=»1040 OPEN FIL$,W«, l3=0x10}
0x0bc5…0bd3 Line {l1=0x0c, l2=»1050 REPEAT «, l3=0x0c}
0x0bd3…0be0 Line {l1=0x0b, l2=»1060 CLEAR «, l3=0x0b}
0x0be0…0bf1 Line {l1=0x0f, l2=»1070 CURSOR 1,4«, l3=0x0f}
0x0bf1…0c13 Line {l1=0x20, l2=»1080 PRINT "Rettelse i kartotek"«, l3=0x20}
0x0c13…0c35 Line {l1=0x20, l2=»1090 PRINT "-------------------"«, l3=0x20}
0x0c35…0c4c Line {l1=0x15, l2=»1100 NUMMER:=NUMMER+1«, l3=0x15}
0x0c4c…0c5d Line {l1=0x0f, l2=»1110 CURSOR 1,8«, l3=0x0f}
0x0c5d…0c91 Line {l1=0x32, l2=»1120 INPUT "Hvilket nummer skal rettes? ":NUMMER«, l3=0x32}
0x0c91…0c9e Line {l1=0x0b, l2=»1130 PRINT «, l3=0x0b}
0x0c9e…0cd6 Line {l1=0x36, l2=»1140 INPUT "Indtast klasse: ":KLASSE$«, l3=0x36}
0x0cd6…0d0c Line {l1=0x34, l2=»1150 INPUT "Indtast navn: ":NAVN$«, l3=0x34}
0x0d0c…0d41 Line {l1=0x33, l2=»1160 INPUT "Indtast adresse: ":ADR$«, l3=0x33}
0x0d41…0d79 Line {l1=0x36, l2=»1170 INPUT "Indtast postnummer & by: ":POSTBY$«, l3=0x36}
0x0d79…0db1 Line {l1=0x36, l2=»1180 PUT FIL$,NUMMER:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x36}
0x0db1…0dc3 Line {l1=0x10, l2=»1200 CURSOR 1,22«, l3=0x10}
0x0dc3…0df2 Line {l1=0x2d, l2=»1210 INPUT "Ønsker du at fortsætte? j/n ":S$«, l3=0x2d}
0x0df2…0e0f Line {l1=0x1b, l2=»1240 UNTIL S$="N" OR S$="n"«, l3=0x1b}
0x0e0f…0e20 Line {l1=0x0f, l2=»1250 CLOSE FIL$«, l3=0x0f}
0x0e20…0e37 Line {l1=0x15, l2=»1260 ENDPROC RETTELSE«, l3=0x15}
0x0e37…0e40 00 00 63 63 63 63 63 63 63 ┆ ccccccc┆
0x0e40…0e60 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┆
[…0x2b…]