Permalink
Browse files

Some bug fixes and tweaks, check in binary file.

  • Loading branch information...
jefftranter committed May 14, 2012
1 parent 9313661 commit d4a6d5fbc5aeffb91eef460f1612b0dbd67eb7f6
Showing with 651 additions and 5 deletions.
  1. +6 −5 basic/horoscope/horoscope.bas
  2. +645 −0 basic/horoscope/horoscope.mon
@@ -1,5 +1,6 @@
+E000R
SCR
-HIMEM=3000
+HIMEM=7000
10 REM HOROSCOPE GENERATOR
20 REM BY JEFF TRANTER <TRANTER@POBOX.COM>
30 REM 13 MAY 2012
@@ -25,7 +26,7 @@ HIMEM=3000
220 INPUT "COUNTRY OF BIRTH", C$
230 INPUT "IN WHAT CITY", T$
240 PRINT "CALCULATING HOROSCOPE...PLEASE WAIT."
-250 FOR I = 1 TO 5000 : NEXT I
+250 FOR I = 1 TO 3000 : NEXT I
260 PRINT
270 GOSUB 11000
280 GOSUB 10000
@@ -34,10 +35,10 @@ HIMEM=3000
310 PRINT ""
320 PRINT "HERE IS MY ANALYSIS:"
330 PRINT ""
-340 L1 = 12010 + RND(36) * 10
-350 L2 = 12010 + RND(36) * 10
+340 L1 = 12010 + RND(35) * 10
+350 L2 = 12010 + RND(35) * 10
360 IF L2 = L1 THEN 350
-370 L3 = 12010 + RND(36) * 10
+370 L3 = 12010 + RND(35) * 10
380 IF L3 = L1 THEN 370
390 IF L3 = L2 THEN 370
400 GOSUB L1
Oops, something went wrong.

0 comments on commit d4a6d5f

Please sign in to comment.