home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / applications / databases / databasepro / filofax / wechsel.rexx < prev   
OS/2 REXX Batch file  |  1995-07-10  |  518b  |  29 lines
  1. /* Wechselt zwischen Adressen, Terminen, Kalender und Notzien */
  2.  
  3. Options Results
  4.  
  5. ARG goto loadin .
  6.  
  7. ADDRESS DataBase
  8.  
  9. /* LoadPic "Filofax/Page.image" 80 58 */
  10. Display Off
  11. CurrentBase
  12. IF RC > loadin THEN
  13.   ADDRESS COMMAND 'Run Filofax/PlaySound Filofax/PageBack.iff'
  14. ELSE
  15.   ADDRESS COMMAND 'Run Filofax/PlaySound Filofax/PageFor.iff'
  16. FindBase goto || ".db"
  17. newbase = RC
  18. IF newbase = -1 THEN DO
  19.   Base loadin
  20.   newbase = loadin
  21.   Open "Filofax/" || goto || ".db"
  22.   END
  23. ELSE
  24.   Base newbase
  25. Display On
  26. Show New
  27. ADDRESS
  28.  
  29.