home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u303.dms / in.adf / RAMOS1_2_Install.AMOS / RAMOS1_2_Install.amosSourceCode
Encoding:
AMOS Source Code  |  1990-11-07  |  3.7 KB  |  130 lines
  1. '                       RAMOS1.2 Installation Program  
  2. '
  3. '                        By P.J.Hickman & R. Vanner  
  4. '
  5. '                1/2 Meg users please read this message:   
  6. '
  7. ' Run this program alone, without loading any other accessories or 
  8. ' programs beforehand. 
  9. '
  10. ' Note: Only uses Df0: 
  11. '
  12. ' When the program refers to 'AMOS:' it means a copy of your disc master 
  13. ' labeled "AMOS Program Disc", when it refers to 'AMOS 1.2 Update!'  
  14. ' the program wants the updater disc.    
  15. '
  16. ' Have fun and read my new AMOS column in AMIGA Computing.     
  17. '
  18. Default 
  19. Screen Close 0 : Close Editor 
  20. SET_UP_SCREEN
  21. Dim FILE$(6)
  22. Global DISC$,FOLDER$,FILE$(),NAME$
  23. Restore C0PY_DATA : Cls 0
  24. Centre At(,2)+Border$("RAMOS1.2 installer V.1",2)
  25. Centre At(,5)+Border$("I hope you have a freshly formatted disc for me!",1)
  26. Centre At(,9)+Border$("Press any key to start",1) : Clear Key : Wait Key : Cls 0
  27. NIN=1
  28. Repeat 
  29.    Read DISC$
  30.    If DISC$<>"-1"
  31.       Read NAME$,FOLDER$
  32.       TEMP$="Df0:"+Left$(FOLDER$,Len(FOLDER$)-1)
  33.       If NIN=1
  34.          PAUSE_FOR_USER
  35.       End If 
  36.       NIN=0
  37.       If Not Exist(TEMP$)
  38.          Mkdir TEMP$
  39.       End If 
  40.       Read TIME
  41.       For LOP=1 To TIME
  42.          Read FILE$(LOP) : FILE_READ[FOLDER$+FILE$(LOP),LOP+5]
  43.       Next LOP
  44.       PAUSE_FOR_USER
  45.       For LOP=1 To TIME : FILE_WRITE[FOLDER$+FILE$(LOP),LOP+5]
  46.       Next LOP
  47.    End If 
  48. Until DISC$="-1"
  49. Cls 0 : Centre At(,5)+Border$("Writing Startup-Sequence.......",2)
  50. If Not Exist("Df0:s/")
  51.    Mkdir "Df0:s"
  52. End If 
  53. '
  54. DISC$="AMOS 1.2 Update!:"
  55. FILE_READ["RAMOS_startup",5]
  56. PAUSE_FOR_USER
  57. FILE_WRITE["s/startup-sequence",5]
  58. '
  59. Wait 10 : Cls 0
  60. Centre At(,2)+"Now go to the CLI and INSTALL your disc."
  61. Centre At(,5)+"Remember when saving your program on this disc"
  62. Centre At(,9)+"to call it AUTOEXEC.AMOS"
  63. Clear Key 
  64. Wait Key 
  65. Default 
  66. End 
  67. Procedure SET_UP_SCREEN
  68.    Screen Open 0,640,100,2,Hires
  69.    Flash Off : Curs Off : Cls 0 : Hide On 
  70.    Palette 0,$FFF
  71.    Paper 0
  72. End Proc
  73. Procedure FILE_READ[SOURCE$,BANK]
  74.    PAUSE_FOR_DISC[DISC$]
  75.    Open In 1,DISC$+SOURCE$
  76.    L=Lof(1)
  77.    Close 
  78.    Reserve As Work BANK,L
  79.    Cls 0
  80.    Centre At(,5)+"READING FILE  '"+DISC$+SOURCE$+"'"
  81.    Bload DISC$+SOURCE$,Start(BANK)
  82. End Proc
  83. Procedure FILE_WRITE[SOURCE$,BANK]
  84.    Cls 0
  85.    Centre At(,5)+"WRITING FILE  'DF0:"+SOURCE$+"'"
  86.    Bsave "Df0:"+SOURCE$,Start(BANK) To Start(BANK)+Length(BANK)
  87.    Erase BANK
  88. End Proc
  89. Procedure PAUSE_FOR_DISC[D$]
  90.    While Not Exist(D$)
  91.       Boom 
  92.       Cls 0
  93.       Centre At(,5)+Border$("Insert the "+NAME$+" disc into Df0:",2)
  94.       Repeat 
  95.       Until Exist(D$)
  96.       Clear Key 
  97.    Wend 
  98. End Proc
  99. Procedure PAUSE_FOR_USER
  100.    Bell 
  101.    Cls 0
  102.    Centre At(,5)+Border$("Insert your OWN disc into Df0:",2)
  103.    Centre At(,9)+Border$("Press any key when ready",2)
  104.    Clear Key 
  105.    Repeat 
  106.       WATING:
  107.       If Exist("AMOS:") or Exist("AMOS 1.2 Update!:") Then Goto WATING
  108.    Until Exist("Df0:") and(Inkey$<>"" or Mouse Click)
  109.    Clear Key 
  110. End Proc
  111. 'Disc, folder, amount of proggies to copy  
  112. C0PY_DATA:
  113. Data "AMOS:","AMOS Programs disc","AMOS_System/",6
  114. Data "Compact","Default.Font","Default.Key","Mouse.Abk","Music","Request"
  115. Data "AMOS:","AMOS Programs disc","c/",2
  116. Data "DiskChange","Mount"
  117. Data "AMOS:","AMOS Programs disc","devs/",5
  118. Data "Narrator.Device","Parallel.Device","Printer.Device","Serial.Device","System-Configuration"
  119. Data "AMOS:","AMOS Programs disc","libs/",5
  120. Data "Diskfont.Library","Icon.Library","Mathieeedoubbas.Library","Mathtrans.Library","Translator.Library"
  121. Data "AMOS:","AMOS Programs disc","l/",4
  122. Data "Disk-Validator","Fastfilesystem","Port-Handler","Speak-Handler"
  123. Data "AMOS 1.2 Update!:","AMOS Updater disc","c/",2
  124. Data "Run"
  125. Data "ENDCLI"
  126. Data "AMOS 1.2 Update!:","AMOS Updater disc","AMOS_System/",1
  127. Data "RAMOS1_2.Env"
  128. Data "AMOS 1.2 Update!:","AMOS Updater disc","",1
  129. Data "RAMOS1.2"
  130. Data "-1"