Back to Main page.
Back to Main tapes page.
10  REM*****BY BILL MCFADDEN ON 9/21/76*****
20  REM*****STORES DEFINITIONS IN FILE 'DEF' FOR LATER USE BY PROG. DEFINE*****
30  REM*****LAST ACCESS 12/8/76*****
40  DIM A$[72],B$[72],C$[72]
50  REM*****PASSWORD SUBROUTINE*****
60  FILES DEF,WORDS,PASSWD
70  READ #3;A$
80  SYSTEM B2,"ECH-OFF"
90  IF B2 THEN 80
100  PRINT "PASSWORD: ";
110  ENTER 5,A,B$
120  SYSTEM B2,"ECH-ON"
130  IF B2 THEN 120
140  IF A>0 THEN 180
150  PRINT "WRONG CODE!"
160  PRINT '7;
170  GOTO 160
180  IF A$#B$ THEN 150
190  PRINT 
200  PRINT "OPTIONS:"
210  PRINT "   (1) CHANGE DEFINITIONS"
220  PRINT "   (2) ENTER NEW DEFINITIONS"
230  PRINT "   ANYTHING ELSE FOR DONE"
240  PRINT "OPTION ";
250  ENTER 60,Z,A
260  PRINT 
270  READ #1,1
280  READ #2,1
290  GOTO A OF 320,600
300  STOP 
310  REM*****130 TO 330- CHANGE DEFINITIONS*****
320  PRINT "TYPE 'D' FOR DONE"
330  READ #1,1
340  PRINT "WORD: ";
350  LINPUT A$
360  REM*****LOOKS FOR WORD TO BE DEFINED DIFFERENTLY*****
370  IF  END #1 THEN 440
380  GOTO TYP(-1)-1 OF 410,460,460
390  READ #1;A
400  GOTO 380
410  READ #1;B$
420  IF B$=A$ THEN 490
430  GOTO 380
440  PRINT "WORD NOT ON FILE"
450  GOTO 330
460  READ #1,REC(1)+1
470  GOTO 380
480  REM*****CHANGES DEFINITION*****
490  PRINT "NEW DEFINITION: ";
500  IF  END #1 OR TYP(1)=1 THEN 570
510  IF TYP(1)=(1 OR 3) THEN 570
520  ENTER 60,Z,A$
530  PRINT 
540  IF A$="" THEN 330
550  UPDATE #1;A$
560  GOTO 510








570  PRINT "MAXIMUM NUMBER OF STRINGS HAS BEEN REACHED"
580  GOTO 330
590  REM*****390 TO 790 - ENTER NEW DEFINITIONS*****
600  PRINT "TYPE 'D' FOR DONE,'N' FOR NO DEFINITION,'G' FOR GO ON"
610  LINPUT F$
620  IF F$='1 THEN 1060
630  REM*****WORDS REQUESTED BY PROGRAM 'DEFINE' BUT NOT DEFINED*****
640  REM*****FINDS EOF MARK FOR FILE 'DEF'*****
645  PRINT TYP(-1),TYP(-1)-1
650  GOTO TYP(-1)-1 OF 690,740,710
660  READ #1;A3
680  GOTO 645
690  READ #1;A$
700  GOTO 645
710  READ #1,REC(1)+1
720  GOTO 645
730  REM*****ACCEPTS NEW DEFINITIONS*****
740  REM
750  A3=ITM(1)-1
754  PRINT ITM(1)
755  READ #1,1
760  ADVANCE #1;A3,A4
770  IF  NOT A4 THEN 775
771  A3=A4
772  GOTO 760
775  IF  END #2 THEN 1000
780  READ #2;A$
790  Q7=0
800  IF TYP(1)=3 THEN 1040
810  PRINT A$;"-";
820  PRINT '7".";
830  ENTER 60,Z,B$
840  PRINT 
850  IF B$="" THEN 960
860  IF B$="N" THEN 780
870  IF B$="S" THEN 1060
880  IF Q7 THEN 930
890  IF TYP(1)=3 THEN 1040
900  PRINT #1;A$
910  Q7=1
920  REM*****PRINTS NEW DEFINITION ON FILE*****
930  IF TYP(1)=3 THEN 1040
940  PRINT #1;B$
950  GOTO 820
960  PRINT #1;0
970  IF TYP(-1)=4 THEN 1020
980  Q7=0
990  GOTO 780
1000  PRINT #2,1
1010  GOTO 240
1020  READ #1,REC(1)+1
1030  GOTO 930
1040  PRINT "NO MORE FILE SPACE"
1050  GOTO 240
1060  GOTO TYP(-1)-1 OF 1100,1150,1120
1070  READ #1;A3
1080  PRINT TYP(-1);
1090  GOTO 1060








1100  READ #1;A$
1110  GOTO 1060
1120  READ #1,REC(1)+1
1130  GOTO 1060
1140  IF  END #1 THEN 1040
1150  PRINT '7".";
1160  ENTER 60,Z,B$
1170  PRINT 
1180  IF B$="" THEN 1230
1190  IF B$="D" THEN 240
1200  PRINT #1;B$
1210  IF  END #1 THEN 1250
1220  GOTO 1150
1230  PRINT #1;0
1240  GOTO 1150
1250  READ #1,REC(1)+1
1260  GOTO 1150
1270  END