Decision Maker 1

   5 REM *EXECUTIVE DECISIOL 1*
  10 CLS 
  20 LET X=100*RND
  30 IF X>49 THEN PRINT "YES"
  40 IF X<49 THEN PRINT "NO"
  50 IF INKEY$="" THEN GOTO 50
  60 GOTO 10
  70 CLEAR 
  80 SAVE "1001%1"
  90 RUN