|
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: »DEMO_2.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »DEMO_2.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »DEMO_2.K«
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
0135 INTEGER NUMMER,ØNSKE
0140 //
0150 REPEAT
0160 EXEC VALG
0170 UNTIL ØNSKE=4
0180 //
0190 PROC VALG
0200 CLEAR
0210 CURSOR 1,3
0220 PRINT " E L E V K A R T O T E K ."
0230 PRINT " --------------------------------------------------------"
0240 PRINT " Du har følgende muligheder for at vælge:"
0250 PRINT " --------------------------------------------------------"
0260 PRINT
0270 PRINT " Oprettelse af kartotek............Tast 1"
0280 PRINT
0290 PRINT " Tilføjelse i kartotek.............Tast 2"
0300 PRINT
0310 PRINT " Udlæsningen af kartotek...........Tast 3"
0320 PRINT
0330 PRINT " Ønsker du at slutte...............Tast 4"
0340 CURSOR 5,20
0350 INPUT "Indtast ønske: ":ØNSKE
0360 CASE ØNSKE OF
0370 WHEN 1
0380 EXEC OPRET
0390 WHEN 2
0400 EXEC TILFØJ
0410 WHEN 3
0420 EXEC UDSKRIFT
0430 OTHERWISE
0440 CURSOR 5,22
0450 PRINT "Så slutter vi for idag."
0460 ENDCASE
0470 ENDPROC VALG
0480 //
0490 PROC OPRET
0500 CLEAR
0510 CURSOR 1,6
0520 INPUT "Navn på filen : ":FIL$
0530 NUMMER:=0;FIL$:="SYSTIME:"+FIL$
0540 CREATE FIL$
0550 OPEN FIL$,W
0560 REPEAT
0570 CLEAR
0580 CURSOR 1,4
0590 PRINT "Oprettelse af nyt kartotek"
0600 PRINT "--------------------------------------------------------------"
0610 NUMMER:=NUMMER+1
0620 CURSOR 1,8
0630 PRINT "Nummer: ";NUMMER
0640 PRINT
0650 INPUT "Indtast klasse: ":KLASSE$
0660 INPUT "indtast navn: ":NAVN$
0670 INPUT "indtast adresse: ":ADR$
0680 INPUT "indtast postnummer & by: ":POSTBY$
0690 PUT FIL$:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$
0700 CURSOR 1,22
0710 INPUT "Ønsker du at fortsætte? j/n ":S$
0720 UNTIL S$="N" OR S$="n"
0730 ENDFILE FIL$
0740 CLOSE FIL$
0750 ENDPROC OPRET
0760 //
0770 //
0780 PROC UDSKRIFT
0790 CLEAR
0800 INPUT "Filens navn: ":FIL$
0810 FIL$:="SYSTIME:"+FIL$
0820 PRINT
0830 EXEC PRINTER
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 SELECT OUTPUT "T"
0970 CURSOR 65,22
0980 INPUT "Tast return ":S$
0990 ENDPROC UDSKRIFT
1000 //
1010 PROC TILFØJ
1020 CLEAR
1030 CURSOR 25,12
1040 PRINT "APPEND findes ikke på denne Comal-version."
1050 CURSOR 70,23
1060 INPUT "Return!":S$
1070 ENDPROC TILFØJ
1080 //
1090 PROC PRINTER
1100 CURSOR 1,5
1110 INPUT "Ønsker du udskrift på printer? (p/s): ":S$
1120 IF S$="P" OR S$="p" THEN
1130 SELECT OUTPUT "P"
1140 IF STATUS("P")=1 THEN
1150 CURSOR 1,5
1160 PRINT "Printeren er reserveret af anden bruger."
1170 INPUT "Skal der ventes på at den bliver ledig (j/n) ? ":S$
1180 CURSOR 1,5
1190 PRINT " "
1200 PRINT " "
1210 IF S$="J" OR S$="j" THEN
1220 CURSOR 1,5
1230 PRINT "Der ventes på at printeren bliver ledig"
1240 WHILE STATUS("P")<>0 DO SELECT OUTPUT "P"
1250 ELSE
1260 SELECT OUTPUT "T"
1270 ENDIF
1280 ENDIF
1290 ENDIF
1300 ENDPROC PRINTER
1310
1320 PROC EOF(FNAVN$)
1330 EOF:=(STATUS(FNAVN$)=19) // 19 = DDE-comal End-Of-File status nr.
1340 ENDPROC EOF
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=»0135 INTEGER NUMMER,ØNSKE«, l3=0x19}
0x0135…013f Line {l1=0x08, l2=»0140 // «, l3=0x08}
0x013f…014d Line {l1=0x0c, l2=»0150 REPEAT «, l3=0x0c}
0x014d…015d Line {l1=0x0e, l2=»0160 EXEC VALG«, l3=0x0e}
0x015d…0171 Line {l1=0x12, l2=»0170 UNTIL ØNSKE=4«, l3=0x12}
0x0171…017b Line {l1=0x08, l2=»0180 // «, l3=0x08}
0x017b…018b Line {l1=0x0e, l2=»0190 PROC VALG«, l3=0x0e}
0x018b…0198 Line {l1=0x0b, l2=»0200 CLEAR «, l3=0x0b}
0x0198…01a9 Line {l1=0x0f, l2=»0210 CURSOR 1,3«, l3=0x0f}
0x01a9…01d6 Line {l1=0x2b, l2=»0220 PRINT " E L E V K A R T O T E K ."«, l3=0x2b}
0x01d6…0222 Line {l1=0x4a, l2=»0230 PRINT " --------------------------------------------------------"«, l3=0x4a}
0x0222…025e Line {l1=0x3a, l2=»0240 PRINT " Du har følgende muligheder for at vælge:"«, l3=0x3a}
0x025e…02aa Line {l1=0x4a, l2=»0250 PRINT " --------------------------------------------------------"«, l3=0x4a}
0x02aa…02b7 Line {l1=0x0b, l2=»0260 PRINT «, l3=0x0b}
0x02b7…02f3 Line {l1=0x3a, l2=»0270 PRINT " Oprettelse af kartotek............Tast 1"«, l3=0x3a}
0x02f3…0300 Line {l1=0x0b, l2=»0280 PRINT «, l3=0x0b}
0x0300…033c Line {l1=0x3a, l2=»0290 PRINT " Tilføjelse i kartotek.............Tast 2"«, l3=0x3a}
0x033c…0349 Line {l1=0x0b, l2=»0300 PRINT «, l3=0x0b}
0x0349…0385 Line {l1=0x3a, l2=»0310 PRINT " Udlæsningen af kartotek...........Tast 3"«, l3=0x3a}
0x0385…0392 Line {l1=0x0b, l2=»0320 PRINT «, l3=0x0b}
0x0392…03ce Line {l1=0x3a, l2=»0330 PRINT " Ønsker du at slutte...............Tast 4"«, l3=0x3a}
0x03ce…03e0 Line {l1=0x10, l2=»0340 CURSOR 5,20«, l3=0x10}
0x03e0…0404 Line {l1=0x22, l2=»0350 INPUT "Indtast ønske: ":ØNSKE«, l3=0x22}
0x0404…0419 Line {l1=0x13, l2=»0360 CASE ØNSKE OF «, l3=0x13}
0x0419…0426 Line {l1=0x0b, l2=»0370 WHEN 1«, l3=0x0b}
0x0426…0437 Line {l1=0x0f, l2=»0380 EXEC OPRET«, l3=0x0f}
0x0437…0444 Line {l1=0x0b, l2=»0390 WHEN 2«, l3=0x0b}
0x0444…0456 Line {l1=0x10, l2=»0400 EXEC TILFØJ«, l3=0x10}
0x0456…0463 Line {l1=0x0b, l2=»0410 WHEN 3«, l3=0x0b}
0x0463…0477 Line {l1=0x12, l2=»0420 EXEC UDSKRIFT«, l3=0x12}
0x0477…0488 Line {l1=0x0f, l2=»0430 OTHERWISE «, l3=0x0f}
0x0488…049a Line {l1=0x10, l2=»0440 CURSOR 5,22«, l3=0x10}
0x049a…04c0 Line {l1=0x24, l2=»0450 PRINT "Så slutter vi for idag."«, l3=0x24}
0x04c0…04cf Line {l1=0x0d, l2=»0460 ENDCASE «, l3=0x0d}
0x04cf…04e2 Line {l1=0x11, l2=»0470 ENDPROC VALG«, l3=0x11}
0x04e2…04ec Line {l1=0x08, l2=»0480 // «, l3=0x08}
0x04ec…04fd Line {l1=0x0f, l2=»0490 PROC OPRET«, l3=0x0f}
0x04fd…050a Line {l1=0x0b, l2=»0500 CLEAR «, l3=0x0b}
0x050a…051b Line {l1=0x0f, l2=»0510 CURSOR 1,6«, l3=0x0f}
0x051b…054d Line {l1=0x30, l2=»0520 INPUT "Navn på filen : ":FIL$«, l3=0x30}
0x054d…0573 Line {l1=0x24, l2=»0530 NUMMER:=0;FIL$:="SYSTIME:"+FIL$«, l3=0x24}
0x0573…0585 Line {l1=0x10, l2=»0540 CREATE FIL$«, l3=0x10}
0x0585…0597 Line {l1=0x10, l2=»0550 OPEN FIL$,W«, l3=0x10}
0x0597…05a5 Line {l1=0x0c, l2=»0560 REPEAT «, l3=0x0c}
0x05a5…05b2 Line {l1=0x0b, l2=»0570 CLEAR «, l3=0x0b}
0x05b2…05c3 Line {l1=0x0f, l2=»0580 CURSOR 1,4«, l3=0x0f}
0x05c3…05ec Line {l1=0x27, l2=»0590 PRINT "Oprettelse af nyt kartotek"«, l3=0x27}
0x05ec…0639 Line {l1=0x4b, l2=»0600 PRINT "--------------------------------------------------------------"«, l3=0x4b}
0x0639…0650 Line {l1=0x15, l2=»0610 NUMMER:=NUMMER+1«, l3=0x15}
0x0650…0661 Line {l1=0x0f, l2=»0620 CURSOR 1,8«, l3=0x0f}
0x0661…0687 Line {l1=0x24, l2=»0630 PRINT "Nummer: ";NUMMER«, l3=0x24}
0x0687…0694 Line {l1=0x0b, l2=»0640 PRINT «, l3=0x0b}
0x0694…06cc Line {l1=0x36, l2=»0650 INPUT "Indtast klasse: ":KLASSE$«, l3=0x36}
0x06cc…0702 Line {l1=0x34, l2=»0660 INPUT "indtast navn: ":NAVN$«, l3=0x34}
0x0702…0737 Line {l1=0x33, l2=»0670 INPUT "indtast adresse: ":ADR$«, l3=0x33}
0x0737…076f Line {l1=0x36, l2=»0680 INPUT "indtast postnummer & by: ":POSTBY$«, l3=0x36}
0x076f…07a0 Line {l1=0x2f, l2=»0690 PUT FIL$:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x2f}
0x07a0…07b2 Line {l1=0x10, l2=»0700 CURSOR 1,22«, l3=0x10}
0x07b2…07e1 Line {l1=0x2d, l2=»0710 INPUT "Ønsker du at fortsætte? j/n ":S$«, l3=0x2d}
0x07e1…07fe Line {l1=0x1b, l2=»0720 UNTIL S$="N" OR S$="n"«, l3=0x1b}
0x07fe…0811 Line {l1=0x11, l2=»0730 ENDFILE FIL$«, l3=0x11}
0x0811…0822 Line {l1=0x0f, l2=»0740 CLOSE FIL$«, l3=0x0f}
0x0822…0836 Line {l1=0x12, l2=»0750 ENDPROC OPRET«, l3=0x12}
0x0836…0840 Line {l1=0x08, l2=»0760 // «, l3=0x08}
0x0840…084a Line {l1=0x08, l2=»0770 // «, l3=0x08}
0x084a…085e Line {l1=0x12, l2=»0780 PROC UDSKRIFT«, l3=0x12}
0x085e…086b Line {l1=0x0b, l2=»0790 CLEAR «, l3=0x0b}
0x086b…089d Line {l1=0x30, l2=»0800 INPUT "Filens navn: ":FIL$«, l3=0x30}
0x089d…08b9 Line {l1=0x1a, l2=»0810 FIL$:="SYSTIME:"+FIL$«, l3=0x1a}
0x08b9…08c6 Line {l1=0x0b, l2=»0820 PRINT «, l3=0x0b}
0x08c6…08d9 Line {l1=0x11, l2=»0830 EXEC PRINTER«, l3=0x11}
0x08d9…08eb Line {l1=0x10, l2=»0840 OPEN FIL$,R«, l3=0x10}
0x08eb…0938 Line {l1=0x4b, l2=»0850 PRINT "Nr: Klasse: Navn: Adresse: ";«, l3=0x4b}
0x0938…0956 Line {l1=0x1c, l2=»0860 PRINT "Postnummer & By"«, l3=0x1c}
0x0956…09a5 Line {l1=0x4d, l2=»0870 PRINT "_______________________________________________________________";«, l3=0x4d}
0x09a5…09c1 Line {l1=0x1a, l2=»0880 PRINT "_____________"«, l3=0x1a}
0x09c1…09ce Line {l1=0x0b, l2=»0890 PRINT «, l3=0x0b}
0x09ce…09ff Line {l1=0x2f, l2=»0900 GET FIL$:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x2f}
0x09ff…0a1d Line {l1=0x1c, l2=»0910 WHILE NOT EOF(FIL$) DO «, l3=0x1c}
0x0a1d…0a6a Line {l1=0x4b, l2=»0920 PRINT NUMMER;TAB(6);KLASSE$;TAB(17);NAVN$;TAB(39);ADR$;TAB(62);POSTBY$«, l3=0x4b}
0x0a6a…0a9b Line {l1=0x2f, l2=»0930 GET FIL$:NUMMER,KLASSE$,NAVN$,ADR$,POSTBY$«, l3=0x2f}
0x0a9b…0aab Line {l1=0x0e, l2=»0940 ENDWHILE «, l3=0x0e}
0x0aab…0abc Line {l1=0x0f, l2=»0950 CLOSE FIL$«, l3=0x0f}
0x0abc…0ad4 Line {l1=0x16, l2=»0960 SELECT OUTPUT "T"«, l3=0x16}
0x0ad4…0ae7 Line {l1=0x11, l2=»0970 CURSOR 65,22«, l3=0x11}
0x0ae7…0b05 Line {l1=0x1c, l2=»0980 INPUT "Tast return ":S$«, l3=0x1c}
0x0b05…0b1c Line {l1=0x15, l2=»0990 ENDPROC UDSKRIFT«, l3=0x15}
0x0b1c…0b26 Line {l1=0x08, l2=»1000 // «, l3=0x08}
0x0b26…0b38 Line {l1=0x10, l2=»1010 PROC TILFØJ«, l3=0x10}
0x0b38…0b45 Line {l1=0x0b, l2=»1020 CLEAR «, l3=0x0b}
0x0b45…0b58 Line {l1=0x11, l2=»1030 CURSOR 25,12«, l3=0x11}
0x0b58…0b91 Line {l1=0x37, l2=»1040 PRINT "APPEND findes ikke på denne Comal-version."«, l3=0x37}
0x0b91…0ba4 Line {l1=0x11, l2=»1050 CURSOR 70,23«, l3=0x11}
0x0ba4…0bbd Line {l1=0x17, l2=»1060 INPUT "Return!":S$«, l3=0x17}
0x0bbd…0bd2 Line {l1=0x13, l2=»1070 ENDPROC TILFØJ«, l3=0x13}
0x0bd2…0bdc Line {l1=0x08, l2=»1080 // «, l3=0x08}
0x0bdc…0bef Line {l1=0x11, l2=»1090 PROC PRINTER«, l3=0x11}
0x0bef…0c00 Line {l1=0x0f, l2=»1100 CURSOR 1,5«, l3=0x0f}
0x0c00…0c3a Line {l1=0x38, l2=»1110 INPUT "Ønsker du udskrift på printer? (p/s): ":S$«, l3=0x38}
0x0c3a…0c5a Line {l1=0x1e, l2=»1120 IF S$="P" OR S$="p" THEN «, l3=0x1e}
0x0c5a…0c72 Line {l1=0x16, l2=»1130 SELECT OUTPUT "P"«, l3=0x16}
0x0c72…0c8f Line {l1=0x1b, l2=»1140 IF STATUS("P")=1 THEN «, l3=0x1b}
0x0c8f…0ca0 Line {l1=0x0f, l2=»1150 CURSOR 1,5«, l3=0x0f}
0x0ca0…0cd7 Line {l1=0x35, l2=»1160 PRINT "Printeren er reserveret af anden bruger."«, l3=0x35}
0x0cd7…0d18 Line {l1=0x3f, l2=»1170 INPUT "Skal der ventes på at den bliver ledig (j/n) ? ":S$«, l3=0x3f}
0x0d18…0d29 Line {l1=0x0f, l2=»1180 CURSOR 1,5«, l3=0x0f}
0x0d29…0d6c Line {l1=0x41, l2=»1190 PRINT " "«, l3=0x41}
0x0d6c…0daf Line {l1=0x41, l2=»1200 PRINT " "«, l3=0x41}
0x0daf…0dcf Line {l1=0x1e, l2=»1210 IF S$="J" OR S$="j" THEN «, l3=0x1e}
0x0dcf…0de0 Line {l1=0x0f, l2=»1220 CURSOR 1,5«, l3=0x0f}
0x0de0…0e16 Line {l1=0x34, l2=»1230 PRINT "Der ventes på at printeren bliver ledig"«, l3=0x34}
0x0e16…0e46 Line {l1=0x2e, l2=»1240 WHILE STATUS("P")<>0 DO SELECT OUTPUT "P"«, l3=0x2e}
0x0e46…0e52 Line {l1=0x0a, l2=»1250 ELSE «, l3=0x0a}
0x0e52…0e6a Line {l1=0x16, l2=»1260 SELECT OUTPUT "T"«, l3=0x16}
0x0e6a…0e77 Line {l1=0x0b, l2=»1270 ENDIF «, l3=0x0b}
0x0e77…0e84 Line {l1=0x0b, l2=»1280 ENDIF «, l3=0x0b}
0x0e84…0e91 Line {l1=0x0b, l2=»1290 ENDIF «, l3=0x0b}
0x0e91…0ea7 Line {l1=0x14, l2=»1300 ENDPROC PRINTER«, l3=0x14}
0x0ea7…0eae Line {l1=0x05, l2=»1310 «, l3=0x05}
0x0eae…0ec5 Line {l1=0x15, l2=»1320 PROC EOF(FNAVN$)«, l3=0x15}
0x0ec5…0f0d Line {l1=0x46, l2=»1330 EOF:=(STATUS(FNAVN$)=19) // 19 = DDE-comal End-Of-File status nr.«, l3=0x46}
0x0f0d…0f1f Line {l1=0x10, l2=»1340 ENDPROC EOF«, l3=0x10}
0x0f1f…0f20 00 ┆ ┆
0x0f20…0f40 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 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x0f40…0f60 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┆
[…0x23…]