ND System
Перейти к навигации
Перейти к поиску
ND System — аналог Volkov/Norton Commander, загрузчик написал Игорь Бочаров.
Описание
Оконная сетевая операционная система ND, разработанная для персональных компьютеров стандарта MSX-2, имеет практически все возможности обычной операционной системы. Кроме этого, обеспечивает работу с локальной сетью КУВТ-2, имеет удобный оконный интерфейс для пользователя и ряд полезных встроенных функций. Ещё и запускается как из среды MSX-DOS, так и из MSX-BASIC. Имеются встроенные текстовый и HEX редакторы.
Код загрузчика
10 '(c)Copyright 1990 by Igor Bocharov
20 REM +--------------------------------+
40 REM | ND system Loader |
40 REM | |
50 REM +--------------------------------+
60 :
70 :
80 POKE &HFD02,0
90 DEFUSR=&H156
100 ON STOP GOSUB 530
110 STOP ON
120 :
130 COLOR 15,4,5
140 SCREEN 0,,0,1,0
150 WIDTH 80
160 COLOR=NEW
170 COLOR=(4,0,0.3)
180 KEY OFF
190 :
200 CALL NETINIT
210 CALL WHO(N)
220 IF N THEN N=&H7FFF ELSE CALL CHECK(N)
230 :
240 W$="F&B Group presents ND system."
250 FOR I=1 TO LEN(W$)\2
260 LOCATE 40-I,11,0
270 PRINT LEFT$(W$,I) + RIGHT$(W$,I)
280 NEXT I
290 :
300 ON ERROR GOTO 560
310 F$=CHR$(64+PEEK(&HF5B2))+":ND1.OBJ"
320 BLOAD F$,R
330 :
340 MID$(F$,5,1)="2"
350 BLOAD F$,R
360 :
370 IF (N=&H7FFF) GOTO 470
380 PRINT
390 PRINT
400 PRINT "Send ND system shell to student computers?-";
410 ON STOP GOSUB 470
420 IF (INSTR("YyЫыDdДд", INPUT$(USR(1)))=0) THEN PRINT "No"
430 PRINT "Yes"
440 ON ERROR GOTO 540
450 CALL LOADER
460 :
470 KEY ON
480 CALL ND
490 IF POS(0) THEN LOCATE 0
500 W$="Welcome to MSX-BASIC!"
510 GOTO 590
520 :
530 RETURN
540 RESUME NEXT
550 :
560 W$="Sorry. "+F$+" module not found or disk error."
570 :
580 CLS
590 PRINT USR(W$)
600 NEW
610 'The end.
Аналоги
Примечания