home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / utilsm / powerup / POWERUP.OPL < prev    next >
Text File  |  1995-02-21  |  2KB  |  74 lines
  1. PROC POWERUP:
  2.     REM Plays .WVE file on power up or records a message
  3.     REM Developed by: R. Steve Walker Email ccocssw@acme.gatech.edu
  4.     global ev%(10), dname$(128), name$(128), RSecs%, s%
  5.     dname$ = "\wve\tricord.wve"+chr$(0)
  6.     RSecs%=5 :REM Default record length
  7.     print "Psion PowerUp  ¸1995 PROTRONICS USA 404-351-1055"
  8.     print "Quick Recorder: hold ESC key down with Psion off"
  9.     print "Default 5 secs  Tab ends record  Psion-Esc quits"
  10.     beep 4,600 :beep 4,600
  11.     name$ = dname$
  12.     call ($6c8d)
  13.     call ($138b)
  14.     call ($198d,100,0)
  15.     gUPDATE
  16.     s%=22
  17.     do
  18.     getevent ev%()
  19.     if SECOND < 4 and MINUTE = 0
  20.       PAUSE 20 :OFF 
  21.     elseif ev%(1)=$403
  22.         call ($288e, ADDR(ev%()))
  23.         if ev%(8) and $100
  24.             if ev%(3) and $80
  25.             call ($198d,0,0)
  26.             else
  27.             QR:
  28.             OFF
  29.             endif
  30.         else
  31.             if ev%(5) and $200
  32.                 s%=-s%+12
  33.                 call (4235,s%)
  34.                 endif
  35.             if s%=22
  36.             call ($1F86,UADD(ADDR(name$),1),0,0)
  37.             name$=dname$
  38.             endif
  39.             endif
  40.         ELSEIF ev%(1)>48 and ev%(1)<59
  41.             name$="\WVE\REC"+gen$(ev%(1)-48,1)+".WVE"+chr$(0)
  42.             AT 42,ev%(1)-43
  43.             IF EXIST (name$)
  44.             call ($1F86,UADD(ADDR(name$),1),0,0)
  45.             dINIT 
  46.             dTEXT "","Delete "+name$+"?",2
  47.             dBUTTONS "Yes",%Y,"No",%N
  48.             IF DIALOG=%y :DELETE name$ :Print "Deleted  " :ENDIF
  49.             ELSE
  50.              QR:
  51.              ENDIF
  52.             name$=dname$
  53.         endif
  54.     until 0
  55. ENDP
  56.  
  57. proc QR:
  58.     local sstat%, ret%
  59.     BEEP 5,400
  60.     do
  61.         ret%=ret%+1
  62.         name$="\WVE\REC"+gen$(ret%,3)+".WVE"+chr$(0)
  63.         until not exist(name$)
  64.     AT 1,ret%+5
  65.     print "Recording ";name$;" To play press ";gen$(ret%,1);
  66.     call ($2186,UADD(ADDR(name$),1),4*RSecs%,0,0,ADDR(sstat%))
  67.     do
  68.     CALL ($288e,ADDR(ev%()))
  69.     IF ev%(1) and $04 :call ($2386) :ENDIF
  70.     until sstat%<>-46
  71.     BEEP 5,400
  72.     if exist(name$) : print "          " :ELSE :PRINT " No memory" :ENDIF
  73. endp
  74.