ZX Computings - OpenLibra

String along
with your
friends
Graham Charlton
from Romford
has contributed
some fine utility
programs for the ZX81
Telephone
Directory
When you run this program,
you'll be given three options -
update, search or save. Press
ing 1 (update), enables you to
add to your directory. It asks for
the name of the person you
wish to enter, and then the
number. This is converted (see
line 10801 to a 32 character
length string. It is then placed
into your growing directory in
alphabetical order (1190-
1160). The program then requests
another name. Simply
pressing NEWLINE returns you
to the three options.
Entering "2" (search)
16K Program
allows you to search for the
number required. Enter the
name of the person whose
number you want to find, and it
will search for this name, and
print it out. You can have two or
more entries for one person, re.
home and work numbers, the
program will print out all of
them. If you enter "A" then all
the names and numbers of the
people whose name begins
with A in your directory will be
printed out. If you enter BA
you'll get all the names starting
with BA, and so on. Entering a
null string will print out the
whole directory in alphabetical
order. Pressing "3" (save)
saves the enlarged database.
10 GOTO 3000
1000 5CROLL
1 0 1 0 PRINT "MRME TO BE ENTERED?"
1020 INPUT HS
1030 IF M$="" THEN RETURN
1040 SCROLL
1050 PRINT M $; "S NUMBER?"
1060 INPUT N$
1070 LET Ui s=W + 32
1080 LET FT$=H$+M$+" " •' STM
CM$+N$> +N$
1090 LET X =U'
1100 FOR Y=X TO I STEP -32
1 1 1 0 IF FT$T.X TO X + 31.1 IV" TO V"-*-
31) THEN GOTO 1000
112 0 LET B$=ft$(Y TO Y + 32 >
1130 LET ft$ lY TO V>31>
+ ol)
=R$ CX TO X
1140 LET ft $ (X TO X+3I)
1150 LET X=Y
=B$
1160 NEXT Y
1170 GOTO 100O
2000 SCROLL
2010 PRINT "NftME TO BE FOUND?"
2O20 INPUT N$
2030 FOR = 1 TO U STEP 3 j
2040
IF ft$ \Z TO
+LEN N$-2.> •: :>NS
THEN GOTO £080
2050 SCROLL
£050 PRINT ft$fZ TO Z+Z±>
2070 IF INKEY $ = "O " THEN PRUSE 4-E
4
2030 NEXT Z
2090 SCROLL
2100 PRINT "SEARCH COMPLETED"
2110 RETURN
36
3OO0 SCROLL
3010 PRINT TRB
CTORY"
3 ©3®
3040
3O50
3O60
/ /
SCROLL
PRINT TRB 10; "BY G - CHRRLTOJ'i
LET R$='"
LET U = -31
SCROLL
SCROLL
PRINT "1-UPDRTE 2-SERRC
3-SRUE"
SCROLL
LET 2»=INKEY$
IP Z$ = "" THEN i?DTO 3100
IF Z$>~"1" THEM COSUB 1000
IF Z$="2" THEN GC5L>B £000
IF Z $ = " 3 " THEN "TELEPH
3030
H
3O90
3100
3X10
3120
3130
o!4-0
ONE DIRECTORY"
3150 GOTO 30 P0
String Sort
The title should give away what
this program does. You are
asked how many words you
wish to enter, and the maximum
length of the words. This
sets up a two dimensional strsets
up a two dimensional
string array.
You then enter the words,
the ZX81 switches into FAST
and sorts the words into
alphabetical order, switches into
SLOW, and prints out the list.
To print the list onto paper,
delete line 250 and change line
260 to LPRINT A$(A).
ZX COMPUTING AUG/SEPT 1982