home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / comdemos / progs / keystroke / !KeysDemo / !Run < prev    next >
Encoding:
Text File  |  1994-04-22  |  661 b   |  16 lines
  1. | !KeysDemo V3.00 (17-Apr-1993)
  2. | © Quantum Software
  3. | Written by Alisdair Jørgensen
  4. | Documentation by Stuart Halliday
  5. | Demonstration version
  6. Set KeysDemo$Dir <Obey$Dir>
  7. IconSprites <KeysDemo$Dir>.!Sprites
  8. WimpSlot -min 96K -max 96K
  9. If "<System$Path>" = "" Then Error 0 System resources not found (please insert a disc with !System and try again)
  10. If "<Keystroke%Var>" = "" Then SetEval Keystroke%Var 1
  11. IF "<Keystroke%Inc>" = "" Then SetEval Keystroke%Inc 1
  12. IF "<Keystroke%Auto>" = "" Then SetEval Keystroke%Auto 15
  13. IF "<Keystroke$Icon>" = "" Then Set Keystroke$Icon On
  14. IF "<Keystroke$Demo>" = "" Then Set Keystroke$Demo 0
  15. Basic -quit <KeysDemo$Dir>.!RunImage
  16.