home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / PENPALV1.1.DMS / in.adf / t / Command-0-T01 next >
Encoding:
Text File  |  1989-07-23  |  1.4 KB  |  78 lines
  1. ;
  2. Assign _Pg_:
  3. Assign _Pg_: PPProgram:
  4. _Pg_:c/Echo "Please wait..." noline
  5. _Pg_:c/Assign from1: ""
  6. _Pg_:c/MakeDir RAM:ppc
  7. ;
  8. _Pg_:c/Copy     _Pg_:c/Copy     RAM:ppc
  9. RAM:ppc/Copy     _Pg_:c/cd    RAM:ppc
  10. RAM:ppc/cd     RAM:ppc
  11. ;
  12. Copy _Pg_:c/Echo    Echo
  13. Copy _Pg_:c/Dir        Dir
  14. Copy _Pg_:c/SetEnv    SetEnv
  15. Copy _Pg_:c/Lab        Lab
  16. Copy _Pg_:c/Skip    Skip
  17. Copy _Pg_:c/If        If
  18. Copy _Pg_:c/EndIF    EndIF
  19. Copy _Pg_:c/Else    Else
  20. Copy _Pg_:c/Delete    Delete
  21. Copy _Pg_:c/MakeDir    MakeDir
  22. Copy _Pg_:c/Assign    Assign
  23. Copy _Pg_:c/Ask        Ask
  24. ;
  25. ;failat 21
  26. ;
  27. MakeDir RAM:env
  28. Assign ENV: RAM:env
  29. ;
  30. Lab y
  31. Lab yes
  32. ;
  33. Echo "*Ec            *E[4mPrinter Install Program*N*N*E[0mPrinters Available:*N"
  34. Dir "PPExtras:Printers"
  35. If error
  36. Skip err
  37. EndIF
  38. ;
  39. Echo "*NWhich printer ? (press RETURN to exit) " noline
  40. SetEnv >NIL: q24 ?
  41. If $q24 EQ ""
  42. Skip err
  43. EndIF
  44. ;
  45. Cd PPExtras:Printers
  46. RAM:ppc/Copy <ENV:q24 to RAM:ppc ? Quiet
  47. RAM:ppc/Cd RAM:ppc
  48. Copy <env:q24 to DEVS:Printers ? Quiet
  49. ;
  50. If ERROR
  51. Echo "Error during copy.  Do you want to try again ? " noline
  52. Skip >NIL: back ?
  53. Else
  54. RAM:ppc/Cd RAM:ppc
  55. Echo " "
  56. Echo "The printer driver is now on the PPProgram disk."
  57. Echo " "
  58. Echo "To complete the installation, you must "
  59. Echo "choose the printer using Preferences."
  60. Echo " "
  61. Ask "Press RETURN to continue..."
  62. EndIF
  63. ;
  64. Lab err
  65. ;endskip
  66. ;
  67. Assign ENV:
  68. Delete RAM:Env all quiet
  69. Assign _Pg_:
  70. ;
  71. Cd from1:
  72. RAM:ppc/Assign from1:
  73. RAM:ppc/Delete RAM:ppc All quiet
  74. endcli
  75.  
  76. endcli >NIL:
  77.  
  78.