home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / PTA-PW34.DMS / in.adf / PW_Locale / PW_DiskReset < prev    next >
Encoding:
Text File  |  1993-04-10  |  5.5 KB  |  160 lines
  1. ; Copyright (C) Cloanto (R) 1992, 1993  All Rights Reserved  Reproduction Prohibited
  2.  
  3.  
  4. ; Reset Personal Write Disk Name
  5.  
  6. Assign >NIL: " PWrite:" EXISTS
  7. If NOT WARN
  8.    Relabel >NIL: " PWrite:" PWrite
  9.    EndIf
  10.  
  11. Assign >NIL: "Copy of PWrite:" EXISTS
  12. If NOT WARN
  13.    Relabel >NIL: "Copy of PWrite:" PWrite
  14.    EndIf
  15.  
  16. Assign >NIL: Copy_of_PWrite: EXISTS
  17. If NOT WARN
  18.    Relabel >NIL: Copy_of_PWrite: PWrite
  19.    EndIf
  20.  
  21. PWrite:c/Print >RAM:PW_WriteOK ";"
  22. Copy >NIL: RAM:PW_WriteOK PWrite:PW_Locale
  23. Delete >NIL: RAM:PW_WriteOK
  24. If NOT EXISTS PWrite:PW_Locale/PW_WriteOK
  25.    PWrite:c/Print "Error during Personal Write disk configuration."
  26.    Wait 3 SECS
  27.    Skip End
  28.    EndIf
  29.  
  30.  
  31. ; Reset Personal Write Startup-Sequence Local Commands
  32.  
  33. If NOT EXISTS PWrite:PW_Locale/Startup-PWLclExe.eng
  34.    Rename PWrite:s/Startup-PWLclExe PWrite:PW_Locale/Startup-PWLclExe.eng
  35.    EndIf
  36.  
  37. If NOT EXISTS PWrite:PW_Locale/Startup-PWLclExe.deu
  38.    Rename PWrite:s/Startup-PWLclExe PWrite:PW_Locale/Startup-PWLclExe.deu
  39.    EndIf
  40.  
  41. If NOT EXISTS PWrite:PW_Locale/Startup-PWLclExe.ita
  42.    Rename PWrite:s/Startup-PWLclExe PWrite:PW_Locale/Startup-PWLclExe.ita
  43.    EndIf
  44.  
  45.  
  46. ; Reset Personal Write Startup-Sequence Local Texts
  47.  
  48. If NOT EXISTS PWrite:PW_Locale/Startup-PWLclTxt.eng
  49.    Rename PWrite:s/Startup-PWLclTxt PWrite:PW_Locale/Startup-PWLclTxt.eng
  50.    EndIf
  51.  
  52. If NOT EXISTS PWrite:PW_Locale/Startup-PWLclTxt.deu
  53.    Rename PWrite:s/Startup-PWLclTxt PWrite:PW_Locale/Startup-PWLclTxt.deu
  54.    EndIf
  55.  
  56. If NOT EXISTS PWrite:PW_Locale/Startup-PWLclTxt.ita
  57.    Rename PWrite:s/Startup-PWLclTxt PWrite:PW_Locale/Startup-PWLclTxt.ita
  58.    EndIf
  59.  
  60.  
  61. ; Reset Personal Write Demo Texts
  62.  
  63. If NOT EXISTS PWrite:PW_Locale/DemoLetter.txt.eng
  64.    Rename "PWrite:Cloanto Extras/DemoLetter.txt" PWrite:PW_Locale/DemoLetter.txt.eng
  65.    EndIf
  66. If NOT EXISTS PWrite:PW_Locale/DemoLabData.txt.eng
  67.    Rename "PWrite:Cloanto Extras/DemoLabData.txt" PWrite:PW_Locale/DemoLabData.txt.eng
  68.    EndIf
  69.  
  70. If NOT EXISTS PWrite:PW_Locale/DemoLetter.txt.deu
  71.    Rename "PWrite:Cloanto Extras/DemoLetter.txt" PWrite:PW_Locale/DemoLetter.txt.deu
  72.    EndIf
  73. If NOT EXISTS PWrite:PW_Locale/DemoLabData.txt.deu
  74.    Rename "PWrite:Cloanto Extras/DemoLabData.txt" PWrite:PW_Locale/DemoLabData.txt.deu
  75.    EndIf
  76.  
  77. If NOT EXISTS PWrite:PW_Locale/DemoLetter.txt.ita
  78.    Rename "PWrite:Cloanto Extras/DemoLetter.txt" PWrite:PW_Locale/DemoLetter.txt.ita
  79.    EndIf
  80. If NOT EXISTS PWrite:PW_Locale/DemoLabData.txt.ita
  81.    Rename "PWrite:Cloanto Extras/DemoLabData.txt" PWrite:PW_Locale/DemoLabData.txt.ita
  82.    EndIf
  83.  
  84.  
  85. ; Set Personal Write 1.x/2.x-3.x Icons
  86.  
  87. Version >NIL: graphics.library 36
  88. If WARN
  89.   If NOT EXISTS PWrite:PW_Locale/PW_CurrentWB13
  90.     PWrite:c/Print >RAM:MEMO_NEWCOL ";"
  91.   EndIf
  92. Else
  93.   If EXISTS PWrite:PW_Locale/PW_CurrentWB13
  94.     PWrite:c/Print >RAM:MEMO_NEWCOL ";"
  95.   EndIf
  96. EndIf
  97.  
  98. If EXISTS RAM:MEMO_NEWCOL
  99.  
  100.   If NOT EXISTS RAM:CPT
  101.     MakeDir RAM:CPT
  102.     EndIf
  103.  
  104.   Copy PWrite:c/CopyIcon RAM:CPT
  105.  
  106.   Copy >NIL: PWrite:#?.info RAM:CPT CLONE
  107.   Copy >NIL: "PWrite:Cloanto Extras/#?.info" RAM:CPT CLONE
  108.  
  109.   CD RAM:CPT
  110.  
  111.   If EXISTS PWrite:PW_Locale/PW_CurrentWB13
  112.     CopyIcon >NIL: -2 -r RAM:CPT/Disk PWrite:Disk
  113.     CopyIcon >NIL: -2 -r RAM:CPT/PWrite PWrite:PWrite
  114.     CopyIcon >NIL: -2 -r RAM:CPT/English PWrite:English
  115.     CopyIcon >NIL: -2 -r RAM:CPT/Deutsch PWrite:Deutsch
  116.     CopyIcon >NIL: -2 -r RAM:CPT/Italiano PWrite:Italiano
  117.     CopyIcon >NIL: -2 -r RAM:CPT/InstallPWrite PWrite:InstallPWrite
  118.     CopyIcon >NIL: -2 -r RAM:CPT/PWrite.man PWrite:PWrite.man
  119.     CopyIcon >NIL: -2 -r "RAM:CPT/Cloanto Extras" "PWrite:Cloanto Extras"
  120.     CopyIcon >NIL: -2 -r RAM:CPT/GrabText "PWrite:Cloanto Extras/GrabText"
  121.     CopyIcon >NIL: -2 -r RAM:CPT/DemoLetter.txt "PWrite:Cloanto Extras/DemoLetter.txt"
  122.     CopyIcon >NIL: -2 -r RAM:CPT/DemoLabData.txt "PWrite:Cloanto Extras/DemoLabData.txt"
  123.     CopyIcon >NIL: -2 -r RAM:CPT/PWrite_PS PWrite:PWrite_PS
  124.     CopyIcon >NIL: -2 -r RAM:CPT/CloantoAudio PWrite:CloantoAudio
  125.     CopyIcon >NIL: -2 -r RAM:CPT/CAWP3_UITX.eng PWrite:CAWP3_UITX.eng
  126.     CopyIcon >NIL: -2 -r RAM:CPT/CAWP3_UITX.deu PWrite:CAWP3_UITX.deu
  127.     CopyIcon >NIL: -2 -r RAM:CPT/CAWP3_UITX.ita PWrite:CAWP3_UITX.ita
  128.     CopyIcon >NIL: -2 -r RAM:CPT/Shell PWrite:Shell
  129.     CopyIcon >NIL: -2 -r RAM:CPT/Preferences PWrite:Preferences
  130.     Delete PWrite:PW_Locale/PW_CurrentWB13 QUIET
  131.   Else
  132.     CopyIcon >NIL: -1 -r RAM:CPT/Disk PWrite:Disk
  133.     CopyIcon >NIL: -1 -r RAM:CPT/PWrite PWrite:PWrite
  134.     CopyIcon >NIL: -1 -r RAM:CPT/English PWrite:English
  135.     CopyIcon >NIL: -1 -r RAM:CPT/Deutsch PWrite:Deutsch
  136.     CopyIcon >NIL: -1 -r RAM:CPT/Italiano PWrite:Italiano
  137.     CopyIcon >NIL: -1 -r RAM:CPT/InstallPWrite PWrite:InstallPWrite
  138.     CopyIcon >NIL: -1 -r RAM:CPT/PWrite.man PWrite:PWrite.man
  139.     CopyIcon >NIL: -1 -r "RAM:CPT/Cloanto Extras" "PWrite:Cloanto Extras"
  140.     CopyIcon >NIL: -1 -r RAM:CPT/GrabText "PWrite:Cloanto Extras/GrabText"
  141.     CopyIcon >NIL: -1 -r RAM:CPT/DemoLetter.txt "PWrite:Cloanto Extras/DemoLetter.txt"
  142.     CopyIcon >NIL: -1 -r RAM:CPT/DemoLabData.txt "PWrite:Cloanto Extras/DemoLabData.txt"
  143.     CopyIcon >NIL: -1 -r RAM:CPT/PWrite_PS PWrite:PWrite_PS
  144.     CopyIcon >NIL: -1 -r RAM:CPT/CloantoAudio PWrite:CloantoAudio
  145.     CopyIcon >NIL: -1 -r RAM:CPT/CAWP3_UITX.eng PWrite:CAWP3_UITX.eng
  146.     CopyIcon >NIL: -1 -r RAM:CPT/CAWP3_UITX.deu PWrite:CAWP3_UITX.deu
  147.     CopyIcon >NIL: -1 -r RAM:CPT/CAWP3_UITX.ita PWrite:CAWP3_UITX.ita
  148.     CopyIcon >NIL: -1 -r RAM:CPT/Shell PWrite:Shell
  149.     CopyIcon >NIL: -1 -r RAM:CPT/Preferences PWrite:Preferences
  150.     PWrite:c/Print >PWrite:PW_Locale/PW_CurrentWB13 ";"
  151.   EndIf
  152.  
  153.   Delete RAM:MEMO_NEWCOL QUIET
  154.   CD RAM:
  155.   Delete > NIL: RAM:CPT ALL QUIET
  156. EndIf
  157.  
  158.  
  159. Lab End
  160.