home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / misbasic / radrh.bas < prev    next >
Encoding:
BASIC Source File  |  1994-05-24  |  1.1 KB  |  57 lines
  1. 10 CLS
  2. 20 FOR T = 1 TO 25
  3. 30 LET TABUL = INT(RND * 68) + 1
  4. 40 PRINT "RAD RHYMER"
  5. 50 PRINT TAB(TABUL);
  6. 70 NEXT T
  7. 71 PRINT
  8. 72 PRINT
  9. 73 PRINT
  10. 80 PRINT "ANSWER THE QUESTIONS THEN PRESS THE ENTER KEY;"
  11. 81 PRINT
  12. 82 PRINT
  13. 90 PRINT "WHAT IS YOUR NAME ?"
  14. 110 PRINT
  15. 120 PRINT
  16. 125 INPUT N$
  17. 126 CLS
  18. 130 PRINT " WHAT IS THE NAME OF YOUR BEST FRIEND ?"
  19. 140 PRINT
  20. 150 INPUT F$
  21. 160 PRINT
  22. 161 CLS
  23. 170 PRINT "AER YOU MALE OR FEMALE ?"
  24. 180 INPUT M$
  25. 190 IF M$ = "MALE" OR M$ = "M" THEN G$ = "HIS" ELSE G$ = "HER"
  26. 250 CLS
  27. 260 PRINT "WHAT IS YOUR FAVORITE DRINK ? "
  28. 270 INPUT D$
  29. 280 PRINT
  30. 290 PRINT
  31. 299 CLS
  32. 300 PRINT "NAME A PART OF YOUR BODY"
  33. 310 INPUT B$
  34. 320 PRINT
  35. 330 PRINT
  36. 340 PRINT "PRESS THE ENTER KEY"
  37. 350 INPUT S$
  38. 360 CLS
  39. 364 FOR SP = 1 TO 10
  40. 365 PRINT
  41. 366 NEXT SP
  42. 369 PRINT TAB(20);
  43. 370 PRINT N$; " AND "; F$
  44. 379 PRINT TAB(20);
  45. 380 PRINT "WENT UP THE HILL "
  46. 389 PRINT TAB(20);
  47. 390 PRINT "TO FETCH A PAIL OF "; D$
  48. 399 PRINT TAB(20);
  49. 400 PRINT N$; " FELL DOWN AND"
  50. 409 PRINT TAB(20);
  51. 410 PRINT "BROKE "; G$; " "; B$; ","
  52. 419 PRINT TAB(20);
  53. 420 PRINT "AND "; F$; " CAME "
  54. 429 PRINT TAB(20);
  55. 430 PRINT "TUMBLING AFTER."
  56.  
  57.