[no subject]

TYPE$ =  MID$ (DIR$,18,3): REM  BIN,SYS..NOT USED
if type$="BIN" goto keeper

keeper
move$(X) =MID$ (DIR$,2, 16)

 360 L$ =  MID$ (DIR$,63,9): REM  LENGTH$
 370 IF RIGHT$ (L$,1) = " " THEN L$ =  LEFT$ (L$, LEN (L$) -� 1): GOTO 370
 380 IF MID$ (L$,1,1) = " " THEN L$ =  RIGHT$ (L$, LEN (L$) �- 1): GOTO 380
 390 REM   ASCII FILE LENGTH..CONVERT FOR MACHINE
 400 L = 0:LL =  LEN (L$): FOR N = 1 TO LL STEP 1
 410 L = L + (( ASC ( MID$ (L$,LL + 1 - N,1)) - 48) * 10 ^ N�): NEXT N
 420 L = L / 10
 430 AD$ =  RIGHT$ (DIR$,4)
 440 REM   ASCII LOAD ADDRESS...CONVERT FOR MACHINE
 450 A = ( ASC ( MID$ (AD$,4,1)) - 48)
 460 A = A + (( ASC ( MID$ (AD$,3,1)) - 48) * 16)
 470 A = A + (( ASC ( MID$ (AD$,2,1)) - 48) * 256)
 480 A = A + (( ASC ( MID$ (AD$,1,1)) - 48) * 4096)

Lk(x)=L
Ak(x)=A

for loop =0 to x
"bload" ;  move$(loop)
"bsave /ram/" ; move$(loop) ; ",A$" ; Ak(loop) ; ",L"; Lk(loop)