Alphabetizer

This “ALPHABETIZER” routine will work with all Timex computers. Information on converting the program for the 2068 is contained in the REM statements and uneven lines. To SAVE this program, use “GOTO 265”.

   1 REM ZX81,TS1000,1500,2068 "
ALPHABETIZER"-BY EARL DUNNINGTON
   2 REM BASIC COMMANDS PECULIAR
TO THE ZX81,TS1000 AND 1500 PRO-
GRAM, HAVE UNEVEN  LINE  NUMBERS
FOR EASE IN CONVERTING TO 2068
  10 PRINT " INPUT <NUMBER OF EN
TRIES>"," THEN PRESS ENTER"
  15 FAST
  20 INPUT A
  30 CLS
  40 PRINT " INPUT <MAXIMUM NUMB
ER OF LET-  TERS IN AN ENTRY>","
 THEN PRESS ENTER"
  50 INPUT B
  60 CLS
  70 DIM A$(A,B)
  80 FOR I=1 TO A
  90 PRINT "<TYPE AN ENTRY>",,"
THEN PRESS ENTER"
 100 INPUT A$(I)
 110 CLS
 120 NEXT I
 130 LET X=0
 140 LET X=X+1
 150 IF X>A THEN STOP
 160 IF A$(X)="ZZ     " THEN GOT
O 140
 170 FOR Y=1 TO A
 180 IF A$(Y)<A$(X) THEN LET X=Y
 190 NEXT Y
 200 LPRINT A$(X)
 205 REM FOR THE 2068 CHANGE
THIS LINE TO READ:
 205 POKE 23692,100
 215 PRINT AT 21-INT (B/32),0;A$
(X)
 220 PAUSE 60
 225 FOR N=1 TO INT (B/32)+1
 235 SCROLL
 245 NEXT N
 250 LET A$(X)="ZZ     "
 260 GOTO 130
 265 SAVE "ALPHABETIZ"
 275 GOTO 10
 285 REM TO SAVE PROGRAM USE
< GOTO 265 >
 295 REM FOR THE 2068:
DELETE LINE 15
CHANGE LINE 215 T0 READ:
 215 PRINT AT 21,0;A$(X)
DELETE LINE 225
CHANGE LINE 235 TO READ:
 235 LET S=USR 2361
DELETE LINE 245
CHANGE LINE 265 TO READ:
 265 SAVE "ALPHABETIZ" LINE 10
DELETE LINE 275