home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug005.ark / DECISION.ASC < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.6 KB  |  54 lines
  1.  
  2. 100 REM EXECUTIVE DECISION MAKER
  3. 101 REM WRITTEN BY W.A.BURTON
  4. 102 REM INTENDED FOR CRT'S AT HIGH BAUD RATES
  5. 103 CLEAR : WIDTH 80 : PRINT CHR$(26)
  6. 104 DIM Q$(80) : XX=36
  7. 105 PRINT TAB(15); "*** EXECUTIVE DECISION MAKER ***"
  8. 106 PRINT : PRINT : PRINT
  9. 107 PRINT "WHAT IS THE DECISION THAT YOU WOULD LIKE ME TO MAKE FOR YOU"
  10. 108 PRINT "TYPE IN YOUR QUESTION WHICH CAN BE ANSWERED 'YES OR NO'; AND"
  11. 109 PRINT "KEEP IT SHORTER THAN ONE LINE (INCLUDING SPACES)."
  12. 110 PRINT : PRINT : PRINT : PRINT
  13. 111 INPUT Q$
  14. 112 PRINT : PRINT
  15. 113 REM THIS IS A 'PSEUDO-RANDOMIZE' ROUTINE
  16. 114 FOR X=1 TO LEN(Q$)
  17. 115 Z$=MID$(Q$,X,1)
  18. 116 Z=ASC(Z$)
  19. 117 Y=Y+Z
  20. 118 NEXT X
  21. 119 Y=Y MOD 97
  22. 120 FOR X=1 TO Y
  23. 121 Z=RND(1) : Z1=RND(Y)
  24. 122 NEXT X
  25. 123 A$="<*>" : AL$="YES :" : AR$=": NO"
  26. 124 PRINT "THE '<*>' IS THE BOUNCING BALL OF FATE..."
  27. 125 PRINT "HIT SPACE BAR TO ANSWER YOUR QUESTION"
  28. 126 PRINT : PRINT : PRINT
  29. 127 PRINT TAB(10); AL$; TAB(XX); A$; TAB(61); AR$
  30. 128 WAIT 0,1,1
  31. 129 PRINT TAB(10); AL$; TAB(XX); A$; TAB(61); AR$
  32. 130 W=RND(1)
  33. 131 IF W<.5 THEN XX=XX+2 ELSE XX=XX-2
  34. 132 IF XX<16 THEN PRINT CHR$(26) : GOTO 136
  35. 133 IF XX>=59 THEN PRINT CHR$(26) : GOTO 139
  36. 134 CX=CX+1
  37. 135 GOTO 129
  38. 136 GOSUB 142
  39. 137 PRINT "YES"
  40. 138 GOTO 147
  41. 139 GOSUB 142
  42. 140 PRINT "NO"
  43. 141 GOTO 147
  44. 142 PRINT : PRINT
  45. 143 PRINT "YOUR QUESTION :"
  46. 144 PRINT Q$ : PRINT
  47. 145 PRINT "MY ANSWER (AFTER"; CX; "AGONIZING STEPS) :"
  48. 146 RETURN
  49. 147 PRINT : PRINT
  50. 148 PRINT "DO YOU NEED HELP IN MAKING ANOTHER DECISION (Y OR N)"
  51. 149 INPUT Q$
  52. 150 IF LEFT$(Q$,1)="Y" THEN RUN
  53. 151 PRINT CHR$(26) : END
  54.