home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / BUZZWD.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  2.8 KB  |  124 lines
  1. 100 PRINT"THIS COMPUTER DEMONSTRATION IS A NEW AID FOR"
  2. 110 PRINT"PREPARING SPEECHES AND BRIEFINGS.  IT'S A BUZZWORD"
  3. 120 PRINT"GENERATOR WHICH PROVIDES YOU WITH A SET OF 3 HIGHLY"
  4. 130 PRINT"ACCEPTABLE WORDS TO WORK INTO YOUR MATERIAL.  THE WORDS"
  5. 140 PRINT"DON'T ACTUALLY MEAN ANYTHING, BUT THEY SOUND GREAT."
  6. 150 PRINT
  7. 160 PRINT"THE PROCEDURE:"
  8. 170 PRINT"     THINK OF ANY THREE NUMBERS BETWEEN 0 AND 9.  ENTER"
  9. 180 PRINT"     THEM AFTER THE '?' SEPARATED BY COMMAS.   YOUR"
  10. 190 PRINT"     BUZZWORD WILL BE PRINTED OUT.  TYPING '100' FOR"
  11. 191 PRINT"     EACH OF YOUR CHOICES STOPS THIS PROGRAM."
  12. 210 PRINT "WHAT ARE YOUR THREE NUMBERS";
  13. 220 GOTO260
  14. 230 PRINT
  15. 240 PRINT
  16. 250 PRINT"THREE MORE NUMBERS";
  17. 260 INPUT N,M,P
  18. 265 IF N=100 THEN 1290
  19. 270 IF N<O THEN 1240
  20. 280 IF P<0 THEN 1240
  21. 290 IF M<0 THEN 1240
  22. 300 IF N>9 THEN 1240
  23. 310 IF P>9 THEN 1240
  24. 320 IF M>9 THEN 1240
  25. 330 PRINT
  26. 340 IF N=0 THEN 640
  27. 350 IF N=1THEN 660
  28. 360 IF N=2THEN 680
  29. 370 IF N=3THEN 700
  30. 380 IF N=4 THEN 720
  31. 390 IF N=5THEN 740
  32. 400 IF N=6THEN 760
  33. 410 IF N=7THEN 780
  34. 420 IF N=8THEN 800
  35. 430 IF N=9THEN 820
  36. 440 IF M=0 THEN 840
  37. 450 IF M=1 THEN 860
  38. 460 IF M=2 THEN 880
  39. 470 IF M=3 THEN 900
  40. 480 IF M=4 THEN 920
  41. 490 IF M=5 THEN 940
  42. 500 IF M=6 THEN 960
  43. 510 IF M=7 THEN 980
  44. 520 IF M=8 THEN 1000
  45. 530 IF M=9 THEN 1020
  46. 540 IF P=0 THEN 1040
  47. 550 IF P=1 THEN 1060
  48. 560 IF P=2 THEN 1080
  49. 570 IF P=3 THEN 1100
  50. 580 IFP=4 THEN 1120
  51. 590 IF P=5 THEN 1140
  52. 600 IF P=6 THEN 1160
  53. 610 IF P=7  THEN 1180
  54. 620 IF P=8 THEN 1200
  55. 630 IF P=9 THEN 1220
  56. 640 PRINT" INTEGRATED";
  57. 650 GOTO440
  58. 660 PRINT" TOTAL";
  59. 670 GOTO440
  60. 680 PRINT "SYSTEMATIZED";
  61. 690 GOTO440
  62. 700 PRINT" PARALLEL";
  63. 710 GOTO 440
  64. 720 PRINT" FUNCTIONAL";
  65. 730 GOTO440
  66. 740 PRINT" RESPONSIVE";
  67. 750 GOTO440
  68. 760 PRINT" OPTIMAL";
  69. 770 GOTO440
  70. 780 PRINT" SYNCHRONIZED";
  71. 790 GOTO440
  72. 800 PRINT " COMPATIBLE";
  73. 810 GOTO440
  74. 820 PRINT" BALANCED";
  75. 830 GOTO440
  76. 840 PRINT" MANAGEMENT";
  77. 850 GOTO 540
  78. 860 PRINT" ORGANIZATIONAL";
  79. 870 GOTO 540
  80. 880 PRINT" MONITORED";
  81. 890 GOTO 540
  82. 900 PRINT" RECIPROCAL";
  83. 910 GOTO 540
  84. 920 PRINT" DIGITAL";
  85. 930 GOTO 540
  86. 940 PRINT" LOGISTICAL";
  87. 950 GOTO 540
  88. 960 PRINT " TRANSITIONAL";
  89. 970 GOTO 540
  90. 980 PRINT" INCREMENTAL";
  91. 990 GOTO 540
  92. 1000 PRINT" THIRD-GENERATION";
  93. 1010 GOTO 540
  94. 1020 PRINT" POLICY";
  95. 1030 GOTO 540
  96. 1040 PRINT" OPTIONS"
  97. 1050 GOTO 230
  98. 1060 PRINT " FLEXIBILITY"
  99. 1070 GOTO 230
  100. 1080 PRINT" CAPABILITY"
  101. 1090 GOTO230
  102. 1100 PRINT" MOBILITY"
  103. 1110 GOTO230
  104. 1120 PRINT" PROGRAMMING"
  105. 1130 GOTO 230
  106. 1140 PRINT" CONCEPT"
  107. 1150 GOTO230
  108. 1160 PRINT" TIME-PHASE"
  109. 1170 GOTO230
  110. 1180 PRINT" PROJECTION"
  111. 1190 GOTO230
  112. 1200 PRINT" HARDWARE"
  113. 1210 GOTO230
  114. 1220 PRINT" CONTINGENCY"
  115. 1230 GOTO230
  116. 1240 PRINT
  117. 1250 PRINT
  118. 1260 PRINT"NUMBERS MUST BE BETWEEN 0 AND 9.  PLEASE SELECT THREE MORE."
  119. 1270 GOTO 260
  120. 1280 GOTO 260
  121. 1290 PRINT "GOODBYE FOR NOW!    "
  122. 1300 PRINT:PRINT:PRINT
  123. 1320 END
  124.