10 ON ERROR OSCLI("DIR $"):CHAIN"!Menu"
   20 *LOAD CODEFIL 900
   30 ?&72=34
   40 *LOAD BREAK2 2000
   50 CALL &900
   60 GOTO50