avoid htab 0 (illegal)

2013-05-06 04:33:29 -03:00 · 2013-05-06 04:33:29 -03:00 · 1980102339
parent e6b600a38b
commit 1980102339
1 changed files with 2 additions and 2 deletions
--- a/4
+++ b/4
@ -14,7 +14,7 @@
 35 NEXT C
 39 GOTO 20
 50 REM  RESET
- 51 K(C,H) =  INT ( RND (1) * 40)
+ 51 K(C,H) =  INT ( RND (1) * 40) + 1
 52 K(C,V) = 0
 53 K(C,F) =  INT ( RND (1) * 2)
 99  RETURN
@ -30,4 +30,4 @@
 122 RETURN
 130 REM  ERASE CHAR
 131 PRINT " "
- 132 RETURN
+ 132 RETURN