* Power Questions - like prg I dled the other day, but
* without bells-n-whistles
* I rigged this program, so it runs from my PROFILE.KEX (once a day)
* Original idea is from http://cyberreviews.skwc.com/

FI='C:\DOS\POWER.BBB'
* Change this filename if you'd like to store answers elsewhere

IF UTODAY(FI)=1 THEN EXIT
/* File already changed today - no changes */

FF=FILEID.1()

'X' FI
'BOT'
'I  '
'I' DATE() DATE('W')
'SET RANGE :'LINE.1() '*'
Q.1='What am I happy about my life right now ?'
Q.2='What am I excited about in my life now ?'
Q.3='What am I proud about in my life now ?'
Q.4='What am I grateful about in my life now ?'
Q.5='What am I enjoying most in my life now ?'
Q.6='What am I committed to in my life now ?'
Q.7='Who do I love ? Who loves me ?'
Q.0=7

SAY 'Press ENTER to go to the next Q'
DO I=1 TO 7
   'I' Q.I
   'I'
   'TEXT 1) '
   DO FOREVER
      'READV KEY'
      R=READV.1
      IF R='ENTER' THEN LEAVE /* next Q */
      IF R='ESC' THEN DO
         'QQUIT'
         'X' FF
         EXIT
* Note - after ESC timestamp will remain unchanged, so this prgf will
*  popup again :)
      END
      'MACRO' R
   END
   'I  '
END
SAY 'All done, good work!'
'FFILE'
'X' FF

UTODAY: PROCEDURE
/* Returns 1 if file was updated today */
ARG FIL
FF=FILEID.1()
'NOMSG DIR' FIL
IF RC>0 THEN RETURN 0
':1'
L=CURLINE.3()
D=SUBSTR(L,28,8)
PARSE VAR D MM '-' DD '-' YY
UD=RIGHT(STRIP(MM),2,0)'/'RIGHT(STRIP(DD),2,0)'/'RIGHT(STRIP(YY),2,0)
RET=(UD=DATE('U'))
'QQUIT'
'X' FF
RETURN RET