projects
/
h316.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
efc9c4d702c6ff0ec22d9a19a4f6fb9d5f8aff7f
[h316.git]
/
stern.f
1
C PLOTTER TEST PROGRAM
2
C
3
INTEGER PHI
4
REAL PHIR
5
INTEGER XI,YI
6
C
7
C
8
1000 CALL PL$RST
9
C
10
C
11
DO 2000 PHI=0,360,15
12
CALL PL$MV(0,0)
13
PHIR=PHI
14
X=COS(PHIR)*100.0
15
Y=SIN(PHIR)*100.0
16
XI=X
17
YI=Y
18
CALL PL$PD
19
CALL PL$MV(XI,YI)
20
CALL PL$PU
21
2000 CONTINUE
22
CALL PL$MV(0,0)
23
24
C
25
C
26
10000 CALL REBOOT
27
END
28
$0
29