� ALPHA/Alphabetic Sort
Z � Program by Andrew Chapman & Jerry Temple-Fry (NETHERHALL SCHOOL) & Richard G Warner

 � Version 5 - October 1981
0 � For BBC Model A Microcomputer 16K Minimum
( � � �Tr@
2T �7:� M%=0 � �5,16);"Press the STOP button"'"     on your tape recorder":�SPACE
< �:� � �T`C
F � WORD$(10),W$(10),S$(10)
d �TITLEPAGE:�HEADER
n, �0,7);"Put in up to ten single words."
x+ �"Words should have no more than nine"
� �"letters."
�0 �'"It doesn't matter whether you use UPPER"
� �"or lower case letters."
�- �'"When you have entered the words, the"
�  �"computer will sort them."
� �SPACE
� �HEADER:�INSTRUCTIONS
� NW=0:� Number of words
�) � NW<5 ��0,4+2*NW); � �18,2*NW-6);
� � NW=9 � �(8);
�) �;NW+1;" ";:�GPI(0,9):� A$="" � �TbA
�! �VALIDATE(A$):� NW<10 � �d\@

 �WIPEBOTTOM

6 �0,22);"Press RETURN to start the sort....    ";

 X$=�:� �(X$)<>13 � �TXA

" � NW=0 � �Dd@

,
 �DISPLAY

6 �FASTSORT

@ � I=1 � NW

J �30,2*I+1);S$(I):�I 

T< �0,22);"Would you like to see that slowly? ";:�YESORNO

r � Y%=0 � �tDC

| � Y%<0 � �DTA

�
 �DISPLAY

� �SHIFT

� �SLOWSORT

� �SPACE

�
 �tDC
 " � �<>17 � �:�" in line ";�:� 
� �
� �5,9);
� �"Do you want to go on to"
�) �"     the next program (Yes/No)? ";
� �YESORNO:� Y%<0 � �tNC
� � Y%=0 � �Dd@
�K �:� M%=0 � �5,5);"Press the PLAY button"'"     on your tape recorder"
� �""
� ��VALIDATE(A$)
� � B,E,K
�) � A$="" � �ERROR("Blank Word"):�toD
) � �A$,1)=" " � A$=�A$,�(A$)-1):�d|C
) � �A$,1)=" " � A$=�A$,�(A$)-1):�TPD
 E=�
$ � K=1 � �(A$)
. B=�(�A$,K,1))
8 � B>64 � B<91 � �DVD
B � B>96 � B<123 � �DVD
L E=�
V �K
`? � E=� � �ERROR("Word has non-alphabetic characters"):�toD
j NW=NW+1:WORD$(NW)=A$
� �
� ��FASTSORT
� �T$
� �CONVERTTOUC
� � NW=1 � �TSE
� � I=1 � NW-1
� � J=I+1 � NW
�P � W$(I)>W$(J) � T$=W$(I):W$(I)=W$(J):W$(J)=T$:T$=S$(I):S$(I)=S$(J):S$(J)=T$
�	 �J,I
 �
 ��DISPLAY
' �:�0,1)"Unsorted";�30,1);"Sorted"
( � I=1 � NW
2 �0,2*I+1);WORD$(I)
< �I
w �
x ��CONVERTTOUC
� � I=1 � NW
� A$="":� J=1 � �(WORD$(I))
� B=�(�WORD$(I),J,1))
� � B>96 � B=B-32
� A$=A$+�(B):�J
�
 W$(I)=A$
� S$(I)=WORD$(I)
� �I
� �
� ��SHIFT
� � I=1 � 30
� � J=1 � NW
�2 �I-1,2*J+1);�WORD$(J)+�29," "),I,1);WORD$(J)
 �WAIT((10-NW)*.01)
	 �J,I
? �
� ��SLOWSORT
� �CONVERTTOUC
� � NW=1 � �
� � X=1 � NW-1
� B=X
 � Y=X+1 � NW
 � W$(B)>W$(Y) � B=Y
 �Y
  � B>X � �SWAP(X,B)
* �X
3 �
4 ��SWAP(I,J)
> � K
H IROW=2*I+1:JROW=2*J+1
R JCOL=29-�(S$(J))
\ ICOL=JCOL-�(S$(I))-1
f � I+1=J � ICOL=30
� � MOVE S$(J) OUT
� � K=29 � JCOL � -1
� �PAUSE
� �K,JROW);S$(J);" ":�K
� � MOVE OUT S$(I)
� � ICOL>29 � �d|H
� � K=29 � ICOL �-1
� �PAUSE
� �K,IROW);S$(I);" ":�K
�  � MOVE W$(J) UP, W$(I) DOWN
	 � K=JROW � IROW+1 � -1
	 �PAUSE
	& �JCOL,K);�"          ",�(S$(J)))
	$ �JCOL,K-1);S$(J)
	. �K
	8 � K=IROW � JROW-1
	B �PAUSE
	L& �ICOL,K);�"          ",�(S$(I)))
	V �ICOL,K+1);S$(I):�K
	` � SHUNT STRINGS BACK
	j � K=JCOL � 29
	t �PAUSE
	~ �K,IROW);" ";S$(J):�K
	� � ICOL>29 � �tpI
	� � K=ICOL � 29
	� �PAUSE
	� �K,JROW);" ";S$(I):�K
	�@ T$=W$(I):W$(I)=W$(J):W$(J)=T$:T$=S$(I):S$(I)=S$(J):S$(J)=T$
	�
 �WAIT(1)
	� �
	� ��PAUSE
	� �WAIT(0.1)
' �
X
 ��HEADER
b  �:�10,2);"ALPHABETIC SORT"
� �
� ��INSTRUCTIONS
�/ �0,19);"Press RETURN after entering each"
�
 �"word."
�) �'"Press RETURN again to sort them."
 �
  ��WIPEBOTTOM
* �K
4 � K=19 � 22
> �0,K);�39," ")
H �K
� �
� ��ERROR(E$)
� �WIPEBOTTOM
� �18-�(E$)/2,20);E$
� �SPACE
� �WIPEBOTTOM
� �INSTRUCTIONS
� �
@ ��DBL(X$,X,Y)
J �X-1,Y);�(141);X$
T �X-1,Y+1);�(141);X$
� �
� ��WAIT(X)
� � Z
� Z=�
� � � �-Z>X*100
  �
  ��SPACE
 4 �3,22);"Press the SPACE BAR to continue";:�KCL
 0 � � �=" "
 k �
 l ��TITLEPAGE
 v0 �:�DBL("Alphabetic",9,8):�DBL("Sort",12,11)
 � �OFF:I%=�(500)
 � �
"`
 ��KCL
"j � �(0)>"" � �Djb
"� �
"�
 ��OFF
"� �23;8202;0;0;0;:�
"�	 ��ON
# �23;29194;0;0;0;:�
#(1 ��GPI(F2,ML):� General Purpose Input Routine
#2
 �B,B$
#<
 A$=""
#F+ ��ML," ");�ML+1,�(8));�(&87);:�ON:�KCL
#P B$=�:B=�(B$):� B=13 � �dfc
#Z � B=127 � A$="" � �DPc
#d) � B=127 � A$=�A$,�(A$)-1):�B$;:�DPc
#n% � �(A$)=ML � B<32 � B>126 � �dRc
#x+ � F2=0 � B=32 � (B>=48 � B<=57) � �d\c
#�
 �7:�DPc
#� �B$;:A$=A$+B$:�DPc
#�	 �OFF
#� �
#� ��YESORNO
#� �B$
$ �GPI(0,3)
$ B$=�A$,1)
$
 Y%=-1
$" � B$="Y" � B$="y" � Y%=1
$, � B$="N" � B$="n" � Y%=0
$S �
�

00000000  0d 00 0a 1c 20 f4 20 41  4c 50 48 41 2f 41 6c 70  |.... . ALPHA/Alp|
00000010  68 61 62 65 74 69 63 20  53 6f 72 74 0d 00 0c 5a  |habetic Sort...Z|
00000020  20 f4 20 50 72 6f 67 72  61 6d 20 62 79 20 41 6e  | . Program by An|
00000030  64 72 65 77 20 43 68 61  70 6d 61 6e 20 26 20 4a  |drew Chapman & J|
00000040  65 72 72 79 20 54 65 6d  70 6c 65 2d 46 72 79 20  |erry Temple-Fry |
00000050  28 4e 45 54 48 45 52 48  41 4c 4c 20 53 43 48 4f  |(NETHERHALL SCHO|
00000060  4f 4c 29 20 26 20 52 69  63 68 61 72 64 20 47 20  |OL) & Richard G |
00000070  57 61 72 6e 65 72 0d 00  0d 1f 20 f4 20 56 65 72  |Warner.... . Ver|
00000080  73 69 6f 6e 20 35 20 2d  20 4f 63 74 6f 62 65 72  |sion 5 - October|
00000090  20 31 39 38 31 0d 00 0e  30 20 f4 20 46 6f 72 20  | 1981...0 . For |
000000a0  42 42 43 20 4d 6f 64 65  6c 20 41 20 4d 69 63 72  |BBC Model A Micr|
000000b0  6f 63 6f 6d 70 75 74 65  72 20 31 36 4b 20 4d 69  |ocomputer 16K Mi|
000000c0  6e 69 6d 75 6d 0d 00 28  0e 20 ee 20 85 20 e5 8d  |nimum..(. . . ..|
000000d0  54 72 40 0d 00 32 54 20  eb 37 3a e7 20 4d 25 3d  |Tr@..2T .7:. M%=|
000000e0  30 20 8c 20 f1 8a 35 2c  31 36 29 3b 22 50 72 65  |0 . ..5,16);"Pre|
000000f0  73 73 20 74 68 65 20 53  54 4f 50 20 62 75 74 74  |ss the STOP butt|
00000100  6f 6e 22 27 22 20 20 20  20 20 6f 6e 20 79 6f 75  |on"'"     on you|
00000110  72 20 74 61 70 65 20 72  65 63 6f 72 64 65 72 22  |r tape recorder"|
00000120  3a f2 53 50 41 43 45 0d  00 3c 10 20 db 3a ee 20  |:.SPACE..<. .:. |
00000130  85 20 e5 8d 54 60 43 0d  00 46 1e 20 de 20 57 4f  |. ..T`C..F. . WO|
00000140  52 44 24 28 31 30 29 2c  57 24 28 31 30 29 2c 53  |RD$(10),W$(10),S|
00000150  24 28 31 30 29 0d 00 64  17 20 f2 54 49 54 4c 45  |$(10)..d. .TITLE|
00000160  50 41 47 45 3a f2 48 45  41 44 45 52 0d 00 6e 2c  |PAGE:.HEADER..n,|
00000170  20 f1 8a 30 2c 37 29 3b  22 50 75 74 20 69 6e 20  | ..0,7);"Put in |
00000180  75 70 20 74 6f 20 74 65  6e 20 73 69 6e 67 6c 65  |up to ten single|
00000190  20 77 6f 72 64 73 2e 22  0d 00 78 2b 20 f1 22 57  | words."..x+ ."W|
000001a0  6f 72 64 73 20 73 68 6f  75 6c 64 20 68 61 76 65  |ords should have|
000001b0  20 6e 6f 20 6d 6f 72 65  20 74 68 61 6e 20 6e 69  | no more than ni|
000001c0  6e 65 22 0d 00 82 10 20  f1 22 6c 65 74 74 65 72  |ne".... ."letter|
000001d0  73 2e 22 0d 00 8c 30 20  f1 27 22 49 74 20 64 6f  |s."...0 .'"It do|
000001e0  65 73 6e 27 74 20 6d 61  74 74 65 72 20 77 68 65  |esn't matter whe|
000001f0  74 68 65 72 20 79 6f 75  20 75 73 65 20 55 50 50  |ther you use UPP|
00000200  45 52 22 0d 00 96 1e 20  f1 22 6f 72 20 6c 6f 77  |ER".... ."or low|
00000210  65 72 20 63 61 73 65 20  6c 65 74 74 65 72 73 2e  |er case letters.|
00000220  22 0d 00 a0 2d 20 f1 27  22 57 68 65 6e 20 79 6f  |"...- .'"When yo|
00000230  75 20 68 61 76 65 20 65  6e 74 65 72 65 64 20 74  |u have entered t|
00000240  68 65 20 77 6f 72 64 73  2c 20 74 68 65 22 0d 00  |he words, the"..|
00000250  aa 20 20 f1 22 63 6f 6d  70 75 74 65 72 20 77 69  |.  ."computer wi|
00000260  6c 6c 20 73 6f 72 74 20  74 68 65 6d 2e 22 0d 00  |ll sort them."..|
00000270  be 0b 20 f2 53 50 41 43  45 0d 00 c8 1a 20 f2 48  |.. .SPACE.... .H|
00000280  45 41 44 45 52 3a f2 49  4e 53 54 52 55 43 54 49  |EADER:.INSTRUCTI|
00000290  4f 4e 53 0d 00 d2 1b 20  4e 57 3d 30 3a f4 20 4e  |ONS.... NW=0:. N|
000002a0  75 6d 62 65 72 20 6f 66  20 77 6f 72 64 73 0d 00  |umber of words..|
000002b0  dc 29 20 e7 20 4e 57 3c  35 20 8c f1 8a 30 2c 34  |.) . NW<5 ...0,4|
000002c0  2b 32 2a 4e 57 29 3b 20  8b 20 f1 8a 31 38 2c 32  |+2*NW); . ..18,2|
000002d0  2a 4e 57 2d 36 29 3b 0d  00 e6 14 20 e7 20 4e 57  |*NW-6);.... . NW|
000002e0  3d 39 20 8c 20 f1 bd 28  38 29 3b 0d 00 f0 29 20  |=9 . ..(8);...) |
000002f0  f1 3b 4e 57 2b 31 3b 22  20 22 3b 3a f2 47 50 49  |.;NW+1;" ";:.GPI|
00000300  28 30 2c 39 29 3a e7 20  41 24 3d 22 22 20 8c 20  |(0,9):. A$="" . |
00000310  8d 54 62 41 0d 00 fa 21  20 f2 56 41 4c 49 44 41  |.TbA...! .VALIDA|
00000320  54 45 28 41 24 29 3a e7  20 4e 57 3c 31 30 20 8c  |TE(A$):. NW<10 .|
00000330  20 8d 64 5c 40 0d 01 04  10 20 f2 57 49 50 45 42  | .d\@.... .WIPEB|
00000340  4f 54 54 4f 4d 0d 01 0e  36 20 f1 8a 30 2c 32 32  |OTTOM...6 ..0,22|
00000350  29 3b 22 50 72 65 73 73  20 52 45 54 55 52 4e 20  |);"Press RETURN |
00000360  74 6f 20 73 74 61 72 74  20 74 68 65 20 73 6f 72  |to start the sor|
00000370  74 2e 2e 2e 2e 20 20 20  20 22 3b 0d 01 18 1c 20  |t....    ";.... |
00000380  58 24 3d be 3a e7 20 97  28 58 24 29 3c 3e 31 33  |X$=.:. .(X$)<>13|
00000390  20 8c 20 8d 54 58 41 0d  01 22 12 20 e7 20 4e 57  | . .TXA..". . NW|
000003a0  3d 30 20 8c 20 8d 44 64  40 0d 01 2c 0d 20 f2 44  |=0 . .Dd@..,. .D|
000003b0  49 53 50 4c 41 59 0d 01  36 0e 20 f2 46 41 53 54  |ISPLAY..6. .FAST|
000003c0  53 4f 52 54 0d 01 40 0f  20 e3 20 49 3d 31 20 b8  |SORT..@. . I=1 .|
000003d0  20 4e 57 0d 01 4a 1a 20  f1 8a 33 30 2c 32 2a 49  | NW..J. ..30,2*I|
000003e0  2b 31 29 3b 53 24 28 49  29 3a ed 49 20 0d 01 54  |+1);S$(I):.I ..T|
000003f0  3c 20 f1 8a 30 2c 32 32  29 3b 22 57 6f 75 6c 64  |< ..0,22);"Would|
00000400  20 79 6f 75 20 6c 69 6b  65 20 74 6f 20 73 65 65  | you like to see|
00000410  20 74 68 61 74 20 73 6c  6f 77 6c 79 3f 20 22 3b  | that slowly? ";|
00000420  3a f2 59 45 53 4f 52 4e  4f 0d 01 72 12 20 e7 20  |:.YESORNO..r. . |
00000430  59 25 3d 30 20 8c 20 8d  74 44 43 0d 01 7c 12 20  |Y%=0 . .tDC..|. |
00000440  e7 20 59 25 3c 30 20 8c  20 8d 44 54 41 0d 01 90  |. Y%<0 . .DTA...|
00000450  0d 20 f2 44 49 53 50 4c  41 59 0d 01 9a 0b 20 f2  |. .DISPLAY.... .|
00000460  53 48 49 46 54 0d 01 a4  0e 20 f2 53 4c 4f 57 53  |SHIFT.... .SLOWS|
00000470  4f 52 54 0d 01 ae 0b 20  f2 53 50 41 43 45 0d 01  |ORT.... .SPACE..|
00000480  ea 0a 20 e5 8d 74 44 43  0d 03 20 22 20 e7 20 9f  |.. ..tDC.. " . .|
00000490  3c 3e 31 37 20 8c 20 f6  3a f1 22 20 69 6e 20 6c  |<>17 . .:." in l|
000004a0  69 6e 65 20 22 3b 9e 3a  e0 20 0d 03 84 06 20 db  |ine ";.:. .... .|
000004b0  0d 03 8e 0c 20 f1 8a 35  2c 39 29 3b 0d 03 98 1f  |.... ..5,9);....|
000004c0  20 f1 22 44 6f 20 79 6f  75 20 77 61 6e 74 20 74  | ."Do you want t|
000004d0  6f 20 67 6f 20 6f 6e 20  74 6f 22 0d 03 a2 29 20  |o go on to"...) |
000004e0  f1 22 20 20 20 20 20 74  68 65 20 6e 65 78 74 20  |."     the next |
000004f0  70 72 6f 67 72 61 6d 20  28 59 65 73 2f 4e 6f 29  |program (Yes/No)|
00000500  3f 20 22 3b 0d 03 ac 1b  20 f2 59 45 53 4f 52 4e  |? ";.... .YESORN|
00000510  4f 3a e7 20 59 25 3c 30  20 8c 20 8d 74 4e 43 0d  |O:. Y%<0 . .tNC.|
00000520  03 b6 12 20 e7 20 59 25  3d 30 20 8c 20 8d 44 64  |... . Y%=0 . .Dd|
00000530  40 0d 03 ca 4b 20 db 3a  e7 20 4d 25 3d 30 20 8c  |@...K .:. M%=0 .|
00000540  20 f1 8a 35 2c 35 29 3b  22 50 72 65 73 73 20 74  | ..5,5);"Press t|
00000550  68 65 20 50 4c 41 59 20  62 75 74 74 6f 6e 22 27  |he PLAY button"'|
00000560  22 20 20 20 20 20 6f 6e  20 79 6f 75 72 20 74 61  |"     on your ta|
00000570  70 65 20 72 65 63 6f 72  64 65 72 22 0d 03 de 08  |pe recorder"....|
00000580  20 d7 22 22 0d 03 e8 13  20 dd f2 56 41 4c 49 44  | ."".... ..VALID|
00000590  41 54 45 28 41 24 29 0d  03 f2 0c 20 ea 20 42 2c  |ATE(A$).... . B,|
000005a0  45 2c 4b 0d 03 fc 29 20  e7 20 41 24 3d 22 22 20  |E,K...) . A$="" |
000005b0  8c 20 f2 45 52 52 4f 52  28 22 42 6c 61 6e 6b 20  |. .ERROR("Blank |
000005c0  57 6f 72 64 22 29 3a e5  8d 74 6f 44 0d 04 06 29  |Word"):..toD...)|
000005d0  20 e7 20 c2 41 24 2c 31  29 3d 22 20 22 20 8c 20  | . .A$,1)=" " . |
000005e0  41 24 3d c0 41 24 2c a9  28 41 24 29 2d 31 29 3a  |A$=.A$,.(A$)-1):|
000005f0  e5 8d 64 7c 43 0d 04 10  29 20 e7 20 c0 41 24 2c  |..d|C...) . .A$,|
00000600  31 29 3d 22 20 22 20 8c  20 41 24 3d c2 41 24 2c  |1)=" " . A$=.A$,|
00000610  a9 28 41 24 29 2d 31 29  3a e5 8d 54 50 44 0d 04  |.(A$)-1):..TPD..|
00000620  1a 08 20 45 3d a3 0d 04  24 12 20 e3 20 4b 3d 31  |.. E=...$. . K=1|
00000630  20 b8 20 a9 28 41 24 29  0d 04 2e 12 20 42 3d 97  | . .(A$).... B=.|
00000640  28 c1 41 24 2c 4b 2c 31  29 29 0d 04 38 19 20 e7  |(.A$,K,1))..8. .|
00000650  20 42 3e 36 34 20 80 20  42 3c 39 31 20 8c 20 8d  | B>64 . B<91 . .|
00000660  44 56 44 0d 04 42 1a 20  e7 20 42 3e 39 36 20 80  |DVD..B. . B>96 .|
00000670  20 42 3c 31 32 33 20 8c  20 8d 44 56 44 0d 04 4c  | B<123 . .DVD..L|
00000680  08 20 45 3d b9 0d 04 56  07 20 ed 4b 0d 04 60 3f  |. E=...V. .K..`?|
00000690  20 e7 20 45 3d b9 20 8c  20 f2 45 52 52 4f 52 28  | . E=. . .ERROR(|
000006a0  22 57 6f 72 64 20 68 61  73 20 6e 6f 6e 2d 61 6c  |"Word has non-al|
000006b0  70 68 61 62 65 74 69 63  20 63 68 61 72 61 63 74  |phabetic charact|
000006c0  65 72 73 22 29 3a e5 8d  74 6f 44 0d 04 6a 19 20  |ers"):..toD..j. |
000006d0  4e 57 3d 4e 57 2b 31 3a  57 4f 52 44 24 28 4e 57  |NW=NW+1:WORD$(NW|
000006e0  29 3d 41 24 0d 04 af 06  20 e1 0d 04 b0 0f 20 dd  |)=A$.... ..... .|
000006f0  f2 46 41 53 54 53 4f 52  54 0d 04 ba 08 20 ea 54  |.FASTSORT.... .T|
00000700  24 0d 04 c4 11 20 f2 43  4f 4e 56 45 52 54 54 4f  |$.... .CONVERTTO|
00000710  55 43 0d 04 ce 12 20 e7  20 4e 57 3d 31 20 8c 20  |UC.... . NW=1 . |
00000720  8d 54 53 45 0d 04 d8 11  20 e3 20 49 3d 31 20 b8  |.TSE.... . I=1 .|
00000730  20 4e 57 2d 31 0d 04 e2  11 20 e3 20 4a 3d 49 2b  | NW-1.... . J=I+|
00000740  31 20 b8 20 4e 57 0d 04  ec 50 20 e7 20 57 24 28  |1 . NW...P . W$(|
00000750  49 29 3e 57 24 28 4a 29  20 8c 20 54 24 3d 57 24  |I)>W$(J) . T$=W$|
00000760  28 49 29 3a 57 24 28 49  29 3d 57 24 28 4a 29 3a  |(I):W$(I)=W$(J):|
00000770  57 24 28 4a 29 3d 54 24  3a 54 24 3d 53 24 28 49  |W$(J)=T$:T$=S$(I|
00000780  29 3a 53 24 28 49 29 3d  53 24 28 4a 29 3a 53 24  |):S$(I)=S$(J):S$|
00000790  28 4a 29 3d 54 24 0d 04  f6 09 20 ed 4a 2c 49 0d  |(J)=T$.... .J,I.|
000007a0  05 13 06 20 e1 0d 05 14  0e 20 dd f2 44 49 53 50  |... ..... ..DISP|
000007b0  4c 41 59 0d 05 1e 27 20  db 3a f1 8a 30 2c 31 29  |LAY...' .:..0,1)|
000007c0  22 55 6e 73 6f 72 74 65  64 22 3b 8a 33 30 2c 31  |"Unsorted";.30,1|
000007d0  29 3b 22 53 6f 72 74 65  64 22 0d 05 28 0f 20 e3  |);"Sorted"..(. .|
000007e0  20 49 3d 31 20 b8 20 4e  57 0d 05 32 18 20 f1 8a  | I=1 . NW..2. ..|
000007f0  30 2c 32 2a 49 2b 31 29  3b 57 4f 52 44 24 28 49  |0,2*I+1);WORD$(I|
00000800  29 0d 05 3c 07 20 ed 49  0d 05 77 06 20 e1 0d 05  |)..<. .I..w. ...|
00000810  78 12 20 dd f2 43 4f 4e  56 45 52 54 54 4f 55 43  |x. ..CONVERTTOUC|
00000820  0d 05 82 0f 20 e3 20 49  3d 31 20 b8 20 4e 57 0d  |.... . I=1 . NW.|
00000830  05 8c 1e 20 41 24 3d 22  22 3a e3 20 4a 3d 31 20  |... A$="":. J=1 |
00000840  b8 20 a9 28 57 4f 52 44  24 28 49 29 29 0d 05 96  |. .(WORD$(I))...|
00000850  18 20 42 3d 97 28 c1 57  4f 52 44 24 28 49 29 2c  |. B=.(.WORD$(I),|
00000860  4a 2c 31 29 29 0d 05 a0  14 20 e7 20 42 3e 39 36  |J,1)).... . B>96|
00000870  20 8c 20 42 3d 42 2d 33  32 0d 05 aa 12 20 41 24  | . B=B-32.... A$|
00000880  3d 41 24 2b bd 28 42 29  3a ed 4a 0d 05 b4 0d 20  |=A$+.(B):.J.... |
00000890  57 24 28 49 29 3d 41 24  0d 05 be 13 20 53 24 28  |W$(I)=A$.... S$(|
000008a0  49 29 3d 57 4f 52 44 24  28 49 29 0d 05 c8 07 20  |I)=WORD$(I).... |
000008b0  ed 49 0d 05 db 06 20 e1  0d 05 dc 0c 20 dd f2 53  |.I.... ..... ..S|
000008c0  48 49 46 54 0d 05 e6 0f  20 e3 20 49 3d 31 20 b8  |HIFT.... . I=1 .|
000008d0  20 33 30 0d 05 f0 0f 20  e3 20 4a 3d 31 20 b8 20  | 30.... . J=1 . |
000008e0  4e 57 0d 05 fa 32 20 f1  8a 49 2d 31 2c 32 2a 4a  |NW...2 ..I-1,2*J|
000008f0  2b 31 29 3b c1 57 4f 52  44 24 28 4a 29 2b c4 32  |+1);.WORD$(J)+.2|
00000900  39 2c 22 20 22 29 2c 49  2c 31 29 3b 57 4f 52 44  |9," "),I,1);WORD|
00000910  24 28 4a 29 0d 06 04 17  20 f2 57 41 49 54 28 28  |$(J).... .WAIT((|
00000920  31 30 2d 4e 57 29 2a 2e  30 31 29 0d 06 0e 09 20  |10-NW)*.01).... |
00000930  ed 4a 2c 49 0d 06 3f 06  20 e1 0d 07 d0 0f 20 dd  |.J,I..?. ..... .|
00000940  f2 53 4c 4f 57 53 4f 52  54 0d 07 da 11 20 f2 43  |.SLOWSORT.... .C|
00000950  4f 4e 56 45 52 54 54 4f  55 43 0d 07 e4 0f 20 e7  |ONVERTTOUC.... .|
00000960  20 4e 57 3d 31 20 8c 20  e1 0d 07 ee 11 20 e3 20  | NW=1 . ..... . |
00000970  58 3d 31 20 b8 20 4e 57  2d 31 0d 07 f8 08 20 42  |X=1 . NW-1.... B|
00000980  3d 58 0d 08 02 11 20 e3  20 59 3d 58 2b 31 20 b8  |=X.... . Y=X+1 .|
00000990  20 4e 57 0d 08 0c 18 20  e7 20 57 24 28 42 29 3e  | NW.... . W$(B)>|
000009a0  57 24 28 59 29 20 8c 20  42 3d 59 0d 08 16 07 20  |W$(Y) . B=Y.... |
000009b0  ed 59 0d 08 20 17 20 e7  20 42 3e 58 20 8c 20 f2  |.Y.. . . B>X . .|
000009c0  53 57 41 50 28 58 2c 42  29 0d 08 2a 07 20 ed 58  |SWAP(X,B)..*. .X|
000009d0  0d 08 33 06 20 e1 0d 08  34 10 20 dd f2 53 57 41  |..3. ...4. ..SWA|
000009e0  50 28 49 2c 4a 29 0d 08  3e 08 20 ea 20 4b 0d 08  |P(I,J)..>. . K..|
000009f0  48 1a 20 49 52 4f 57 3d  32 2a 49 2b 31 3a 4a 52  |H. IROW=2*I+1:JR|
00000a00  4f 57 3d 32 2a 4a 2b 31  0d 08 52 15 20 4a 43 4f  |OW=2*J+1..R. JCO|
00000a10  4c 3d 32 39 2d a9 28 53  24 28 4a 29 29 0d 08 5c  |L=29-.(S$(J))..\|
00000a20  19 20 49 43 4f 4c 3d 4a  43 4f 4c 2d a9 28 53 24  |. ICOL=JCOL-.(S$|
00000a30  28 49 29 29 2d 31 0d 08  66 16 20 e7 20 49 2b 31  |(I))-1..f. . I+1|
00000a40  3d 4a 20 8c 20 49 43 4f  4c 3d 33 30 0d 08 98 15  |=J . ICOL=30....|
00000a50  20 f4 20 4d 4f 56 45 20  53 24 28 4a 29 20 4f 55  | . MOVE S$(J) OU|
00000a60  54 0d 08 a2 17 20 e3 20  4b 3d 32 39 20 b8 20 4a  |T.... . K=29 . J|
00000a70  43 4f 4c 20 88 20 2d 31  0d 08 ac 0b 20 f2 50 41  |COL . -1.... .PA|
00000a80  55 53 45 0d 08 b6 1b 20  f1 8a 4b 2c 4a 52 4f 57  |USE.... ..K,JROW|
00000a90  29 3b 53 24 28 4a 29 3b  22 20 22 3a ed 4b 0d 08  |);S$(J);" ":.K..|
00000aa0  ca 15 20 f4 20 4d 4f 56  45 20 4f 55 54 20 53 24  |.. . MOVE OUT S$|
00000ab0  28 49 29 0d 08 d4 15 20  e7 20 49 43 4f 4c 3e 32  |(I).... . ICOL>2|
00000ac0  39 20 8c 20 8d 64 7c 48  0d 08 de 16 20 e3 20 4b  |9 . .d|H.... . K|
00000ad0  3d 32 39 20 b8 20 49 43  4f 4c 20 88 2d 31 0d 08  |=29 . ICOL .-1..|
00000ae0  e8 0b 20 f2 50 41 55 53  45 0d 08 f2 1b 20 f1 8a  |.. .PAUSE.... ..|
00000af0  4b 2c 49 52 4f 57 29 3b  53 24 28 49 29 3b 22 20  |K,IROW);S$(I);" |
00000b00  22 3a ed 4b 0d 08 fc 20  20 f4 20 4d 4f 56 45 20  |":.K...  . MOVE |
00000b10  57 24 28 4a 29 20 55 50  2c 20 57 24 28 49 29 20  |W$(J) UP, W$(I) |
00000b20  44 4f 57 4e 0d 09 06 1b  20 e3 20 4b 3d 4a 52 4f  |DOWN.... . K=JRO|
00000b30  57 20 b8 20 49 52 4f 57  2b 31 20 88 20 2d 31 0d  |W . IROW+1 . -1.|
00000b40  09 10 0b 20 f2 50 41 55  53 45 0d 09 1a 26 20 f1  |... .PAUSE...& .|
00000b50  8a 4a 43 4f 4c 2c 4b 29  3b c0 22 20 20 20 20 20  |.JCOL,K);."     |
00000b60  20 20 20 20 20 22 2c a9  28 53 24 28 4a 29 29 29  |     ",.(S$(J)))|
00000b70  0d 09 24 16 20 f1 8a 4a  43 4f 4c 2c 4b 2d 31 29  |..$. ..JCOL,K-1)|
00000b80  3b 53 24 28 4a 29 0d 09  2e 07 20 ed 4b 0d 09 38  |;S$(J).... .K..8|
00000b90  16 20 e3 20 4b 3d 49 52  4f 57 20 b8 20 4a 52 4f  |. . K=IROW . JRO|
00000ba0  57 2d 31 0d 09 42 0b 20  f2 50 41 55 53 45 0d 09  |W-1..B. .PAUSE..|
00000bb0  4c 26 20 f1 8a 49 43 4f  4c 2c 4b 29 3b c0 22 20  |L& ..ICOL,K);." |
00000bc0  20 20 20 20 20 20 20 20  20 22 2c a9 28 53 24 28  |         ",.(S$(|
00000bd0  49 29 29 29 0d 09 56 19  20 f1 8a 49 43 4f 4c 2c  |I)))..V. ..ICOL,|
00000be0  4b 2b 31 29 3b 53 24 28  49 29 3a ed 4b 0d 09 60  |K+1);S$(I):.K..`|
00000bf0  19 20 f4 20 53 48 55 4e  54 20 53 54 52 49 4e 47  |. . SHUNT STRING|
00000c00  53 20 42 41 43 4b 0d 09  6a 12 20 e3 20 4b 3d 4a  |S BACK..j. . K=J|
00000c10  43 4f 4c 20 b8 20 32 39  0d 09 74 0b 20 f2 50 41  |COL . 29..t. .PA|
00000c20  55 53 45 0d 09 7e 1b 20  f1 8a 4b 2c 49 52 4f 57  |USE..~. ..K,IROW|
00000c30  29 3b 22 20 22 3b 53 24  28 4a 29 3a ed 4b 0d 09  |);" ";S$(J):.K..|
00000c40  88 15 20 e7 20 49 43 4f  4c 3e 32 39 20 8c 20 8d  |.. . ICOL>29 . .|
00000c50  74 70 49 0d 09 92 12 20  e3 20 4b 3d 49 43 4f 4c  |tpI.... . K=ICOL|
00000c60  20 b8 20 32 39 0d 09 9c  0b 20 f2 50 41 55 53 45  | . 29.... .PAUSE|
00000c70  0d 09 a6 1b 20 f1 8a 4b  2c 4a 52 4f 57 29 3b 22  |.... ..K,JROW);"|
00000c80  20 22 3b 53 24 28 49 29  3a ed 4b 0d 09 b0 40 20  | ";S$(I):.K...@ |
00000c90  54 24 3d 57 24 28 49 29  3a 57 24 28 49 29 3d 57  |T$=W$(I):W$(I)=W|
00000ca0  24 28 4a 29 3a 57 24 28  4a 29 3d 54 24 3a 54 24  |$(J):W$(J)=T$:T$|
00000cb0  3d 53 24 28 49 29 3a 53  24 28 49 29 3d 53 24 28  |=S$(I):S$(I)=S$(|
00000cc0  4a 29 3a 53 24 28 4a 29  3d 54 24 0d 09 ba 0d 20  |J):S$(J)=T$.... |
00000cd0  f2 57 41 49 54 28 31 29  0d 09 c3 06 20 e1 0d 09  |.WAIT(1).... ...|
00000ce0  c4 0c 20 dd f2 50 41 55  53 45 0d 09 ce 0f 20 f2  |.. ..PAUSE.... .|
00000cf0  57 41 49 54 28 30 2e 31  29 0d 0a 27 06 20 e1 0d  |WAIT(0.1)..'. ..|
00000d00  1b 58 0d 20 dd f2 48 45  41 44 45 52 0d 1b 62 20  |.X. ..HEADER..b |
00000d10  20 db 3a f1 8a 31 30 2c  32 29 3b 22 41 4c 50 48  | .:..10,2);"ALPH|
00000d20  41 42 45 54 49 43 20 53  4f 52 54 22 0d 1b bb 06  |ABETIC SORT"....|
00000d30  20 e1 0d 1b bc 13 20 dd  f2 49 4e 53 54 52 55 43  | ..... ..INSTRUC|
00000d40  54 49 4f 4e 53 0d 1b c6  2f 20 f1 8a 30 2c 31 39  |TIONS.../ ..0,19|
00000d50  29 3b 22 50 72 65 73 73  20 52 45 54 55 52 4e 20  |);"Press RETURN |
00000d60  61 66 74 65 72 20 65 6e  74 65 72 69 6e 67 20 65  |after entering e|
00000d70  61 63 68 22 0d 1b d0 0d  20 f1 22 77 6f 72 64 2e  |ach".... ."word.|
00000d80  22 0d 1b da 29 20 f1 27  22 50 72 65 73 73 20 52  |"...) .'"Press R|
00000d90  45 54 55 52 4e 20 61 67  61 69 6e 20 74 6f 20 73  |ETURN again to s|
00000da0  6f 72 74 20 74 68 65 6d  2e 22 0d 1c 1f 06 20 e1  |ort them.".... .|
00000db0  0d 1c 20 11 20 dd f2 57  49 50 45 42 4f 54 54 4f  |.. . ..WIPEBOTTO|
00000dc0  4d 0d 1c 2a 07 20 ea 4b  0d 1c 34 10 20 e3 20 4b  |M..*. .K..4. . K|
00000dd0  3d 31 39 20 b8 20 32 32  0d 1c 3e 14 20 f1 8a 30  |=19 . 22..>. ..0|
00000de0  2c 4b 29 3b c4 33 39 2c  22 20 22 29 0d 1c 48 07  |,K);.39," ")..H.|
00000df0  20 ed 4b 0d 1c 83 06 20  e1 0d 1c 84 10 20 dd f2  | .K.... ..... ..|
00000e00  45 52 52 4f 52 28 45 24  29 0d 1c 8e 10 20 f2 57  |ERROR(E$).... .W|
00000e10  49 50 45 42 4f 54 54 4f  4d 0d 1c 98 18 20 f1 8a  |IPEBOTTOM.... ..|
00000e20  31 38 2d a9 28 45 24 29  2f 32 2c 32 30 29 3b 45  |18-.(E$)/2,20);E|
00000e30  24 0d 1c a2 0b 20 f2 53  50 41 43 45 0d 1c ac 10  |$.... .SPACE....|
00000e40  20 f2 57 49 50 45 42 4f  54 54 4f 4d 0d 1c b6 12  | .WIPEBOTTOM....|
00000e50  20 f2 49 4e 53 54 52 55  43 54 49 4f 4e 53 0d 1c  | .INSTRUCTIONS..|
00000e60  e7 06 20 e1 0d 1f 40 12  20 dd f2 44 42 4c 28 58  |.. ...@. ..DBL(X|
00000e70  24 2c 58 2c 59 29 0d 1f  4a 17 20 f1 8a 58 2d 31  |$,X,Y)..J. ..X-1|
00000e80  2c 59 29 3b bd 28 31 34  31 29 3b 58 24 0d 1f 54  |,Y);.(141);X$..T|
00000e90  19 20 f1 8a 58 2d 31 2c  59 2b 31 29 3b bd 28 31  |. ..X-1,Y+1);.(1|
00000ea0  34 31 29 3b 58 24 0d 1f  a3 06 20 e1 0d 1f a4 0e  |41);X$.... .....|
00000eb0  20 dd f2 57 41 49 54 28  58 29 0d 1f ae 08 20 ea  | ..WAIT(X).... .|
00000ec0  20 5a 0d 1f b8 08 20 5a  3d 91 0d 1f c2 12 20 f5  | Z.... Z=..... .|
00000ed0  20 fd 20 91 2d 5a 3e 58  2a 31 30 30 0d 20 07 06  | . .-Z>X*100. ..|
00000ee0  20 e1 0d 20 08 0c 20 dd  f2 53 50 41 43 45 0d 20  | .. .. ..SPACE. |
00000ef0  1c 34 20 f1 8a 33 2c 32  32 29 3b 22 50 72 65 73  |.4 ..3,22);"Pres|
00000f00  73 20 74 68 65 20 53 50  41 43 45 20 42 41 52 20  |s the SPACE BAR |
00000f10  74 6f 20 63 6f 6e 74 69  6e 75 65 22 3b 3a f2 4b  |to continue";:.K|
00000f20  43 4c 0d 20 30 0e 20 f5  20 fd 20 be 3d 22 20 22  |CL. 0. . . .=" "|
00000f30  0d 20 6b 06 20 e1 0d 20  6c 10 20 dd f2 54 49 54  |. k. .. l. ..TIT|
00000f40  4c 45 50 41 47 45 0d 20  76 30 20 db 3a f2 44 42  |LEPAGE. v0 .:.DB|
00000f50  4c 28 22 41 6c 70 68 61  62 65 74 69 63 22 2c 39  |L("Alphabetic",9|
00000f60  2c 38 29 3a f2 44 42 4c  28 22 53 6f 72 74 22 2c  |,8):.DBL("Sort",|
00000f70  31 32 2c 31 31 29 0d 20  80 13 20 f2 4f 46 46 3a  |12,11). .. .OFF:|
00000f80  49 25 3d a6 28 35 30 30  29 0d 20 cf 06 20 e1 0d  |I%=.(500). .. ..|
00000f90  22 60 0a 20 dd f2 4b 43  4c 0d 22 6a 15 20 e7 20  |"`. ..KCL."j. . |
00000fa0  bf 28 30 29 3e 22 22 20  8c 20 8d 44 6a 62 0d 22  |.(0)>"" . .Djb."|
00000fb0  c3 06 20 e1 0d 22 c4 0a  20 dd f2 4f 46 46 0d 22  |.. ..".. ..OFF."|
00000fc0  ce 16 20 ef 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |.. .23;8202;0;0;|
00000fd0  30 3b 3a e1 0d 22 f6 09  20 dd f2 4f 4e 0d 23 00  |0;:..".. ..ON.#.|
00000fe0  17 20 ef 32 33 3b 32 39  31 39 34 3b 30 3b 30 3b  |. .23;29194;0;0;|
00000ff0  30 3b 3a e1 0d 23 28 31  20 dd f2 47 50 49 28 46  |0;:..#(1 ..GPI(F|
00001000  32 2c 4d 4c 29 3a f4 20  47 65 6e 65 72 61 6c 20  |2,ML):. General |
00001010  50 75 72 70 6f 73 65 20  49 6e 70 75 74 20 52 6f  |Purpose Input Ro|
00001020  75 74 69 6e 65 0d 23 32  0a 20 ea 42 2c 42 24 0d  |utine.#2. .B,B$.|
00001030  23 3c 0a 20 41 24 3d 22  22 0d 23 46 2b 20 f1 c4  |#<. A$="".#F+ ..|
00001040  4d 4c 2c 22 20 22 29 3b  c4 4d 4c 2b 31 2c bd 28  |ML," ");.ML+1,.(|
00001050  38 29 29 3b bd 28 26 38  37 29 3b 3a f2 4f 4e 3a  |8));.(&87);:.ON:|
00001060  f2 4b 43 4c 0d 23 50 1f  20 42 24 3d be 3a 42 3d  |.KCL.#P. B$=.:B=|
00001070  97 28 42 24 29 3a e7 20  42 3d 31 33 20 8c 20 8d  |.(B$):. B=13 . .|
00001080  64 66 63 0d 23 5a 1b 20  e7 20 42 3d 31 32 37 20  |dfc.#Z. . B=127 |
00001090  80 20 41 24 3d 22 22 20  8c 20 8d 44 50 63 0d 23  |. A$="" . .DPc.#|
000010a0  64 29 20 e7 20 42 3d 31  32 37 20 8c 20 41 24 3d  |d) . B=127 . A$=|
000010b0  c0 41 24 2c a9 28 41 24  29 2d 31 29 3a f1 42 24  |.A$,.(A$)-1):.B$|
000010c0  3b 3a e5 8d 44 50 63 0d  23 6e 25 20 e7 20 a9 28  |;:..DPc.#n% . .(|
000010d0  41 24 29 3d 4d 4c 20 84  20 42 3c 33 32 20 84 20  |A$)=ML . B<32 . |
000010e0  42 3e 31 32 36 20 8c 20  8d 64 52 63 0d 23 78 2b  |B>126 . .dRc.#x+|
000010f0  20 e7 20 46 32 3d 30 20  84 20 42 3d 33 32 20 84  | . F2=0 . B=32 .|
00001100  20 28 42 3e 3d 34 38 20  80 20 42 3c 3d 35 37 29  | (B>=48 . B<=57)|
00001110  20 8c 20 8d 64 5c 63 0d  23 d2 0d 20 ef 37 3a e5  | . .d\c.#.. .7:.|
00001120  8d 44 50 63 0d 23 dc 18  20 f1 42 24 3b 3a 41 24  |.DPc.#.. .B$;:A$|
00001130  3d 41 24 2b 42 24 3a e5  8d 44 50 63 0d 23 e6 09  |=A$+B$:..DPc.#..|
00001140  20 f2 4f 46 46 0d 23 ef  06 20 e1 0d 23 f0 0e 20  | .OFF.#.. ..#.. |
00001150  dd f2 59 45 53 4f 52 4e  4f 0d 23 fa 08 20 ea 42  |..YESORNO.#.. .B|
00001160  24 0d 24 04 0e 20 f2 47  50 49 28 30 2c 33 29 0d  |$.$.. .GPI(0,3).|
00001170  24 0e 0e 20 42 24 3d c0  41 24 2c 31 29 0d 24 18  |$.. B$=.A$,1).$.|
00001180  0a 20 59 25 3d 2d 31 0d  24 22 1d 20 e7 20 42 24  |. Y%=-1.$". . B$|
00001190  3d 22 59 22 20 84 20 42  24 3d 22 79 22 20 8c 20  |="Y" . B$="y" . |
000011a0  59 25 3d 31 0d 24 2c 1d  20 e7 20 42 24 3d 22 4e  |Y%=1.$,. . B$="N|
000011b0  22 20 84 20 42 24 3d 22  6e 22 20 8c 20 59 25 3d  |" . B$="n" . Y%=|
000011c0  30 0d 24 53 06 20 e1 0d  ff 00 00                 |0.$S. .....|
000011cb