|
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: »ABC_SORT.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ABC_SORT.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ABC_SORT.K«
0100 // ---------------- alfabetisk sortering -----------------------
0110 CLEAR
0120 CURSOR 15,3
0130 PRINT "A L F A B E T I S K S O R T E R I N G ."
0140 CURSOR 15,4
0150 PRINT "------------------------------------------"
0160 CURSOR 1,6
0165 INTEGER I,J,ANTAL
0170 INPUT "Indtast antallet af ord: ":ANTAL
0180 DIM NAVN$(ANTAL) OF 30,MAX$ OF 30,NY$ OF 30,S$ OF 1
0190 EXEC INDTASTNING
0200 EXEC SORTERING
0210 EXEC PRINTER
0220 EXEC UDSKRIFT
0230 // -------------------------------------------------------------
0240 PROC INDTASTNING
0250 I:=1
0260 REPEAT
0270 PRINT I;" : ";
0280 INPUT "Indtast ord: ":NAVN$(I)
0290 I:=I+1
0300 UNTIL I=ANTAL+1
0310 ENDPROC INDTASTNING
0320 // --------------------------------------------------------------
0330 PROC SORTERING
0340 ANTAL:=I-2
0350 FOR J:=ANTAL+1 TO 2 STEP -1 DO
0360 MAX$:=" "
0370 FOR I:=J TO 1 STEP -1 DO
0380 IF NAVN$(I)>MAX$ THEN MAX$:=NAVN$(I);PLADS:=I
0390 NEXT I
0400 NY$:=NAVN$(PLADS);NAVN$(PLADS):=NAVN$(J);NAVN$(J):=NY$
0410 NEXT J
0420 ENDPROC SORTERING
0430 // ------------------------------------------------------------
0440 PROC PRINTER
0450 CURSOR 1,22
0460 INPUT "Ønsker du udskrift på printer? (j/n) ":S$
0470 IF S$="J" OR S$="j" THEN
0480 SELECT OUTPUT "P"
0490 IF STATUS("P")=1 THEN
0500 CURSOR 1,22
0510 PRINT "<Z>Printeren er reserveret af anden bruger,"
0520 INPUT "<S>Skal der ventes på at den bliver ledig? (j/n) ":S$
0530 IF S$="J" OR S$="j" THEN
0540 CURSOR 1,23
0550 PRINT "<Z>Der ventes på at printeren bliver ledig....."
0560 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"
0570 ENDIF
0571 ENDIF
0572 ENDIF
0580 ENDPROC PRINTER
0590 // ------------------------------------------------------------
0600 PROC UDSKRIFT
0610 CLEAR
0620 CURSOR 1,5
0630 PRINT "A L F A B E T I S K O R D E N :"
0640 CURSOR 1,6
0650 PRINT "---------------------------------"
0660 PRINT
0670 FOR I:=1 TO ANTAL+1 DO
0680 PRINT NAVN$(I)
0690 NEXT I
0720 CURSOR 30,22
0730 IF S$<>"J" AND S$<>"j" THEN
0740 CURSOR 30,22
0750 INPUT "Tryk <RETURN>":S$
0755 CLEAR
0760 ENDIF
0770 ENDPROC UDSKRIFT
0780 // --------------------------------
0x000…047 Line {l1=0x45, l2=»0100 // ---------------- alfabetisk sortering -----------------------«, l3=0x45}
0x047…054 Line {l1=0x0b, l2=»0110 CLEAR «, l3=0x0b}
0x054…066 Line {l1=0x10, l2=»0120 CURSOR 15,3«, l3=0x10}
0x066…09f Line {l1=0x37, l2=»0130 PRINT "A L F A B E T I S K S O R T E R I N G ."«, l3=0x37}
0x09f…0b1 Line {l1=0x10, l2=»0140 CURSOR 15,4«, l3=0x10}
0x0b1…0ea Line {l1=0x37, l2=»0150 PRINT "------------------------------------------"«, l3=0x37}
0x0ea…0fb Line {l1=0x0f, l2=»0160 CURSOR 1,6«, l3=0x0f}
0x0fb…113 Line {l1=0x16, l2=»0165 INTEGER I,J,ANTAL«, l3=0x16}
0x113…14e Line {l1=0x39, l2=»0170 INPUT "Indtast antallet af ord: ":ANTAL«, l3=0x39}
0x14e…188 Line {l1=0x38, l2=»0180 DIM NAVN$(ANTAL) OF 30,MAX$ OF 30,NY$ OF 30,S$ OF 1«, l3=0x38}
0x188…19f Line {l1=0x15, l2=»0190 EXEC INDTASTNING«, l3=0x15}
0x19f…1b4 Line {l1=0x13, l2=»0200 EXEC SORTERING«, l3=0x13}
0x1b4…1c7 Line {l1=0x11, l2=»0210 EXEC PRINTER«, l3=0x11}
0x1c7…1db Line {l1=0x12, l2=»0220 EXEC UDSKRIFT«, l3=0x12}
0x1db…222 Line {l1=0x45, l2=»0230 // -------------------------------------------------------------«, l3=0x45}
0x222…239 Line {l1=0x15, l2=»0240 PROC INDTASTNING«, l3=0x15}
0x239…244 Line {l1=0x09, l2=»0250 I:=1«, l3=0x09}
0x244…252 Line {l1=0x0c, l2=»0260 REPEAT «, l3=0x0c}
0x252…267 Line {l1=0x13, l2=»0270 PRINT I;" : ";«, l3=0x13}
0x267…2a6 Line {l1=0x3d, l2=»0280 INPUT "Indtast ord: ":NAVN$(I)«, l3=0x3d}
0x2a6…2b3 Line {l1=0x0b, l2=»0290 I:=I+1«, l3=0x0b}
0x2b3…2c9 Line {l1=0x14, l2=»0300 UNTIL I=ANTAL+1«, l3=0x14}
0x2c9…2e3 Line {l1=0x18, l2=»0310 ENDPROC INDTASTNING«, l3=0x18}
0x2e3…32b Line {l1=0x46, l2=»0320 // --------------------------------------------------------------«, l3=0x46}
0x32b…340 Line {l1=0x13, l2=»0330 PROC SORTERING«, l3=0x13}
0x340…351 Line {l1=0x0f, l2=»0340 ANTAL:=I-2«, l3=0x0f}
0x351…377 Line {l1=0x24, l2=»0350 FOR J:=ANTAL+1 TO 2 STEP -1 DO «, l3=0x24}
0x377…388 Line {l1=0x0f, l2=»0360 MAX$:=" "«, l3=0x0f}
0x388…3a8 Line {l1=0x1e, l2=»0370 FOR I:=J TO 1 STEP -1 DO «, l3=0x1e}
0x3a8…3dc Line {l1=0x32, l2=»0380 IF NAVN$(I)>MAX$ THEN MAX$:=NAVN$(I);PLADS:=I«, l3=0x32}
0x3dc…3e9 Line {l1=0x0b, l2=»0390 NEXT I«, l3=0x0b}
0x3e9…426 Line {l1=0x3b, l2=»0400 NY$:=NAVN$(PLADS);NAVN$(PLADS):=NAVN$(J);NAVN$(J):=NY$«, l3=0x3b}
0x426…433 Line {l1=0x0b, l2=»0410 NEXT J«, l3=0x0b}
0x433…44b Line {l1=0x16, l2=»0420 ENDPROC SORTERING«, l3=0x16}
0x44b…491 Line {l1=0x44, l2=»0430 // ------------------------------------------------------------«, l3=0x44}
0x491…4a4 Line {l1=0x11, l2=»0440 PROC PRINTER«, l3=0x11}
0x4a4…4b6 Line {l1=0x10, l2=»0450 CURSOR 1,22«, l3=0x10}
0x4b6…4f2 Line {l1=0x3a, l2=»0460 INPUT "Ønsker du udskrift på printer? (j/n) ":S$«, l3=0x3a}
0x4f2…512 Line {l1=0x1e, l2=»0470 IF S$="J" OR S$="j" THEN «, l3=0x1e}
0x512…52a Line {l1=0x16, l2=»0480 SELECT OUTPUT "P"«, l3=0x16}
0x52a…547 Line {l1=0x1b, l2=»0490 IF STATUS("P")=1 THEN «, l3=0x1b}
0x547…559 Line {l1=0x10, l2=»0500 CURSOR 1,22«, l3=0x10}
0x559…593 Line {l1=0x38, l2=»0510 PRINT "<Z>Printeren er reserveret af anden bruger,"«, l3=0x38}
0x593…5d7 Line {l1=0x42, l2=»0520 INPUT "<S>Skal der ventes på at den bliver ledig? (j/n) ":S$«, l3=0x42}
0x5d7…5f7 Line {l1=0x1e, l2=»0530 IF S$="J" OR S$="j" THEN «, l3=0x1e}
0x5f7…609 Line {l1=0x10, l2=»0540 CURSOR 1,23«, l3=0x10}
0x609…647 Line {l1=0x3c, l2=»0550 PRINT "<Z>Der ventes på at printeren bliver ledig....."«, l3=0x3c}
0x647…676 Line {l1=0x2d, l2=»0560 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"«, l3=0x2d}
0x676…683 Line {l1=0x0b, l2=»0570 ENDIF «, l3=0x0b}
0x683…690 Line {l1=0x0b, l2=»0571 ENDIF «, l3=0x0b}
0x690…69d Line {l1=0x0b, l2=»0572 ENDIF «, l3=0x0b}
0x69d…6b3 Line {l1=0x14, l2=»0580 ENDPROC PRINTER«, l3=0x14}
0x6b3…6f9 Line {l1=0x44, l2=»0590 // ------------------------------------------------------------«, l3=0x44}
0x6f9…70d Line {l1=0x12, l2=»0600 PROC UDSKRIFT«, l3=0x12}
0x70d…71a Line {l1=0x0b, l2=»0610 CLEAR «, l3=0x0b}
0x71a…72b Line {l1=0x0f, l2=»0620 CURSOR 1,5«, l3=0x0f}
0x72b…75b Line {l1=0x2e, l2=»0630 PRINT "A L F A B E T I S K O R D E N :"«, l3=0x2e}
0x75b…76c Line {l1=0x0f, l2=»0640 CURSOR 1,6«, l3=0x0f}
0x76c…79c Line {l1=0x2e, l2=»0650 PRINT "---------------------------------"«, l3=0x2e}
0x79c…7a9 Line {l1=0x0b, l2=»0660 PRINT «, l3=0x0b}
0x7a9…7c7 Line {l1=0x1c, l2=»0670 FOR I:=1 TO ANTAL+1 DO «, l3=0x1c}
0x7c7…7dc Line {l1=0x13, l2=»0680 PRINT NAVN$(I)«, l3=0x13}
0x7dc…7e9 Line {l1=0x0b, l2=»0690 NEXT I«, l3=0x0b}
0x7e9…7fc Line {l1=0x11, l2=»0720 CURSOR 30,22«, l3=0x11}
0x7fc…81f Line {l1=0x21, l2=»0730 IF S$<>"J" AND S$<>"j" THEN «, l3=0x21}
0x81f…832 Line {l1=0x11, l2=»0740 CURSOR 30,22«, l3=0x11}
0x832…851 Line {l1=0x1d, l2=»0750 INPUT "Tryk <RETURN>":S$«, l3=0x1d}
0x851…85e Line {l1=0x0b, l2=»0755 CLEAR «, l3=0x0b}
0x85e…86b Line {l1=0x0b, l2=»0760 ENDIF «, l3=0x0b}
0x86b…882 Line {l1=0x15, l2=»0770 ENDPROC UDSKRIFT«, l3=0x15}
0x882…8ac Line {l1=0x28, l2=»0780 // --------------------------------«, l3=0x28}
0x8ac…8c0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccc┆
0x8c0…8e0 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┆
[…0x8…]