home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 545a.lha / PowerVisor_v1.0 / s / PowerVisor-startup < prev   
Encoding:
Text File  |  1991-09-07  |  1.6 KB  |  51 lines
  1. alias lfd 'loadfd [] fd:[]_lib.fd'
  2. -lfd exec
  3. -lfd dos
  4. -lfd intuition
  5. -lfd graphics
  6. print '\0aPowerVisor 1.0/2.0 Beta  © J.Tyberghein\0a'
  7. print 'Sat Aug 31 14:48:59 1991\0a\0a'
  8. attach 'list' $50 0 e
  9. attach 'cls' $51 0 e
  10. attach 'task' $55 0 e
  11. attach 'libs' $56 0 e
  12. attach 'devs' $57 0 e
  13. attach 'port' $58 0 e
  14. attach 'wins' $59 0 e
  15. print 'The 4 major fd-files are loaded\0a\0a'
  16. print 'New commands :\0a'
  17. print '  opwin <window name>\0a'
  18. print '  lfd <library name>\0a'
  19. print '  at <command string> <key name> <qualifier string>\0a\0a'
  20. print 'New functions :\0a'
  21. print '  co(<keyname>) to get the keycode for a named key (AmigaDOS 2.0)\0a'
  22. print '  qu(<qualifer>) to get the qualifier value\0a\0a'
  23. print 'Defined keys :\0a'
  24. print '  <right>+<alt>+<delete> to delete current history line\0a'
  25. print '  <shift>+<up> to search in history buffer\0a'
  26. print '  <right-amiga>+\'h\' to check brackets in stringgadget\0a'
  27. print '  <f1> list current list\0a'
  28. print '  <f2> to clear the current logical window\0a'
  29. print '  <f6> tasks, <f7> libs, <f8> devs, <f9> ports, <f10> windows\0a\0a'
  30.  
  31. ;Delete the current history line with right-alt delete
  32. attach '{pv 26 #{pv 12};pv 4;pv 5}' 046 32 e
  33.  
  34. ;Make two new functions, 'co' and 'qu'
  35. pvcall 0 co {-resident s:pv/GetCode}
  36. pvcall 0 qu {-resident s:pv/GetQual}
  37. alias at 'attach [1] co([2]) qu([3]) e'
  38.  
  39. ;Assign the Right-shift up key to a searchhistory macro
  40. ;Assign the Left-shift up key to the same macro
  41. _a={-resident s:pv/SearchHist}
  42. at 'go \(_a)' up lshift
  43. at 'go \(_a)' up rshift
  44. remvar _a
  45.  
  46. attach 'go \({-resident s:pv/CheckBrackets})' $25 qu(rcmd) e
  47.  
  48. alias opwin '{openpw [] 0 0 300 200;openlw [] [] 80 40}'
  49.  
  50.  
  51.