home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MDUTIL.ZIP / PLOTRITE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-12-01  |  7.7 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.