ô > FileSW/S : 4ô 28-Jul-2008 JGH: Seperated source into modules (: 2 list%=¹-¹ <î … ö:ñ " @ ";ž:à Ffname$="FileSW" P: ZÞ mcode% &1000 d ã P=0 ¸ 1 nP%=0:O%=mcode% x[OPT P*(2-list%)+4 ‚\ ========================= Œ\ *** FILESWITCH ƒULE *** –\ ========================= .FileSW_Base ªEQUD 0:\ FileSW_Start ´B FileSW_Init ¾B FileSW_Final ÈB FileSW_Service ÒEQUD FileSW_Title ÜEQUD FileSW_Help æ%EQUD 0 :\ FileSW_Commands ð$EQUD &00200 :\ FileSW_SWIBase ú'EQUD 0 :\ FileSW_SWIHandler %EQUD 0 :\ FileSW_SWITable $EQUD 0 :\ FileSW_SWICode : ".FileSW_Title ,"EQUS "FileSwitch":EQUB 0:ALIGN 6.FileSW_Help @:EQUS "FileSwitch"+½9+"0.01 (18 Jul 2008)":EQUB 0:ALIGN J: T.FileSW_Commands ^EQUB 0:ALIGN h r\ RISC OS contains: |^\ Access, Cat, CDir, Copy, Count, Dir, EnumDir, Ex, FileInfo, Info, LCat, LEx, Lib, Rename †S\ Run, SetType, Shut, ShutDown, Stamp, Up, Wipe, Back, URD, NoDir, NoURD, NoLib "\ Config. FileSystem, Truncate š\ ¤\ RISC OS claims: ®\ filing vectors ¸ Â: Ì.FileSW_Init :MOV PC,R14 Ö.FileSW_Final :MOV PC,R14 à.FileSW_Service :MOV PC,R14 ê: ô: þ]í :A$="*SAVE "+fname$+" "+Ã~mcode%+" "+Ã~O%+" 0 FFFFFA00" ÿ A$:ÿ"Stamp "+fname$ ÿ