DataMuseum.dk

top - metrics - download

    Length: 2528 (0x9e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »ABC_SORT«

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »ABC_SORT« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »ABC_SORT« 

Text

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 // --------------------------------