1 10 REM  PLOTTO
  2 100 GO TO 840
  3 104 READ A1,H,I,J,E1,F1
  4 108 LET G=(F1-E1)/40
  5 112 LET G1=G/2
  6 116 PRINT
  7 120 PRINT" ","MULTIPLE PLOT OF THE FUNCTIONS ";
  8 124 FOR K=1TO A1
  9 128 GOSUB 1080
 10 132 IF K=A1THEN 144
 11 136 PRINT", ";
 12 140 NEXT K
 13 144 PRINT
 14 148 PRINT" ","         HORIZ INCREMENT =";G
 15 152 GOSUB 710
 16 156 GOSUB 730
 17 160 PRINT"X-VALUE"
 18 164 LET X=H-J
 19 168 PRINT
 20 172 LET L1=0
 21 176 LET X=X+J
 22 180 IF X>I THEN 660
 23 184 PRINTX,
 24 260 LET Y=E1-G
 25 270 PRINT" ";
 26 280 LET Y=Y+G
 27 290 IF Y>F1THEN 168
 28 300 IF ABS(A-Y)<G1THEN 420
 29 310 IF A1<2THEN 270
 30 320 IF ABS(B-Y)<G1THEN 460
 31 330 IF A1<3THEN 270
 32 340 IF ABS(C-Y)<G1THEN 500
 33 350 IF A1<4THEN 270
 34 360 IF ABS(D-Y)<G1THEN 540
 35 370 IF A1<5THEN 270
 36 380 IF ABS(E-Y)<G1THEN 580
 37 390 IF A1<6THEN 270
 38 400 IF ABS(F-Y)<G1THEN 620
 39 410 GOTO  270
 40 420 PRINT"A";
 41 430 LET L1=L1+1
 42 440 IF L1=A1THEN 168
 43 450 GOTO  280
 44 460 PRINT"B";
 45 470 LET L1=L1+1
 46 480 IF L1=A1THEN 168
 47 490 GOTO  280
 48 500 PRINT"C";
 49 510 LET L1=L1+1
 50 520 IF L1=A1THEN 168
 51 530 GOTO  280
 52 540 PRINT"D";
 53 550 LET L1=L1+1
 54 560 IF L1=A1THEN 168
 55 570 GOTO  280
 56 580 PRINT"E";
 57 590 LET L1=L1+1
 58 600 IF L1=A1THEN 168
 59 610 GOTO  280
 60 620 PRINT"F";
 61 630 LET L1=L1+1
 62 640 IF L1=A1THEN 168
 63 650 GOTO  280
 64 660 PRINT
 65 670 GOSUB 730
 66 680 GOSUB 710
 67 690 PRINT
 68 700 GOTO  750
 69 710 PRINT TAB(5), E1, TAB(45), F1
 70 720 RETURN
 71 730 PRINT" "," :....:....:....:....:....:....:....:....:"
 72 740 RETURN
 73 750 PRINT
 74 760 PRINT
 75 770 PRINT "TYPE 'S' TO STOP, OR GIVE NEW VALUES OF"
 76 780 PRINT"NUM,XMIN,XMAX,DELX,HMIN,HMAX";
 77 790 INPUT A1,H,I,J,E1,F1
 78 800 PRINT
 79 810 PRINT
 80 820 GO TO 108
 81 840 PRINT
 82 850 PRINT"THIS PROGRAM PLOTS ONE TO  SIX FUNCTIONS OF X SIMULTANEOUSLY."
 83 860 PRINT"ALL FUNCTIONS HAVE THE SAME UPPER AND LOWER LIMITS FOR  THE"
 84 870 PRINT"PLOT.  THE FUNCTIONS ARE CALLED A,B,C,D,E,F AND ARE PLOTTED"
 85 880 PRINT"IN THAT ORDER OF PRIORITY.  WHERE PLOTS WOULD OVERLAP, THE"
 86 890 PRINT"LOWER PRIORITY FUNCTIONS ARE SUPPRESSED.  VALUES EXCEEDING"
 87 900 PRINT"THE SELECTED BOUNDS ARE DISREGARDED.  ENTER INFOR MATION FOR "
 88 910 PRINT "A RUN IN THE FOLLOWING FORMAT:"
 89 920 PRINT
 90 930 PRINT"   100 DATA NUM,XMIN,XMAX,DELX,HMIN,HMAX"
 91 940 PRINT"   200 LET  A= ANY 'BASIC' FUNCTION OF X"
 92 950 PRINT"   210 LET  B= ANY 'BASIC' FUNCTION OF X AND/OR A"
 93 960 PRINT"   220 LET  C= DITTO  FOR  X AND/OR A AND/OR B"
 94 970 PRINT"   230 (SIMILARLY FOR  D)"
 95 980 PRINT"   240 (SIMILARLY FOR  E)"
 96 990 PRINT"   250 (SIMILARLY FOR  F)"
 97 1000 PRINT"   RUN"
 98 1005 IF O0=1 THEN 1270
 99 1010 PRINT
100 1020 PRINT"WHERE NUM IS THE NUMBER OF FUNCTIONS GIVEN (1-6), XMIN AND"
101 1030 PRINT"XMAX ARE THE LOWER AND UPPER LIMITS FOR  X, DELX IS THE IN-"
102 1040 PRINT"CREMENT FOR  X, AND HMIN AND HMAX ARE THE LOWER AND UPPER"
103 1050 PRINT"LIMITS FOR  THE VALUES OF THE FUNCTION.  NOTE THAT THE HOR-"
104 1060 PRINT"IZONTAL INCREMENT IS ALWAYS (HMAX-HMIN)/40."
105 1070 STOP
106 1080 IF K=1THEN 1150
107 1090 IF K=2THEN 1170
108 1100 IF K=3THEN 1190
109 1110 IF K=4THEN 1210
110 1120 IF K=5THEN 1230
111 1130 IF K=6THEN 1250
112 1140 PRINT"MORE THAN SIX FUNCTIONS SPECIF IED.  STO P."
113 1150 PRINT"A";
114 1160 RETURN
115 1170 PRINT"B";
116 1180 RETURN
117 1190 PRINT"C";
118 1200 RETURN
119 1210 PRINT"D";
120 1220 RETURN
121 1230 PRINT"E";
122 1240 RETURN
123 1250 PRINT"F";
124 1260 RETURN
125 1270 END