File BUZZWD.30 (OMSI 30 basic source file)

Directory of image this file is from
This file as a plain text file

100 PRINT"THIS COMPUTER DEMONSTRATION IS A NEW AID FOR"
110 PRINT"PREPARING SPEECHES AND BRIEFINGS.  IT	S A BUZZWORD"
120 PRINT"GENERATOR WHICH PROVIDES YOU WITH A SET OF 3 HIGHLY"
130 PRINT"ACCEPTABLE WORDS 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"
191 PRINT"     EACH OF YOUR CHOICES STOPS THIS PROGRAM."
210 PRINT "WHAT ARE YOUR THREE NUMBERS";
220 GOTO260
230 PRINT
240 PRINT
250 PRINT"THREE MORE NUMBERS";
260 INPUT N,M,P
265 IF N=100 THEN 1290
270 IF N<O THEN 1240
280 IF P<0 THEN 1240
290 IF M<0 THEN 1240
300 IF N>9 THEN 1240
310 IF P>9 THEN 1240
320 IF M>9 THEN 1240
330 PRINT
340 IF N=0 THEN 640
350 IF N=1THEN 660
360 IF N=2THEN 680
370 IF N=3THEN 700
380 IF N=4 THEN 720
390 IF N=5THEN 740
400 IF N=6THEN 760
410 IF N=7THEN 780
420 IF N=8THEN 800
430 IF N=9THEN 820
440 IF M=0 THEN 840
450 IF M=1 THEN 860
460 IF M=2 THEN 880
470 IF M=3 THEN 900
480 IF M=4 THEN 920
490 IF M=5 THEN 940
500 IF M=6 THEN 960
510 IF M=7 THEN 980
520 IF M=8 THEN 1000
530 IF M=9 THEN 1020
540 IF P=0 THEN 1040
550 IF P=1 THEN 1060
560 IF P=2 THEN 1080
570 IF P=3 THEN 1100
580 IFP=4 THEN 1120
590 IF P=5 THEN 1140
600 IF P=6 THEN 1160
610 IF P=7  THEN 1180
620 IF P=8 THEN 1200
630 IF P=9 THEN 1220
640 PRINT" INTEGRATED";
650 GOTO440
660 PRINT" TOTAL";
670 GOTO440
680 PRINT "SYSTEMATIZED";
690 GOTO440
700 PRINT" PARALLEL";
710 GO TO 440
720 PRINT" FUNCTIONAL";
730 GOTO440
740 PRINT" RESPONSIVE";
750 GOTO440
760 PRINT" OPTIMAL";
770 GOTO440
780 PRINT" SYNCHRONIZED";
790 GOTO440
800 PRINT " COMPATIBLE";
810 GOTO440
820 PRINT" BALANCED";
830 GOTO440
840 PRINT" MANAGEMENT";
850 GOTO 540
860 PRINT" ORGANIZATIONAL";
870 GOTO 540
880 PRINT" MONITORED";
890 GOTO 540
900 PRINT" RECIPROCAL";
910 GOTO 540
920 PRINT" DIGITAL";
930 GOTO 540
940 PRINT" LOGISTICAL";
950 GOTO 540
960 PRINT " TRANSITIONAL";
970 GOTO 540
980 PRINT" INCREMENTAL";
990 GOTO 540
1000 PRINT" THIRD-GENERATION";
1010 GO TO 540
1020 PRINT" POLICY";
1030 GOTO 540
1040 PRINT" OPTIONS"
1050 GOTO 230
1060 PRINT " FLEXIBILITY"
1070 GO TO 230
1080 PRINT" CAPABILITY"
1090 GOTO230
1100 PRINT" MOBILITY"
1110 GOTO230
1120 PRINT" PROGRAMMING"
1130 GO TO 230
1140 PRINT" CONCEPT"
1150 GOTO230
1160 PRINT" TIME-PHASE"
1170 GOTO230
1180 PRINT" PROJECTION"
1190 GOTO230
1200 PRINT" HARDWARE"
1210 GOTO230
1220 PRINT" CONTINGENCY"
1230 GOTO230
1240 PRINT
1250 PRINT
1260 PRINT"NUMBERS MUST BE BETWEEN 0 AND 9.  PLEASE SELECT THREE MORE."
1270 GOTO 260
1280 GOTO 260
1290 PRINT "GOODBYE FOR NOW!    "
1300 PRINT\PRINT\PRINT
1310 CHAIN "DEMON "
1320 END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search