home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 95 / af095a.adf / c / start.lzx / c / 1 next >
Text File  |  2001-09-19  |  4KB  |  162 lines
  1. lab 63
  2. assign AF95a: exists >ram:necessary
  3. search ram:necessary "Mounted" >nil:
  4. if warn
  5. echo "*EcPlease insert the *E[33m*E[3mAmiga Format*E[0m Coverdisk."
  6. else
  7. skip 64
  8. endif
  9. skip 63 back
  10. lab 64
  11. endif
  12. delete ram:necessary quiet
  13. echo "*EcWould you like to install to a floppy or hard drive?"
  14. echo "Enter either 'f' or 'h' (the default for this is still floppy)."
  15. setenv >nil: type ?
  16. if not exists ram:type
  17. skip 1
  18. endif
  19. if not $type EQ h
  20. skip 1
  21. lab 9
  22. endif
  23. echo "Could you please now enter the path name for your hard drive?"
  24. echo "E.g. 'dh0:', 'work:test/', etc..."
  25. setenv >nil: pathname ?
  26. assign source: AF95a:archives/
  27. failat 21
  28. cd $pathname >nil:
  29. if fail
  30. failat 10
  31. skip 9 back
  32. endif
  33. failat 10
  34. echo "*EcOK... Installing disk."
  35. unlzx -a -q -bi24 x source:tcalc.lzx ""
  36. echo "To install the documents we need to know which version of WB you use."
  37. echo "Do you use Workbench 2.1 or Workbench 3?"
  38. ask "Type 'y' for WB2 or 'n' for WB3?"
  39. if warn
  40. unlzx -a -q -bi24 x source:manual2.lzx ""
  41. unlzx -a -q -bi24 x source:pictures.lzx ""
  42. else
  43. unlzx -a -q -bi24 x source:manual3.lzx ""
  44. unlzx -a -q -bi24 x source:pictures.lzx ""
  45. endif
  46. skip 10
  47. lab 1
  48. endif
  49. echo "*EcPlease wait..."
  50. copy AF95a:archives/Tcalc.lzx ram: BUF=10
  51. assign source: ram:
  52. echo "*EcYou must have a spare disk ready."
  53. setenv pathname "df0:"
  54. lab 3
  55. echo "Insert the spare disk into df0: (your internal drive)"
  56. ask "and press the <return> key."
  57. info df0: >ram:check
  58. search ram:check "af95" >nil:
  59. if warn
  60. skip 4
  61. endif
  62. echo "An Amiga Format disk is in df0:"
  63. skip 3 back
  64. lab 4
  65. search ram:check "No disk present" >nil:
  66. if warn
  67. skip 5
  68. endif
  69. echo "No disk detected in df0:"
  70. skip 3 back
  71. lab 5
  72. search ram:check "837k" >nil:
  73. if not warn
  74. skip 6
  75. endif
  76. search ram:check "879k" >nil:
  77. if not warn
  78. skip 6
  79. endif
  80. skip 7
  81. lab 6
  82. endif
  83. format drive df0: name "TurboCalc2" noicons FFS quick <ram:go >nil:
  84. skip 8
  85. lab 7
  86. format drive df0: name "TurboCalc2" noicons FFS <ram:go >nil:
  87. lab 8
  88. cd $pathname >nil:
  89. echo "*EcInstalling disk."
  90. copy ram:disk.info df0:
  91. unlzx -a -q -bi24 x source:TCalc.lzx ""
  92. delete ram:TCalc.lzx
  93. lab 163
  94. assign AF95a: exists >ram:necessary
  95. search ram:necessary "Mounted" >nil:
  96. if warn
  97. echo "*EcPlease insert the *E[33m*E[3mAmiga Format*E[0m Coverdisk."
  98. else
  99. skip 164
  100. endif
  101. skip 163 back
  102. lab 164
  103. endif
  104. delete ram:necessary quiet
  105. echo "*EcTo install the documents we need to know which version of WB you use."
  106. echo "Do you use Workbench 2.1 or Workbench 3?"
  107. ask "Type 'y' for WB2 or 'n' for WB3?"
  108. if warn
  109. copy af95a:archives/manual2.lzx ram:manual.lzx BUF=10
  110. else
  111. copy af95a:archives/manual3.lzx ram:manual.lzx BUF=10
  112. endif
  113. assign source: ram:
  114. echo "*EcYou must have a spare disk ready."
  115. setenv pathname "df0:"
  116. lab 13
  117. echo "Insert the spare disk into df0: (your internal drive)"
  118. ask "and press the <return> key."
  119. info df0: >ram:check
  120. search ram:check "af95" >nil:
  121. if warn
  122. skip 14
  123. endif
  124. echo "An Amiga Format disk is in df0:"
  125. skip 13 back
  126. lab 14
  127. search ram:check "No disk present" >nil:
  128. if warn
  129. skip 15
  130. endif
  131. echo "No disk detected in df0:"
  132. skip 13 back
  133. lab 15
  134. search ram:check "837k" >nil:
  135. if not warn
  136. skip 16
  137. endif
  138. search ram:check "879k" >nil:
  139. if not warn
  140. skip 16
  141. endif
  142. skip 17
  143. lab 16
  144. endif
  145. format drive df0: name "Manual" noicons FFS quick <ram:go >nil:
  146. skip 18
  147. lab 17
  148. format drive df0: name "Manual" noicons FFS <ram:go >nil:
  149. lab 18
  150. cd $pathname >nil:
  151. echo "*EcInstalling disk."
  152. copy ram:disk.info df0:
  153. unlzx -a -q -bi24 x source:manual.lzx ""
  154. delete ram:manual.lzx
  155. lab 10
  156. delete ram:pathname quiet
  157. if exists ram:type
  158. delete ram:type quiet
  159. endif
  160. assign source: remove
  161. type ram:main
  162.