SUB SCATTE(NR,NC)
         DIM #3,B(250,15),S$(3),IY(3)
         COM (W) W(250,3)
         IF NC<2 THEN PRINT "YOU CANNOT PLOT WITH ONLY ONE COLUMN OF DATA" \ &
           PRINT \ GOTO <<END>>
         H9=.9E-38 \ &
         AB$="PLEASE TYPE Y OR N" \ &
         AD$="THE COLUMN NUMBER MUST BE BETWEEN 1 AND" \ &
         ON ERROR GOTO <<ERR>>
              !
<<*TYP>> PRINT "ENTER THE COLUMN NUMBER OF THE VARIABLE TO PLOT ALONG THE " \ &
         INPUT "VERTICAL AXIS";IX \ PRINT
         IF IX<1 OR IX>NC THEN PRINT AD$;NC \ GOTO <<TYP>>
              !
<<*NRY>> PRINT "HOW MANY VARIABLES DO YOU WISH TO PLOT ALONG THE HORIZONTAL" \ &
         INPUT "AXIS (1 TO 3)";NV \ PRINT
         IF NV<1 OR NV>3 THEN PRINT "PLEASE TYPE 1, 2 OR 3" \ PRINT \ &
           GOTO <<NRY>>
         IF NV+1>NC THEN PRINT "ONLY";NC-1;" COLUMNS ARE AVAILABLE TO PLOT"+ &
           "AGAINT COLUMN";IX;". PLEASE TRY AGAIN" \ PRINT \ GOTO <<NRY>>
              !
         PRINT "ENTER THE COLUMN NUMBER(S) OF THE";NV;" HORIZONTAL AXIS VARI"+ &
           "ABLE(S)" \ PRINT "ONE AT A TIME" \ PRINT \ &
         FOR I=1 TO NV
<<*INY>>   PRINT "    HORIZONTAL AXIS VARIABLE";I; \ INPUT IY(I)
           IF IY(I)<1 OR IY(I)>NC THEN PRINT SPACE$(6);AD$;NC \ GOTO <<INY>>
           IF IY(I)=IX THEN PRINT "      YOU ALREADY USED";IY(I);" ON THE "+ &
             "VERTICAL AXIS. PLEASE TRY AGAIN" \ GO TO <<INY>>
           IF I=1 GOTO <<NI1>>
           IF I=2 AND IY(2)<>IY(1) GOTO <<NI1>>
           IF I=3 AND IY(3)<>IY(1) AND IY(3)<>IY(2) GOTO <<NI1>>
           PRINT "      YOU ALREADY SPECIFIED VARIABLE";IY(I);". PLEASE TRY "+ &
             "AGAIN" \ GOTO <<INY>>
<<*NI1>> NEXT I
         PRINT
              !
              !     MOVE DATA TO PLOT INTO ARRAY W
              !
         N=0
         FOR I=1 TO NR
           X=B(I,IX)
           IF X<>H9 THEN &
             N=N+1 \ W(N,0)=X \ W(N,J)=B(I,IY(J)) FOR J=1 TO NV
         NEXT I
         IF N<NR THEN PRINT "COLUMN";IX;" HAS";NR-N;" MISSING VALUES. "+ &
           "ONLY";N;" POINTS CAN BE PLOTTED"
              !
              !     SET UP PLOT SYMBOLS  AND CALL PLOT
              !
         IF NV=1 THEN S$(1)="*" ELSE S$(1)="A" \ S$(2)="B" \ S$(3)="C"
         CALL PLOTER(S$(),N,NV)
              !
<<*MOR>> INPUT "DO YOU WISH TO PLOT MORE VARIABLES (Y/N)";L$ \ PRINT
         L$=LEFT(L$,1)
         IF L$="Y" GOTO <<TYP>>
         IF L$<>"N" THEN PRINT AB$ \ GO TO <<MOR>>
         GOTO <<END>>
              !
              !     ERROR RECOVERY SUBROUTINE
              !
<<*ERR>> IF ERL=<<TYP>> OR ERL=<<NRY>> OR ERL=<<INY>> THEN &
         PRINT "YOU TYPED CHARACTERS THAT CANNOT BE INTERPRETED. SEPARATE "+ &
           "TWO OR MORE" \ PRINT "NUMBERS WITH A COMMA, BUT DO NOT END A "+ &
           "LINE WITH A COMMA" \ PRINT "PLEASE TRY AGAIN" \ PRINT
         IF ERL=<<TYP>> THEN RESUME <<TYP>>
         IF ERL=<<NRY>> THEN RESUME <<NRY>>
         IF ERL=<<INY>> THEN RESUME <<INY>>
         PRINT \ PRINT "CALCULATIONS CANNOT BE COMPLETED BECAUSE COMPUTATION"+ &
           " CREATED NUMBERS" \ PRINT "OUTSIDE THE RANGE OF THIS COMPUTER" \ &
         PRINT \I=ERR \ PRINT ERT$(I) \ &
         PRINT "PLOT0L ERROR";ERR;" AT LINE";ERL \ PRINT \ &
         PRINT "PLEASE RECORD THE ABOVE LINE AND CONTACT JOHN PENN IN BR "+ &
           "AT 3886" \ PRINT
         RESUME <<MOR>>
<<*END>> SUBEND