LOCATE 4, 8: INPUT "Enter Trump deck name : "; nme$
IF LEN(nme$) THEN
OPEN "C:\" + nme$ + ".txt" FOR RANDOM AS #1 LEN = LEN(newcard)
IF LOF(1) THEN ' data found
EXIT DO ' ONLY way out of loop
ELSE : CLOSE #1: KILL "C:\" + nme$ + ".txt"
NOTE: You are working in a BAD directory! Qbasic and your programs should be placed in a new folder off of C:, like C:\Qbasic. BAD things could happen there because Windows may actually have empty files there.
|Response Title||Author and Date|
|Sorted....||unseenmachine on Jan 6|