start tok64 d64-l4TExZ
0 REM easy-format (c) 1991 mr.p.
1 INPUT"device?#8{left*3}";d:INPUT"drive ?#0{left*3}";m:m$=MID$(STR$(m),2)
2 PRINT"{reverse on}{down}{right} warning {right}{reverse off}this destroys all information{space*11}on the disk.
3 PRINT"{down} press {reverse on} y {reverse off} to confirm.
4 GETa$:ON-(a$<>"y")GOTO4:OPENd,d,15,"n"+m$+":disk,xx":CLOSEd
stop tok64
(bastext 1.0)