34 lines
960 B
Plaintext
34 lines
960 B
Plaintext
INCLUDE "D2:SORT.ACT" ;from the Action! Tool Kit
|
|
|
|
PROC Main()
|
|
DEFINE len="121"
|
|
BYTE ARRAY a(len)=[
|
|
12 127 28 42 39 113 42 18 44 118 44 37 113 124 37 48 127 36 29 31
|
|
125 139 131 115 105 132 104 123 35 113 122 42 117 119 58 109 23 105 63 27
|
|
44 105 99 41 128 121 116 125 32 61 37 127 29 113 121 58 114 126 53 114
|
|
96 25 109 7 31 141 46 13 27 43 117 116 27 7 68 40 31 115 124 42
|
|
128 52 71 118 117 38 27 106 33 117 116 111 40 119 47 105 57 122 109 124
|
|
115 43 120 43 27 27 18 28 48 125 107 114 34 133 45 120 30 127 31 116
|
|
146]
|
|
BYTE i,j,min,max,stem,leaf
|
|
|
|
Put(125) PutE() ;clear screen
|
|
SortB(a,len,0)
|
|
min=a(0)/10
|
|
max=a(len-1)/10
|
|
FOR i=min TO max
|
|
DO
|
|
IF i<10 THEN Put(' ) FI
|
|
PrintB(i) Print("* | ")
|
|
FOR j=0 TO len-1
|
|
DO
|
|
stem=a(j)/10
|
|
IF stem=i THEN
|
|
leaf=a(j) MOD 10
|
|
PrintB(leaf)
|
|
FI
|
|
OD
|
|
PutE()
|
|
OD
|
|
RETURN
|