123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566 |
- 100 print "This computer program demonstration us a new aid for"
- 110 print "preparing speeches and briefings. It's a buzzword"
- 120 print "generator which provides you with a set of three higly"
- 130 print "acceptablewords to work into your material. The words"
- 140 print "don't actually mean anything, but they sound great."
- 150 print
- 160 print "the procedure:"
- 170 print ,"Think of any three numbers between 0 and 9, enter"
- 180 print , "them after the '?' separated by commas. your"
- 190 print ,"buzzword will be printed out. Typing "100" for"
- 200 print ,"each of your choices stops this program."
- 210 print "What are your three numbers";
- 220 goto 260
- 230 print
- 240 print
- 250 print "Three more numbers";
- 260 input n,m,p
- 265 if n= 100 then 1290
- 267 print "continue"
- 270 if n<0 then 1240
- 280 if p<0 then 1240
- 290 if m<0 then 1240
- 300 if m>9 then 1240
- 310 if p>9 then 1240
- 320 if n>9 then 1240
- 330 print
- 340 on n+1 goto 640,660,680,700,720,740,760,780,800,820
- 440 on m+1 goto 840,860,880,900,920,940,960,980,1000,1020
- 540 on p+1 goto 1040,1060,1080,1100,1120,1140,1160,1180,1200,1220
- 640 print " integrated";: goto 440
- 660 print " total";: goto 440
- 680 print " systematized";: goto 440
- 700 print " parallel";: goto 440
- 720 print " functional";: goto 440
- 740 print " responsive";: goto 440
- 760 print " optimal";: goto 440
- 780 print " synchronized";: goto 440
- 800 print " compatible";: goto 440
- 820 print " balanced";: goto 440
- 840 print " management"; : goto 540
- 860 print " organizational"; : goto 540
- 880 print " monitored"; : goto 540
- 900 print " reciprocal"; : goto 540
- 920 print " digital"; : goto 540
- 940 print " logistical"; : goto 540
- 960 print " transitional"; : goto 540
- 980 print " incremental"; : goto 540
- 1000 print " fifth-generation"; : goto 540
- 1020 print " policy"; : goto 540
- 1040 print " options";: goto 230
- 1060 print " flexibility";: goto 230
- 1080 print " capability";: goto 230
- 1100 print " mobility";: goto 230
- 1120 print " programming";: goto 230
- 1140 print " concept";: goto 230
- 1160 print " time-phase";: goto 230
- 1180 print " projection";: goto 230
- 1200 print " hardware";: goto 230
- 1220 print " contingency";: goto 230
- 1240 print
- 1260 print
- 1270 print "numbers must be between 0 and 9, please select three more."
- 1280 goto 260
- 1290 print "Goodbye for now."
- 1300 print:print:print
- 1310 end
|