home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_3 / issue02 / extras / utils / runbasic / !RunBasic / !Run < prev    next >
Encoding:
Text File  |  1989-09-30  |  603 b   |  15 lines
  1. | > !LoadBasic.!Run file
  2. IF LoadBasic$Lo THEN SETEVAL LoadBasic$Dir (Obey$Dir LEFT(LEN Obey$Dir -10))+"!RunBasic"
  3. IF NOT LoadBasic$Lo THEN SETEVAL LoadBasic$Dir (Obey$Dir LEFT(LEN Obey$Dir -9))+"!LoadBasic"
  4. RENAME <Obey$Dir> <LoadBasic$Dir>
  5. IconSprites <LoadBasic$Dir>.!Sprites
  6. IF LoadBasic$Lo THEN SET Alias$@RunType_FFB BASIC -quit |"%%0|" %%*1
  7. IF NOT LoadBasic$Lo THEN SET ALias$@RunType_FFB BASIC -load |"%%0|" %%*1
  8. SETEVAL LoadBasic$Lo NOT LoadBasic$Lo
  9. IF LoadBasic$Lo THEN SET ToggleString load ELSE SET ToggleString run
  10. ECHO
  11. ECHO
  12. ECHO
  13. ECHO
  14. ECHO Basic progams will <ToggleString> on double click.
  15.