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