solved it a differant way but thanks

I have used to IF's instead, now instead of DO LOOP UNTIL, the way it exits the loop now is if the values are not equal, using EXIT DO...but thanks for the help...

As for a flawed coding...is there a better way to do this?...UNSEEN


DECLARE SUB COPYFROM ()
'PSP FILE MASTER V.01 - A PORT OF PSP FILE TRANSFER V.03
'CODED BY UNSEEN MACHINE
DIM PSPDRV AS STRING, FLDR AS STRING, MMOPT AS INTEGER, PSPCOPY AS INTEGER
DIM ARL AS INTEGER
ARL = 5
SCREEN 0: COLOR 15, 1
CLS
LOCATE 3, 30: PRINT "PSP FILE MASTER V.01"
DO
LOCATE 5, 8: INPUT "PSP DRIVE LETTER : ", PSPDRV
LOOP UNTIL PSPDRV > ""
CLS
DO ' MASTER LOOP
LOCATE 3, 35: PRINT "MAIN MENU"
LOCATE 5, 33: PRINT "COPY FROM PSP"
LOCATE 6, 33: PRINT "COPY TO PSP"
LOCATE 7, 33: PRINT "OTHER STUFF"
LOCATE 8, 33: PRINT "EXIT"
LOCATE ARL, 31: PRINT "¯": LOCATE ARL, 47: PRINT "®"
ARROW$ = INKEY$
SELECT CASE ARROW$
CASE CHR$(0) + CHR$(80): LOCATE ARL, 31: PRINT " ": LOCATE ARL, 47: PRINT " ": ARL = ARL + 1
CASE CHR$(13): EXIT DO
END SELECT
IF ARL = 9 THEN ARL = 5
LOOP
IF ARL = 5 THEN CALL COPYFROM

SUB COPYFROM
SHARED ARL AS INTEGER
SHARED PSPDRV AS STRING
DIM DEST AS STRING, DESTF AS STRING
ARL = 5
CLS
DO
LOCATE 3, 28: PRINT "COPY FROM PSP MENU"
LOCATE 5, 30: PRINT "COPY SAVEDATA"
LOCATE 6, 30: PRINT "COPY ENTIRE MS"
LOCATE 7, 30: PRINT "BACK TO MAIN MENU"
LOCATE ARL, 28: PRINT "¯": LOCATE ARL, 49: PRINT "®"
ARROW$ = INKEY$
SELECT CASE ARROW$
CASE CHR$(0) + CHR$(80): LOCATE ARL, 28: PRINT " ": LOCATE ARL, 49: PRINT " ": ARL = ARL + 1
CASE CHR$(13): EXIT DO
END SELECT
IF ARL = 8 THEN ARL = 5
LOOP
IF ARL = 5 THEN
CLS
DO
LOCATE 3, 10: INPUT "ENTER DESTINATION DRIVE LETTER : ", DEST$
IF DEST$ > "" AND DEST$ <> PSPDRV$ THEN EXIT DO
IF DEST$ = PSPDRV$ THEN LOCATE 10, 20: PRINT "ERROR - SOURCE AND DESTINATION ARE THE SAME"
LOOP
DO
LOCATE 5, 10: INPUT "ENTER DESTINATION FOLDER : ", DESTF$
LOOP UNTIL DESTF$ > ""
DO
LOCATE 7, 10: PRINT "PRESS ENTER TO COPY"
LOOP UNTIL INKEY$ = CHR$(13)
LOCATE 10, 10: PRINT "COPYING "; PSPDRV; ":\SAVEDATA TO "; DEST$; ":\"; DESTF$
END IF
END SUB

Its no where near finished yet, just the bare bones at the moment...but as allways if there is a better way i would love to know...