! REUXFER (7 JULY 1988)0 USAGE:B BOOT CP/M|( COPY DESIRED FILES TO CP/M RAMDISK (USER 0 ONLY)2 REMOVE CP/M DISK FROM DRIVE A:< RETURN TO C=128 NATIVE MODE (DO NOT TURN COMPUTER OFF)F HAVE A NORMAL COMMODORE DOS DISK READY<P RUN "REUXFER" & FOLLOW THE PROMPTSG 2770X FC$(127,5) (0)0 S4%1:S8%.: S4%.:S8%1 1,1: 0 S8% 5""(142) : S8% " WORKING, PLEASE WAIT "(143)$LM$"" : S8% LM$" "G. S4% "SCREEN WILL BLANK, PLEASE WAIT": " PRESS ANY KEY ": Z$N8%tBBS2: ((("DF00"))16)0 BS1L 1130VA4864:C.: B`: A,B : CCB : B :AA1 : B0j 133,254,162,1,32,201,255,169,0,133,251,169,28,1338t 252,169,128,133,253,160,0,162,0,161,251,32,210,255,230,251z~ 200,192,128,208,242,198,254,234,234,169,0,197,251,240,8,197 254,208,226,32,204,255,96,230,252,76,45,19,-1 C 9417 & : " ERROR IN DATA STATEMENTS!!" :   15:&: ! (2048BS),7168,0,0 : % :1  FIND FILE ENTRIES7 :T FC 0 : EP 0 : NF 0g FA ("1C00")m  : (FA) 0  : A$"" : FC$(FC,EP) ((FA)) : EP EP 1! : A 0 7 : A$ A$ ((FA A 1)127) : A!: FC$(FC,EP) A$4!: EP EP 1E!(: A$ ""!2: A 0 2 : A$ A$ ((FA A 9)127) : A!<: FC$(FC,EP) A$!F: EP EP 1!P: A$ ""!Z: FC$(FC,EP) ((FA 12))!d: EP EP 1 "n: FC$(FC,EP) ((FA 15))5"x: EP EP 1M": A 0 15": (FAA16) 0 A$ A$ ((FAA16))": A": FC$(FC,EP) A$": EP .": FC FC 1": ": FA FA ("20") # FA (5632BS)#FC FC 1"#::# SORT FILE ENTRIES@#:P#LC FC 1V#k# A 0 LC 1#": FC$(A,1) FC$(A1,1) #,: B 0 5#6: T$(B) FC$(A,B)#@: FC$(A,B) FC$(A1,B) $J: FC$(A1,B) T$(B)$T: B#$^: +$h A;$rLC LC 1J$| LC 1P$:$ GET ALL INFORMATION TOGETHER FOR MULTIPLE DIRECTORY ENTRY FILES$:$A .$$ FC$(A,1) FC$(A1,1) $: FC$(A,2) FC$(A1,2) %: FC$(A,3) FC$(A1,3) T%: FC$(A,3) FC$(A1,3) : FC$(A,4) FC$(A1,4)%: FC$(A,5) FC$(A,5) FC$(A1,5)%: B A1 FC1%: C . 5%: FC$(B,C) FC$(B1,C)%: C &: B#&: FC FC 19&&: A A 1M&0:  : f&:: B . 5&D: T$(B) FC$(A,B)&N: FC$(A,B) FC$(A1,B)&X: FC$(A1,B) T$(B)&b: B&l: A A 1&v: ': ''A A 1.' A FC14':S' PRINT RAMDISK DIRECTORYY':e' ""l'&' X 0 FC 1': FC$(X,1)"."FC$(X,2);': "####";2((FC$(X,5)));': "K";' 3)'  X': (  GET FILE TO BE TRANSFERED(*:)(4:LM$;:(27)"T"2(>""W(H " ENTER FILE TO BE TRANSFERED"~(R " BE SURE TO INCLUDE A PERIOD"(\ " BETWEEN THE FILENAME AND EXTENSION"(fTF$(p:(zA$ (TF$,((TF$,"."))1))B$ (TF$,((TF$)) ((TF$,".")))): C$ A$#) (A$) 8 1): C$ A$M): A 1 (8 (A$))c): A$ A$ " "m): At))TF$ A$ B$)WF$ C$ "." B$):) FIND FILE TO TRANSFER):) A . : GI% .) * : A$ FC$(A,1) FC$(A,2)&*$ : A$ TF$ GI% 1 : TX A4*. A A 1Q*8 (GI% 1) (A FC)W*B :*L GI%1 : " FILE NOT FOUND" ::: 2120*V : " OUTPUT TO WHICH DRIVE8 ";U%*` (U% 8) (U% 30) 2390*j :+t : " INSERT DISK TO RECEIVE "WF$%+~ " INTO DRIVE UNIT "U%G+ " PRESS ESCAPE TO CANCEL"j+ " ANY OTHER KEY TO CONTINUE"s+ Z$+ Z$ (27) 2720+ :+ "" : " WRITING "WF$::+ WF$ "0:"WF$",S,W"+ 1,U%,2,WF$+ DS19 2770, NR ((FC$(TX,3)) 128) (FC$(TX,4))A, NB (FC$(TX,5)) : KB NB BSM, RG NRX, BP 1^, :d, , : RB (((FC$(TX,5),BP,1)) 32),( : RA (((FC$(TX,5),BP,1)) (RB 32))(2048),2 : ! (1024BS),7168,RA,RB-< : RG BS8 TR BS8 : TR RG-F : 4864,TR3-P : RG RG TRC-Z : " ";]-d : "###";(BPBS);s-n : "K WRITTEN "-x : BP BP 1- RG 0- 1- :- :: " TRANSFER ANOTHER FILE?"- Z$- Z$ "Y" 2110- "";- . 1 :DS$ :(ER): & : . :$. :5. ZACK MOMANH. 479 SPRING ST]. MAC, GA 31201