home *** CD-ROM | disk | FTP | other *** search
/ The World's Top 500 Windows Games / Top500WindowsGames.iso / jlmwin1 / jlminst.sxt < prev    next >
Text File  |  1996-02-14  |  597b  |  24 lines
  1. // Test install program
  2.  
  3. /////////////////////////////
  4. install_icon:
  5.     $cd=getedit "drive"
  6.     good=FALSE
  7.     if strlen $cd==1
  8.         good=TRUE
  9.     if good==TRUE
  10.         call do_it_now
  11.     else
  12.         screen "badmove"
  13.         
  14. install_icons:
  15.     $target = "jlm200"
  16.     $title = "JLM Software"
  17.     $progtitle = "Another Top 200 Games"
  18.     $destdir = $cd,":\jlm200"
  19.     DDE "PROGMAN" string "[CreateGroup(",$title,")]"
  20.     DDE "PROGMAN" string "[ShowGroup(1)]"
  21.     DDE "PROGMAN" string "[AddItem(",$destdir,"\",$target,".exe jlm200,",$progtitle,",",$destdir,"\",$target,".exe,0)]"
  22.     // save letter in temp file
  23.     screen "exitscreen"    
  24.