projects
/
h316.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0c71589
)
*** empty log message ***
author
hachti
<hachti>
Fri, 24 Aug 2007 15:24:20 +0000
(15:24 +0000)
committer
hachti
<hachti>
Fri, 24 Aug 2007 15:24:20 +0000
(15:24 +0000)
programs/plotter/src/nikolaussiedlung.f
patch
|
blob
|
blame
|
history
diff --git
a/programs/plotter/src/nikolaussiedlung.f
b/programs/plotter/src/nikolaussiedlung.f
index 7020a1a1d2847e9d4d6c6b0f75c1120daf602673..3d55f1487b58d0ba0d0a46861504c1dd1e0ff6ff 100644
(file)
--- a/
programs/plotter/src/nikolaussiedlung.f
+++ b/
programs/plotter/src/nikolaussiedlung.f
@@
-3,13
+3,13
@@
C
C
CALL PL$RST
CALL PL$PD
- CALL PL$MV(
550
,0)
- CALL PL$MV(
550
,95)
+ CALL PL$MV(
605
,0)
+ CALL PL$MV(
605
,95)
CALL PL$MV(0,95)
CALL PL$MV(0,0)
CALL PL$MV(1,1)
- CALL PL$MV(
549
,1)
- CALL PL$MV(
549
,94)
+ CALL PL$MV(
604
,1)
+ CALL PL$MV(
604
,94)
CALL PL$MV(1,94)
CALL PL$MV(1,1)
CALL PL$PU
@@
-29,7
+29,7
@@
C
CALL PL$PU
CALL PL$MV(55,0)
1000 CONTINUE
- CALL PL$MV(-5
40
,-10)
+ CALL PL$MV(-5
95
,-10)
C
C
10000 CALL REBOOT