Bug fixes for leaf.bas and circles.bas

visrealm · Jun 15, 2024 · 5b83903 · 5b83903
1 parent 8487c2c
commit 5b83903
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/code/6502/basic/programs/circles.bas b/code/6502/basic/programs/circles.bas
@@ -1,6 +1,6 @@
 10 DISPLAY 2
-20 I = 0
-30 R = INT(RND(0)*80)
+20 I = 0 
+20 R=RND(1):R = INT(RND(0)*80)
 40 INC I
 50 IF I > 10 GOTO 10
 60 CX = INT(RND(0)*(255-R*2))+R

diff --git a/code/6502/basic/programs/leaf.bas b/code/6502/basic/programs/leaf.bas
@@ -1,4 +1,4 @@
-10 DISPLAY 2: COLOR $31
+10 DISPLAY 2: COLOR $31: R=RND(1)
 20 T=0:Y=0
 30 FOR I=0 TO 6E4
 40 X=T:XP=INT(25*Y):YP=INT(-36*X)+96
@@ -12,4 +12,4 @@
 120 T=-.15*X+.28*Y:Y=.26*X+.24*Y+.44:RETURN
 130 IF RP < 21 THEN COLOR $21: RETURN
 140 IF RP < 42 THEN COLOR $31: RETURN
-150 COLOR $C1: RETURN
+150 COLOR $C1: RETURN