home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FFA.ZIP / INSTALL.SEQ < prev    next >
Encoding:
Text File  |  1988-01-08  |  2.2 KB  |  53 lines
  1. \ INSTALL.SEQ   Installation file for FF                by Tom Zimmer
  2.  
  3. : setview       ( | name --- )  \ set the path for all views
  4.                 >in @ span @ 1- >       \ if nothing following command
  5.                 if      viewpath clr-hcb
  6.                         viewpath prepend.path drop
  7. cr ." The current PATH where FF searches for system sources when viewing is"
  8. cr cr tab >rev viewpath count type >norm cr
  9. cr ." Type in the New VIEW PATH (where the system sources are located),"
  10. cr ." or press <enter> alone to leave the VIEW PATH the same. VIEW PATH? "
  11.                         query
  12.                 then
  13.                 >in @ span @ 1- > 0=
  14.                 if      viewpath clr-hcb
  15.                         bl word viewpath over c@ 1+ cmove
  16.                 then    cr cr tab
  17.                 ." VIEW PATH set to " >rev viewpath count type >norm ;
  18.  
  19. : install       ( --- )
  20.                 dark
  21.                 cr tab tab tab >rev ."  FF Installation Program " >norm
  22.                 tab ." by Tom Zimmer"
  23.                 cr >attrib1 79 qspaces >norm
  24.                 span @ >in !
  25.                 setview
  26.                 span @ >in !
  27.                 dosver 3 <
  28.                 if      cr >attrib1 79 qspaces >norm
  29.                         beep
  30. cr ." You are running DOS 2.x, FF needs to create the file OVERLAY.BIN."
  31. cr ." This will make the editor available to you."
  32.                         cr
  33.                         ." If you typed INSTALL from DOS, enter FF.EXE here."
  34.                         beep    cr make-overlay
  35.                         cr tab ." Created " >rev ." OVERLAY.BIN" >norm
  36.                 then    cr >attrib1 79 qspaces >norm cr
  37. ." FF will now create the executable program file on disk." cr
  38. ." Enter the name of the EXE file to make, like FF.EXE or F.EXE."
  39.                 installed on
  40.                 ovon ovoff
  41.                 fsave cr cr tab
  42. ." Created " >rev exehcb count type >norm
  43.                 bye ;
  44.  
  45. : uninstall     ( --- )
  46.                 ovon ovoff
  47.                 installed off           \ turn off installed flag.
  48.                 viewpath clr-hcb        \ look in current directory for views.
  49.                 cr
  50.                 ." System Un-installed, use FSAVE to create FF.EXE." cr ;
  51.  
  52.  
  53.