5  COM A[100],C[100]
7  COM X1,X9,Y1,Y9,H5,V5
10  COM E,P9,D2,D1,P1,P8,P3,Q7,Q8,Z$[60],D8,D9,H$[4]
20  COM X2,Y2,V1,V9,H1,H9,D3,Q9
30  COM E9,P0,S9,A9,F[2],X3,Y3
31  COM A$[1],D7
32  COM D4,Q1
33  COM S$[6]
50  REM HPPLOT, HP 36805A, 4 PROGS & 1 FILE: HP2A, HP3A, HPPLOT, PLTFIL
52  REM AND HPCHAR(FILE).  ORDER 72050-90002 FOR COMPLETE MANUAL.
75  P9=2
76  D1=D2=F[1]=F[2]=0
77  Q1=0
78  P1=P8=1
79  P3=2
81  Q7=Q8=S9=1.5
82  A9=0
84  PRINT "INPUT FILENAME"
85  INPUT S$
90  CHAIN "$PLTFIL"
100  END 
