10 MODE7
   20 PRINT"Disassemblers by M.Bobrowski"
   30 PRINT"Choose:"
   40 PRINT"1. Run from &1900"
   50 PRINT"2. Run from &7000"
   60 REPEAT
   70 A$=GET$
   80 UNTILINSTR("12",A$)
   90 IFA$="1":*RUN UDA19
  100 IFA$="2":*RUN UDA70