ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

30 lines
1.0 KiB

  1. 10 PRINT TAB(34);"HI LO"
  2. 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
  3. 30 PRINT:PRINT:PRINT
  4. 100 PRINT "THIS IS THE GAME OF HI LO.":PRINT
  5. 110 PRINT "YOU WILL HAVE 6 TRIES TO GUESS THE AMOUNT OF MONEY IN THE"
  6. 120 PRINT "HI LO JACKPOT, WHICH IS BETWEEN 1 AND 100 DOLLARS. IF YOU"
  7. 130 PRINT "GUESS THE AMOUNT, YOU WIN ALL THE MONEY IN THE JACKPOT!"
  8. 140 PRINT "THEN YOU GET ANOTHER CHANCE TO WIN MORE MONEY. HOWEVER,"
  9. 150 PRINT "IF YOU DO NOT GUESS THE AMOUNT, THE GAME ENDS.":PRINT
  10. 160 R=0
  11. 170 B=0:PRINT
  12. 180 Y=INT(100*RND(1)+1)
  13. 200 PRINT "YOUR GUESS";
  14. 210 INPUT A
  15. 220 B=B+1
  16. 230 IF A=Y THEN 300
  17. 240 IF A>Y THEN 270
  18. 250 PRINT "YOUR GUESS IS TOO LOW.":GOTO 280
  19. 270 PRINT "YOUR GUESS IS TOO HIGH."
  20. 280 PRINT:IF B<6 THEN 200
  21. 290 PRINT "YOU BLEW IT...TOO BAD...THE NUMBER WAS";Y
  22. 295 R=0:GOTO 350
  23. 300 PRINT "GOT IT!!!!!!!!!! YOU WIN";Y;"DOLLARS."
  24. 310 R=R+Y
  25. 320 PRINT "YOUR TOTAL WINNINGS ARE NOW";R;"DOLLARS."
  26. 350 PRINT:PRINT "PLAY AGAIN (YES OR NO)";
  27. 360 INPUT A$:IF A$="YES" THEN 170
  28. 380 PRINT:PRINT "SO LONG. HOPE YOU ENJOYED YOURSELF!!!"
  29. 390 END