9900HOME:VTAB 8:HTAB 8:INVERSE:? " DRIVE SELECTION ":NORMAL
9901VTAB 10:HTAB 4:? "Press any key to continue":GET a$:HOME: VTAB 9:? " Press <I> to start again"
 9902?:? " Press <II> to end program"
 9904?:? " Press <III> to select drive"
9905GET a$
9906IF ASC(a$)=129 THEN RUN
9908IF ASC(a$)=131 THEN GOTO 9950
9910IF ASC(a$)=130 THEN HOME:VTAB 10:? " Returning to        SmartBASIC(tm)":END
9912IF NOT (a$="129" OR a$="131" OR a$="130") THEN 9900
9950HOME:VTAB 9:? " Press I for menu on Drive A"
9951?:? " Press II for menu on Drive B"
9952?:? " Press III for menu on Drive C"
9953?:? " Press IV for menu on Drive D"
9954?:? " Press V to end program"
9955GET a$
9956IF ASC(a$)=129 THEN ? CHR$(4); "run menu d1"
9957IF ASC(a$)=130 THEN ? CHR$(4); "run menu d2"
9958IF ASC(a$)=131 THEN ? CHR$(4); "run menu d5"
9959IF ASC(a$)=132 THEN ? CHR$(4); "run menu d6"
9960IF ASC(a$)=133 THEN 9900
9964HOME:VTAB 10:? TAB(5); "*ERROR -- TRY AGAIN*"
9966FOR k=1 TO 2000:NEXT k
9968GOTO 9950




