CLS
DIM sys$(15)
sys$(1) = "bone"

sys$(2) = "resp"
sys$(3) = "skin"
sys$(4) = "eae"
sys$(5) = "gyn"
sys$(6) = "gu"
sys$(7) = "gi"
sys$(8) = "gu"
sys$(9) = "hem"
sys$(10) = "cns"
sys$(11) = "breast"
sys$(12) = "cv"
sys$(13) = "endo"

sysA% = 0
FOR I = 1 TO 13
sysA% = sysA% + 1
Infile$ = sys$(sysA%) + ".dat"
PRINT "opening "; sys$(sysA%)
PRINT "previouse record reads = "; fcount%
'INPUT o$
fcount% = 0
OPEN Infile$ FOR INPUT AS #1
DO UNTIL EOF(1)
'
'  Flush veriables
'
rec$ = ""
trec$ = ""

sp% = 0
lp% = 0
oldFileN$ = ""
ds% = 0
fsuffixO$ = ""
fsuffixN$ = ""
fprefixO$ = ""
fprefixN$ = ""
oldFileN$ = ""
fsuffixO$ = ""

newfileN$ = ""

'
'  End Flush veriables
'
LINE INPUT #1, rec$
rec$ = LCASE$(rec$)
fcount% = fcount% + 1
rec$ = RTRIM$(rec$)
'PRINT "right trim is -  "; RIGHT$(rec$, 1)
'PRINT rec$
'INPUT o$
'IF RIGHT$(rec$, 1) <> "f" THEN GOTO 888
'IF RIGHT$(rec$, 1) <> "F" THEN GOTO 888
'
'return right most 15 chars
'
rec$ = RTRIM$(rec$)
rec$ = LTRIM$(rec$)
trec$ = RIGHT$(rec$, 15)
'PRINT trec$

'
' find file name in the lefy most 15 chars of directory listing
'
sp% = INSTR(1, trec$, " ")    'find space position
lp% = LEN(trec$)
'PRINT sp%
oldFileN$ = RIGHT$(trec$, lp% - sp%) 'get file name right of space between size & file name
oldFileN$ = LTRIM$(oldFileN$)
oldFileN$ = RTRIM$(oldFileN$)
PRINT oldFileN$
'
' Find file name suffix & prefix
'
ds% = INSTR(1, oldFileN$, ".")
PRINT ds%
IF ds% > 0 THEN fsuffixO$ = RIGHT$(oldFileN$, ds% - 1)

'ds% = INSTR(1, fsuffix0$, ".")
'PRINT ds%
'IF ds% > 0 THEN fsuffixO$ = RIGHT$(fsuffix$, ds% - 1)


'PRINT fsuffixO$
IF ds% > 0 THEN fprefixO$ = LEFT$(oldFileN$, ds% - 1)
PRINT fprefixO$
fprefixO$ = RTRIM$(fprefixO$)
oldFileN$ = fprefixO$ + "~1  ." + fsuffixO$
fsuffixO$ = LCASE$(fsuffixO$)
'PRINT fsuffixO$
'INPUT o$
'
' change bigs
'
PRINT "Suffix =  "; oldFileN$; "   "; fsuffixO$

'INPUT o$
IF fsuffixO$ = "bgif" THEN
PRINT " IS Bgif  "
'INPUT o$
fsuffixN$ = "gif"
fprefixN$ = fprefixO$ + "b"

'PRINT fprefixN$ + "." + fsuffixN$

newfileN$ = fprefixN$ + "." + fsuffixN$
PRINT "Old File Name ="; folder$ + oldFileN$, " New File Name = "; newfileN$
'INPUT o$
'PRINT "gi\" + newfileN$
newfileN$ = LTRIM$(newfileN$)
newfileN$ = RTRIM$(newfileN$)
newfileN$ = LCASE$(newfileN$)
PRINT oldFileN$
'INPUT o$
folder$ = "C:\eAtlas\Images\" + sys$(sysA%) + "\"
ON ERROR GOTO 999
newfileN$ = LCASE$(newfileN$)
NAME folder$ + oldFileN$ AS folder$ + newfileN$
END IF
'
'   Change smalls
'
'
IF fsuffixO$ = "sgif" THEN
PRINT "Is sgif  "
'INPUT o$
fsuffixN$ = "gif"
fprefixN$ = fprefixO$ + "s"

'PRINT fprefixN$ + "." + fsuffixN$

newfileN$ = fprefixN$ + "." + fsuffixN$
newfileN$ = LCASE$(newfileN$)
PRINT "Old File Name ="; folder$ + oldFileN$, " New File Name = "; newfileN$
'INPUT o$
'PRINT "gi\" + newfileN$
newfileN$ = LTRIM$(newfileN$)
newfileN$ = RTRIM$(newfileN$)
newfileN$ = LCASE$(newfileN$)
PRINT oldFileN$
'INPUT o$
folder$ = "C:\eAtlas\Images\" + sys$(sysA%) + "\"
ON ERROR GOTO 999
newfileN$ = LCASE$(newfileN$)
NAME folder$ + oldFileN$ AS folder$ + newfileN$
END IF



1010 LOOP
CLOSE #1
PRINT " Going On NEXT I " sys$(sysA%)
INPUT o$
NEXT I


888 PRINT "Skip for no F "; rec$
GOTO 1010

999 PRINT "Skip for error "; rec$
GOTO 1010
END