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
/
plottest.f
1
C PLOTTER TEST PROGRAM
2
C
3
C
4
C
5
1000 WRITE (1,1001)
6
1001 FORMAT (13HPLOTTER TEST!)
7
C
8
1005 DO 6000 J=1,300
9
C
10
1010 CALL PL$U
11
1011 CALL PL$U
12
1050 CALL PL$PD
13
C
14
1100 DO 2000 I=1,50
15
1200 CALL PL$R
16
2000 CONTINUE
17
C
18
2050 CALL PL$PU
19
2100 CALL PL$U
20
2150 CALL PL$U
21
2170 CALL PL$PD
22
C
23
2200 DO 3000 N=1,50
24
2300 CALL PL$L
25
3000 CONTINUE
26
C
27
3100 CALL PL$PU
28
C
29
6000 CONTINUE
30
CCCCCCCCCC
31
CCCCCCCCCC
32
11005 DO 16000 J=1,10
33
C
34
11010 CALL PL$R
35
11011 CALL PL$R
36
11050 CALL PL$PD
37
C
38
11100 DO 12000 I=1,40
39
11200 CALL PL$D
40
12000 CONTINUE
41
C
42
12050 CALL PL$PU
43
12100 CALL PL$R
44
12150 CALL PL$R
45
12170 CALL PL$PD
46
C
47
12200 DO 13000 N=1,40
48
12300 CALL PL$U
49
13000 CONTINUE
50
C
51
13100 CALL PL$PU
52
C
53
16000 CONTINUE
54
C
55
6500 CALL REBOOT
56
6600 GO TO 1005
57
C
58
7000 END
59
$0