home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / typd / tvstry.bas < prev    next >
Encoding:
BASIC Source File  |  1990-09-29  |  9.4 KB  |  244 lines
  1. 1 REM
  2. 3 KEY OFF:SCREEN 0,1:WIDTH 40:COLOR 14,0,0:CLS:LOCATE 5,19:PRINT "MDS"
  3. 5 LOCATE 7,8,0:PRINT "Micro Development Software"
  4. 6 LOCATE 8,8:COLOR 12,0,0:PRINT STRING$(26,196)
  5. 7 COLOR 10,0:LOCATE 10,9,0:PRINT CHR$(201)+STRING$(21,205)+CHR$(187)
  6. 9 LOCATE 11,9:PRINT CHR$(186)+"  COMMERCIAL WRITER  "+CHR$(186)
  7. 11 LOCATE 12,9:PRINT CHR$(186)+STRING$(21,32)+CHR$(186)
  8. 13 LOCATE 13,9:PRINT CHR$(186)+"    Version 2.8      "+CHR$(186)
  9. 15 LOCATE 14,9:PRINT CHR$(200)+STRING$(21,205)+CHR$(188)
  10. 17 LOCATE 17,10:PRINT"Written By M.D. Smith"
  11. 19 COLOR 14,0:LOCATE 19,7:PRINT "         Circa 1985"
  12. 21 COLOR 9,0:LOCATE 23,7:PRINT "Press space bar to continue"
  13. 23 POKE 106,0:REM CLEAR KYBD BUFFER
  14. 25 A$ = INKEY$:IF A$="" THEN GOTO 25
  15. 27 REM
  16. 29 REM
  17. 100 REM SAVE"PLOTRITE.BAS"
  18. 110 REM *******************************
  19. 120 REM *                             *
  20. 130 REM *  COMMERCIAL PLOT WRITER     *
  21. 140 REM *  BY M.D. SMITH              *
  22. 150 REM *  1000 MONTE SANO BLVD.      *
  23. 160 REM *  HUNTSVILLE, AL  35801      *
  24. 170 REM *  (205) 533-3131             *
  25. 180 REM *******************************
  26. 190 REM *                             *
  27. 200 REM *  VERSION  1.0               *
  28. 210 REM *  CIRCA  MAY 1985  (C)       *
  29. 220 REM *                             *
  30. 230 REM *******************************
  31. 240 REM
  32. 250 REM
  33. 260 REM
  34. 270 REM
  35. 280 REM
  36. 420 REM
  37. 430 COLOR 14,0,0
  38. 440 REM
  39. 445 RANDOMIZE TIMER:REM SEED RND GENERATOR
  40. 450 DIM A$(25), B$(25), C$(25), D$(35), E$(30), F$(25)
  41. 455 REM
  42. 460 REM
  43. 465 REM
  44. 470 REM
  45. 475 REM
  46. 480 REM
  47. 485 REM
  48. 490 REM
  49. 495 REM
  50. 500 REM
  51. 505 REM
  52. 510 FOR A= 1 TO 25:READ A$(A):NEXT A
  53. 515 FOR B= 1 TO 25:READ B$(B):NEXT B
  54. 520 FOR C= 1 TO 20:READ C$(C):NEXT C
  55. 525 FOR D= 1 TO 35:READ D$(D):NEXT D
  56. 530 FOR E= 1 TO 30:READ E$(E):NEXT E
  57. 535 FOR F= 1 TO 24:READ F$(F):NEXT F
  58. 539 GOTO 660
  59. 540 REM
  60. 545 REM *** RANDOM PICK SUBROUTINE ***
  61. 550 REM
  62. 555 A=INT(RND(1)*25)+1
  63. 560 B=INT(RND(1)*25)+1
  64. 565 C=INT(RND(1)*20)+1
  65. 570 D=INT(RND(1)*35)+1
  66. 575 E=INT(RND(1)*30)+1
  67. 580 F=INT(RND(1)*24)+1
  68. 585 RETURN
  69. 590 REM
  70. 595 REM
  71. 640 REM  *** SUBROUTINE ***
  72. 650 REM
  73. 660 CLS:KEY OFF
  74. 670 WIDTH 40:
  75. 680 COLOR 10,0,0:CLS
  76. 685 PRINT :PRINT :PRINT :PRINT
  77. 690 PRINT TAB(16)" ** MENU **"
  78. 700 PRINT:PRINT TAB(13)"1. INSTRUCTIONS"
  79. 710 PRINT:PRINT TAB(13)"2. SCREEN PROGRAM"
  80. 720 PRINT:PRINT TAB(13)"3. PRINTER PROGRAM"
  81. 730 PRINT:PRINT TAB(13)"4. EXIT TO BASIC"
  82. 740 PRINT:PRINT:PRINT TAB(13)"5. EXIT BACK TO SYSTEM"
  83. 750 PRINT:PRINT:PRINT TAB(16)"ENTER NUMBER"
  84. 760  A$=INKEY$:IF A$="" GOTO 760
  85. 770 A=VAL(A$)
  86. 780 IF A<1 OR A>5 GOTO 750
  87. 790 CLS:LOCATE 10,10
  88. 800 ON A GOSUB 3000,4000,5000,6000,7000
  89. 810 GOTO 660
  90. 3000 COLOR 9,0,0:CLS:PRINT:PRINT
  91. 3010 PRINT "   *** INSTRUCTIONS FOR USAGE ***"
  92. 3020 PRINT :PRINT "This program will generate many unusual"
  93. 3030 PRINT:PRINT"ideas for writing commercial audio"
  94. 3040 PRINT :PRINT "copy. Every story-line will differ due"
  95. 3050 PRINT :PRINT "to the random generator program that "
  96. 3060 PRINT :PRINT "picks portions of the text. All you "
  97. 3070 PRINT :PRINT "need to do is give the name of store."
  98. 3080 PRINT :PRINT "The results may be funny, but can "
  99. 3090 PRINT :PRINT "provide outline for actual script."
  100. 3100 REM
  101. 3110 REM
  102. 3120 REM
  103. 3130 REM
  104. 3140 REM
  105. 3150 GOSUB 9500: REM  WAIT KEY
  106. 3160 RETURN
  107. 4000 COLOR 14,0,0:CLS:LOCATE 10,1
  108. 4010 PRINT"  ENTER NAME OF CLIENT"
  109. 4015 INPUT"  OR STORE";N$
  110. 4020 REM ** RUN RANDOM NUMBERS IN SUB **
  111. 4030 GOSUB 555
  112. 4040 REM  ** SCREEN PGM BEGINS HERE **
  113. 4050 REM
  114. 4060 COLOR 14,0,0:CLS
  115. 4070 PRINT:PRINT:PRINT"  *** COMMERCIAL FOR  ";N$;" ***"
  116. 4080 PRINT :PRINT "THIS SPOT IS ABOUT A ";A$(A)
  117. 4090 PRINT:PRINT B$(B);" WHO IS ";C$(C)
  118. 4095 PRINT:PRINT"AND LEARNS FROM ";D$(D);" THAT"
  119. 4100 PRINT:PRINT E$(E)
  120. 4110 PRINT:PRINT "AND THAT ";N$
  121. 4112 PRINT:PRINT F$(F)
  122. 4120 REM
  123. 4130 REM
  124. 4140 GOSUB 9500
  125. 4160 GOTO 4020
  126. 5000 COLOR 14,0,0:CLS:LOCATE 10,1
  127. 5002 INPUT"DOUBLE STRIKE PRINT(Y/N)";P$
  128. 5004 PRINT:INPUT"DOUBLE WIDE PRINT(Y/N)";P2$
  129. 5006 CLS:LOCATE 10,1
  130. 5010 PRINT"  ENTER NAME OF CLIENT"
  131. 5015 INPUT"  OR STORE";N$
  132. 5018 PRINT:PRINT:PRINT"  Printing.............."
  133. 5020 REM ** RUN RANDOM NUMBERS IN SUB **
  134. 5022 LOCATE 23,7,0:PRINT " <PRESS 'RETURN' TO STOP>"
  135. 5030 GOSUB 555
  136. 5040 REM  ** PRINTER PGM BEGINS HERE **
  137. 5050 REM
  138. 5051 REM BELOW IS DOUBLE/EMPHASIZED CMD
  139. 5052 IF P$="Y" THEN LPRINT CHR$(27)"G":LPRINT CHR$(27)"E"
  140. 5053 REM BELOW TURNS DOUBLE WIDE ON
  141. 5054 IF P2$="Y" THEN LPRINT CHR$(27)"W"CHR$(1)
  142. 5060 REM
  143. 5070 LPRINT:LPRINT"  *** COMMERCIAL FOR  ";N$;" ***"
  144. 5080 LPRINT :LPRINT "THIS SPOT IS ABOUT A ";A$(A)
  145. 5090 LPRINT:LPRINT B$(B);" WHO IS ";C$(C)
  146. 5095 LPRINT:LPRINT"AND LEARNS FROM ";D$(D);" THAT"
  147. 5100 LPRINT:LPRINT E$(E)
  148. 5110 LPRINT:LPRINT "AND THAT ";N$
  149. 5112 LPRINT:LPRINT F$(F)
  150. 5115 LPRINT"***************************************"
  151. 5118 LPRINT CHR$(27)"W"CHR$(0)
  152. 5119 LPRINT CHR$(27)"F":LPRINT CHR$(27)"H"
  153. 5120 Z$=INKEY$:IF Z$= CHR$(13) THEN GOTO 680
  154. 5160 GOTO 5030
  155. 6000 COLOR 7,0,0:CLS:LOCATE 10,10:PRINT" HAVE A NICE, LONG REST!"
  156. 6010 FOR X= 1 TO 3000:NEXT
  157. 6020 GOTO 10000
  158. 7000 CLS:LOCATE 10,10:PRINT" HAVE A NICE, LONG REST!"
  159. 7010 FOR X= 1 TO 2000:NEXT X:SYSTEM
  160. 7500 REM
  161. 7510 REM ******  DATA FOR A$ ADJ. **
  162. 7520 REM
  163. 7530 DATA HENPECKED, ECCENTRIC, STRANGE, BUMBLING, SENILE
  164. 7540 DATA CRAFTY, MEXICAN, SEXY, LOVEABLE, DODDERING
  165. 7550 DATA SALTY, BRILLIANT, JUVENILE, DIRTY, ROTTEN
  166. 7552 DATA OBNOXIOUS,MIDGET,SARCASTIC,DEPRESSED,SPITEFUL
  167. 7554 DATA ENERGETIC,TRANSPARENT,FORGETFUL,CRUEL,GLAMOROUS
  168. 7560 REM ** 25 ITEMS ABOVE **
  169. 7570 REM ----------------------------
  170. 7580 REM ***  DATA FOR B$ NOUN PERSON**
  171. 7590 DATA LADY WELDER,7-YEAR-OLD,ATOMIC ENGINEER,TV MANAGER,COWBOY
  172. 7600 DATA WARLOCK,HAIR-STYLIST,PIZZA CHEF,DOUBLE AGENT,GIRL DETECTIVE
  173. 7610 DATA GOLF PRO,FAMILY DOCTOR,CAB DRIVER,STUNT MAN,BOAT CAPTAIN
  174. 7620 DATA ATHLETE,MILLIONAIRE,ANGEL,SCHOOL TEACHER,POLICE OFFICER
  175. 7624 DATA MOTHER NATURE,FATHER TIME,ROBOT,PROGRAMMER,SEWER WORKER
  176. 7630 REM ** 25 ITEMS ABOVE **
  177. 7640 REM ------------------------------
  178. 7650 REM ***  DATA FOR C$ SITUATION **
  179. 7660 DATA PLANTING FLOWERS,PAINTING A FENCE,TAKING OUT GARBAGE,SWIMMING IN THE RIVER,TALKING ON THE PHONE
  180. 7670 DATA CLEANING UP THE CAT POOP,DEFLATING AN EGO,RIDING A BIKE,PLUCKING A CHICKEN,PICKING FLEAS OFF THE MONKEY
  181. 7680 DATA REAPING A BENEFIT,HARVESTING A REWARD,COVERED IN MUD,UNDER WATER,A TALKING DUMMY
  182. 7685 DATA BATHING A POSSUM,SHOPPING FOR MAGNETS,CLIMBING A RAZOR BLADE,DRAGGING AN ANCHOR,RIDING A GOAT
  183. 7690 REM
  184. 7700 REM **  20 ITEMS IN C$ ABOVE **
  185. 7710 REM
  186. 7720 REM *** DATA LIST FOR D$(PERSON)**
  187. 7730 REM
  188. 7740 DATA A HIT-MAN,A NEIGHBOR,LASSIE,MORRIS THE CAT,SUPERMAN
  189. 7750 DATA A SEXY WOMAN,THE JANITOR,A TRANS-SEXUAL,THE TALKING TREES,THE WIND
  190. 7760 DATA WORD-OF-MOUTH,THE LATEST GOSSIP,THE VILLAGE LOUDMOUTH,A FRIEND,A LITTLE BIRD
  191. 7770 DATA THE THREE STOOGES,A STOCK BROKER,AN ELF,THE GOOD-WITCH,HOWARD COSELL
  192. 7780 DATA GODZILLA,DOLLY PARTON,MICHAEL JACKSON,DRACULA,GEORGE BURNS
  193. 7782 DATA A NOSEY NEIGHBOR,BATMAN & ROBIN,A SCARED NERD,A LITTLE OLD WOMAN,A TOUGH BOSS
  194. 7784 DATA BOGART,A BEAUTICIAN,JACKIE GLEASON,MAE WEST,W.C. FIELDS
  195. 7790 REM
  196. 7800 REM ** 35 ITEMS IN D$ ABOVE **
  197. 7801 REM
  198. 7802 REM
  199. 7804 REM ** DATA IS E$ (FIRST NEWS)**
  200. 7806 REM
  201. 7808 DATA THE SECRET HAS BEEN DISCOVERED,THERE'S NO BEER IN THE FRIDGE,THE CITY HAS BEEN DESTROYED
  202. 7810 DATA THE EASTER BUNNY IS GAY,THE WORLD ISN'T ROUND,A PENNY WILL BUY SOMETHING
  203. 7812 DATA THE MOON IS HIGH,TROUBLE ALSO ROLLS DOWNHILL,A ROLLING STONE GATHERS MOMENTUM
  204. 7814 DATA NANCY AND SLUGGO ARE GROWN,THE EARLY BIRD HAS WORMS,THE POLAR ICE CAP MELTED
  205. 7815 DATA CHICKENS RUN FAST IN ETHIOPIA,SPINACH CAUSES TOOTH DECAY,CHICKENS HAVE NO LIPS
  206. 7816 DATA A PENNY IS WORTHLESS,THE BANKS ARE GIVING AWAY FREE MONEY,THE STREETS ARE CLEAN
  207. 7817 DATA FT. KNOX IS EMPTY,THE WRIGHT BROS. WERE WRONG,HAWAII JUST SANK
  208. 7818 DATA THE COMET IS COMING,THE MONEY TREE IS BLOOMING,GARFIELD HAS TICKS
  209. 7819 DATA THE U.S. TREASURY IS BROKE,LIVING CAUSES DYING,TREES CAN ACTUALLY HEAR
  210. 7820 DATA LIFE IS A FISH-HOOK,LOVE AND HERPES ARE SIMILAR,HOT AND COLD TOGETHER ARE ONLY AVERAGE
  211. 7822 REM
  212. 7824 REM ** THERE ARE 30 ITEMS ABOVE *
  213. 7826 REM
  214. 7829 REM *** DATA LIST FOR F$(NEWS)**
  215. 7830 REM
  216. 7840 DATA IS HAVING A SALE,IS OVERSTOCKED ON INVENTORY,HAS LOWEST PRICES IN TOWN
  217. 7850 DATA HAS 37 CONVENIENT LOCATIONS,IS AIR CONDITIONED,IS UNDER NEW MANAGEMENT
  218. 7860 DATA HAS JUST REDECORATED AFTER THE FIRE,KILLED THE RATS AND ROACHES IN THE STORE,SELLS EVERYTHING YOU WANT
  219. 7870 DATA WILL MAKE YOU GLAD YOU CAME,WANTS YOUR BUSINESS,IS GOING OUT OF BUSINESS
  220. 7880 DATA IS OPEN 24-HOURS A DAY,HAS THE FRIENDLIEST SALES PEOPLE,WILL EARN YOUR TRUST
  221. 7890 DATA IS LOCATED ACROSS FROM MADISON MALL,IS HARD TO FIND BUT WORTH THE TRIP,NOW IN TOWN
  222. 7892 DATA HAS AN UGLY STORE AND GREAT PRICES,HAS FRIENDLIEST EMPLOYEES TO HELP YOU,IS FAR OUT WITH VERY IN PRICES
  223. 7894 DATA IS STILL AT THE OLD LOCATION,WILL MAKE YOU GLAD YOU CAME,SERVICES WHAT WE SELL
  224. 7900 REM
  225. 7910 REM ** THERE ARE 24 ITEMS ABOVE **
  226. 7920 REM
  227. 9495 REM
  228. 9496 REM
  229. 9497 REM ********* SUBROUTINE ********
  230. 9498 REM *** WAIT TO HIT ANY KEY ****
  231. 9499 REM
  232. 9500 COLOR 12,0:LOCATE 22,7,0:PRINT "<Press space bar to continue>"
  233. 9502 LOCATE 23,7,0:PRINT" <Press RETURN for Main Menu>"
  234. 9505 POKE 106,0 'CLEAR KYBD BUFFER
  235. 9510 Z$ = INKEY$:IF Z$="" THEN GOTO 9510
  236. 9512 IF Z$=CHR$(13) THEN GOTO 680
  237. 9515 CLS:LOCATE 10,13:PRINT"HERE WE GO !"
  238. 9520 FOR X= 1 TO 1000:NEXT
  239. 9525 RETURN
  240. 10000 WIDTH 80:COLOR 14,0,0:CLS:END
  241. 50000 REM *****  THIS IS THE AUTO SAVER *****
  242. 50005 SAVE "PLOTRITE.BAS"
  243. 50010 SAVE "B:PLOTRITE.BAS"
  244.