home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / jbl / hifibuzz.bas < prev    next >
Encoding:
BASIC Source File  |  1985-08-05  |  2.4 KB  |  55 lines
  1. 1 CLS:COLOR 15
  2. 2 REM
  3. 3 REM *************************************************************************
  4. 4 REM
  5. 5 REM       GENERATOR ROUTINE BY DAVID AHL OF CREATIVE COMPUTING
  6. 6 REM                PROGRAM BY GARRY MARGOLIS 5/16/85
  7. 7 REM                      INSPIRED BY CELESTION
  8. 8 REM 
  9. 9 REM *************************************************************************
  10. 10 WIDTH 80
  11. 11 PRINT TAB(26);"AUDIO BUZZWORD GENERATOR" 
  12. 12 PRINT
  13. 13 PRINT
  14. 14 PRINT
  15. 15 PRINT "This program prints useful all-purpose ''tweak-speak'' phrases for"
  16. 16 PRINT "incorporation in magazine articles, reviews, sales literature and"
  17. 17 PRINT "advertising.  Whenever a question mark is printed, type a ''Y''"
  18. 18 PRINT "for another phrase or an ''N'' to quit."
  19. 19 PRINT
  20. 20 PRINT
  21. 21 PRINT "Here's the first phrase:"
  22. 22 DIM A$(65)
  23. 23     FOR I = 1 TO 63 
  24. 24             READ A$(I)
  25. 25     NEXT I
  26. 26 PRINT A$(INT(21*RND(1)+1));" ";
  27. 27 PRINT A$(INT(21*RND(1)+22));" ";
  28. 28 PRINT A$(INT(21*RND(1)+43))
  29. 29 PRINT
  30. 30 PRINT "Another one?"
  31. 31 Y$ = INKEY$ : IF LEN(Y$) = 0 THEN 31
  32. 32     IF Y$ = "Y" THEN 26
  33. 33     IF Y$ = "y" THEN 26 ELSE 53
  34. 34 REM
  35. 35 DATA "Transient","Bright sounding","Laser developed","Anechoic"
  36. 36 DATA "Asynchronous","Direct-to-disc","Bias corrected","Servo-lock tuned"
  37. 37 DATA "Time delayed","Anti-static","Peripheral","Digitally processed"
  38. 38 DATA "Uncolored","Unclipped","Bi-polar","Negative feedback"
  39. 39 DATA "Peak program","Coaxially suspended","High transfer","Reflex"
  40. 40 DATA "Ultra-linear","psychoacoustic","MOSFET","Fast Fourier"
  41. 41 DATA "jumper selectable","superheterodyne","calibrated"
  42. 42 DATA "torsional","high hysteresis","variable reluctance"
  43. 43 DATA "bifurcated","transcendental","phase coherent","intermodulation"
  44. 44 DATA "eigentonal","comb filtered","interferometric","oxygen free"
  45. 45 DATA "dual bridge rectified","reciprocating","switchable gain","dynamic"
  46. 46 DATA "passive radiator","leakage effect","bucket brigade","oscillatory drift"
  47. 47 DATA "rolloff characteristic","moving flux generator","linear interpolation"
  48. 48 DATA "magnetic shunt","equalization position","insertion loss"
  49. 49 DATA "internal standing wave","arm resonance","extended response"
  50. 50 DATA "cyclic redundancy check code","first order Butterworth"
  51. 51 DATA "temperature peak efficiency","stereohedron","passive crossover"
  52. 52 DATA "discrete semiconductor","mounting threshold","vibrating diaphragm" 
  53. 53 PRINT "Come back when you need some more ''tweak-speak!''"
  54. 54 END
  55.