Merge pull request #56 from pzembrod/WintermuteBBS

WintermuteBBS' fixes to vforth4-4.d64

6502/C64/disks/vforth4_4.fth

@@ -4119,7 +4119,7 @@ town
 
 \ lineplot linies moire        20oct87re
 
-: linies
+: lines
  grinit
  &320 0 DO
     &320 0 DO I &198 J 0 line &35 +LOOP
@@ -4217,7 +4217,7 @@ Create colortab
 
 | : ring  ( edges -- )
  &200 over / swap
- &18 0 DO  2dup vieleck
+ &18 0 DO  2dup polygon
           &20 right  LOOP  2drop ;
 
 : ornament  ( -- )
@@ -4264,14 +4264,15 @@ Create colortab
  dup forward &90 right
  2- (worm ;
 
-: worm  ( -- )
- shome &190 (schnecke ;
-
 | : (coil  ( length -- )  recursive
  dup 5 < IF drop exit THEN
  dup forward &91 right
  2- (coil ;
 
+: worm ( -- )
+ shome &190 (coil ;
+
+
 : coil ( -- )
  shome 5 forward &190 (coil ;
 
@@ -4282,7 +4283,6 @@ Create colortab
 
 
 
-
 \ *** Block No. 153, Hexblock 99
 
 \ Turtle demos 3               20oct87re
@@ -4328,7 +4328,7 @@ Create colortab
  pendown &10 4 polygon
  setxy ;
 
-: town       houserow
+: town       rowofhouses
  startpos 4 0 DO housewindow continue
  LOOP
  housewindow ;