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