1000  FILES PDATA,PLOTL,PLOTR
1010  PRINT 
1020  PRINT "SELECT VIEW:"
1030  PRINT "  1) SINGLE VIEW"
1040  PRINT "  2) STEREOGRAPHIC"
1050  INPUT S1
1060  GOTO S1 OF 1070,1420
1070  REM SINGLE VIEW PLOT
1080  READ #1,1
1090  READ #1;X,Y,P
1100  X9=X8=X
1110  Y9=Y8=Y
1120  READ #1;X,Y,P
1130  X8=(X8 MIN X)
1140  X9=(X9 MAX X)
1150  Y8=(Y8 MIN Y)
1160  Y9=(Y9 MAX Y)
1170  IF TYP(1)=1 THEN 1120
1180  D1=X9-X8
1190  D2=Y9-Y8
1200  R=(D1 MAX D2)
1210  PRINT 
1220  PRINT "SET PLOTTER TO SQUARE PLOT ZONE."
1230  PRINT "  PLOT ZONE WIDTH:";
1240  INPUT G
1250  PRINT "  PLOT WIDTH:";
1260  INPUT S
1270  P1=(G-S)/2
1280  M1=9999*S/(R*G)
1290  M2=9999*P1/G-X8*9999*S/(R*G)
1300  M3=9999*P1/G-Y8*9999*S/(R*G)
1310  READ #1,1
1320  READ #1;X,Y,P
1330  IF P=0 THEN 1360
1340  PRINT "PLTT"
1350  PRINT "PLTL"
1360  H=INT(X*M1+M2)
1370  V=INT(Y*M1+M3)
1380  PRINT H,V
1390  IF TYP(1)=1 THEN 1320
1400  PRINT "PLTT"
1410  STOP 
1420  REM STEREOSCOPIC VIEWS
1430  PRINT 
1440  PRINT "SET PLOTTER TO 7 BY 7 INCH PLOT ZONE."
1450  PRINT "     INPUT 1 WHEN READY TOTO PLOT. ";
1460  INPUT Z
1470  READ #2,1
1480  READ #3,1
1490  READ #2;X,Y,P
1500  GOSUB 1570
1510  IF TYP(2)=1 THEN 1490
1520  READ #3;X,Y,P
1530  GOSUB 1570
1540  IF TYP(3)=1 THEN 1520
1550  PRINT "PLTT"
1560  STOP 
1570  REM SUBROUTINE FOR PLOT
1580  IF P=0 THEN 1610
1590  PRINT "PLTT"
1600  PRINT "PLTL"
1610  H=INT(5000+X*4999/3.5)
1620  V=INT(5000+Y*4999/3.5)
1630  PRINT H,V
1640  REM END OF SUBROUTINE
1650  RETURN 
1660  END 
