StarInfo/Pearson/!3DRamFree/!RunImage

Home » Archimedes archive » Acorn User » AU 1994-Xmas.adf » Programs » StarInfo/Pearson/!3DRamFree/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Acorn User » AU 1994-Xmas.adf » Programs
Filename:	StarInfo/Pearson/!3DRamFree/!RunImage
Read OK:	✔
File size:	227E bytes
Load address:	0000
Exec address:	0000

File contents

   10REM "<3DRamFree$Dir>.!RunImage"
   20REM Nick Pearson, 20/6/94
   30ON ERROR PROCerror:END
   40PROCtitle
   50PROCinitialise
   60PROCcreatedirs
   70PROCcopyromapps
   80PROCmoveoldboot
   90PROCexamineoldboot
  100PROCcreatenewboot
  110PROCjoinboots
  120PROCcopyapps3dmods
  130PROCend
  140END
  150
  160DEFPROCerror
  170OSCLI "Close"
  180IF ERR = 17 PROCend
  190PRINT "Line = ";ERL
  200PRINT "Error = ";ERR
  210ENDPROC
  220
  230DEFPROCtitle
  240PRINT "Installation of disc based template files for the"
  250PRINT "Rom applications, this will release 84k of RAM."
  260
  270ENDPROC
  280
  290DEFPROCinitialise
  300DIM block% 255
  310bootline$=""
  320borderutil%=FALSE
  330desktop%=&FEA
  340boot%=255
  350boottype%=FALSE
  360newline%=10
  370OSCLI "Set Res$Dir Resources:$.Resources"
  380syslocation$=FNgetsystemvariable("System$Dir")
  390bootlocation$=LEFT$(syslocation$,INSTR(syslocation$,"$",1))+"."
  400bootfullname$=bootlocation$+"!Boot"
  410bootpath$=bootlocation$+CHR$(0)
  420PROCbootid
  430ENDPROC
  440
  450DEFPROCbootid
  460PRINT '"Checking for the existance of a !Boot file."
  470SYS "OS_File",21,"!Boot",,,bootpath$ TO type%,,,,,,filetype%
  480CASE type% OF
  490 WHEN 0 :boot%=FALSE:PRINT "No !Boot file found."
  500 WHEN 1 :boot%=TRUE:PRINT "!Boot file found at ";bootfullname$
  510 WHEN 2 :boot%=2:PRINT "Application !Boot file found"
  520ENDCASE
  530PRINT '"Examining boot options set by *Opt 4,n"
  540SYS "OS_FSControl",47,syslocation$ TO ,,option%
  550CASE option% OF
  560 WHEN 0 :PRINT "*Opt 4 set to 0 (no boot action).":PROCsetopt
  570 WHEN 1 :PRINT "*Opt 4 set to 1 (*Load boot file).":REM why?
  580        :IF boot%=FALSE THEN PROCsetopt
  590 WHEN 2 :PRINT "*Opt 4 set to 2 (*Run boot file)."
  600        :IF boot%=FALSE THEN PROCsetopt
  610 WHEN 3 :PRINT "*Opt 4 set to 3 (*Exec boot file)."
  620ENDCASE
  630CASE filetype% OF
  640 WHEN -1    :
  650 WHEN &1000 :boot%=1:REM directory
  660 WHEN &2000 :boot%=2:PROCapplication:PROCend:REM application
  670 WHEN &FEA  :boottype%=TRUE:REM desktop
  680 WHEN &FEB  :boottype%=TRUE:REM obey
  690 WHEN &FFE  :boottype%=TRUE:REM command
  700 OTHERWISE  :PROCunknownfiletype:PROCend
  710ENDCASE
  720ENDPROC
  730
  740DEFPROCunknownfiletype
  750PRINT '"Your !Boot file is an unexpected file type and might"
  760PRINT "be an important program so I will not attempt to"
  770PRINT "alter it. See the help file for further information."
  780ENDPROC
  790
  800DEFPROCapplication
  810PRINT '"Your !Boot file is an application directory,which"
  820PRINT "is normally found on the new RiscPC. If this is a"
  830PRINT "RiscPC then you do not need the benefits this"
  840PRINT "program offers as they are already implemented as"
  850PRINT "standard."
  860PRINT '"If this isn't a RiscPC then you must have altered"
  870PRINT "your !Boot file implementation to look like one,"
  880PRINT "which means you probably know what you're doing"
  890PRINT "and will be able to modify this program to suit"
  900PRINT "your needs. If not, then revert back to a standard"
  910PRINT "!Boot set up, run this program, and then set up your"
  920PRINT "file as is was. Thank you for your co-operation."
  930ENDPROC
  940
  950DEFPROCsetopt
  960PRINT '"Issuing *Opt 4,3 to enable automatic boot up."
  970SYS "OS_FSControl",48,syslocation$,3
  980ENDPROC
  990
 1000DEFFNgetsystemvariable(sysvar$)
 1010!block%=0
 1020SYS "XOS_ReadVarVal",sysvar$,block%,-1,0,3 TO ,,length%
 1030SYS "OS_ReadVarVal",sysvar$,block%,255,0,3
 1040varval$=""
 1050FOR loop% = length% TO -2
 1060varval$+=CHR$?block%
 1070block%+=1
 1080NEXT
 1090=varval$
 1100
 1110DEFPROCcreatedirs
 1120PRINT '"About to create Templates directory"
 1130PRINT "in " syslocation$'
 1140PRINT "Press the Space Bar to continue or Esc to quit";
 1150REPEAT UNTIL GET=32
 1160PRINT ''"Creating Templates directory...."
 1170OSCLI "CDIR <System$Dir>.Templates"
 1180OSCLI "CDIR <System$Dir>.Templates.ADFSFiler"
 1190OSCLI "CDIR <System$Dir>.Templates.Alarm"
 1200OSCLI "CDIR <System$Dir>.Templates.AppDraw"
 1210OSCLI "CDIR <System$Dir>.Templates.Calc"
 1220OSCLI "CDIR <System$Dir>.Templates.Configure"
 1230OSCLI "CDIR <System$Dir>.Templates.Draw"
 1240OSCLI "CDIR <System$Dir>.Templates.Edit"
 1250OSCLI "CDIR <System$Dir>.Templates.Filer"
 1260OSCLI "CDIR <System$Dir>.Templates.FilerAct"
 1270OSCLI "CDIR <System$Dir>.Templates.Free"
 1280OSCLI "CDIR <System$Dir>.Templates.Help"
 1290OSCLI "CDIR <System$Dir>.Templates.NetFiler"
 1300OSCLI "CDIR <System$Dir>.Templates.Paint"
 1310OSCLI "CDIR <System$Dir>.Templates.Palette"
 1320OSCLI "CDIR <System$Dir>.Templates.PinBoard"
 1330OSCLI "CDIR <System$Dir>.Templates.Printers"
 1340OSCLI "CDIR <System$Dir>.Templates.Switcher"
 1350OSCLI "CDIR <System$Dir>.Templates.Wimp"
 1360ENDPROC
 1370
 1380DEFPROCcopyromapps
 1390PRINT'"Copying template files from RomApps3D..."
 1400OSCLI "Copy <Res$Dir>.ADFSFiler.Templates <System$Dir>.Templates.ADFSFiler.Templates ~C ~V"
 1410OSCLI "Copy <Res$Dir>.Alarm.Templates <System$Dir>.Templates.Alarm.Templates ~C ~V"
 1420OSCLI "Copy <Res$Dir>.AppDraw.Templates <System$Dir>.Templates.AppDraw.Templates ~C ~V"
 1430OSCLI "Copy <Res$Dir>.AppDraw.Sprites <System$Dir>.Templates.AppDraw.Sprites ~C ~V"
 1440OSCLI "Copy <Res$Dir>.Calc.Templates <System$Dir>.Templates.Calc.Templates ~C ~V"
 1450OSCLI "Copy <Res$Dir>.Calc.!RunImage <System$Dir>.Templates.Calc.!RunImage ~C ~V"
 1460OSCLI "Copy <Res$Dir>.Configure.Templates <System$Dir>.Templates.Configure.Templates ~C ~V"
 1470OSCLI "Copy <Res$Dir>.Edit.Templates <System$Dir>.Templates.Edit.Templates ~C ~V"
 1480OSCLI "Copy <Res$Dir>.Filer.Templates <System$Dir>.Templates.Filer.Templates ~C ~V"
 1490OSCLI "Copy <Res$Dir>.FilerAct.Templates <System$Dir>.Templates.FilerAct.Templates ~C ~V"
 1500OSCLI "Copy <Res$Dir>.Free.Templates <System$Dir>.Templates.Free.Templates ~C ~V"
 1510OSCLI "Copy <Res$Dir>.Help.Templates <System$Dir>.Templates.Help.Templates ~C ~V"
 1520OSCLI "Copy <Res$Dir>.NetFiler.Templates <System$Dir>.Templates.NetFiler.Templates ~C ~V"
 1530OSCLI "Copy <Res$Dir>.Paint.Templates <System$Dir>.Templates.Paint.Templates ~C ~V"
 1540OSCLI "Copy <Res$Dir>.Paint.Sprites <System$Dir>.Templates.Paint.Sprites ~C ~V"
 1550OSCLI "Copy <Res$Dir>.Palette.Templates <System$Dir>.Templates.Palette.Templates ~C ~V"
 1560OSCLI "Copy <Res$Dir>.Pinboard.Templates <System$Dir>.Templates.Pinboard.Templates ~C ~V"
 1570OSCLI "Copy <Res$Dir>.Printers.Templates <System$Dir>.Templates.Printers.Templates ~C ~V"
 1580OSCLI "Copy <Res$Dir>.Switcher.Templates <System$Dir>.Templates.Switcher.Templates ~C ~V"
 1590OSCLI "Copy <Res$Dir>.Wimp.Templates <System$Dir>.Templates.Wimp.Templates ~C ~V"
 1600ENDPROC
 1610
 1620DEFPROCmoveoldboot
 1630IF boot%=FALSE THEN ENDPROC
 1640PRINT '"Copying existing "+bootfullname$+" file to "
 1650PRINT syslocation$+".Templates.Old!Boot"
 1660PRINT "for safe keeping."
 1670OSCLI "Copy "+bootfullname$+" <System$Dir>.Templates.Old!Boot F D ~C ~V"
 1680ENDPROC
 1690
 1700DEFPROCexamineoldboot
 1710IF boot%=FALSE THEN ENDPROC
 1720borderutil%=FALSE
 1730PRINT '"Examining your old !Boot file."
 1740readboot%=OPENIN("<System$Dir>.Templates.Old!Boot")
 1750REPEAT
 1760 bootline$=""
 1770  REPEAT
 1780   char%=BGET#(readboot%)
 1790   IF char% <> 10 THEN bootline$+=CHR$char%
 1800  UNTIL char%=10 OR PTR#readboot%=EXT#readboot%
 1810 IF RIGHT$(bootline$,10)="BorderUtil" THEN
 1820  PRINT 'bootline$+" found, all is well."
 1830  borderutil%=TRUE
 1840 ENDIF
 1850UNTIL PTR#readboot%=EXT#readboot%
 1860CLOSE#readboot%
 1870IF borderutil%=FALSE THEN
 1880 PRINT '"BorderUtils module not found."
 1890ENDIF
 1900ENDPROC
 1910
 1920DEFPROCcreatenewboot
 1930REM Make sure the configured boot action runs a boot file
 1940OSCLI "Configure Boot"
 1950PRINT '"Creating new !Boot at "+bootfullname$
 1960writeboot%=OPENOUT(bootfullname$)
 1970BPUT#writeboot%,"| **  Location of !System  **"
 1980BPUT#writeboot%,"Set System$Dir "+syslocation$
 1990BPUT#writeboot%,"| **  Start of RomApps3D paths.  **"
 2000BPUT#writeboot%,"Set Filer$Path <System$Dir>.Templates.Filer.,<Filer$Path>"
 2010BPUT#writeboot%,"Set FilerAct$Path <System$Dir>.Templates.FilerAct.,<FilerAct$Path>"
 2020BPUT#writeboot%,"Set Palette$Path <System$Dir>.Templates.Palette.,<Palette$Path>"
 2030BPUT#writeboot%,"Set Switcher$Path <System$Dir>.Templates.Switcher.,<Switcher$Path>"
 2040BPUT#writeboot%,"Set ADFSFiler$Path <System$Dir>.Templates.ADFSFiler.,<ADFSFiler$Path>"
 2050BPUT#writeboot%,"Set Free$Path <System$Dir>.Templates.Free.,<Free$Path>"
 2060BPUT#writeboot%,"Set Pinboard$Path <System$Dir>.Templates.Pinboard.,<Pinboard$Path>"
 2070BPUT#writeboot%,"|  **  End of RomApps3D paths.  **"
 2080BPUT#writeboot%,"RMensure Apps3Dmods 1.50 RMload <System$Dir>.Modules.Apps3Dmods"
 2090IF borderutil%=FALSE THEN
 2100 BPUT#writeboot%,"RMensure BorderUtils 0.02 RMload <System$Dir>.Modules.BorderUtil"
 2110 PRINT '"Adding RMensure BorderUtils to !Boot file."
 2120ENDIF
 2130IF boot%=FALSE THEN BPUT#writeboot%,"DeskTop"
 2140CLOSE#writeboot%
 2150IF boot%=TRUE AND boottype%=TRUE THEN SYS "OS_File",18,bootfullname$,filetype%
 2160IF boot%=FALSE THEN SYS "OS_File",18,bootfullname$,desktop%
 2170ENDPROC
 2180
 2190DEFPROCjoinboots
 2200IF boot%=FALSE THEN ENDPROC
 2210PRINT '"Adding your old !Boot to the new !Boot"
 2220readboot%=OPENIN("<System$Dir>.Templates.Old!Boot")
 2230writeboot%=OPENUP(bootfullname$)
 2240PTR#writeboot%=EXT#writeboot%
 2250REPEAT
 2260 bootline$=""
 2270  REPEAT
 2280   char%=BGET#(readboot%)
 2290   IF char% <> 10 THEN bootline$+=CHR$char%
 2300  UNTIL char%=10 OR PTR#readboot%=EXT#readboot%
 2310 IF RIGHT$(bootline$,9)="ROMApps3D" THEN
 2320  PRINT 'bootline$
 2330  PRINT "has been removed from the !Boot file."
 2340  bootline$=""
 2350 ENDIF
 2360 IF bootline$ <> "" BPUT#writeboot%,bootline$
 2370UNTIL PTR#readboot%=EXT#readboot%
 2380CLOSE#readboot%
 2390CLOSE#writeboot%
 2400ENDPROC
 2410
 2420DEFPROCcopyapps3dmods
 2430PRINT '"Copying Apps3Dmods to "
 2440PRINT syslocation$+".Modules.Apps3Dmods"
 2450OSCLI "Copy <3DRamFree$Dir>.Apps3Dmods <System$Dir>.Modules.Apps3Dmods F ~C ~V"
 2460OSCLI "RMLoad <System$Dir>.Modules.Apps3Dmods"
 2470ENDPROC
 2480
 2490DEFPROCend
 2500PRINT '"End of program. Shut down the computer and reset"
 2510PRINT "it for the changes to come into effect."
 2520PRINT '"Press F3 to save this information."
 2530END
 2540ENDPROC


!� "<3DRamFree$Dir>.!RunImage"
� Nick Pearson, 20/6/94
� � �error:�
(
�title
2�initialise
<�createdirs
F�copyromapps
P�moveoldboot
Z�examineoldboot
d�createnewboot
n�joinboots
x�copyapps3dmods
��end
��
�
���error
�
� "Close"
�� � = 17 �end
�� "Line = ";�
�� "Error = ";�
��
�
���title
�9� "Installation of disc based template files for the"
�7� "Rom applications, this will release 84k of RAM."

�

"��initialise
,� block% 255
6bootline$=""
@borderutil%=�
Jdesktop%=&FEA
T
boot%=255
^boottype%=�
hnewline%=10
r)� "Set Res$Dir Resources:$.Resources"
|1syslocation$=�getsystemvariable("System$Dir")
�9bootlocation$=�syslocation$,�syslocation$,"$",1))+"."
�'bootfullname$=bootlocation$+"!Boot"
� bootpath$=bootlocation$+�(0)
��bootid
��
�
���bootid
�4� '"Checking for the existance of a !Boot file."
�>ș "OS_File",21,"!Boot",,,bootpath$ � type%,,,,,,filetype%
�Ȏ type% �
�* � 0 :boot%=�:� "No !Boot file found."
�8 � 1 :boot%=�:� "!Boot file found at ";bootfullname$
�2 � 2 :boot%=2:� "Application !Boot file found"
�
/� '"Examining boot options set by *Opt 4,n"
1ș "OS_FSControl",47,syslocation$ � ,,option%
&Ȏ option% �
07 � 0 :� "*Opt 4 set to 0 (no boot action).":�setopt
:7 � 1 :� "*Opt 4 set to 1 (*Load boot file).":� why?
D         :� boot%=� � �setopt
N/ � 2 :� "*Opt 4 set to 2 (*Run boot file)."
X         :� boot%=� � �setopt
b0 � 3 :� "*Opt 4 set to 3 (*Exec boot file)."
l�
vȎ filetype% �
� � -1    :
�! � &1000 :boot%=1:� directory
�5 � &2000 :boot%=2:�application:�end:� application
�# � &FEA  :boottype%=�:� desktop
�  � &FEB  :boottype%=�:� obey
�# � &FFE  :boottype%=�:� command
�   :�unknownfiletype:�end
��
��
�
���unknownfiletype
�=� '"Your !Boot file is an unexpected file type and might"
�8� "be an important program so I will not attempt to"
<� "alter it. See the help file for further information."
�

 ��application
*:� '"Your !Boot file is an application directory,which"
49� "is normally found on the new RiscPC. If this is a"
>5� "RiscPC then you do not need the benefits this"
H9� "program offers as they are already implemented as"
R� "standard."
\:� '"If this isn't a RiscPC then you must have altered"
f8� "your !Boot file implementation to look like one,"
p7� "which means you probably know what you're doing"
z7� "and will be able to modify this program to suit"
�:� "your needs. If not, then revert back to a standard"
�<� "!Boot set up, run this program, and then set up your"
�8� "file as is was. Thank you for your co-operation."
��
�
���setopt
�6� '"Issuing *Opt 4,3 to enable automatic boot up."
�'ș "OS_FSControl",48,syslocation$,3
��
�
� ݤgetsystemvariable(sysvar$)
�
!block%=0
�9ș "XOS_ReadVarVal",sysvar$,block%,-1,0,3 � ,,length%
-ș "OS_ReadVarVal",sysvar$,block%,255,0,3
varval$=""
� loop% = length% � -2
$varval$+=�?block%
.
block%+=1
8�
B=varval$
L
V��createdirs
`,� '"About to create Templates directory"
j� "in " syslocation$'
t7� "Press the Space Bar to continue or Esc to quit";
~� � �=32
�*� ''"Creating Templates directory...."
�#� "CDIR <System$Dir>.Templates"
�-� "CDIR <System$Dir>.Templates.ADFSFiler"
�)� "CDIR <System$Dir>.Templates.Alarm"
�+� "CDIR <System$Dir>.Templates.AppDraw"
�(� "CDIR <System$Dir>.Templates.Calc"
�-� "CDIR <System$Dir>.Templates.Configure"
�(� "CDIR <System$Dir>.Templates.Draw"
�(� "CDIR <System$Dir>.Templates.Edit"
�)� "CDIR <System$Dir>.Templates.Filer"
�,� "CDIR <System$Dir>.Templates.FilerAct"
�(� "CDIR <System$Dir>.Templates.Free"
(� "CDIR <System$Dir>.Templates.Help"

,� "CDIR <System$Dir>.Templates.NetFiler"
)� "CDIR <System$Dir>.Templates.Paint"
+� "CDIR <System$Dir>.Templates.Palette"
(,� "CDIR <System$Dir>.Templates.PinBoard"
2,� "CDIR <System$Dir>.Templates.Printers"
<,� "CDIR <System$Dir>.Templates.Switcher"
F(� "CDIR <System$Dir>.Templates.Wimp"
P�
Z
d��copyromapps
n0�'"Copying template files from RomApps3D..."
x[� "Copy <Res$Dir>.ADFSFiler.Templates <System$Dir>.Templates.ADFSFiler.Templates ~C ~V"
�S� "Copy <Res$Dir>.Alarm.Templates <System$Dir>.Templates.Alarm.Templates ~C ~V"
�W� "Copy <Res$Dir>.AppDraw.Templates <System$Dir>.Templates.AppDraw.Templates ~C ~V"
�S� "Copy <Res$Dir>.AppDraw.Sprites <System$Dir>.Templates.AppDraw.Sprites ~C ~V"
�Q� "Copy <Res$Dir>.Calc.Templates <System$Dir>.Templates.Calc.Templates ~C ~V"
�Q� "Copy <Res$Dir>.Calc.!RunImage <System$Dir>.Templates.Calc.!RunImage ~C ~V"
�[� "Copy <Res$Dir>.Configure.Templates <System$Dir>.Templates.Configure.Templates ~C ~V"
�Q� "Copy <Res$Dir>.Edit.Templates <System$Dir>.Templates.Edit.Templates ~C ~V"
�S� "Copy <Res$Dir>.Filer.Templates <System$Dir>.Templates.Filer.Templates ~C ~V"
�Y� "Copy <Res$Dir>.FilerAct.Templates <System$Dir>.Templates.FilerAct.Templates ~C ~V"
�Q� "Copy <Res$Dir>.Free.Templates <System$Dir>.Templates.Free.Templates ~C ~V"
�Q� "Copy <Res$Dir>.Help.Templates <System$Dir>.Templates.Help.Templates ~C ~V"
�Y� "Copy <Res$Dir>.NetFiler.Templates <System$Dir>.Templates.NetFiler.Templates ~C ~V"
�S� "Copy <Res$Dir>.Paint.Templates <System$Dir>.Templates.Paint.Templates ~C ~V"
O� "Copy <Res$Dir>.Paint.Sprites <System$Dir>.Templates.Paint.Sprites ~C ~V"
W� "Copy <Res$Dir>.Palette.Templates <System$Dir>.Templates.Palette.Templates ~C ~V"
Y� "Copy <Res$Dir>.Pinboard.Templates <System$Dir>.Templates.Pinboard.Templates ~C ~V"
"Y� "Copy <Res$Dir>.Printers.Templates <System$Dir>.Templates.Printers.Templates ~C ~V"
,Y� "Copy <Res$Dir>.Switcher.Templates <System$Dir>.Templates.Switcher.Templates ~C ~V"
6Q� "Copy <Res$Dir>.Wimp.Templates <System$Dir>.Templates.Wimp.Templates ~C ~V"
@�
J
T��moveoldboot
^� boot%=� � �
h4� '"Copying existing "+bootfullname$+" file to "
r(� syslocation$+".Templates.Old!Boot"
|� "for safe keeping."
�H� "Copy "+bootfullname$+" <System$Dir>.Templates.Old!Boot F D ~C ~V"
��
�
���examineoldboot
�� boot%=� � �
�borderutil%=�
�'� '"Examining your old !Boot file."
�2readboot%=�("<System$Dir>.Templates.Old!Boot")
��
� bootline$=""
�  �
�   char%=�#(readboot%)
�(   � char% <> 10 � bootline$+=�char%
*  � char%=10 � �#readboot%=�#readboot%
$ � �bootline$,10)="BorderUtil" �
)  � 'bootline$+" found, all is well."
&  borderutil%=�
0 �
:� �#readboot%=�#readboot%
D�#readboot%
N� borderutil%=� �
X' � '"BorderUtils module not found."
b�
l�
v
���createnewboot
�;� Make sure the configured boot action runs a boot file
�� "Configure Boot"
�-� '"Creating new !Boot at "+bootfullname$
�writeboot%=�(bootfullname$)
�0�#writeboot%,"| **  Location of !System  **"
�/�#writeboot%,"Set System$Dir "+syslocation$
�6�#writeboot%,"| **  Start of RomApps3D paths.  **"
�L�#writeboot%,"Set Filer$Path <System$Dir>.Templates.Filer.,<Filer$Path>"
�U�#writeboot%,"Set FilerAct$Path <System$Dir>.Templates.FilerAct.,<FilerAct$Path>"
�R�#writeboot%,"Set Palette$Path <System$Dir>.Templates.Palette.,<Palette$Path>"
�U�#writeboot%,"Set Switcher$Path <System$Dir>.Templates.Switcher.,<Switcher$Path>"
�X�#writeboot%,"Set ADFSFiler$Path <System$Dir>.Templates.ADFSFiler.,<ADFSFiler$Path>"
I�#writeboot%,"Set Free$Path <System$Dir>.Templates.Free.,<Free$Path>"
U�#writeboot%,"Set Pinboard$Path <System$Dir>.Templates.Pinboard.,<Pinboard$Path>"
5�#writeboot%,"|  **  End of RomApps3D paths.  **"
 R�#writeboot%,"RMensure Apps3Dmods 1.50 RMload <System$Dir>.Modules.Apps3Dmods"
*� borderutil%=� �
4T �#writeboot%,"RMensure BorderUtils 0.02 RMload <System$Dir>.Modules.BorderUtil"
>4 � '"Adding RMensure BorderUtils to !Boot file."
H�
R&� boot%=� � �#writeboot%,"DeskTop"
\�#writeboot%
fE� boot%=� � boottype%=� � ș "OS_File",18,bootfullname$,filetype%
p6� boot%=� � ș "OS_File",18,bootfullname$,desktop%
z�
�
���joinboots
�� boot%=� � �
�/� '"Adding your old !Boot to the new !Boot"
�2readboot%=�("<System$Dir>.Templates.Old!Boot")
�writeboot%=�(bootfullname$)
��#writeboot%=�#writeboot%
��
� bootline$=""
�  �
�   char%=�#(readboot%)
�(   � char% <> 10 � bootline$+=�char%
�*  � char%=10 � �#readboot%=�#readboot%
	" � �bootline$,9)="ROMApps3D" �
	  � 'bootline$
	/  � "has been removed from the !Boot file."
	$  bootline$=""
	. �
	8- � bootline$ <> "" �#writeboot%,bootline$
	B� �#readboot%=�#readboot%
	L�#readboot%
	V�#writeboot%
	`�
	j
	t��copyapps3dmods
	~� '"Copying Apps3Dmods to "
	�(� syslocation$+".Modules.Apps3Dmods"
	�O� "Copy <3DRamFree$Dir>.Apps3Dmods <System$Dir>.Modules.Apps3Dmods F ~C ~V"
	�.� "RMLoad <System$Dir>.Modules.Apps3Dmods"
	��
	�
	�	��end
	�9� '"End of program. Shut down the computer and reset"
	�/� "it for the changes to come into effect."
	�+� '"Press F3 to save this information."
	��
	��
�

00000000  0d 00 0a 21 f4 20 22 3c  33 44 52 61 6d 46 72 65  |...!. "<3DRamFre|
00000010  65 24 44 69 72 3e 2e 21  52 75 6e 49 6d 61 67 65  |e$Dir>.!RunImage|
00000020  22 0d 00 14 1b f4 20 4e  69 63 6b 20 50 65 61 72  |"..... Nick Pear|
00000030  73 6f 6e 2c 20 32 30 2f  36 2f 39 34 0d 00 1e 10  |son, 20/6/94....|
00000040  ee 20 85 20 f2 65 72 72  6f 72 3a e0 0d 00 28 0a  |. . .error:...(.|
00000050  f2 74 69 74 6c 65 0d 00  32 0f f2 69 6e 69 74 69  |.title..2..initi|
00000060  61 6c 69 73 65 0d 00 3c  0f f2 63 72 65 61 74 65  |alise..<..create|
00000070  64 69 72 73 0d 00 46 10  f2 63 6f 70 79 72 6f 6d  |dirs..F..copyrom|
00000080  61 70 70 73 0d 00 50 10  f2 6d 6f 76 65 6f 6c 64  |apps..P..moveold|
00000090  62 6f 6f 74 0d 00 5a 13  f2 65 78 61 6d 69 6e 65  |boot..Z..examine|
000000a0  6f 6c 64 62 6f 6f 74 0d  00 64 12 f2 63 72 65 61  |oldboot..d..crea|
000000b0  74 65 6e 65 77 62 6f 6f  74 0d 00 6e 0e f2 6a 6f  |tenewboot..n..jo|
000000c0  69 6e 62 6f 6f 74 73 0d  00 78 13 f2 63 6f 70 79  |inboots..x..copy|
000000d0  61 70 70 73 33 64 6d 6f  64 73 0d 00 82 08 f2 65  |apps3dmods.....e|
000000e0  6e 64 0d 00 8c 05 e0 0d  00 96 04 0d 00 a0 0b dd  |nd..............|
000000f0  f2 65 72 72 6f 72 0d 00  aa 0d ff 20 22 43 6c 6f  |.error..... "Clo|
00000100  73 65 22 0d 00 b4 11 e7  20 9f 20 3d 20 31 37 20  |se"..... . = 17 |
00000110  f2 65 6e 64 0d 00 be 11  f1 20 22 4c 69 6e 65 20  |.end..... "Line |
00000120  3d 20 22 3b 9e 0d 00 c8  12 f1 20 22 45 72 72 6f  |= ";...... "Erro|
00000130  72 20 3d 20 22 3b 9f 0d  00 d2 05 e1 0d 00 dc 04  |r = ";..........|
00000140  0d 00 e6 0b dd f2 74 69  74 6c 65 0d 00 f0 39 f1  |......title...9.|
00000150  20 22 49 6e 73 74 61 6c  6c 61 74 69 6f 6e 20 6f  | "Installation o|
00000160  66 20 64 69 73 63 20 62  61 73 65 64 20 74 65 6d  |f disc based tem|
00000170  70 6c 61 74 65 20 66 69  6c 65 73 20 66 6f 72 20  |plate files for |
00000180  74 68 65 22 0d 00 fa 37  f1 20 22 52 6f 6d 20 61  |the"...7. "Rom a|
00000190  70 70 6c 69 63 61 74 69  6f 6e 73 2c 20 74 68 69  |pplications, thi|
000001a0  73 20 77 69 6c 6c 20 72  65 6c 65 61 73 65 20 38  |s will release 8|
000001b0  34 6b 20 6f 66 20 52 41  4d 2e 22 0d 01 04 04 0d  |4k of RAM.".....|
000001c0  01 0e 05 e1 0d 01 18 04  0d 01 22 10 dd f2 69 6e  |.........."...in|
000001d0  69 74 69 61 6c 69 73 65  0d 01 2c 10 de 20 62 6c  |itialise..,.. bl|
000001e0  6f 63 6b 25 20 32 35 35  0d 01 36 10 62 6f 6f 74  |ock% 255..6.boot|
000001f0  6c 69 6e 65 24 3d 22 22  0d 01 40 11 62 6f 72 64  |line$=""..@.bord|
00000200  65 72 75 74 69 6c 25 3d  a3 0d 01 4a 11 64 65 73  |erutil%=...J.des|
00000210  6b 74 6f 70 25 3d 26 46  45 41 0d 01 54 0d 62 6f  |ktop%=&FEA..T.bo|
00000220  6f 74 25 3d 32 35 35 0d  01 5e 0f 62 6f 6f 74 74  |ot%=255..^.boott|
00000230  79 70 65 25 3d a3 0d 01  68 0f 6e 65 77 6c 69 6e  |ype%=...h.newlin|
00000240  65 25 3d 31 30 0d 01 72  29 ff 20 22 53 65 74 20  |e%=10..r). "Set |
00000250  52 65 73 24 44 69 72 20  52 65 73 6f 75 72 63 65  |Res$Dir Resource|
00000260  73 3a 24 2e 52 65 73 6f  75 72 63 65 73 22 0d 01  |s:$.Resources"..|
00000270  7c 31 73 79 73 6c 6f 63  61 74 69 6f 6e 24 3d a4  ||1syslocation$=.|
00000280  67 65 74 73 79 73 74 65  6d 76 61 72 69 61 62 6c  |getsystemvariabl|
00000290  65 28 22 53 79 73 74 65  6d 24 44 69 72 22 29 0d  |e("System$Dir").|
000002a0  01 86 39 62 6f 6f 74 6c  6f 63 61 74 69 6f 6e 24  |..9bootlocation$|
000002b0  3d c0 73 79 73 6c 6f 63  61 74 69 6f 6e 24 2c a7  |=.syslocation$,.|
000002c0  73 79 73 6c 6f 63 61 74  69 6f 6e 24 2c 22 24 22  |syslocation$,"$"|
000002d0  2c 31 29 29 2b 22 2e 22  0d 01 90 27 62 6f 6f 74  |,1))+"."...'boot|
000002e0  66 75 6c 6c 6e 61 6d 65  24 3d 62 6f 6f 74 6c 6f  |fullname$=bootlo|
000002f0  63 61 74 69 6f 6e 24 2b  22 21 42 6f 6f 74 22 0d  |cation$+"!Boot".|
00000300  01 9a 20 62 6f 6f 74 70  61 74 68 24 3d 62 6f 6f  |.. bootpath$=boo|
00000310  74 6c 6f 63 61 74 69 6f  6e 24 2b bd 28 30 29 0d  |tlocation$+.(0).|
00000320  01 a4 0b f2 62 6f 6f 74  69 64 0d 01 ae 05 e1 0d  |....bootid......|
00000330  01 b8 04 0d 01 c2 0c dd  f2 62 6f 6f 74 69 64 0d  |.........bootid.|
00000340  01 cc 34 f1 20 27 22 43  68 65 63 6b 69 6e 67 20  |..4. '"Checking |
00000350  66 6f 72 20 74 68 65 20  65 78 69 73 74 61 6e 63  |for the existanc|
00000360  65 20 6f 66 20 61 20 21  42 6f 6f 74 20 66 69 6c  |e of a !Boot fil|
00000370  65 2e 22 0d 01 d6 3e c8  99 20 22 4f 53 5f 46 69  |e."...>.. "OS_Fi|
00000380  6c 65 22 2c 32 31 2c 22  21 42 6f 6f 74 22 2c 2c  |le",21,"!Boot",,|
00000390  2c 62 6f 6f 74 70 61 74  68 24 20 b8 20 74 79 70  |,bootpath$ . typ|
000003a0  65 25 2c 2c 2c 2c 2c 2c  66 69 6c 65 74 79 70 65  |e%,,,,,,filetype|
000003b0  25 0d 01 e0 0e c8 8e 20  74 79 70 65 25 20 ca 0d  |%...... type% ..|
000003c0  01 ea 2a 20 c9 20 30 20  3a 62 6f 6f 74 25 3d a3  |..* . 0 :boot%=.|
000003d0  3a f1 20 22 4e 6f 20 21  42 6f 6f 74 20 66 69 6c  |:. "No !Boot fil|
000003e0  65 20 66 6f 75 6e 64 2e  22 0d 01 f4 38 20 c9 20  |e found."...8 . |
000003f0  31 20 3a 62 6f 6f 74 25  3d b9 3a f1 20 22 21 42  |1 :boot%=.:. "!B|
00000400  6f 6f 74 20 66 69 6c 65  20 66 6f 75 6e 64 20 61  |oot file found a|
00000410  74 20 22 3b 62 6f 6f 74  66 75 6c 6c 6e 61 6d 65  |t ";bootfullname|
00000420  24 0d 01 fe 32 20 c9 20  32 20 3a 62 6f 6f 74 25  |$...2 . 2 :boot%|
00000430  3d 32 3a f1 20 22 41 70  70 6c 69 63 61 74 69 6f  |=2:. "Applicatio|
00000440  6e 20 21 42 6f 6f 74 20  66 69 6c 65 20 66 6f 75  |n !Boot file fou|
00000450  6e 64 22 0d 02 08 05 cb  0d 02 12 2f f1 20 27 22  |nd"......../. '"|
00000460  45 78 61 6d 69 6e 69 6e  67 20 62 6f 6f 74 20 6f  |Examining boot o|
00000470  70 74 69 6f 6e 73 20 73  65 74 20 62 79 20 2a 4f  |ptions set by *O|
00000480  70 74 20 34 2c 6e 22 0d  02 1c 31 c8 99 20 22 4f  |pt 4,n"...1.. "O|
00000490  53 5f 46 53 43 6f 6e 74  72 6f 6c 22 2c 34 37 2c  |S_FSControl",47,|
000004a0  73 79 73 6c 6f 63 61 74  69 6f 6e 24 20 b8 20 2c  |syslocation$ . ,|
000004b0  2c 6f 70 74 69 6f 6e 25  0d 02 26 10 c8 8e 20 6f  |,option%..&... o|
000004c0  70 74 69 6f 6e 25 20 ca  0d 02 30 37 20 c9 20 30  |ption% ...07 . 0|
000004d0  20 3a f1 20 22 2a 4f 70  74 20 34 20 73 65 74 20  | :. "*Opt 4 set |
000004e0  74 6f 20 30 20 28 6e 6f  20 62 6f 6f 74 20 61 63  |to 0 (no boot ac|
000004f0  74 69 6f 6e 29 2e 22 3a  f2 73 65 74 6f 70 74 0d  |tion).":.setopt.|
00000500  02 3a 37 20 c9 20 31 20  3a f1 20 22 2a 4f 70 74  |.:7 . 1 :. "*Opt|
00000510  20 34 20 73 65 74 20 74  6f 20 31 20 28 2a 4c 6f  | 4 set to 1 (*Lo|
00000520  61 64 20 62 6f 6f 74 20  66 69 6c 65 29 2e 22 3a  |ad boot file).":|
00000530  f4 20 77 68 79 3f 0d 02  44 20 20 20 20 20 20 20  |. why?..D       |
00000540  20 20 3a e7 20 62 6f 6f  74 25 3d a3 20 8c 20 f2  |  :. boot%=. . .|
00000550  73 65 74 6f 70 74 0d 02  4e 2f 20 c9 20 32 20 3a  |setopt..N/ . 2 :|
00000560  f1 20 22 2a 4f 70 74 20  34 20 73 65 74 20 74 6f  |. "*Opt 4 set to|
00000570  20 32 20 28 2a 52 75 6e  20 62 6f 6f 74 20 66 69  | 2 (*Run boot fi|
00000580  6c 65 29 2e 22 0d 02 58  20 20 20 20 20 20 20 20  |le)."..X        |
00000590  20 3a e7 20 62 6f 6f 74  25 3d a3 20 8c 20 f2 73  | :. boot%=. . .s|
000005a0  65 74 6f 70 74 0d 02 62  30 20 c9 20 33 20 3a f1  |etopt..b0 . 3 :.|
000005b0  20 22 2a 4f 70 74 20 34  20 73 65 74 20 74 6f 20  | "*Opt 4 set to |
000005c0  33 20 28 2a 45 78 65 63  20 62 6f 6f 74 20 66 69  |3 (*Exec boot fi|
000005d0  6c 65 29 2e 22 0d 02 6c  05 cb 0d 02 76 12 c8 8e  |le)."..l....v...|
000005e0  20 66 69 6c 65 74 79 70  65 25 20 ca 0d 02 80 0e  | filetype% .....|
000005f0  20 c9 20 2d 31 20 20 20  20 3a 0d 02 8a 21 20 c9  | . -1    :...! .|
00000600  20 26 31 30 30 30 20 3a  62 6f 6f 74 25 3d 31 3a  | &1000 :boot%=1:|
00000610  f4 20 64 69 72 65 63 74  6f 72 79 0d 02 94 35 20  |. directory...5 |
00000620  c9 20 26 32 30 30 30 20  3a 62 6f 6f 74 25 3d 32  |. &2000 :boot%=2|
00000630  3a f2 61 70 70 6c 69 63  61 74 69 6f 6e 3a f2 65  |:.application:.e|
00000640  6e 64 3a f4 20 61 70 70  6c 69 63 61 74 69 6f 6e  |nd:. application|
00000650  0d 02 9e 23 20 c9 20 26  46 45 41 20 20 3a 62 6f  |...# . &FEA  :bo|
00000660  6f 74 74 79 70 65 25 3d  b9 3a f4 20 64 65 73 6b  |ottype%=.:. desk|
00000670  74 6f 70 0d 02 a8 20 20  c9 20 26 46 45 42 20 20  |top...  . &FEB  |
00000680  3a 62 6f 6f 74 74 79 70  65 25 3d b9 3a f4 20 6f  |:boottype%=.:. o|
00000690  62 65 79 0d 02 b2 23 20  c9 20 26 46 46 45 20 20  |bey...# . &FFE  |
000006a0  3a 62 6f 6f 74 74 79 70  65 25 3d b9 3a f4 20 63  |:boottype%=.:. c|
000006b0  6f 6d 6d 61 6e 64 0d 02  bc 1e 20 7f 20 20 3a f2  |ommand.... .  :.|
000006c0  75 6e 6b 6e 6f 77 6e 66  69 6c 65 74 79 70 65 3a  |unknownfiletype:|
000006d0  f2 65 6e 64 0d 02 c6 05  cb 0d 02 d0 05 e1 0d 02  |.end............|
000006e0  da 04 0d 02 e4 15 dd f2  75 6e 6b 6e 6f 77 6e 66  |........unknownf|
000006f0  69 6c 65 74 79 70 65 0d  02 ee 3d f1 20 27 22 59  |iletype...=. '"Y|
00000700  6f 75 72 20 21 42 6f 6f  74 20 66 69 6c 65 20 69  |our !Boot file i|
00000710  73 20 61 6e 20 75 6e 65  78 70 65 63 74 65 64 20  |s an unexpected |
00000720  66 69 6c 65 20 74 79 70  65 20 61 6e 64 20 6d 69  |file type and mi|
00000730  67 68 74 22 0d 02 f8 38  f1 20 22 62 65 20 61 6e  |ght"...8. "be an|
00000740  20 69 6d 70 6f 72 74 61  6e 74 20 70 72 6f 67 72  | important progr|
00000750  61 6d 20 73 6f 20 49 20  77 69 6c 6c 20 6e 6f 74  |am so I will not|
00000760  20 61 74 74 65 6d 70 74  20 74 6f 22 0d 03 02 3c  | attempt to"...<|
00000770  f1 20 22 61 6c 74 65 72  20 69 74 2e 20 53 65 65  |. "alter it. See|
00000780  20 74 68 65 20 68 65 6c  70 20 66 69 6c 65 20 66  | the help file f|
00000790  6f 72 20 66 75 72 74 68  65 72 20 69 6e 66 6f 72  |or further infor|
000007a0  6d 61 74 69 6f 6e 2e 22  0d 03 0c 05 e1 0d 03 16  |mation."........|
000007b0  04 0d 03 20 11 dd f2 61  70 70 6c 69 63 61 74 69  |... ...applicati|
000007c0  6f 6e 0d 03 2a 3a f1 20  27 22 59 6f 75 72 20 21  |on..*:. '"Your !|
000007d0  42 6f 6f 74 20 66 69 6c  65 20 69 73 20 61 6e 20  |Boot file is an |
000007e0  61 70 70 6c 69 63 61 74  69 6f 6e 20 64 69 72 65  |application dire|
000007f0  63 74 6f 72 79 2c 77 68  69 63 68 22 0d 03 34 39  |ctory,which"..49|
00000800  f1 20 22 69 73 20 6e 6f  72 6d 61 6c 6c 79 20 66  |. "is normally f|
00000810  6f 75 6e 64 20 6f 6e 20  74 68 65 20 6e 65 77 20  |ound on the new |
00000820  52 69 73 63 50 43 2e 20  49 66 20 74 68 69 73 20  |RiscPC. If this |
00000830  69 73 20 61 22 0d 03 3e  35 f1 20 22 52 69 73 63  |is a"..>5. "Risc|
00000840  50 43 20 74 68 65 6e 20  79 6f 75 20 64 6f 20 6e  |PC then you do n|
00000850  6f 74 20 6e 65 65 64 20  74 68 65 20 62 65 6e 65  |ot need the bene|
00000860  66 69 74 73 20 74 68 69  73 22 0d 03 48 39 f1 20  |fits this"..H9. |
00000870  22 70 72 6f 67 72 61 6d  20 6f 66 66 65 72 73 20  |"program offers |
00000880  61 73 20 74 68 65 79 20  61 72 65 20 61 6c 72 65  |as they are alre|
00000890  61 64 79 20 69 6d 70 6c  65 6d 65 6e 74 65 64 20  |ady implemented |
000008a0  61 73 22 0d 03 52 11 f1  20 22 73 74 61 6e 64 61  |as"..R.. "standa|
000008b0  72 64 2e 22 0d 03 5c 3a  f1 20 27 22 49 66 20 74  |rd."..\:. '"If t|
000008c0  68 69 73 20 69 73 6e 27  74 20 61 20 52 69 73 63  |his isn't a Risc|
000008d0  50 43 20 74 68 65 6e 20  79 6f 75 20 6d 75 73 74  |PC then you must|
000008e0  20 68 61 76 65 20 61 6c  74 65 72 65 64 22 0d 03  | have altered"..|
000008f0  66 38 f1 20 22 79 6f 75  72 20 21 42 6f 6f 74 20  |f8. "your !Boot |
00000900  66 69 6c 65 20 69 6d 70  6c 65 6d 65 6e 74 61 74  |file implementat|
00000910  69 6f 6e 20 74 6f 20 6c  6f 6f 6b 20 6c 69 6b 65  |ion to look like|
00000920  20 6f 6e 65 2c 22 0d 03  70 37 f1 20 22 77 68 69  | one,"..p7. "whi|
00000930  63 68 20 6d 65 61 6e 73  20 79 6f 75 20 70 72 6f  |ch means you pro|
00000940  62 61 62 6c 79 20 6b 6e  6f 77 20 77 68 61 74 20  |bably know what |
00000950  79 6f 75 27 72 65 20 64  6f 69 6e 67 22 0d 03 7a  |you're doing"..z|
00000960  37 f1 20 22 61 6e 64 20  77 69 6c 6c 20 62 65 20  |7. "and will be |
00000970  61 62 6c 65 20 74 6f 20  6d 6f 64 69 66 79 20 74  |able to modify t|
00000980  68 69 73 20 70 72 6f 67  72 61 6d 20 74 6f 20 73  |his program to s|
00000990  75 69 74 22 0d 03 84 3a  f1 20 22 79 6f 75 72 20  |uit"...:. "your |
000009a0  6e 65 65 64 73 2e 20 49  66 20 6e 6f 74 2c 20 74  |needs. If not, t|
000009b0  68 65 6e 20 72 65 76 65  72 74 20 62 61 63 6b 20  |hen revert back |
000009c0  74 6f 20 61 20 73 74 61  6e 64 61 72 64 22 0d 03  |to a standard"..|
000009d0  8e 3c f1 20 22 21 42 6f  6f 74 20 73 65 74 20 75  |.<. "!Boot set u|
000009e0  70 2c 20 72 75 6e 20 74  68 69 73 20 70 72 6f 67  |p, run this prog|
000009f0  72 61 6d 2c 20 61 6e 64  20 74 68 65 6e 20 73 65  |ram, and then se|
00000a00  74 20 75 70 20 79 6f 75  72 22 0d 03 98 38 f1 20  |t up your"...8. |
00000a10  22 66 69 6c 65 20 61 73  20 69 73 20 77 61 73 2e  |"file as is was.|
00000a20  20 54 68 61 6e 6b 20 79  6f 75 20 66 6f 72 20 79  | Thank you for y|
00000a30  6f 75 72 20 63 6f 2d 6f  70 65 72 61 74 69 6f 6e  |our co-operation|
00000a40  2e 22 0d 03 a2 05 e1 0d  03 ac 04 0d 03 b6 0c dd  |."..............|
00000a50  f2 73 65 74 6f 70 74 0d  03 c0 36 f1 20 27 22 49  |.setopt...6. '"I|
00000a60  73 73 75 69 6e 67 20 2a  4f 70 74 20 34 2c 33 20  |ssuing *Opt 4,3 |
00000a70  74 6f 20 65 6e 61 62 6c  65 20 61 75 74 6f 6d 61  |to enable automa|
00000a80  74 69 63 20 62 6f 6f 74  20 75 70 2e 22 0d 03 ca  |tic boot up."...|
00000a90  27 c8 99 20 22 4f 53 5f  46 53 43 6f 6e 74 72 6f  |'.. "OS_FSContro|
00000aa0  6c 22 2c 34 38 2c 73 79  73 6c 6f 63 61 74 69 6f  |l",48,syslocatio|
00000ab0  6e 24 2c 33 0d 03 d4 05  e1 0d 03 de 04 0d 03 e8  |n$,3............|
00000ac0  20 dd a4 67 65 74 73 79  73 74 65 6d 76 61 72 69  | ..getsystemvari|
00000ad0  61 62 6c 65 28 73 79 73  76 61 72 24 29 0d 03 f2  |able(sysvar$)...|
00000ae0  0d 21 62 6c 6f 63 6b 25  3d 30 0d 03 fc 39 c8 99  |.!block%=0...9..|
00000af0  20 22 58 4f 53 5f 52 65  61 64 56 61 72 56 61 6c  | "XOS_ReadVarVal|
00000b00  22 2c 73 79 73 76 61 72  24 2c 62 6c 6f 63 6b 25  |",sysvar$,block%|
00000b10  2c 2d 31 2c 30 2c 33 20  b8 20 2c 2c 6c 65 6e 67  |,-1,0,3 . ,,leng|
00000b20  74 68 25 0d 04 06 2d c8  99 20 22 4f 53 5f 52 65  |th%...-.. "OS_Re|
00000b30  61 64 56 61 72 56 61 6c  22 2c 73 79 73 76 61 72  |adVarVal",sysvar|
00000b40  24 2c 62 6c 6f 63 6b 25  2c 32 35 35 2c 30 2c 33  |$,block%,255,0,3|
00000b50  0d 04 10 0e 76 61 72 76  61 6c 24 3d 22 22 0d 04  |....varval$=""..|
00000b60  1a 1a e3 20 6c 6f 6f 70  25 20 3d 20 6c 65 6e 67  |... loop% = leng|
00000b70  74 68 25 20 b8 20 2d 32  0d 04 24 15 76 61 72 76  |th% . -2..$.varv|
00000b80  61 6c 24 2b 3d bd 3f 62  6c 6f 63 6b 25 0d 04 2e  |al$+=.?block%...|
00000b90  0d 62 6c 6f 63 6b 25 2b  3d 31 0d 04 38 05 ed 0d  |.block%+=1..8...|
00000ba0  04 42 0c 3d 76 61 72 76  61 6c 24 0d 04 4c 04 0d  |.B.=varval$..L..|
00000bb0  04 56 10 dd f2 63 72 65  61 74 65 64 69 72 73 0d  |.V...createdirs.|
00000bc0  04 60 2c f1 20 27 22 41  62 6f 75 74 20 74 6f 20  |.`,. '"About to |
00000bd0  63 72 65 61 74 65 20 54  65 6d 70 6c 61 74 65 73  |create Templates|
00000be0  20 64 69 72 65 63 74 6f  72 79 22 0d 04 6a 19 f1  | directory"..j..|
00000bf0  20 22 69 6e 20 22 20 73  79 73 6c 6f 63 61 74 69  | "in " syslocati|
00000c00  6f 6e 24 27 0d 04 74 37  f1 20 22 50 72 65 73 73  |on$'..t7. "Press|
00000c10  20 74 68 65 20 53 70 61  63 65 20 42 61 72 20 74  | the Space Bar t|
00000c20  6f 20 63 6f 6e 74 69 6e  75 65 20 6f 72 20 45 73  |o continue or Es|
00000c30  63 20 74 6f 20 71 75 69  74 22 3b 0d 04 7e 0c f5  |c to quit";..~..|
00000c40  20 fd 20 a5 3d 33 32 0d  04 88 2a f1 20 27 27 22  | . .=32...*. ''"|
00000c50  43 72 65 61 74 69 6e 67  20 54 65 6d 70 6c 61 74  |Creating Templat|
00000c60  65 73 20 64 69 72 65 63  74 6f 72 79 2e 2e 2e 2e  |es directory....|
00000c70  22 0d 04 92 23 ff 20 22  43 44 49 52 20 3c 53 79  |"...#. "CDIR <Sy|
00000c80  73 74 65 6d 24 44 69 72  3e 2e 54 65 6d 70 6c 61  |stem$Dir>.Templa|
00000c90  74 65 73 22 0d 04 9c 2d  ff 20 22 43 44 49 52 20  |tes"...-. "CDIR |
00000ca0  3c 53 79 73 74 65 6d 24  44 69 72 3e 2e 54 65 6d  |<System$Dir>.Tem|
00000cb0  70 6c 61 74 65 73 2e 41  44 46 53 46 69 6c 65 72  |plates.ADFSFiler|
00000cc0  22 0d 04 a6 29 ff 20 22  43 44 49 52 20 3c 53 79  |"...). "CDIR <Sy|
00000cd0  73 74 65 6d 24 44 69 72  3e 2e 54 65 6d 70 6c 61  |stem$Dir>.Templa|
00000ce0  74 65 73 2e 41 6c 61 72  6d 22 0d 04 b0 2b ff 20  |tes.Alarm"...+. |
00000cf0  22 43 44 49 52 20 3c 53  79 73 74 65 6d 24 44 69  |"CDIR <System$Di|
00000d00  72 3e 2e 54 65 6d 70 6c  61 74 65 73 2e 41 70 70  |r>.Templates.App|
00000d10  44 72 61 77 22 0d 04 ba  28 ff 20 22 43 44 49 52  |Draw"...(. "CDIR|
00000d20  20 3c 53 79 73 74 65 6d  24 44 69 72 3e 2e 54 65  | <System$Dir>.Te|
00000d30  6d 70 6c 61 74 65 73 2e  43 61 6c 63 22 0d 04 c4  |mplates.Calc"...|
00000d40  2d ff 20 22 43 44 49 52  20 3c 53 79 73 74 65 6d  |-. "CDIR <System|
00000d50  24 44 69 72 3e 2e 54 65  6d 70 6c 61 74 65 73 2e  |$Dir>.Templates.|
00000d60  43 6f 6e 66 69 67 75 72  65 22 0d 04 ce 28 ff 20  |Configure"...(. |
00000d70  22 43 44 49 52 20 3c 53  79 73 74 65 6d 24 44 69  |"CDIR <System$Di|
00000d80  72 3e 2e 54 65 6d 70 6c  61 74 65 73 2e 44 72 61  |r>.Templates.Dra|
00000d90  77 22 0d 04 d8 28 ff 20  22 43 44 49 52 20 3c 53  |w"...(. "CDIR <S|
00000da0  79 73 74 65 6d 24 44 69  72 3e 2e 54 65 6d 70 6c  |ystem$Dir>.Templ|
00000db0  61 74 65 73 2e 45 64 69  74 22 0d 04 e2 29 ff 20  |ates.Edit"...). |
00000dc0  22 43 44 49 52 20 3c 53  79 73 74 65 6d 24 44 69  |"CDIR <System$Di|
00000dd0  72 3e 2e 54 65 6d 70 6c  61 74 65 73 2e 46 69 6c  |r>.Templates.Fil|
00000de0  65 72 22 0d 04 ec 2c ff  20 22 43 44 49 52 20 3c  |er"...,. "CDIR <|
00000df0  53 79 73 74 65 6d 24 44  69 72 3e 2e 54 65 6d 70  |System$Dir>.Temp|
00000e00  6c 61 74 65 73 2e 46 69  6c 65 72 41 63 74 22 0d  |lates.FilerAct".|
00000e10  04 f6 28 ff 20 22 43 44  49 52 20 3c 53 79 73 74  |..(. "CDIR <Syst|
00000e20  65 6d 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |em$Dir>.Template|
00000e30  73 2e 46 72 65 65 22 0d  05 00 28 ff 20 22 43 44  |s.Free"...(. "CD|
00000e40  49 52 20 3c 53 79 73 74  65 6d 24 44 69 72 3e 2e  |IR <System$Dir>.|
00000e50  54 65 6d 70 6c 61 74 65  73 2e 48 65 6c 70 22 0d  |Templates.Help".|
00000e60  05 0a 2c ff 20 22 43 44  49 52 20 3c 53 79 73 74  |..,. "CDIR <Syst|
00000e70  65 6d 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |em$Dir>.Template|
00000e80  73 2e 4e 65 74 46 69 6c  65 72 22 0d 05 14 29 ff  |s.NetFiler"...).|
00000e90  20 22 43 44 49 52 20 3c  53 79 73 74 65 6d 24 44  | "CDIR <System$D|
00000ea0  69 72 3e 2e 54 65 6d 70  6c 61 74 65 73 2e 50 61  |ir>.Templates.Pa|
00000eb0  69 6e 74 22 0d 05 1e 2b  ff 20 22 43 44 49 52 20  |int"...+. "CDIR |
00000ec0  3c 53 79 73 74 65 6d 24  44 69 72 3e 2e 54 65 6d  |<System$Dir>.Tem|
00000ed0  70 6c 61 74 65 73 2e 50  61 6c 65 74 74 65 22 0d  |plates.Palette".|
00000ee0  05 28 2c ff 20 22 43 44  49 52 20 3c 53 79 73 74  |.(,. "CDIR <Syst|
00000ef0  65 6d 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |em$Dir>.Template|
00000f00  73 2e 50 69 6e 42 6f 61  72 64 22 0d 05 32 2c ff  |s.PinBoard"..2,.|
00000f10  20 22 43 44 49 52 20 3c  53 79 73 74 65 6d 24 44  | "CDIR <System$D|
00000f20  69 72 3e 2e 54 65 6d 70  6c 61 74 65 73 2e 50 72  |ir>.Templates.Pr|
00000f30  69 6e 74 65 72 73 22 0d  05 3c 2c ff 20 22 43 44  |inters"..<,. "CD|
00000f40  49 52 20 3c 53 79 73 74  65 6d 24 44 69 72 3e 2e  |IR <System$Dir>.|
00000f50  54 65 6d 70 6c 61 74 65  73 2e 53 77 69 74 63 68  |Templates.Switch|
00000f60  65 72 22 0d 05 46 28 ff  20 22 43 44 49 52 20 3c  |er"..F(. "CDIR <|
00000f70  53 79 73 74 65 6d 24 44  69 72 3e 2e 54 65 6d 70  |System$Dir>.Temp|
00000f80  6c 61 74 65 73 2e 57 69  6d 70 22 0d 05 50 05 e1  |lates.Wimp"..P..|
00000f90  0d 05 5a 04 0d 05 64 11  dd f2 63 6f 70 79 72 6f  |..Z...d...copyro|
00000fa0  6d 61 70 70 73 0d 05 6e  30 f1 27 22 43 6f 70 79  |mapps..n0.'"Copy|
00000fb0  69 6e 67 20 74 65 6d 70  6c 61 74 65 20 66 69 6c  |ing template fil|
00000fc0  65 73 20 66 72 6f 6d 20  52 6f 6d 41 70 70 73 33  |es from RomApps3|
00000fd0  44 2e 2e 2e 22 0d 05 78  5b ff 20 22 43 6f 70 79  |D..."..x[. "Copy|
00000fe0  20 3c 52 65 73 24 44 69  72 3e 2e 41 44 46 53 46  | <Res$Dir>.ADFSF|
00000ff0  69 6c 65 72 2e 54 65 6d  70 6c 61 74 65 73 20 3c  |iler.Templates <|
00001000  53 79 73 74 65 6d 24 44  69 72 3e 2e 54 65 6d 70  |System$Dir>.Temp|
00001010  6c 61 74 65 73 2e 41 44  46 53 46 69 6c 65 72 2e  |lates.ADFSFiler.|
00001020  54 65 6d 70 6c 61 74 65  73 20 7e 43 20 7e 56 22  |Templates ~C ~V"|
00001030  0d 05 82 53 ff 20 22 43  6f 70 79 20 3c 52 65 73  |...S. "Copy <Res|
00001040  24 44 69 72 3e 2e 41 6c  61 72 6d 2e 54 65 6d 70  |$Dir>.Alarm.Temp|
00001050  6c 61 74 65 73 20 3c 53  79 73 74 65 6d 24 44 69  |lates <System$Di|
00001060  72 3e 2e 54 65 6d 70 6c  61 74 65 73 2e 41 6c 61  |r>.Templates.Ala|
00001070  72 6d 2e 54 65 6d 70 6c  61 74 65 73 20 7e 43 20  |rm.Templates ~C |
00001080  7e 56 22 0d 05 8c 57 ff  20 22 43 6f 70 79 20 3c  |~V"...W. "Copy <|
00001090  52 65 73 24 44 69 72 3e  2e 41 70 70 44 72 61 77  |Res$Dir>.AppDraw|
000010a0  2e 54 65 6d 70 6c 61 74  65 73 20 3c 53 79 73 74  |.Templates <Syst|
000010b0  65 6d 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |em$Dir>.Template|
000010c0  73 2e 41 70 70 44 72 61  77 2e 54 65 6d 70 6c 61  |s.AppDraw.Templa|
000010d0  74 65 73 20 7e 43 20 7e  56 22 0d 05 96 53 ff 20  |tes ~C ~V"...S. |
000010e0  22 43 6f 70 79 20 3c 52  65 73 24 44 69 72 3e 2e  |"Copy <Res$Dir>.|
000010f0  41 70 70 44 72 61 77 2e  53 70 72 69 74 65 73 20  |AppDraw.Sprites |
00001100  3c 53 79 73 74 65 6d 24  44 69 72 3e 2e 54 65 6d  |<System$Dir>.Tem|
00001110  70 6c 61 74 65 73 2e 41  70 70 44 72 61 77 2e 53  |plates.AppDraw.S|
00001120  70 72 69 74 65 73 20 7e  43 20 7e 56 22 0d 05 a0  |prites ~C ~V"...|
00001130  51 ff 20 22 43 6f 70 79  20 3c 52 65 73 24 44 69  |Q. "Copy <Res$Di|
00001140  72 3e 2e 43 61 6c 63 2e  54 65 6d 70 6c 61 74 65  |r>.Calc.Template|
00001150  73 20 3c 53 79 73 74 65  6d 24 44 69 72 3e 2e 54  |s <System$Dir>.T|
00001160  65 6d 70 6c 61 74 65 73  2e 43 61 6c 63 2e 54 65  |emplates.Calc.Te|
00001170  6d 70 6c 61 74 65 73 20  7e 43 20 7e 56 22 0d 05  |mplates ~C ~V"..|
00001180  aa 51 ff 20 22 43 6f 70  79 20 3c 52 65 73 24 44  |.Q. "Copy <Res$D|
00001190  69 72 3e 2e 43 61 6c 63  2e 21 52 75 6e 49 6d 61  |ir>.Calc.!RunIma|
000011a0  67 65 20 3c 53 79 73 74  65 6d 24 44 69 72 3e 2e  |ge <System$Dir>.|
000011b0  54 65 6d 70 6c 61 74 65  73 2e 43 61 6c 63 2e 21  |Templates.Calc.!|
000011c0  52 75 6e 49 6d 61 67 65  20 7e 43 20 7e 56 22 0d  |RunImage ~C ~V".|
000011d0  05 b4 5b ff 20 22 43 6f  70 79 20 3c 52 65 73 24  |..[. "Copy <Res$|
000011e0  44 69 72 3e 2e 43 6f 6e  66 69 67 75 72 65 2e 54  |Dir>.Configure.T|
000011f0  65 6d 70 6c 61 74 65 73  20 3c 53 79 73 74 65 6d  |emplates <System|
00001200  24 44 69 72 3e 2e 54 65  6d 70 6c 61 74 65 73 2e  |$Dir>.Templates.|
00001210  43 6f 6e 66 69 67 75 72  65 2e 54 65 6d 70 6c 61  |Configure.Templa|
00001220  74 65 73 20 7e 43 20 7e  56 22 0d 05 be 51 ff 20  |tes ~C ~V"...Q. |
00001230  22 43 6f 70 79 20 3c 52  65 73 24 44 69 72 3e 2e  |"Copy <Res$Dir>.|
00001240  45 64 69 74 2e 54 65 6d  70 6c 61 74 65 73 20 3c  |Edit.Templates <|
00001250  53 79 73 74 65 6d 24 44  69 72 3e 2e 54 65 6d 70  |System$Dir>.Temp|
00001260  6c 61 74 65 73 2e 45 64  69 74 2e 54 65 6d 70 6c  |lates.Edit.Templ|
00001270  61 74 65 73 20 7e 43 20  7e 56 22 0d 05 c8 53 ff  |ates ~C ~V"...S.|
00001280  20 22 43 6f 70 79 20 3c  52 65 73 24 44 69 72 3e  | "Copy <Res$Dir>|
00001290  2e 46 69 6c 65 72 2e 54  65 6d 70 6c 61 74 65 73  |.Filer.Templates|
000012a0  20 3c 53 79 73 74 65 6d  24 44 69 72 3e 2e 54 65  | <System$Dir>.Te|
000012b0  6d 70 6c 61 74 65 73 2e  46 69 6c 65 72 2e 54 65  |mplates.Filer.Te|
000012c0  6d 70 6c 61 74 65 73 20  7e 43 20 7e 56 22 0d 05  |mplates ~C ~V"..|
000012d0  d2 59 ff 20 22 43 6f 70  79 20 3c 52 65 73 24 44  |.Y. "Copy <Res$D|
000012e0  69 72 3e 2e 46 69 6c 65  72 41 63 74 2e 54 65 6d  |ir>.FilerAct.Tem|
000012f0  70 6c 61 74 65 73 20 3c  53 79 73 74 65 6d 24 44  |plates <System$D|
00001300  69 72 3e 2e 54 65 6d 70  6c 61 74 65 73 2e 46 69  |ir>.Templates.Fi|
00001310  6c 65 72 41 63 74 2e 54  65 6d 70 6c 61 74 65 73  |lerAct.Templates|
00001320  20 7e 43 20 7e 56 22 0d  05 dc 51 ff 20 22 43 6f  | ~C ~V"...Q. "Co|
00001330  70 79 20 3c 52 65 73 24  44 69 72 3e 2e 46 72 65  |py <Res$Dir>.Fre|
00001340  65 2e 54 65 6d 70 6c 61  74 65 73 20 3c 53 79 73  |e.Templates <Sys|
00001350  74 65 6d 24 44 69 72 3e  2e 54 65 6d 70 6c 61 74  |tem$Dir>.Templat|
00001360  65 73 2e 46 72 65 65 2e  54 65 6d 70 6c 61 74 65  |es.Free.Template|
00001370  73 20 7e 43 20 7e 56 22  0d 05 e6 51 ff 20 22 43  |s ~C ~V"...Q. "C|
00001380  6f 70 79 20 3c 52 65 73  24 44 69 72 3e 2e 48 65  |opy <Res$Dir>.He|
00001390  6c 70 2e 54 65 6d 70 6c  61 74 65 73 20 3c 53 79  |lp.Templates <Sy|
000013a0  73 74 65 6d 24 44 69 72  3e 2e 54 65 6d 70 6c 61  |stem$Dir>.Templa|
000013b0  74 65 73 2e 48 65 6c 70  2e 54 65 6d 70 6c 61 74  |tes.Help.Templat|
000013c0  65 73 20 7e 43 20 7e 56  22 0d 05 f0 59 ff 20 22  |es ~C ~V"...Y. "|
000013d0  43 6f 70 79 20 3c 52 65  73 24 44 69 72 3e 2e 4e  |Copy <Res$Dir>.N|
000013e0  65 74 46 69 6c 65 72 2e  54 65 6d 70 6c 61 74 65  |etFiler.Template|
000013f0  73 20 3c 53 79 73 74 65  6d 24 44 69 72 3e 2e 54  |s <System$Dir>.T|
00001400  65 6d 70 6c 61 74 65 73  2e 4e 65 74 46 69 6c 65  |emplates.NetFile|
00001410  72 2e 54 65 6d 70 6c 61  74 65 73 20 7e 43 20 7e  |r.Templates ~C ~|
00001420  56 22 0d 05 fa 53 ff 20  22 43 6f 70 79 20 3c 52  |V"...S. "Copy <R|
00001430  65 73 24 44 69 72 3e 2e  50 61 69 6e 74 2e 54 65  |es$Dir>.Paint.Te|
00001440  6d 70 6c 61 74 65 73 20  3c 53 79 73 74 65 6d 24  |mplates <System$|
00001450  44 69 72 3e 2e 54 65 6d  70 6c 61 74 65 73 2e 50  |Dir>.Templates.P|
00001460  61 69 6e 74 2e 54 65 6d  70 6c 61 74 65 73 20 7e  |aint.Templates ~|
00001470  43 20 7e 56 22 0d 06 04  4f ff 20 22 43 6f 70 79  |C ~V"...O. "Copy|
00001480  20 3c 52 65 73 24 44 69  72 3e 2e 50 61 69 6e 74  | <Res$Dir>.Paint|
00001490  2e 53 70 72 69 74 65 73  20 3c 53 79 73 74 65 6d  |.Sprites <System|
000014a0  24 44 69 72 3e 2e 54 65  6d 70 6c 61 74 65 73 2e  |$Dir>.Templates.|
000014b0  50 61 69 6e 74 2e 53 70  72 69 74 65 73 20 7e 43  |Paint.Sprites ~C|
000014c0  20 7e 56 22 0d 06 0e 57  ff 20 22 43 6f 70 79 20  | ~V"...W. "Copy |
000014d0  3c 52 65 73 24 44 69 72  3e 2e 50 61 6c 65 74 74  |<Res$Dir>.Palett|
000014e0  65 2e 54 65 6d 70 6c 61  74 65 73 20 3c 53 79 73  |e.Templates <Sys|
000014f0  74 65 6d 24 44 69 72 3e  2e 54 65 6d 70 6c 61 74  |tem$Dir>.Templat|
00001500  65 73 2e 50 61 6c 65 74  74 65 2e 54 65 6d 70 6c  |es.Palette.Templ|
00001510  61 74 65 73 20 7e 43 20  7e 56 22 0d 06 18 59 ff  |ates ~C ~V"...Y.|
00001520  20 22 43 6f 70 79 20 3c  52 65 73 24 44 69 72 3e  | "Copy <Res$Dir>|
00001530  2e 50 69 6e 62 6f 61 72  64 2e 54 65 6d 70 6c 61  |.Pinboard.Templa|
00001540  74 65 73 20 3c 53 79 73  74 65 6d 24 44 69 72 3e  |tes <System$Dir>|
00001550  2e 54 65 6d 70 6c 61 74  65 73 2e 50 69 6e 62 6f  |.Templates.Pinbo|
00001560  61 72 64 2e 54 65 6d 70  6c 61 74 65 73 20 7e 43  |ard.Templates ~C|
00001570  20 7e 56 22 0d 06 22 59  ff 20 22 43 6f 70 79 20  | ~V".."Y. "Copy |
00001580  3c 52 65 73 24 44 69 72  3e 2e 50 72 69 6e 74 65  |<Res$Dir>.Printe|
00001590  72 73 2e 54 65 6d 70 6c  61 74 65 73 20 3c 53 79  |rs.Templates <Sy|
000015a0  73 74 65 6d 24 44 69 72  3e 2e 54 65 6d 70 6c 61  |stem$Dir>.Templa|
000015b0  74 65 73 2e 50 72 69 6e  74 65 72 73 2e 54 65 6d  |tes.Printers.Tem|
000015c0  70 6c 61 74 65 73 20 7e  43 20 7e 56 22 0d 06 2c  |plates ~C ~V"..,|
000015d0  59 ff 20 22 43 6f 70 79  20 3c 52 65 73 24 44 69  |Y. "Copy <Res$Di|
000015e0  72 3e 2e 53 77 69 74 63  68 65 72 2e 54 65 6d 70  |r>.Switcher.Temp|
000015f0  6c 61 74 65 73 20 3c 53  79 73 74 65 6d 24 44 69  |lates <System$Di|
00001600  72 3e 2e 54 65 6d 70 6c  61 74 65 73 2e 53 77 69  |r>.Templates.Swi|
00001610  74 63 68 65 72 2e 54 65  6d 70 6c 61 74 65 73 20  |tcher.Templates |
00001620  7e 43 20 7e 56 22 0d 06  36 51 ff 20 22 43 6f 70  |~C ~V"..6Q. "Cop|
00001630  79 20 3c 52 65 73 24 44  69 72 3e 2e 57 69 6d 70  |y <Res$Dir>.Wimp|
00001640  2e 54 65 6d 70 6c 61 74  65 73 20 3c 53 79 73 74  |.Templates <Syst|
00001650  65 6d 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |em$Dir>.Template|
00001660  73 2e 57 69 6d 70 2e 54  65 6d 70 6c 61 74 65 73  |s.Wimp.Templates|
00001670  20 7e 43 20 7e 56 22 0d  06 40 05 e1 0d 06 4a 04  | ~C ~V"..@....J.|
00001680  0d 06 54 11 dd f2 6d 6f  76 65 6f 6c 64 62 6f 6f  |..T...moveoldboo|
00001690  74 0d 06 5e 11 e7 20 62  6f 6f 74 25 3d a3 20 8c  |t..^.. boot%=. .|
000016a0  20 e1 0d 06 68 34 f1 20  27 22 43 6f 70 79 69 6e  | ...h4. '"Copyin|
000016b0  67 20 65 78 69 73 74 69  6e 67 20 22 2b 62 6f 6f  |g existing "+boo|
000016c0  74 66 75 6c 6c 6e 61 6d  65 24 2b 22 20 66 69 6c  |tfullname$+" fil|
000016d0  65 20 74 6f 20 22 0d 06  72 28 f1 20 73 79 73 6c  |e to "..r(. sysl|
000016e0  6f 63 61 74 69 6f 6e 24  2b 22 2e 54 65 6d 70 6c  |ocation$+".Templ|
000016f0  61 74 65 73 2e 4f 6c 64  21 42 6f 6f 74 22 0d 06  |ates.Old!Boot"..|
00001700  7c 19 f1 20 22 66 6f 72  20 73 61 66 65 20 6b 65  ||.. "for safe ke|
00001710  65 70 69 6e 67 2e 22 0d  06 86 48 ff 20 22 43 6f  |eping."...H. "Co|
00001720  70 79 20 22 2b 62 6f 6f  74 66 75 6c 6c 6e 61 6d  |py "+bootfullnam|
00001730  65 24 2b 22 20 3c 53 79  73 74 65 6d 24 44 69 72  |e$+" <System$Dir|
00001740  3e 2e 54 65 6d 70 6c 61  74 65 73 2e 4f 6c 64 21  |>.Templates.Old!|
00001750  42 6f 6f 74 20 46 20 44  20 7e 43 20 7e 56 22 0d  |Boot F D ~C ~V".|
00001760  06 90 05 e1 0d 06 9a 04  0d 06 a4 14 dd f2 65 78  |..............ex|
00001770  61 6d 69 6e 65 6f 6c 64  62 6f 6f 74 0d 06 ae 11  |amineoldboot....|
00001780  e7 20 62 6f 6f 74 25 3d  a3 20 8c 20 e1 0d 06 b8  |. boot%=. . ....|
00001790  11 62 6f 72 64 65 72 75  74 69 6c 25 3d a3 0d 06  |.borderutil%=...|
000017a0  c2 27 f1 20 27 22 45 78  61 6d 69 6e 69 6e 67 20  |.'. '"Examining |
000017b0  79 6f 75 72 20 6f 6c 64  20 21 42 6f 6f 74 20 66  |your old !Boot f|
000017c0  69 6c 65 2e 22 0d 06 cc  32 72 65 61 64 62 6f 6f  |ile."...2readboo|
000017d0  74 25 3d 8e 28 22 3c 53  79 73 74 65 6d 24 44 69  |t%=.("<System$Di|
000017e0  72 3e 2e 54 65 6d 70 6c  61 74 65 73 2e 4f 6c 64  |r>.Templates.Old|
000017f0  21 42 6f 6f 74 22 29 0d  06 d6 05 f5 0d 06 e0 11  |!Boot").........|
00001800  20 62 6f 6f 74 6c 69 6e  65 24 3d 22 22 0d 06 ea  | bootline$=""...|
00001810  07 20 20 f5 0d 06 f4 1a  20 20 20 63 68 61 72 25  |.  .....   char%|
00001820  3d 9a 23 28 72 65 61 64  62 6f 6f 74 25 29 0d 06  |=.#(readboot%)..|
00001830  fe 28 20 20 20 e7 20 63  68 61 72 25 20 3c 3e 20  |.(   . char% <> |
00001840  31 30 20 8c 20 62 6f 6f  74 6c 69 6e 65 24 2b 3d  |10 . bootline$+=|
00001850  bd 63 68 61 72 25 0d 07  08 2a 20 20 fd 20 63 68  |.char%...*  . ch|
00001860  61 72 25 3d 31 30 20 84  20 8f 23 72 65 61 64 62  |ar%=10 . .#readb|
00001870  6f 6f 74 25 3d a2 23 72  65 61 64 62 6f 6f 74 25  |oot%=.#readboot%|
00001880  0d 07 12 24 20 e7 20 c2  62 6f 6f 74 6c 69 6e 65  |...$ . .bootline|
00001890  24 2c 31 30 29 3d 22 42  6f 72 64 65 72 55 74 69  |$,10)="BorderUti|
000018a0  6c 22 20 8c 0d 07 1c 29  20 20 f1 20 27 62 6f 6f  |l" ....)  . 'boo|
000018b0  74 6c 69 6e 65 24 2b 22  20 66 6f 75 6e 64 2c 20  |tline$+" found, |
000018c0  61 6c 6c 20 69 73 20 77  65 6c 6c 2e 22 0d 07 26  |all is well."..&|
000018d0  13 20 20 62 6f 72 64 65  72 75 74 69 6c 25 3d b9  |.  borderutil%=.|
000018e0  0d 07 30 06 20 cd 0d 07  3a 1d fd 20 8f 23 72 65  |..0. ...:.. .#re|
000018f0  61 64 62 6f 6f 74 25 3d  a2 23 72 65 61 64 62 6f  |adboot%=.#readbo|
00001900  6f 74 25 0d 07 44 0f d9  23 72 65 61 64 62 6f 6f  |ot%..D..#readboo|
00001910  74 25 0d 07 4e 15 e7 20  62 6f 72 64 65 72 75 74  |t%..N.. borderut|
00001920  69 6c 25 3d a3 20 8c 0d  07 58 27 20 f1 20 27 22  |il%=. ...X' . '"|
00001930  42 6f 72 64 65 72 55 74  69 6c 73 20 6d 6f 64 75  |BorderUtils modu|
00001940  6c 65 20 6e 6f 74 20 66  6f 75 6e 64 2e 22 0d 07  |le not found."..|
00001950  62 05 cd 0d 07 6c 05 e1  0d 07 76 04 0d 07 80 13  |b....l....v.....|
00001960  dd f2 63 72 65 61 74 65  6e 65 77 62 6f 6f 74 0d  |..createnewboot.|
00001970  07 8a 3b f4 20 4d 61 6b  65 20 73 75 72 65 20 74  |..;. Make sure t|
00001980  68 65 20 63 6f 6e 66 69  67 75 72 65 64 20 62 6f  |he configured bo|
00001990  6f 74 20 61 63 74 69 6f  6e 20 72 75 6e 73 20 61  |ot action runs a|
000019a0  20 62 6f 6f 74 20 66 69  6c 65 0d 07 94 16 ff 20  | boot file..... |
000019b0  22 43 6f 6e 66 69 67 75  72 65 20 42 6f 6f 74 22  |"Configure Boot"|
000019c0  0d 07 9e 2d f1 20 27 22  43 72 65 61 74 69 6e 67  |...-. '"Creating|
000019d0  20 6e 65 77 20 21 42 6f  6f 74 20 61 74 20 22 2b  | new !Boot at "+|
000019e0  62 6f 6f 74 66 75 6c 6c  6e 61 6d 65 24 0d 07 a8  |bootfullname$...|
000019f0  1f 77 72 69 74 65 62 6f  6f 74 25 3d ae 28 62 6f  |.writeboot%=.(bo|
00001a00  6f 74 66 75 6c 6c 6e 61  6d 65 24 29 0d 07 b2 30  |otfullname$)...0|
00001a10  d5 23 77 72 69 74 65 62  6f 6f 74 25 2c 22 7c 20  |.#writeboot%,"| |
00001a20  2a 2a 20 20 4c 6f 63 61  74 69 6f 6e 20 6f 66 20  |**  Location of |
00001a30  21 53 79 73 74 65 6d 20  20 2a 2a 22 0d 07 bc 2f  |!System  **".../|
00001a40  d5 23 77 72 69 74 65 62  6f 6f 74 25 2c 22 53 65  |.#writeboot%,"Se|
00001a50  74 20 53 79 73 74 65 6d  24 44 69 72 20 22 2b 73  |t System$Dir "+s|
00001a60  79 73 6c 6f 63 61 74 69  6f 6e 24 0d 07 c6 36 d5  |yslocation$...6.|
00001a70  23 77 72 69 74 65 62 6f  6f 74 25 2c 22 7c 20 2a  |#writeboot%,"| *|
00001a80  2a 20 20 53 74 61 72 74  20 6f 66 20 52 6f 6d 41  |*  Start of RomA|
00001a90  70 70 73 33 44 20 70 61  74 68 73 2e 20 20 2a 2a  |pps3D paths.  **|
00001aa0  22 0d 07 d0 4c d5 23 77  72 69 74 65 62 6f 6f 74  |"...L.#writeboot|
00001ab0  25 2c 22 53 65 74 20 46  69 6c 65 72 24 50 61 74  |%,"Set Filer$Pat|
00001ac0  68 20 3c 53 79 73 74 65  6d 24 44 69 72 3e 2e 54  |h <System$Dir>.T|
00001ad0  65 6d 70 6c 61 74 65 73  2e 46 69 6c 65 72 2e 2c  |emplates.Filer.,|
00001ae0  3c 46 69 6c 65 72 24 50  61 74 68 3e 22 0d 07 da  |<Filer$Path>"...|
00001af0  55 d5 23 77 72 69 74 65  62 6f 6f 74 25 2c 22 53  |U.#writeboot%,"S|
00001b00  65 74 20 46 69 6c 65 72  41 63 74 24 50 61 74 68  |et FilerAct$Path|
00001b10  20 3c 53 79 73 74 65 6d  24 44 69 72 3e 2e 54 65  | <System$Dir>.Te|
00001b20  6d 70 6c 61 74 65 73 2e  46 69 6c 65 72 41 63 74  |mplates.FilerAct|
00001b30  2e 2c 3c 46 69 6c 65 72  41 63 74 24 50 61 74 68  |.,<FilerAct$Path|
00001b40  3e 22 0d 07 e4 52 d5 23  77 72 69 74 65 62 6f 6f  |>"...R.#writeboo|
00001b50  74 25 2c 22 53 65 74 20  50 61 6c 65 74 74 65 24  |t%,"Set Palette$|
00001b60  50 61 74 68 20 3c 53 79  73 74 65 6d 24 44 69 72  |Path <System$Dir|
00001b70  3e 2e 54 65 6d 70 6c 61  74 65 73 2e 50 61 6c 65  |>.Templates.Pale|
00001b80  74 74 65 2e 2c 3c 50 61  6c 65 74 74 65 24 50 61  |tte.,<Palette$Pa|
00001b90  74 68 3e 22 0d 07 ee 55  d5 23 77 72 69 74 65 62  |th>"...U.#writeb|
00001ba0  6f 6f 74 25 2c 22 53 65  74 20 53 77 69 74 63 68  |oot%,"Set Switch|
00001bb0  65 72 24 50 61 74 68 20  3c 53 79 73 74 65 6d 24  |er$Path <System$|
00001bc0  44 69 72 3e 2e 54 65 6d  70 6c 61 74 65 73 2e 53  |Dir>.Templates.S|
00001bd0  77 69 74 63 68 65 72 2e  2c 3c 53 77 69 74 63 68  |witcher.,<Switch|
00001be0  65 72 24 50 61 74 68 3e  22 0d 07 f8 58 d5 23 77  |er$Path>"...X.#w|
00001bf0  72 69 74 65 62 6f 6f 74  25 2c 22 53 65 74 20 41  |riteboot%,"Set A|
00001c00  44 46 53 46 69 6c 65 72  24 50 61 74 68 20 3c 53  |DFSFiler$Path <S|
00001c10  79 73 74 65 6d 24 44 69  72 3e 2e 54 65 6d 70 6c  |ystem$Dir>.Templ|
00001c20  61 74 65 73 2e 41 44 46  53 46 69 6c 65 72 2e 2c  |ates.ADFSFiler.,|
00001c30  3c 41 44 46 53 46 69 6c  65 72 24 50 61 74 68 3e  |<ADFSFiler$Path>|
00001c40  22 0d 08 02 49 d5 23 77  72 69 74 65 62 6f 6f 74  |"...I.#writeboot|
00001c50  25 2c 22 53 65 74 20 46  72 65 65 24 50 61 74 68  |%,"Set Free$Path|
00001c60  20 3c 53 79 73 74 65 6d  24 44 69 72 3e 2e 54 65  | <System$Dir>.Te|
00001c70  6d 70 6c 61 74 65 73 2e  46 72 65 65 2e 2c 3c 46  |mplates.Free.,<F|
00001c80  72 65 65 24 50 61 74 68  3e 22 0d 08 0c 55 d5 23  |ree$Path>"...U.#|
00001c90  77 72 69 74 65 62 6f 6f  74 25 2c 22 53 65 74 20  |writeboot%,"Set |
00001ca0  50 69 6e 62 6f 61 72 64  24 50 61 74 68 20 3c 53  |Pinboard$Path <S|
00001cb0  79 73 74 65 6d 24 44 69  72 3e 2e 54 65 6d 70 6c  |ystem$Dir>.Templ|
00001cc0  61 74 65 73 2e 50 69 6e  62 6f 61 72 64 2e 2c 3c  |ates.Pinboard.,<|
00001cd0  50 69 6e 62 6f 61 72 64  24 50 61 74 68 3e 22 0d  |Pinboard$Path>".|
00001ce0  08 16 35 d5 23 77 72 69  74 65 62 6f 6f 74 25 2c  |..5.#writeboot%,|
00001cf0  22 7c 20 20 2a 2a 20 20  45 6e 64 20 6f 66 20 52  |"|  **  End of R|
00001d00  6f 6d 41 70 70 73 33 44  20 70 61 74 68 73 2e 20  |omApps3D paths. |
00001d10  20 2a 2a 22 0d 08 20 52  d5 23 77 72 69 74 65 62  | **".. R.#writeb|
00001d20  6f 6f 74 25 2c 22 52 4d  65 6e 73 75 72 65 20 41  |oot%,"RMensure A|
00001d30  70 70 73 33 44 6d 6f 64  73 20 31 2e 35 30 20 52  |pps3Dmods 1.50 R|
00001d40  4d 6c 6f 61 64 20 3c 53  79 73 74 65 6d 24 44 69  |Mload <System$Di|
00001d50  72 3e 2e 4d 6f 64 75 6c  65 73 2e 41 70 70 73 33  |r>.Modules.Apps3|
00001d60  44 6d 6f 64 73 22 0d 08  2a 15 e7 20 62 6f 72 64  |Dmods"..*.. bord|
00001d70  65 72 75 74 69 6c 25 3d  a3 20 8c 0d 08 34 54 20  |erutil%=. ...4T |
00001d80  d5 23 77 72 69 74 65 62  6f 6f 74 25 2c 22 52 4d  |.#writeboot%,"RM|
00001d90  65 6e 73 75 72 65 20 42  6f 72 64 65 72 55 74 69  |ensure BorderUti|
00001da0  6c 73 20 30 2e 30 32 20  52 4d 6c 6f 61 64 20 3c  |ls 0.02 RMload <|
00001db0  53 79 73 74 65 6d 24 44  69 72 3e 2e 4d 6f 64 75  |System$Dir>.Modu|
00001dc0  6c 65 73 2e 42 6f 72 64  65 72 55 74 69 6c 22 0d  |les.BorderUtil".|
00001dd0  08 3e 34 20 f1 20 27 22  41 64 64 69 6e 67 20 52  |.>4 . '"Adding R|
00001de0  4d 65 6e 73 75 72 65 20  42 6f 72 64 65 72 55 74  |Mensure BorderUt|
00001df0  69 6c 73 20 74 6f 20 21  42 6f 6f 74 20 66 69 6c  |ils to !Boot fil|
00001e00  65 2e 22 0d 08 48 05 cd  0d 08 52 26 e7 20 62 6f  |e."..H....R&. bo|
00001e10  6f 74 25 3d a3 20 8c 20  d5 23 77 72 69 74 65 62  |ot%=. . .#writeb|
00001e20  6f 6f 74 25 2c 22 44 65  73 6b 54 6f 70 22 0d 08  |oot%,"DeskTop"..|
00001e30  5c 10 d9 23 77 72 69 74  65 62 6f 6f 74 25 0d 08  |\..#writeboot%..|
00001e40  66 45 e7 20 62 6f 6f 74  25 3d b9 20 80 20 62 6f  |fE. boot%=. . bo|
00001e50  6f 74 74 79 70 65 25 3d  b9 20 8c 20 c8 99 20 22  |ottype%=. . .. "|
00001e60  4f 53 5f 46 69 6c 65 22  2c 31 38 2c 62 6f 6f 74  |OS_File",18,boot|
00001e70  66 75 6c 6c 6e 61 6d 65  24 2c 66 69 6c 65 74 79  |fullname$,filety|
00001e80  70 65 25 0d 08 70 36 e7  20 62 6f 6f 74 25 3d a3  |pe%..p6. boot%=.|
00001e90  20 8c 20 c8 99 20 22 4f  53 5f 46 69 6c 65 22 2c  | . .. "OS_File",|
00001ea0  31 38 2c 62 6f 6f 74 66  75 6c 6c 6e 61 6d 65 24  |18,bootfullname$|
00001eb0  2c 64 65 73 6b 74 6f 70  25 0d 08 7a 05 e1 0d 08  |,desktop%..z....|
00001ec0  84 04 0d 08 8e 0f dd f2  6a 6f 69 6e 62 6f 6f 74  |........joinboot|
00001ed0  73 0d 08 98 11 e7 20 62  6f 6f 74 25 3d a3 20 8c  |s..... boot%=. .|
00001ee0  20 e1 0d 08 a2 2f f1 20  27 22 41 64 64 69 6e 67  | ..../. '"Adding|
00001ef0  20 79 6f 75 72 20 6f 6c  64 20 21 42 6f 6f 74 20  | your old !Boot |
00001f00  74 6f 20 74 68 65 20 6e  65 77 20 21 42 6f 6f 74  |to the new !Boot|
00001f10  22 0d 08 ac 32 72 65 61  64 62 6f 6f 74 25 3d 8e  |"...2readboot%=.|
00001f20  28 22 3c 53 79 73 74 65  6d 24 44 69 72 3e 2e 54  |("<System$Dir>.T|
00001f30  65 6d 70 6c 61 74 65 73  2e 4f 6c 64 21 42 6f 6f  |emplates.Old!Boo|
00001f40  74 22 29 0d 08 b6 1f 77  72 69 74 65 62 6f 6f 74  |t")....writeboot|
00001f50  25 3d ad 28 62 6f 6f 74  66 75 6c 6c 6e 61 6d 65  |%=.(bootfullname|
00001f60  24 29 0d 08 c0 1d cf 23  77 72 69 74 65 62 6f 6f  |$).....#writeboo|
00001f70  74 25 3d a2 23 77 72 69  74 65 62 6f 6f 74 25 0d  |t%=.#writeboot%.|
00001f80  08 ca 05 f5 0d 08 d4 11  20 62 6f 6f 74 6c 69 6e  |........ bootlin|
00001f90  65 24 3d 22 22 0d 08 de  07 20 20 f5 0d 08 e8 1a  |e$=""....  .....|
00001fa0  20 20 20 63 68 61 72 25  3d 9a 23 28 72 65 61 64  |   char%=.#(read|
00001fb0  62 6f 6f 74 25 29 0d 08  f2 28 20 20 20 e7 20 63  |boot%)...(   . c|
00001fc0  68 61 72 25 20 3c 3e 20  31 30 20 8c 20 62 6f 6f  |har% <> 10 . boo|
00001fd0  74 6c 69 6e 65 24 2b 3d  bd 63 68 61 72 25 0d 08  |tline$+=.char%..|
00001fe0  fc 2a 20 20 fd 20 63 68  61 72 25 3d 31 30 20 84  |.*  . char%=10 .|
00001ff0  20 8f 23 72 65 61 64 62  6f 6f 74 25 3d a2 23 72  | .#readboot%=.#r|
00002000  65 61 64 62 6f 6f 74 25  0d 09 06 22 20 e7 20 c2  |eadboot%..." . .|
00002010  62 6f 6f 74 6c 69 6e 65  24 2c 39 29 3d 22 52 4f  |bootline$,9)="RO|
00002020  4d 41 70 70 73 33 44 22  20 8c 0d 09 10 12 20 20  |MApps3D" .....  |
00002030  f1 20 27 62 6f 6f 74 6c  69 6e 65 24 0d 09 1a 2f  |. 'bootline$.../|
00002040  20 20 f1 20 22 68 61 73  20 62 65 65 6e 20 72 65  |  . "has been re|
00002050  6d 6f 76 65 64 20 66 72  6f 6d 20 74 68 65 20 21  |moved from the !|
00002060  42 6f 6f 74 20 66 69 6c  65 2e 22 0d 09 24 12 20  |Boot file."..$. |
00002070  20 62 6f 6f 74 6c 69 6e  65 24 3d 22 22 0d 09 2e  | bootline$=""...|
00002080  06 20 cd 0d 09 38 2d 20  e7 20 62 6f 6f 74 6c 69  |. ...8- . bootli|
00002090  6e 65 24 20 3c 3e 20 22  22 20 d5 23 77 72 69 74  |ne$ <> "" .#writ|
000020a0  65 62 6f 6f 74 25 2c 62  6f 6f 74 6c 69 6e 65 24  |eboot%,bootline$|
000020b0  0d 09 42 1d fd 20 8f 23  72 65 61 64 62 6f 6f 74  |..B.. .#readboot|
000020c0  25 3d a2 23 72 65 61 64  62 6f 6f 74 25 0d 09 4c  |%=.#readboot%..L|
000020d0  0f d9 23 72 65 61 64 62  6f 6f 74 25 0d 09 56 10  |..#readboot%..V.|
000020e0  d9 23 77 72 69 74 65 62  6f 6f 74 25 0d 09 60 05  |.#writeboot%..`.|
000020f0  e1 0d 09 6a 04 0d 09 74  14 dd f2 63 6f 70 79 61  |...j...t...copya|
00002100  70 70 73 33 64 6d 6f 64  73 0d 09 7e 1f f1 20 27  |pps3dmods..~.. '|
00002110  22 43 6f 70 79 69 6e 67  20 41 70 70 73 33 44 6d  |"Copying Apps3Dm|
00002120  6f 64 73 20 74 6f 20 22  0d 09 88 28 f1 20 73 79  |ods to "...(. sy|
00002130  73 6c 6f 63 61 74 69 6f  6e 24 2b 22 2e 4d 6f 64  |slocation$+".Mod|
00002140  75 6c 65 73 2e 41 70 70  73 33 44 6d 6f 64 73 22  |ules.Apps3Dmods"|
00002150  0d 09 92 4f ff 20 22 43  6f 70 79 20 3c 33 44 52  |...O. "Copy <3DR|
00002160  61 6d 46 72 65 65 24 44  69 72 3e 2e 41 70 70 73  |amFree$Dir>.Apps|
00002170  33 44 6d 6f 64 73 20 3c  53 79 73 74 65 6d 24 44  |3Dmods <System$D|
00002180  69 72 3e 2e 4d 6f 64 75  6c 65 73 2e 41 70 70 73  |ir>.Modules.Apps|
00002190  33 44 6d 6f 64 73 20 46  20 7e 43 20 7e 56 22 0d  |3Dmods F ~C ~V".|
000021a0  09 9c 2e ff 20 22 52 4d  4c 6f 61 64 20 3c 53 79  |.... "RMLoad <Sy|
000021b0  73 74 65 6d 24 44 69 72  3e 2e 4d 6f 64 75 6c 65  |stem$Dir>.Module|
000021c0  73 2e 41 70 70 73 33 44  6d 6f 64 73 22 0d 09 a6  |s.Apps3Dmods"...|
000021d0  05 e1 0d 09 b0 04 0d 09  ba 09 dd f2 65 6e 64 0d  |............end.|
000021e0  09 c4 39 f1 20 27 22 45  6e 64 20 6f 66 20 70 72  |..9. '"End of pr|
000021f0  6f 67 72 61 6d 2e 20 53  68 75 74 20 64 6f 77 6e  |ogram. Shut down|
00002200  20 74 68 65 20 63 6f 6d  70 75 74 65 72 20 61 6e  | the computer an|
00002210  64 20 72 65 73 65 74 22  0d 09 ce 2f f1 20 22 69  |d reset".../. "i|
00002220  74 20 66 6f 72 20 74 68  65 20 63 68 61 6e 67 65  |t for the change|
00002230  73 20 74 6f 20 63 6f 6d  65 20 69 6e 74 6f 20 65  |s to come into e|
00002240  66 66 65 63 74 2e 22 0d  09 d8 2b f1 20 27 22 50  |ffect."...+. '"P|
00002250  72 65 73 73 20 46 33 20  74 6f 20 73 61 76 65 20  |ress F3 to save |
00002260  74 68 69 73 20 69 6e 66  6f 72 6d 61 74 69 6f 6e  |this information|
00002270  2e 22 0d 09 e2 05 e0 0d  09 ec 05 e1 0d ff        |."............|
0000227e

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .