home *** CD-ROM | disk | FTP | other *** search
- 100 PRINT "[147][144]PHONE NUMBERS IS A MINI-DATA BASE FOR DISC USERS. IT IS BASED ON THE";
- 110 PRINT " MACHINE FILE SERIES BY JIM BUTTERFIELD IN COMPUTE! MAGAZINE. ";
- 120 PRINT " TO START A NEW FILE, SIMPLY ADD TO THE 'EMPTY' FILE. TO PUT IT ";
- 130 PRINT "INTO MEMORY, SAVE THE FILE. THE FIND FUNCTION WORKS BY EXACTLY ";
- 140 PRINT "MATCHING NAMES. DELETE AND CHANGE USE FIND TO IDENTIFY THE APPROPRIATE ";
- 150 PRINT "RECORD. DISPLAY ALLOWS THE USER TO PAGE THROUGH ALL THE RECORDS."
- 155 GOSUB2000
- 160 PRINT "PRINT FILE CAN BE USED WITH A CBM PRINTER TO PRODUCE RECORD HARDCOPY. "
- 170 PRINT " MEMORY AVAIL GIVES THE AMT OF MEMORY FREE IN THE PROGRAM. ";
- 180 PRINT " THE MAXIMUM # OF RECORDS IS DETERMINED BY THE SIZE OF A SET OF ";
- 190 PRINT "FIVE ARRAYS BEFORE LINE 160. CHANGE THEIR VALUE TO SAY, 200, AND ";
- 200 PRINT "THE PROGRAM CAN HOLD MORE RECORDS. "
- 205 GOSUB2000:PRINT
- 210 PRINT "THE DATA IS STORED AS A SEQUENTIAL FILE ON DISK. WHILE THAT MEANS ";
- 220 PRINT "THE RECORD SIZE IS LIMITED BY THE AVAILABLE ARRAY SPACE IN MEMORY, ";
- 230 PRINT " IT ALSO MEANS THE DATA IS STORED IN ITS MOST COMPACT FORM. ";
- 235 PRINT:PRINT:GOSUB2000
- 240 PRINT "IF YOU HAVE ANY COMMENTS, IMPROVEMENTS,ETC, PLEASE WRITE: "
- 250 PRINT " DAVID MYERS "
- 260 PRINT " C/O BIOCHEMISTRY DEPT"
- 270 PRINT " RICE UNIVERSITY "
- 280 PRINT " HOUSTON, TX 77251 "
- 290 PRINT:PRINT:PRINT "THANK YOU! [146]"
- 1999 END
- 2000 PRINT "PRESS KEY TO CONT [146][144]"
- 2010 GETA$:IFA$=""THEN2010
- 2020 RETURN
-