home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Painting / PPAINT6.0_D1.DMS / in.adf / InstallPPaint < prev    next >
Encoding:
Text File  |  1994-07-08  |  14.9 KB  |  583 lines
  1. .k ""
  2. .bra {
  3. .ket }
  4.  
  5. ; $VER: InstallPPaint.multi 1.602
  6. ; Install Script Copyright (C) Cloanto Italia 1992-1994
  7. ; Cloanto, Personal Paint, PPaint  (R), (TM) Cloanto Italia
  8. ; All Rights Reserved - Reproduction Prohibited
  9.  
  10. ; PPaint, PWrite, C1-Text, PFM trademarks of Cloanto Italia
  11. ; DPaintV, DPaintIV, DeluxePaintIII, ADPRO trademarks of respective owners
  12.  
  13. ; We know some of you prefer other installers. But this one is
  14. ; truly multilingual, works with all operating systems and fits
  15. ; on the disk. If you have any suggestions, please let us know.
  16.  
  17. ; The multi-OS Commodore Installer is English-only. It is used if the
  18. ; PPaint disk is configured by double-clicking on the "English" icon.
  19.  
  20. If NOT EXISTS RAM:IPT
  21.   MakeDir RAM:IPT
  22. EndIf
  23.  
  24. If NOT EXISTS RAM:t
  25.   MakeDir RAM:t
  26. EndIf
  27.  
  28. If EXISTS C:Copy
  29.   Copy >NIL: C:Copy RAM:IPT
  30. EndIf
  31.  
  32. CD RAM:IPT
  33.  
  34. If EXISTS C:If
  35.   Copy >NIL: C:If RAM:IPT
  36. EndIf
  37. If EXISTS C:EndIf
  38.   Copy >NIL: C:EndIf RAM:IPT
  39. EndIf
  40. If EXISTS C:Execute
  41.   Copy >NIL: C:Execute RAM:IPT
  42. EndIf
  43. If EXISTS C:Assign
  44.   Copy >NIL: C:Assign RAM:IPT
  45. EndIf
  46. If EXISTS C:Delete
  47.   Copy >NIL: C:Delete RAM:IPT
  48.   Copy >NIL: C:Delete RAM:t
  49. EndIf
  50. If EXISTS C:CD
  51.   Copy >NIL: C:CD RAM:IPT
  52. EndIf
  53. If EXISTS PPaint:c/Deplode
  54.   Copy PPaint:c/Deplode RAM:IPT
  55. EndIf
  56.  
  57. Assign >NIL: PPaint:
  58.  
  59. Assign >NIL: PPaint: EXISTS
  60. If WARN
  61.   Assign >NIL: " PPaint:" EXISTS
  62.   If NOT WARN
  63.     Assign PPaint: " PPaint:"
  64.   EndIf
  65.   Assign >NIL: "Copy of PPaint:" EXISTS
  66.   If NOT WARN
  67.     Assign PPaint: "Copy of PPaint:"
  68.   EndIf
  69.   Assign >NIL: Copy_of_PPaint: EXISTS
  70.   If NOT WARN
  71.     Assign PPaint: Copy_of_PPaint:
  72.   EndIf
  73. EndIf
  74.  
  75. Assign >NIL: PPaint: EXISTS
  76. If WARN
  77.   Echo "Error: InstallPPaint can only be run from *"PPaint*" disk."
  78.   Wait 3 SECS
  79.   Skip End2
  80. EndIf
  81.  
  82. Copy PPaint:c/Print RAM:IPT
  83.  
  84. If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub
  85.   Print "Disk is not configured: default configuration in progress."
  86.   Execute PPaint:English
  87.   CD RAM:IPT
  88. EndIf
  89.  
  90. If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub
  91.   Execute PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub
  92. EndIf
  93.  
  94. If NOT EXISTS PLT_trlkll
  95.   Print "Error during install."
  96.   Wait 3 SECS
  97.   Skip End2
  98. EndIf
  99.  
  100. If EXISTS C:Else
  101.   Copy >NIL: C:Else RAM:IPT
  102. EndIf
  103. If EXISTS C:Lab
  104.   Copy >NIL: C:Lab RAM:IPT
  105. EndIf
  106. If EXISTS C:Skip
  107.   Copy >NIL: C:Skip RAM:IPT
  108. EndIf
  109. If EXISTS C:MakeDir
  110.   Copy >NIL: C:MakeDir RAM:IPT
  111. EndIf
  112. If EXISTS C:Rename
  113.   Copy >NIL: C:Rename RAM:IPT
  114. EndIf
  115. If EXISTS C:Wait
  116.   Copy >NIL: C:Wait RAM:IPT
  117. EndIf
  118.  
  119. Copy PPaint:c/CAsk RAM:IPT
  120. Copy PPaint:c/CopyIcon RAM:IPT
  121. Copy PPaint:c/Preserve RAM:IPT
  122. Copy PPaint:c/ShowPath RAM:IPT
  123. Copy PPaint:PPaint_Tools/AskAssign RAM:IPT
  124.  
  125. Copy PPaint:PPaint_Icons/def_#?.info RAM:IPT CLONE QUIET
  126.  
  127. Print PLT_title
  128.  
  129. Assign PPTEMPASSIGN:
  130.  
  131. Assign >NIL: PWrite: EXISTS
  132. If NOT WARN
  133.   Assign PPTEMPASSIGN: PWrite:
  134. Else
  135.   Assign >NIL: C1-Text: EXISTS
  136.   If NOT WARN
  137.     Assign PPTEMPASSIGN: C1-Text:
  138.   Else
  139.     Assign >NIL: PFM: EXISTS
  140.     If NOT WARN
  141.       Assign PPTEMPASSIGN: PFM:
  142.     Else
  143.       Assign >NIL: ADPRO: EXISTS
  144.       If NOT WARN
  145.         Assign PPTEMPASSIGN: ADPRO:
  146.       Else
  147.         Assign >NIL: DeluxePaintIII: EXISTS
  148.         If NOT WARN
  149.           Assign PPTEMPASSIGN: DeluxePaintIII:
  150.         Else
  151.           Assign >NIL: DPaintIV: EXISTS
  152.           If NOT WARN
  153.             Assign PPTEMPASSIGN: DPaintIV:
  154.           Else
  155.             Assign >NIL: DPaintV: EXISTS
  156.             If NOT WARN
  157.               Assign PPTEMPASSIGN: DPaintV:
  158.             EndIf
  159.           EndIf
  160.         EndIf
  161.       EndIf
  162.     EndIf
  163.   EndIf
  164. EndIf
  165.  
  166. Assign >NIL: PPTEMPASSIGN: EXISTS
  167. If NOT WARN
  168.   CD PPTEMPASSIGN:/
  169.   Assign PPTEMPASSIGN:
  170. Else
  171.   Assign >NIL: Work: EXISTS
  172.   If NOT WARN
  173.     CD Work:
  174.   Else
  175.     Assign >NIL: DH1: EXISTS
  176.     If NOT WARN
  177.       CD DH1:
  178.     Else
  179.       CD PPaint:
  180.     EndIf
  181.   EndIf
  182. EndIf
  183.  
  184. Assign IFONTS:
  185.  
  186. Execute RAM:IPT/PLC_ipath
  187.  
  188. If NOT WARN
  189.  
  190.  CD RAM:IPT
  191.  
  192.  Lab Questions
  193.  
  194.  Print >I1 ";"
  195.  Print >I2 ";"
  196.  Print >PP_WriteOK ";"
  197.  
  198.  Print PLT_askprg
  199.  CAsk -y "*e[31m ?"
  200.  If WARN
  201.    Print >>I1 "Print PLT_infppp"
  202.    Print >>I1 "If EXISTS MEMO_DEC"
  203.    Print >>I1 "  Deplode >NIL: PPaint:PPaint IPPAINT:PPaint"
  204.    Print >>I1 "Else"
  205.    Print >>I1 "  Copy PPaint:PPaint IPPAINT: CLONE"
  206.    Print >>I1 "EndIf"
  207.    Print >>I1 "CopyIcon >NIL: -1 -r def_PPaint IPPAINT:PPaint"
  208.    Print >>I1 "Print *"OK*""
  209.  
  210.    If NOT EXISTS IPPAINT:Pictures
  211.      Print >>I1 "MakeDir IPPAINT:Pictures"
  212.    EndIf
  213.    If NOT EXISTS IPPAINT:Colors
  214.      Print >>I1 "MakeDir IPPAINT:Colors"
  215.    EndIf
  216.    If NOT EXISTS IPPAINT:Brushes
  217.      Print >>I1 "MakeDir IPPAINT:Brushes"
  218.    EndIf
  219.    If NOT EXISTS IPPAINT:Stencils
  220.      Print >>I1 "MakeDir IPPAINT:Stencils"
  221.    EndIf
  222.    If NOT EXISTS IPPAINT:Animations
  223.      Print >>I1 "MakeDir IPPAINT:Animations"
  224.    EndIf
  225.    If EXISTS IPPAINT:PPaint_Icons_1.info
  226.      Print >>I1 "Delete IPPAINT:PPaint_Icons_1.info QUIET"
  227.    EndIf
  228.    If EXISTS IPPAINT:PPaint_Icons_2
  229.      Print >>I1 "Rename >NIL: IPPAINT:PPaint_Icons_2 IPPAINT:PPaint_Icons"
  230.      Print >>I1 "Rename >NIL: IPPAINT:PPaint_Icons_2.info IPPAINT:PPaint_Icons.info"
  231.    EndIf
  232.    If NOT EXISTS IPPAINT:PPaint_Icons
  233.      Print >>I1 "MakeDir IPPAINT:PPaint_Icons"
  234.    EndIf
  235.    If NOT EXISTS IPPAINT:PPaint_Prefs
  236.      Print >>I1 "MakeDir IPPAINT:PPaint_Prefs"
  237.    EndIf
  238.    If NOT EXISTS IPPAINT:fonts
  239.      Print >>I1 "MakeDir > NIL: IPPAINT:fonts"
  240.    EndIf
  241.    If NOT EXISTS IPPAINT:PPaint_Tools
  242.      Print >>I1 "MakeDir > NIL: IPPAINT:PPaint_Tools"
  243.    EndIf
  244.    If NOT EXISTS IPPAINT:t
  245.      Print >>I1 "MakeDir IPPAINT:t"
  246.    EndIf
  247.    Print > MEMO_DEFDIRS ";"
  248.  
  249.    Print >>I1 "Print PLT_inficn"
  250.  
  251.    Version >NIL: graphics.library 36
  252.    If NOT WARN
  253.      Print >>I1 "Copy PPaint:PPaint_Prefs/II/PPaint IPPAINT: ALL CLONE QUIET"
  254.    Else
  255.      Print >>I1 "CopyIcon >NIL: -1 def_Drawer IPPAINT:Pictures"
  256.      Print >>I1 "CopyIcon >NIL: -1 def_Drawer IPPAINT:Colors"
  257.      Print >>I1 "CopyIcon >NIL: -1 def_Drawer IPPAINT:Brushes"
  258.      Print >>I1 "CopyIcon >NIL: -1 def_Drawer IPPAINT:Stencils"
  259.      Print >>I1 "CopyIcon >NIL: -1 def_Drawer IPPAINT:Animations"
  260.      Print >>I1 "CopyIcon >NIL: -1 -r def_Drawer IPPAINT:PPaint_Icons"
  261.      Print >>I1 "CopyIcon >NIL: -1 -r def_Drawer IPPAINT:PPaint_Tools"
  262.      Print >>I1 "CopyIcon >NIL: -1 -r def_Drawer IPPAINT:PPaint_Prefs"
  263.    EndIf
  264.  
  265.    Print >>I1 "CopyIcon >NIL: -1 -r def_AppIcon IPPAINT:PPaint_Icons/def_AppIcon"
  266.    Print >>I1 "CopyIcon >NIL: -1 -r def_Brush IPPAINT:PPaint_Icons/def_Brush"
  267.    Print >>I1 "CopyIcon >NIL: -1 -r def_Stencil IPPAINT:PPaint_Icons/def_Stencil"
  268.    Print >>I1 "CopyIcon >NIL: -1 -r def_Picture IPPAINT:PPaint_Icons/def_Picture"
  269.    Print >>I1 "CopyIcon >NIL: -1 -r def_Animation IPPAINT:PPaint_Icons/def_Animation"
  270.    Print >>I1 "CopyIcon >NIL: -1 -r def_Palette IPPAINT:PPaint_Icons/def_Palette"
  271.    Print >>I1 "CopyIcon >NIL: -1 -r def_Settings IPPAINT:PPaint_Icons/def_Settings"
  272.    Print >>I1 "CopyIcon >NIL: -1 -r def_Drawer IPPAINT:PPaint_Icons/def_Drawer"
  273.    Print >>I1 "Print *"OK*""
  274.  
  275.    Print >>I1 "Print PLT_infuit"
  276.    Print >>I1 "Copy PPaint:PPaint_Prefs/UIText.#? IPPAINT:PPaint_Prefs CLONE QUIET"
  277.    Print >>I1 "CopyIcon >NIL: -1 -r def_UIText IPPAINT:PPaint_Prefs/UIText.#?"
  278.    Print >>I1 "Print *"OK*""
  279.  
  280.    Print >>I1 "Print PLT_infprf"
  281.    Print >>I1 "Preserve IPPAINT:PPaint_Prefs/Startup_1.set"
  282.    Print >>I1 "Preserve IPPAINT:PPaint_Prefs/Startup_2.set"
  283.    Print >>I1 "Preserve IPPAINT:PPaint_Prefs/UIColors.12"
  284.    Print >>I1 "Copy PPaint:PPaint_Prefs/Startup_#? IPPAINT:PPaint_Prefs CLONE QUIET"
  285.    Print >>I1 "CopyIcon >NIL: -1 -r def_Settings IPPAINT:PPaint_Prefs/Startup_1.set"
  286.    Print >>I1 "CopyIcon >NIL: -1 -r def_Settings IPPAINT:PPaint_Prefs/Startup_2.set"
  287.    Print >>I1 "Copy PPaint:PPaint_Prefs/UIColors.#? IPPAINT:PPaint_Prefs CLONE QUIET"
  288.    Print >>I1 "CopyIcon >NIL: -1 -r def_Brush IPPAINT:PPaint_Prefs/UIColors.#?"
  289.    Print >>I1 "Print *"OK*""
  290.  
  291.    Print >>I1 "Print PLT_infcol"
  292.    Print >>I1 "Copy >NIL: PPaint:Colors IPPAINT:Colors ALL CLONE QUIET"
  293.    Print >>I1 "CopyIcon >NIL: -1 -r def_Palette IPPAINT:Colors/#?"
  294.    Print >>I1 "Print *"OK*""
  295.  
  296.    Print >>I1 "Print PLT_inffn1"
  297.    Print >>I1 "Copy PPaint:fonts/Personal.font IPPAINT:fonts CLONE"
  298.    Print >>I1 "Copy PPaint:fonts/Personal IPPAINT:fonts/Personal ALL CLONE QUIET"
  299.    Assign >NIL: FONTS: EXISTS
  300.    If NOT WARN
  301.      Print >>I1 "If EXISTS MEMO_FF"
  302.      Print >>I1 "  Copy PPaint:fonts/Personal.font FONTS: CLONE"
  303.      Print >>I1 "  Copy PPaint:fonts/Personal FONTS:Personal ALL CLONE QUIET"
  304.      Print >>I1 "EndIf"
  305.      Print > MEMO_FF ";1"
  306.    EndIf
  307.    Print >>I1 "Print *"OK*""
  308.  
  309.    Print >>I1 "Print PLT_infaud"
  310.    Print >>I1 "Copy >NIL: PPaint:CloantoAudio DEVS: CLONE"
  311.    Print >>I1 "Print *"OK*""
  312.  
  313.    Print >>I1 "Print PLT_infman"
  314.    Print >>I1 "Copy PPaint:PPaint.man IPPAINT: CLONE"
  315.    Print >>I1 "CopyIcon >NIL: -1 -r def_PPaint.man IPPAINT:PPaint.man"
  316.    Print >>I1 "Print *"OK*""
  317.  
  318.    Print >>I1 "Print PLT_infps"
  319.    Print >>I1 "Copy PPaint:PPaint_PS IPPAINT: CLONE"
  320.    Print >>I1 "CopyIcon >NIL: -1 -r def_PPaint_PS IPPAINT:PPaint_PS"
  321.    Print >>I1 "Print *"OK*""
  322.  
  323.    Print >>I1 "Print PLT_inftls"
  324.    Print >>I1 "Copy PPaint:PPaint_Tools IPPAINT:PPaint_Tools ALL CLONE QUIET"
  325.    Print >>I1 "CopyIcon >NIL: -1 -r def_AskAssign IPPAINT:PPaint_Tools/AskAssign"
  326.    Print >>I1 "Print *"OK*""
  327.  EndIf
  328.  
  329.  If EXISTS SYS:Classes/DataTypes
  330.    If EXISTS DEVS:DataTypes
  331.      Version >NIL: graphics.library 39
  332.      If NOT WARN
  333.        Print PLT_askjpg
  334.        CAsk "*e[31m ?"
  335.        If WARN
  336.          Print > MEMO_JPEG ";"
  337.          Print >>I1 "Print PLT_infjpg"
  338.          Print >>I1 "Copy >NIL: PPaint:JPEG/Devs/DataTypes/#? DEVS:DataTypes ALL CLONE QUIET"
  339.          Print >>I1 "Copy >NIL: PPaint:JPEG/Classes/DataTypes/#? SYS:Classes/DataTypes ALL CLONE QUIET"
  340.          Print >>I1 "Print *"OK*""
  341.        EndIf
  342.      EndIf
  343.    EndIf
  344.  EndIf
  345.  
  346.  If EXISTS DEVS:Printers
  347.    Print PLT_askhpd
  348.    CAsk "*e[31m ?"
  349.    If WARN
  350.      Print >>I1 "Print PLT_infhpd"
  351.      Print >>I1 "Copy >NIL: PPaint:HP_DeskJet/Devs/Printers/#? DEVS:Printers ALL CLONE QUIET"
  352.      Print >>I1 "Print *"OK*""
  353.    EndIf
  354.  EndIf
  355.  
  356.  Print PLT_askfn1
  357.  CAsk "*e[31m ?"
  358.  If WARN
  359.    Assign >NIL: FONTS: EXISTS
  360.    If NOT WARN
  361.      Print >>I1 "If EXISTS MEMO_FF"
  362.      Print >>I1 "  Print PLT_inffn2"
  363.      Print >>I1 "  Copy >NIL: PPaint:fonts FONTS: ALL CLONE QUIET"
  364.      Print >>I1 "  Print *"OK*""
  365.      Print >>I1 "EndIf"
  366.      Print > MEMO_FF ";2"
  367.    EndIf
  368.  Else
  369.    Print PLT_askfn2
  370.    CAsk "*e[31m ?"
  371.    If WARN
  372.      Print > MEMO_NOBACK ";"
  373.      CD IPPAINT:
  374.      Execute RAM:IPT/PLC_fpath
  375.      If NOT WARN
  376.        CD RAM:IPT
  377.        Print >>I1 "Print PLT_inffn2"
  378.        Print >>I1 "Copy PPaint:fonts IFONTS: ALL CLONE QUIET"
  379.        Print >>I1 "Print *"OK*""
  380.      EndIf
  381.      CD RAM:IPT
  382.    EndIf
  383.  EndIf
  384.  
  385.  Print PLT_askpic
  386.  CAsk "*e[31m ?"
  387.  If WARN
  388.    If NOT EXISTS IPPAINT:Pictures
  389.      If NOT EXISTS MEMO_DEFDIRS
  390.        Print >>I2 "MakeDir IPPAINT:Pictures"
  391.        Print >>I2 "CopyIcon >NIL: -1 def_Drawer IPPAINT:Pictures"
  392.      EndIf
  393.    EndIf
  394.    Print >>I2 "Print PLT_infpic"
  395.    Print >>I2 "If EXISTS PPaint_2:Pictures"
  396.    Print >>I2 "  Copy >NIL: PPaint_2:Pictures IPPAINT:Pictures ALL CLONE QUIET"
  397.    Print >>I2 "  CopyIcon >NIL: -1 -r def_Picture IPPAINT:Pictures/#?"
  398.    Print >>I2 "EndIf"
  399.    Print >>I2 "Print *"OK*""
  400.  EndIf
  401.  
  402.  Print PLT_askanm
  403.  CAsk "*e[31m ?"
  404.  If WARN
  405.    If NOT EXISTS IPPAINT:Animations
  406.      If NOT EXISTS MEMO_DEFDIRS
  407.        Print >>I2 "MakeDir IPPAINT:Animations"
  408.        Print >>I2 "CopyIcon >NIL: -1 def_Drawer IPPAINT:Animations"
  409.      EndIf
  410.    EndIf
  411.    Print >>I2 "Print PLT_infanm"
  412.    Print >>I2 "If EXISTS PPaint_2:Animations"
  413.    Print >>I2 "  Copy >NIL: PPaint_2:Animations/#?.anim#? IPPAINT:Animations ALL CLONE QUIET"
  414.    Print >>I2 "  If EXISTS PPaint_2:Animations/Anims.lzh"
  415.    Print >>I2 "    Delete >NIL: IPPAINT:Animations/Anims.lzh QUIET"
  416.    Print >>I2 "    PPaint_2:c/Lharc >NIL: -a -m -n e PPaint_2:Animations/Anims.lzh IPPAINT:Animations/"
  417.    Print >>I2 "  EndIf"
  418.    Print >>I2 "  CopyIcon >NIL: -1 -r def_Animation IPPAINT:Animations/#?"
  419.    Print >>I2 "EndIf"
  420.    Print >>I2 "Print *"OK*""
  421.  EndIf
  422.  
  423.  If EXISTS Deplode
  424.    Print PLT_askdec
  425.    CAsk "*e[31m ?"
  426.    If WARN
  427.      Print > MEMO_DEC ";"
  428.    EndIf
  429.  EndIf
  430.  
  431.  Print ""
  432.  Print PLT_askok
  433.  CAsk -y "*e[31m ?"
  434.  If NOT WARN
  435.    If EXISTS MEMO_NOBACK
  436.      Skip End1
  437.    EndIf
  438.    Print PLT_title
  439.    Print PLT_askrep
  440.    CAsk -y "*e[31m ?"
  441.    If WARN
  442.      If EXISTS MEMO_DEFDIRS
  443.        Delete MEMO_DEFDIRS QUIET
  444.      EndIf
  445.      If EXISTS MEMO_FF
  446.        Delete MEMO_FF QUIET
  447.      EndIf
  448.      If EXISTS MEMO_JPEG
  449.        Delete MEMO_JPEG QUIET
  450.      EndIf
  451.      If EXISTS MEMO_PICS
  452.        Delete MEMO_PICS QUIET
  453.      EndIf
  454.      If EXISTS MEMO_DEC
  455.        Delete MEMO_DEC QUIET
  456.      EndIf
  457.      Print PLT_title
  458.      Skip Questions BACK
  459.    Else
  460.      Skip End1
  461.    EndIf
  462.  EndIf
  463.  
  464.  Print PLT_title
  465.  Print PLT_infbeg
  466.  ShowPath -f IPPAINT:
  467.  Print "*e[33m"
  468.  
  469.  If EXISTS MEMO_FF
  470.    Copy >NIL: PP_WriteOK FONTS:
  471.    If EXISTS FONTS:PP_WriteOK
  472.      Delete >NIL: FONTS:PP_WriteOK
  473.      If EXISTS SYS:System/FixFonts
  474.        Copy >NIL: SYS:System/FixFonts RAM:IPT
  475.        Print >>I2 "Print PLT_inffix"
  476.        Print >>I2 "FixFonts"
  477.        Print >>I2 "Print *"OK*""
  478.      EndIf
  479.    Else
  480.      Delete MEMO_FF QUIET
  481.    EndIf
  482.  EndIf
  483.  
  484.  CopyIcon >NIL: -1 def_Drawer IPPAINT: 1 1 415 195
  485.  
  486.  Execute I1
  487.  Execute I2
  488.  Wait 2 SECS
  489.  
  490.  Print PLT_title
  491.  Print N "*e[31;1m"
  492.  Print PLT_infend
  493.  Print "*e[0m*N"
  494.  Print PLT_trladd
  495.  Print N "*N*e[33m          Assign PPaint: "
  496.  ShowPath IPPAINT:
  497.  Print "*e[31m"
  498.  Print PLT_trlfl1
  499.  Print PLT_trlfl2
  500.  
  501.  Assign >NIL: S: EXISTS
  502.  If NOT WARN
  503.    Print ""
  504.  
  505.    Print PLT_askust
  506.    CAsk -y "*e[31m ?"
  507.    If WARN
  508.      Copy >NIL: PP_WriteOK S:
  509.      If EXISTS S:PP_WriteOK
  510.        If NOT EXISTS S:user-startup
  511.          Print >S:user-startup "; BEGIN Personal Paint"
  512.        Else
  513.          Print >>S:user-startup "*N; BEGIN Personal Paint"
  514.        EndIf
  515.        Print >>S:user-startup "Assign >NIL: PPAINT: EXISTS"
  516.        Print >>S:user-startup N "If NOT WARN*N  Failat 21*N  EndIf*NAssign >NIL: PPAINT: "
  517.        ShowPath >>S:user-startup IPPAINT:
  518.        Print >>S:user-startup "; END Personal Paint"
  519.        Delete >NIL: S:PP_WriteOK
  520.      EndIf
  521.    EndIf
  522.  
  523.    If EXISTS MEMO_JPEG
  524.      Print PLT_askjst
  525.      CAsk -y "*e[31m ?"
  526.      If WARN
  527.        Copy >NIL: PP_WriteOK S:
  528.        If EXISTS S:PP_WriteOK
  529.          Assign >NIL: T: EXISTS
  530.          If NOT WARN
  531.            CD T:
  532.          EndIf
  533.          Execute RAM:IPT/PLC_jpath
  534.          If NOT WARN
  535.            CD RAM:IPT
  536.            If NOT EXISTS S:user-startup
  537.              Print >S:user-startup "; BEGIN JPEG DataType"
  538.            Else
  539.              Print >>S:user-startup "*N; BEGIN JPEG DataType"
  540.            EndIf
  541.            Print >>S:user-startup "Assign >NIL: JPEGTMP: EXISTS"
  542.            Print >>S:user-startup N "If NOT WARN*N  Failat 21*N  EndIf*NAssign >NIL: JPEGTMP: "
  543.            ShowPath >>S:user-startup JPEGTMP:
  544.            Print >>S:user-startup "; END JPEG DataType"
  545.          EndIf
  546.          CD RAM:IPT
  547.          Delete >NIL: S:PP_WriteOK
  548.        EndIf
  549.      EndIf
  550.    EndIf
  551.  
  552.  EndIf
  553.  
  554.  Assign >NIL: IFONTS: EXISTS
  555.  If NOT WARN
  556.    Print ""
  557.    Print PLT_trlfnt
  558.    ShowPath IFONTS:
  559.    Print "*e[31m"
  560.  EndIf
  561.  
  562.  Lab End1
  563.  
  564.  Assign IPPAINT:
  565.  Assign IFONTS:
  566.  
  567.  Wait 1 SECS
  568.  Print ""
  569.  Print PLT_askend
  570.  CAsk ""
  571.  
  572. Else
  573.  CD RAM:IPT
  574.  Print N "*e[31;1m"
  575.  Print PLT_trlkll
  576.  Wait 3 SECS
  577. EndIf
  578.  
  579. Lab End2
  580. CD RAM:t
  581. Delete > NIL: RAM:IPT ALL QUIET
  582. Delete > NIL: Delete
  583.