home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 492.lha / PowerPlatform_v1.1 / Rexx / Profile.APP < prev    next >
Encoding:
Text File  |  1991-04-06  |  4.3 KB  |  84 lines
  1. /************************************************************************/
  2. /* This is the sample Profile for PowerPlatform Release 1.0.            */
  3. /*                                                                      */
  4. /*                                              ==> MCW 08/19/90 <==    */
  5. /*                                                                      */
  6. /*                   Copyright © 1990 Martin C. Warnett.                */
  7. /************************************************************************/
  8.  
  9. trace off
  10.  
  11. 'Options WorkBench'                         /* Open on WorkBench        */
  12. 'Options Bytes'                             /* Display file size        */
  13.  
  14. 'DefineDevice HardDisk 1 SYS:'              /* Define devices           */
  15. 'DefineDevice HardDisk 2 DH0:'
  16. 'DefineDevice FloppyDisk 3 DF0:'
  17. 'DefineDevice RAMDisk 4 RAD:'
  18. 'DefineDevice RAMDisk 5 RAM:'
  19. 'DefineDevice HardDisk 6 NET:'              /* ParNet device            */
  20. 'DefineDevice FloppyDisk 7 MSH:'            /* MessyDOS device          */
  21.  
  22. 'CDSource RAM:'                             /* Set active directories   */
  23. 'CDTarget RAM:'
  24.  
  25. 'DefineConsole 1 CON:0/50/640/100/Console1'
  26. 'DefineConsole 2 CON:0/25/640/150/Console2'
  27. 'DefineConsole 3 CON:40/20/640/430/Console3'
  28.  
  29. /************************************************************************/
  30. /* This next section will define the "Functions" menu. The Items on the */
  31. /* functions menu can be used to change the function button definitions.*/
  32. /* For example when you select the Graphics item, the EXEC              */
  33. /* GraphicsFunctions.APP will be executed. This EXEC redefines the      */
  34. /* function buttons for graphics orientated functions. Refer to the     */
  35. /* GraphicsFunctions.APP EXEC to see how this is done.                  */
  36. /************************************************************************/
  37.  
  38. 'DefineMenu Functions'
  39. 'DefineItem ARexx Main MainFunctions'
  40. 'DefineItem ARexx Graphics GraphicsFunctions'
  41. 'DefineItem ARexx Communications CommFunctions'
  42.  
  43. 'DefineMenu Utilities'                      /* Define Utilities menu    */
  44. 'DefineItem WB Calculator SYS:Tools/Calculator'
  45. 'DefineItem WB MeMacs SYS:Tools/MeMacs'
  46. 'DefineItem WB Clock SYS:Utilities/Clock'
  47. 'DefineItem WB Say SYS:Utilities/Say'
  48.  
  49. 'DefineMenu Applications'                   /* Define Applications menu */
  50. 'DefineItem WB DeluxePaint DH0:DPIII/DPaint'
  51. 'DefineItem KEY=P WB ProWrite HardDisk:WordProcessing/ProWrite/ProWrite'
  52.  
  53. 'DefineMenu Games'                          /* Define Games menu        */
  54. 'DefineItem KEY=S WB Streets HardDisk:Games/Streets+Alleys'
  55. 'DefineItem WB BattleChess HardDisk:Games/BattleChess'
  56. 'DefineItem WB Montana HardDisk:Games/Montana'
  57. 'DefineItem KEY=T WB Tetrix HardDisk:Games/Tetrix'
  58.  
  59. 'DefineExt CLI Run CDSource ToWB C DME &sf' /* Associate .C with DME    */
  60. 'DefineExt CLI Run CDSource ToWB H DME &sf' /* Associate .H with DME    */
  61. 'DefineExt ARexx rexx &sf'                  /* Associate .REXX with do  */
  62. 'DefineExt ARexx APP &sf'                   /* Associate .APP with do   */
  63.  
  64. /************************************************************************/
  65. /* Rather than define all the functions buttons in this profile, I have */
  66. /* defined them in a separate file called MainFunctions.APP. The        */
  67. /* reason for doing this is so that you can easily change the function  */
  68. /* Button definitions.                                                  */
  69. /*                                                                      */
  70. /* The following code first determines the PowerPlatform ARexx port     */
  71. /* name. If you never run PowerPlatform more than once, you can         */
  72. /* hard code the port name as APP1. The port name is passed to          */
  73. /* mainFunctions.APP so that it knows where to send the powerPlatform   */
  74. /* commands. Because MainFunctions.APP is a separate EXEC, it does not  */
  75. /* default to the PowerPlatform Port.                                   */
  76. /************************************************************************/
  77.  
  78. options results                             /* Request result string    */
  79. 'QueryPort'                                 /* Get PwrPlatform port name*/
  80. address command 'rx MainFunctions.APP' RESULT
  81.  
  82. return 0                                    /* That's all folks!        */                            /* Successful completion        */
  83.  
  84.