projects
/
h316.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Fixed dependencies in Makefile
[h316.git]
/
programs
/
plotter
/
src
/
plottest2.f
1
C PLOTTER TEST PROGRAM
2
C
3
C
4
CALL PL$RST
5
6
CALL PL$PD
7
CALL PL$MV(610,0)
8
CALL PL$MV(610,95)
9
CALL PL$MV(0,95)
10
CALL PL$MV(0,0)
11
CALL PL$MV(1,1)
12
CALL PL$MV(609,1)
13
CALL PL$MV(609,94)
14
CALL PL$MV(1,94)
15
CALL PL$MV(1,1)
16
CALL PL$PU
17
CALL PL$MV(10,10)
18
19
DO 1000 I=1,10
20
CALL PL$RST
21
CALL PL$PD
22
CALL PL$MV(0,50)
23
CALL PL$MV(25,75)
24
CALL PL$MV(50,50)
25
CALL PL$MV(0,50)
26
CALL PL$MV(50,0)
27
CALL PL$MV(50,50)
28
CALL PL$MV(0,0)
29
CALL PL$MV(50,0)
30
CALL PL$PU
31
CALL PL$MV(60,0)
32
1000 CONTINUE
33
CALL PL$MV(-540,-10)
34
C
35
C
36
10000 CALL REBOOT
37
END
38
$0