lang/basic/test/buzzword.b

   1 100 print "This computer program demonstration us 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 three higly"
   4 130 print "acceptablewords 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 200 print ,"each of your choices stops this program."
  12 210 print "What are your three numbers";
  13 220 goto 260
  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 267 print "continue"
  20 270 if n<0 then 1240
  21 280 if p<0 then 1240
  22 290 if m<0 then 1240
  23 300 if m>9 then 1240
  24 310 if p>9 then 1240
  25 320 if n>9 then 1240
  26 330 print
  27 340 on n+1 goto 640,660,680,700,720,740,760,780,800,820
  28 440 on m+1 goto 840,860,880,900,920,940,960,980,1000,1020
  29 540 on p+1 goto 1040,1060,1080,1100,1120,1140,1160,1180,1200,1220
  30 640 print " integrated";: goto 440
  31 660 print " total";: goto 440
  32 680 print " systematized";: goto 440
  33 700 print " parallel";: goto 440
  34 720 print " functional";: goto 440
  35 740 print " responsive";: goto 440
  36 760 print " optimal";: goto 440
  37 780 print " synchronized";: goto 440
  38 800 print " compatible";: goto 440
  39 820 print " balanced";: goto 440
  40 840 print " management"; : goto 540
  41 860 print " organizational"; : goto 540
  42 880 print " monitored"; : goto 540
  43 900 print " reciprocal"; : goto 540
  44 920 print " digital"; : goto 540
  45 940 print " logistical"; : goto 540
  46 960 print " transitional"; : goto 540
  47 980 print " incremental"; : goto 540
  48 1000 print " fifth-generation"; : goto 540
  49 1020 print " policy"; : goto 540
  50 1040 print " options";: goto 230
  51 1060 print " flexibility";: goto 230
  52 1080 print " capability";: goto 230
  53 1100 print " mobility";: goto 230
  54 1120 print " programming";: goto 230
  55 1140 print " concept";: goto 230
  56 1160 print " time-phase";: goto 230
  57 1180 print " projection";: goto 230
  58 1200 print " hardware";: goto 230
  59 1220 print " contingency";: goto 230
  60 1240 print
  61 1260 print
  62 1270 print "numbers must be between 0 and 9, please select three more."
  63 1280 goto 260
  64 1290 print "Goodbye for now."
  65 1300 print:print:print
  66 1310 end