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