Decision Maker 2

   5 REM *DECISION MAKER 2*
  10 DIM D$(10,16)
  20 RAND 
 100 LET D$(1)="YES"
 110 LET D$(2)="FIRE SOMEONE"
 120 LET D$(3)="PASS THE BUCK"
 130 LET D$(4)="MAYBE"
 140 LET D$(5)="REORGANIZE"
 150 LET D$(6)="NO"
 160 LET D$(7)="SEE YOUR ANALYST"
 170 LET D$(8)="SIT ON IT"
 173 LET D$(9)="FORGET IT"
 175 LET D$(10)="RECONSIDER"
 200 LET R=INT (10*RND)
 210 IF R<1 THEN GOTO 200
 300 PRINT D$(R)
 400 IF INKEY$="" THEN GOTO 400
 410 CLS 
 420 GOTO 10
 450 CLEAR 
 500 SAVE "1001%2"
 600 RUN