home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 1058 / MenuPlus.sis / MPNotes.opl (.txt) < prev    next >
Encoding:
EPOC OPL Source  |  2001-10-19  |  1.0 KB  |  49 lines
  1.  
  2.  
  3. REM    ##############################
  4. REM    MenuPlus ┬⌐2001 Wolfgang Golder
  5. REM                Notes
  6. REM    ##############################
  7.  
  8. PROC newNote:
  9.     LOCAL text$(255), DataFile$(255)
  10.  
  11.  
  12.     REM    the first field is a memo field
  13.     REM    entered text is pasted here
  14.     REM    here you can adjust your DataFile
  15.  
  16.     REM    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  17.     DataFile$= "D:\Dokumente\Daten\Memo"
  18.     REM    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  19.  
  20.     REM    you must create this file by yourself
  21.     REM    with the built in Data application
  22.  
  23.     MPlogon:
  24.  
  25.     dINIT "Memo"
  26.     dEDIT text$,"",25
  27.     IF DIALOG
  28.         MPFgDoc:(DataFile$)
  29.  
  30.         REM    new entry
  31.         SendRscMenu:("z:\System\Apps\Data\Data.rsc",4,&D)
  32.  
  33.         REM    wait and paste text
  34.         PAUSE 3
  35.         Paste:(text$)
  36.  
  37.         REM    save
  38.         SendRscMenu:("z:\System\Apps\Data\Data.rsc",4,&16)
  39.         PAUSE 3
  40.         SendKey:("ESC")
  41.  
  42.         REM    send Data to background
  43.         MPToptoBack:
  44.     ENDIF
  45. ENDP
  46.  
  47.  
  48.  
  49.