home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / GTS-STRT.LHA / shareware / examplescripts / Internet.Script < prev    next >
Encoding:
Text File  |  1992-09-02  |  1.1 KB  |  52 lines
  1.  
  2. ;
  3. ;    -×-> InterNet Login Script for ScriptLogin 1.0 by Wizard/Giants <-×-
  4. ;
  5.  
  6. Resident >NIL: C:Assign PURE
  7. Resident >NIL: C:Execute PURE
  8.  
  9. Assign ENV: DH0:T
  10. Assign T: DH0:T
  11. Assign >NIL: CLIPS: DH0:T
  12. Assign >NIL: REXX: S:
  13. Assign >NIL: KEYMAPS: DEVS:Keymaps
  14. Assign LOCALE: SYS:Locale
  15. Assign LIBS: SYS:Classes ADD
  16.  
  17. Path >NIL: RAM: C: SYS:Utilities SYS:Rexxc SYS:System S: SYS:Prefs SYS:WBStartup SYS:Tools SYS:Tools/Commodities
  18.  
  19. C:NoKlik
  20.  
  21.  
  22.  
  23. ;BEGIN MUI
  24. if exists "WorkOut:Utilities/System/MUI"
  25.    assign MUI: "WorkOut:Utilities/System/MUI"
  26.    if exists MUI:Libs
  27.       assign add LIBS: MUI:Libs
  28.    endif
  29.    if exists MUI:Locale
  30.       assign add LOCALE: MUI:Locale
  31.    endif
  32.    version >nil: exec.library 39
  33.    if not warn
  34.       if exists MUI:Docs
  35.          if exists HELP:dummy ; do not remove
  36.          endif                ; this entry!
  37.          assign add HELP: MUI:Docs
  38.       endif
  39.    endif
  40. endif
  41. ;END MUI
  42.  
  43. ;BEGIN AmiTCP/IP
  44. assign AmiTCP: Production:Surfing/AmiTCP
  45. path AmiTCP:bin add
  46. Assign APIPE: Exists > NIL:
  47. IF Warn
  48.   Mount APIPE: from AmiTCP:devs/APipe-Mountlist
  49. EndIf
  50. ;END AmiTCP/IP
  51.  
  52.