Deja Vu #0A 30 сентября 2000

Программирование

Программирование - Загрузчик для рабочей дискеты.

__________________________________________

(C) Колесников Сергей aka SKL-KEEPER
__________________________________________

      Загрузчик для рабочей дискеты

   Наверняка у каждого из вас есть рабочая
дискета, на  которой записаны самые нужные
для  Вас программы, которые Вам нужны пос-
тоянно (не  будете же Вы держать на разных
дисках ассемблер, коммандер и рабочие фай-
лы?). Вот и у меня такая есть.
   Для удобства работы  Вы, скорее  всего,
переименовали  коммандер  в  boot, и, если
нужно загрузить ассемблер,подводите курсор
к нужному файлу и нажимаете ENTER (естест-
венно)...
   Но  можно  сделать так, что при запуске
диска, если не нажата ни одна клавиша, бу-
дет  грузиться  коммандер, а если в момент
загрузки  держать  нажатой "пробел", будет
загружаться  ассемблер. Очень  удобно, по-
верьте!
   Вот  элементарно  простая  программа на
BASIC'е, набрав которую, работать с диске-
той станет чуть-чуть удобнее:

   1 BORDER 0: PAPER 0: INC 7: CLS
   5 IF INKEY$ =" "THEN GO TO 20
  10 PRINT "LOADING ZX-ASM!": RANDOMIZE
USR 15619: REM : RUN "ZASM3.10"
  11 PRINT "ZX-ASM NOT FOUND!!"
  20 PRINT "LOADING COMMANDER!": RANDOMIZE
USR 15619: REM : RUN "RC_1.9f"
  25 PRINT "COMMANDER NOT FOUND!!!"
  30 PAUSE 50: RANDOMIZE USR 15616

   Как  водится, краткое пояснение: в пер-
вой  строке задаются  атрибуты экрана, за-
тем проверяется, не нажат ли "пробел". Ес-
ли нажат, печатается  надпись "LOADING ZX-
-ASM!", и загружается ассемблер, если  ни-
чего не было нажато, грузится REAL COMMAN-
DER (или  другой, какой Вам больше нравит-
ся). Если таких файлов на диске нет, прог-
рамма сообщит об этом и выйдет в TR-DOS.
   Можно  добавить  опрос  на  нажатие ка-
кой-нибудь другой клавиши для загрузки еще
чего-нибудь.
   Ну как, удобнее стало?
------------------------------------------