home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / TVPLOT.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  2.5 KB  |  76 lines
  1. 10 REM *** ORIGINALLY WRITTEN IN FOCAL BY MARY COLE
  2. 20 REM *** CONVERTED TO BASIC-PLUS BY DAVE AHL
  3. 30 RANDOMIZE
  4. 50 PRINT "THIS PROGRAM AUTOMATICALLY COMES UP WITH TELEVISION"
  5. 60 PRINT "SHOWS GUARANTEED TO APPEAL TO THE MASSES AND WIN"
  6. 70 PRINT "HIGH NEILSEN RATINGS.":PRINT
  7. 80 PRINT "HERE IS THE FIRST PLOT:"
  8. 100 PRINT:GOSUB 800
  9. 110 ON X GOTO 120,130,140,150,160,120,130,140,150,160
  10. 120 A$="PROGRAM":GOTO 170
  11. 130 A$="REPORT":GOTO 170
  12. 140 A$="SPECIAL":GOTO 170
  13. 150 A$="SERIES":GOTO 170
  14. 160 A$="STORY"
  15. 170 GOSUB 800
  16. 180 ON X GOTO 190,200,210,220,230,240,250,260,270,280
  17. 190 B$="SWINGING ":GOTO 290
  18. 200 B$="BRILLIANT ":GOTO 290
  19. 210 B$="SALTY ":GOTO 290
  20. 220 B$="HILARIOUS ":GOTO 290
  21. 230 B$="SENSITIVE ":GOTO 290
  22. 240 B$="DODDERING ":GOTO 290
  23. 250 B$="HENPECKED ":GOTO 290
  24. 260 B$="DEDICATED ":GOTO 290
  25. 270 B$="THOUGHTFUL ":GOTO 290
  26. 280 B$="HEAVY "
  27. 290 GOSUB 800
  28. 300 ON X GOTO 310,320,330,340,350,360,370,380,390,400
  29. 310 C$="GIRL COWHAND":GOTO 410
  30. 320 C$="LITTLE BOY":GOTO 410
  31. 330 C$="SCIENTIST":GOTO 410
  32. 340 C$="LAWYER":GOTO 410
  33. 350 C$="TOWN MARSHAL":GOTO 410
  34. 360 C$="DENTIST":GOTO 410
  35. 370 C$="BUS DRIVER":GOTO 410
  36. 380 C$="JUNGLE MAN":GOTO 410
  37. 390 C$="SECRET AGENT":GOTO 410
  38. 400 C$="COLLIE"
  39. 410 GOSUB 800
  40. 420 ON X GOTO 430,440,450,460,470,430,440,450,460,470
  41. 430 D$="A WHIZ":GOTO 480
  42. 440 D$="A FLOP":GOTO 480
  43. 450 D$="MEDIOCRE":GOTO 480
  44. 460 D$="A SUCCESS":GOTO 480
  45. 470 D$="A DISASTER"
  46. 480 GOSUB 800
  47. 490 ON X GOTO 500,510,520,530,540,550,560,570,580,590
  48. 500 E$="SOLVING CRIMES":GOTO 600
  49. 510 E$="ROPING COWS":GOTO 600
  50. 520 E$="COOKING HEALTH FOOD":GOTO 600
  51. 530 E$="PITCHING WOO":GOTO 600
  52. 540 E$="PROTECTING ECOLOGY":GOTO 600
  53. 550 E$="HELPING CHILDREN":GOTO 600
  54. 560 E$="TWO-FISTED DRINKING":GOTO 600
  55. 570 E$="FIGHTING FIRES":GOTO 600
  56. 580 E$="HERDING ELEPHANTS":GOTO 600
  57. 590 E$="WINNING RACES"
  58. 600 GOSUB 800
  59. 610 ON X GOTO 620,630,640,650,660,670,680,690,700,710
  60. 620 F$="RECOVERS THE JEWELS":GOTO 720
  61. 630 F$="FOILS THE SPIES":GOTO 720
  62. 640 F$="DESTROYS THE CITY":GOTO 720
  63. 650 F$="FINDS LOVE":GOTO 720
  64. 660 F$="SAVES THE ANIMALS":GOTO 720
  65. 670 F$="CONFESSES":GOTO 720
  66. 680 F$="DISCOVERS THE SECRET":GOTO 720
  67. 690 F$="STOPS THE FLOOD":GOTO 720
  68. 700 F$="HELPS THE DOG":GOTO 720
  69. 710 F$="MAKES THE SACRIFICE"
  70. 720 PRINT "THE "A$" IS ABOUT A "B$;C$" WHO IS "D$" AT"
  71. 730 PRINT E$" AND WHO "F$".":PRINT:PRINT
  72. 740 INPUT "ANOTHER (YES OR NO)";A$
  73. 750 IF A$="YES" THEN 100 ELSE GOTO 999
  74. 800 X=INT(10*RND+1):RETURN
  75. 999 PRINT:PRINT "O.K.  HOPE YOU HAVE A SUCCESSFUL TV SHOW!!":END
  76.