1000  FILES PDATA1,PLOTL,PLOTR,$PGDFL
1005  Y0=0
1010  Z0=4
1020  GOSUB 8001
1022  PRINT "SPECIFY BAUD RATE (150,300,...,1200,2400)"
1024  INPUT Z0
1026  GOSUB 8038
1028  GOSUB 8003
1030  PRINT LIN(5)
1040  PRINT "SELECT VIEW:"
1050  PRINT "  1) SINGLE VIEW"
1060  PRINT "  2) STEREOGRAPHIC"
1070  INPUT S1
1080  GOTO S1 OF 1090,1490
1090  REM SINGLE VIEW PLOT
1100  READ #1,1
1110  READ #1;X,Y,P
1120  X9=X8=X
1130  Y9=Y8=Y
1140  READ #1;X,Y,P
1150  X8=(X8 MIN X)
1160  X9=(X9 MAX X)
1170  Y8=(Y8 MIN Y)
1180  Y9=(Y9 MAX Y)
1190  IF TYP(1)=1 THEN 1140
1200  D1=X9-X8
1210  D2=Y9-Y8
1220  R=(D1 MAX D2)
1230  PRINT 
1240  PRINT "MAXIMUM WINDOW SIZE FOR PLOT IS"
1250  PRINT "FIVE INCHES ON EACH SIDE."
1260  PRINT "  PLOT WINDOW(INCHES):";
1270  INPUT W
1280  X2=(X9+X8)/2
1290  Y2=(Y9+Y8)/2
1300  S2=139.286*W/R
1310  REM ERASE SCREEN
1320  GOSUB 8003
1330  READ #1,1
1340  READ #1;X,Y,P
1350  X0=S2*(X-X2)
1360  Y0=S2*(Y-Y2)
1370  IF P=0 THEN 1400
1380  REM POSITION BEAM FOR NEW LINE
1390  GOSUB 8005
1400  REM DRAW SOLID LINE FROM OLD POSITION
1410  REM TO ABSOLUTE COORDINATES X0,Y0
1420  GOSUB 8008
1430  IF TYP(1)=1 THEN 1340
1440  REM SWITCH TO ALPHANUMERIC MODE
1450  X0=1
1460  Y0=1
1470  GOSUB 8002
1480  STOP 
1490  REM STEREOGRAPHIC VIEW
1500  READ #2,1
1510  READ #3,1
1520  REM ERASE SCREEN
1530  GOSUB 8003
1540  READ #2;X,Y,P
1550  GOSUB 1650
1560  IF TYP(2)=1 THEN 1540
1570  READ #3;X,Y,P
1580  GOSUB 1650
1590  IF TYP(3)=1 THEN 1570
1600  REM SWITCH TO ALPHANUMERIC MODE
1610  X0=1
1620  Y0=1
1630  GOSUB 8002
1640  STOP 
1650  REM SUBROUTINE FOR PLOTTING
1660  X0=X*128
1670  Y0=Y*130
1680  IF P=0 THEN 1710
1690  REM POSITION BEAM FOR NEW LINE
1700  GOSUB 8005
1710  REM DRAW SOLID LINE FROM OLD POSITION
1720  REM TO ABSOLUTE COORDINATES X0,Y0
1730  GOSUB 8008
1740  REM END OF PLOTTING SUBROUTINE
1750  RETURN 
1760  STOP 
6000  PRINT "THIS SYSTEM IS A 2000F (OPT. 205) SYS. 3. IF YOU ARE USING"
6010  PRINT "A TERMINAL WHICH REQUIRES A SUB-TYPE PARAMETER AS PART OF YOUR"
6020  PRINT "LOG ON COMMAND, USE THE FOLLOWING TABLE TO DETERMINE WHICH PARAMETER"
6030  PRINT "TO USE."
6040  PRINT 
6050  PRINT "TERMINAL TYPE           DIGIT"
6060  PRINT " HP2600A,HP2749A        O OR BLANK"
6070  PRINT " EXECUPORT 300          1"
6080  PRINT " (SILENT 700            1)"
6090  PRINT " ASR-37                 2"
6100  PRINT " TERMINET 300           3"
6110  PRINT " (HP2762A               3)"
6120  PRINT " MEMOREX 1240           4"
6130  PRINT LIN(2)
9030  PRINT "SYSTEM SLEEPS TUE,WED,THUR,FRI AND SUN NIGHTS 10:30PM"
9040  PRINT "TO MIDNIGHT. SYSTEM HIBERNATES MON 10:00PM TO 2:00AM."
9050  PRINT "DUMPS AND LOADS ONLY DURING THESE PERIODS."
9055  PRINT 
9056  PRINT "COPY & BESTOW COMMANDS WILL BE PERFORMED AT 7:30AM ONLY."
9060  PRINT 
9061  PRINT "PREVENTATIVE MAINTENANCE WILL BE PERFORMED ON THE FIRST"
9062  PRINT "TUESDAY OF EVERY MONTH. SYSTEM WILL NOT BE AVAILABLE"
9063  PRINT "THAT DAY FROM 5:30PM TO 10:00PM."
9064  PRINT LIN(2)
9070  PRINT "TELEPHONES ARE:"
9080  PRINT "10 CPS  (408) 257-8550  (415) 965-2330  OR  X2881"
9081  PRINT 
9082  PRINT "30 CPS  (408) 257-4917  (415) 965-2335  OR  X2887"
9090  PRINT 
9120  PRINT "IF YOU ARE NOT GETTING DATA CENTER INFO AND WISH TO BE ADDED"
9130  PRINT "TO THE LIST, OR HAVE T/S OPERATION PROBLEMS, CONTACT:"
9140  PRINT "MARIE MEIDER - OPERATOR - X2939"
9150  PRINT "TED MARGUERIT - MANAGER - X2003"
9999  END 
