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
/
nikolaussiedlung.f
1
C PLOTTER TEST PROGRAM
2
C
3
C
4
CALL PL$RST
5
CALL PL$SCI(100)
6
CALL PL$ROI(30)
7
CALL PL$PD
8
CALL PL$MV(605,0)
9
CALL PL$MV(605,95)
10
CALL PL$MV(0,95)
11
CALL PL$MV(0,0)
12
CALL PL$MV(1,1)
13
CALL PL$MV(604,1)
14
CALL PL$MV(604,94)
15
CALL PL$MV(1,94)
16
CALL PL$MV(1,1)
17
CALL PL$PU
18
CALL PL$MV(10,10)
19
20
DO 1000 I=1,10
21
CALL PL$RST
22
CALL PL$PD
23
CALL PL$MV(0,50)
24
CALL PL$MV(25,75)
25
CALL PL$MV(50,50)
26
CALL PL$MV(0,50)
27
CALL PL$MV(50,0)
28
CALL PL$MV(50,50)
29
CALL PL$MV(0,0)
30
CALL PL$MV(50,0)
31
CALL PL$PU
32
CALL PL$MV(55,0)
33
1000 CONTINUE
34
CALL PL$MV(-595,-10)
35
C
36
C
37
10000 CALL REBOOT
38
END
39
$0