Back to Main page.
Back to Main tapes page.
10  REM*****THIS PROGRAM IS NOT YET READY FOR USE*****
20  REM*****DEFINES WORDS FROM FILE DICTIONARY*****
30  REM*****BY BILL MCFADDEN ON 9/25/76*****
40  REM*****LAST ACCESS 12/8/76*****
50  DIM A$[72],B$[72],C$[72]
60  FILES DEF,WORDS,STORE
70  REM*****ADVANCES FILE 'WORDS' TO EOF MARK *****
80  IF  END #2 THEN 120
90  READ #2;A$
100  GOTO 80
110  REM*****THIS SUBROUTINE STORES TO BE DEFINED IN THE FILE 'STORE'*****
120  PRINT "HOW MANY WORDS WOULD YOU LIKE TO BE DEFINED ";
130  INPUT A
140  FOR X=1 TO A
150  IF  END #3 THEN 460
160  PRINT "WORD #"X":   ";
170  LINPUT A$
180  PRINT #3;A$
190  NEXT X
200  PRINT "'NO DEFINITION' MEANS THE WORD IS NOT FILED."
210  PRINT "THE COMPUTER WILL STORE IT IN MEMORY FOR LATER DEFINING"
220  REM*****THIS SUBROUTINE SEARCHES THROUGH FILE UNTIL WORD IS FOUND*****
230  PRINT LIN(-10)
240  PRINT "DEFINITIONS:"
250  READ #3,1
260  IF  END #3 THEN 550
270  FOR X=1 TO A
280  READ #1,1
290  READ #3;A$
300  IF  END #1 THEN 490
310  GOTO TYP(-1) OF 440,320,350,350
320  READ #1;B$
330  IF A$=B$ THEN 380
340  GOTO 310
350  READ #1,REC(1)+1
360  GOTO 310
370  REM*****THIS SUBROUTINE PRINTS OUT DEFINITIONS*****
380  PRINT X;A$"- ";
390  IF TYP(1)=1 THEN 530
400  READ #1;B$
410  PRINT TAB(15);B$
420  GOTO 390
430  REM*****PART OF SUBROUTINE AT LINE 180*****
440  READ #1;A2
450  GOTO 310
460  PRINT "YOU HAVE REACHED THE MAXIMUM OF 512 LETTERS"
470  GOTO 230
480  REM*****STORES WORDS THAT NEED TO BE DEFINED BY PROGRAM 'WORENT'*****
490  IF  END #1 THEN 510
500  GOTO 310
510  PRINT X;A$"- "TAB(15)"NO DEFINITION"
520  PRINT #2;A$
530  NEXT X
540  PRINT #3,1
550  PRINT LIN(-10)
560  PRINT "WOULD YOU LIKE ME TO DEFINE ANYMORE WORDS ";
570  INPUT A$
580  IF A$[1,1]="Y" THEN 120
590  END