Program 3 (Surface Plate Numeric Plot) - HP 5526A Operating Note And Program Listings

Program 3 (Surface Plate Numeric plot)

1: "************************************************************
******":
2: "*** Program THREE *** Surface Plate Numeric plot ***":
3: "************************************************************
******":
4: "START":cfq ;fxd 0;pclr
5: dsp "
6: ent "Which data file# ?",F
7: if flg13;beep;dsp "Enter File* to be plotted!!";wait 1000;jmp -1
8: trk 1;ldf F,rO;trk 0
9: r9/J;r10}K;r19)L;r20)M
10: 0}Z;ent "POSITIVE(0) or RELATIVE(1) data?",Z
11: if Z;sfg 1;r1/2/r3}r4;jmp 2
12: 0}r3;r1}r4
13: scl -10,110,-10,110
14: 0}G;ent "GRIDS: None(0)
15: dsp "Date:",J,K,L,"
16: pen# Wine
17: xax -10,0;yax 110,0;yax -10,0;xax 110,0
18: pen# 2;fxd 3;wrt 705,"SL",tan(20);fxd 0
19: plt 50,110,1;cplt -21,-1
20: lbl "Date:",J,"/",K,"/",L," Plate #",M
21: if G=0;gto "PRINT"
22: if G=1;line ;jmp 2
23: line G,2
24: pen# 3
25: pen;pit 0,0;pit 100,0;plt 100,100;plt 0,100;plt 0,0;plt
100,100,-1
26: pit 0,100;plt 100,0,-1;plt 100,50;plt 0,50,-1;plt.50,0;plt
50,100,-1
27: "PRINT":pen# 4
28: 1}X;gsb "A"
29: 0}X;100}Y;100/C}Z;A-1}A
30: plt X,Y,1;lbl rA-r3;X+Z}X;Y-Z}Y;jmp (A+1}A)>L+1
31: 2}X;gsb "A"
32: 100}X}Y;100/C}Z;A-1/8
33: plt X,Y,1;lbl rA-r3;X-Z}X;Y-Z}Y;jmp (A+1}A)>B+1
34: 3}X;gsb "A"
35: 100/C}Z;(100}Y)-Z}X
36: plt X,Y,1;lbl rA-r3;X-Z}X;jmp (A+1}A)>B
37: 4}X;gsb "A"
38: 100/C};(100}X)-Z}Y
39: plt X,Y,1;lbl rA-r3;Y-Z}Y;jmp (A+1}A)>B
40: 5}X;gsb "A"
41: 0}Y:100-(100/C}Z)}X
Surface Plate Numeric plot";wait 2000
Line(1)
Plate#",M
48
Dash(2)•",G