start tok64 d64-H2FY1y 0 REM easy-validate (c) 1991 mr.p. 1 INPUT"device?#8{left*3}";d:INPUT"drive ?#0{left*3}";m:m$=MID$(STR$(m),2) 2 OPENd,d,15,"v"+m$+":":FORi=.TO1STEP.:GET#d,a$:IFa$<>CHR$(13)THENPRINTa$;:NEXT 3 CLOSEd:REM 1) get device and drive# 2)open command chnl.send validate 4 REM get status 3) close chnl stop tok64 (bastext 1.0)