From e8e569fc236ff5fd8c6a44bdb7d0e2e19f1d29e5 Mon Sep 17 00:00:00 2001
From: Anatoliy Belyanskiy <tolik.trek@gmail.com>
Date: Sun, 15 Oct 2023 04:06:17 +1000
Subject: [PATCH] start

---
 define.txt   |    5 +
 dss.inc      |   71 ++++
 format.txt   |   61 +++
 knownbug.txt |    6 +
 menu.asm     | 1053 ++++++++++++++++++++++++++++++++++++++++++++++++++
 object.asm   |  185 +++++++++
 parser.asm   |  549 ++++++++++++++++++++++++++
 readme.eng   |  227 +++++++++++
 screen.asm   |  397 +++++++++++++++++++
 usage.txt    |   22 ++
 10 files changed, 2576 insertions(+)
 create mode 100644 define.txt
 create mode 100644 dss.inc
 create mode 100644 format.txt
 create mode 100644 knownbug.txt
 create mode 100755 menu.asm
 create mode 100755 object.asm
 create mode 100755 parser.asm
 create mode 100644 readme.eng
 create mode 100755 screen.asm
 create mode 100644 usage.txt

diff --git a/define.txt b/define.txt
new file mode 100644
index 0000000..9abc9cf
--- /dev/null
+++ b/define.txt
@@ -0,0 +1,5 @@
+[MENU]
+title=User Menu
+item=Flex Navigator, C:\FN\FN.EXE
+item=Command prompt
+item=Sub menu, C:\menu.exe submenu.mnu
diff --git a/dss.inc b/dss.inc
new file mode 100644
index 0000000..d7b99d1
--- /dev/null
+++ b/dss.inc
@@ -0,0 +1,71 @@
+
+DSS_VERSION	EQU	#00
+DSS_CHDISK	EQU	#01
+DSS_CURDISK	EQU	#02
+DSS_DSKINFO	EQU	#03
+DSS_G_ENTRY	EQU	#04
+
+DSS_BOOTDSK	EQU	#09
+DSS_CREATE	EQU	#0A
+DSS_CREAT_N	EQU	#0B
+DSS_ERASE	EQU	#0D
+DSS_DELETE	EQU	#0E
+DSS_MOVE	EQU	#0F
+DSS_RENAME	EQU	#10
+DSS_OPEN	EQU	#11
+DSS_CLOSE	EQU	#12
+DSS_READ	EQU	#13
+DSS_WRITE	EQU	#14
+DSS_MOVE_FP	EQU	#15
+DSS_ATTRIB	EQU	#16
+DSS_GET_D_T	EQU	#17
+DSS_PUT_D_T	EQU	#18
+DSS_F_FIRST	EQU	#19
+DSS_F_NEXT	EQU	#1A
+DSS_MKDIR	EQU	#1B
+DSS_RMDIR	EQU	#1C
+DSS_CHDIR	EQU	#1D
+DSS_CURDIR	EQU	#1E
+DSS_SYSTIME	EQU	#21
+DSS_SETTIME	EQU	#22
+
+DSS_WAITKEY	EQU	#30
+DSS_SCANKEY	EQU	#31
+DSS_ECHOKEY	EQU	#32
+DSS_CTRLKEY	EQU	#33
+DSS_EDIT	EQU	#34
+DSS_K_CLEAR	EQU	#35
+
+DSS_SETWIN	EQU	#38
+DSS_SETWIN1	EQU	#39
+DSS_SETWIN2	EQU	#3A
+DSS_SETWIN3	EQU	#3B
+DSS_FREEMEM	EQU	#3C
+DSS_GETMEM	EQU	#3D
+DSS_RETMEM	EQU	#3E
+DSS_SETMEM	EQU	#3F
+
+DSS_EXEC	EQU	#40
+DSS_EXIT	EQU	#41
+DSS_WAIT	EQU	#42
+
+DSS_GSWITCH	EQU	#43
+DSS_DOSNAME	EQU	#44
+
+DSS_SETVMOD	EQU	#50
+DSS_GETVMOD	EQU	#51
+DSS_LOCATE	EQU	#52
+DSS_CURSOR	EQU	#53
+DSS_SELPAGE	EQU	#54
+DSS_SCROLL	EQU	#55
+DSS_CLEAR	EQU	#56
+DSS_RDCHAR	EQU	#57
+DSS_WRCHAR	EQU	#58
+DSS_WINCOPY	EQU	#59
+DSS_WINREST	EQU	#5A
+DSS_PUTCHAR	EQU	#5B
+DSS_PCHARS	EQU	#5C
+DSS_RES_PRN	EQU	#5D
+DSS_CTRLPRN	EQU	#5E
+DSS_PRINT	EQU	#5F
+
diff --git a/format.txt b/format.txt
new file mode 100644
index 0000000..0c36788
--- /dev/null
+++ b/format.txt
@@ -0,0 +1,61 @@
+
+command format:
+
+MENU.EXE [keys] [menufile] [#section]
+
+keys:
+
+-m <menu definition> title=User Menu; item=Flex Navigator, c:\fn\fn.exe; item=Command prompt, c:\system.exe /s
+-h help page
+-x autoexit from menu when program are terminated
+-k keyboard control disable
+-u mouse control disable
+-o message output disable
+
+menufile structure:
+
+[MENU]
+# main variables
+title=<menu title>
+item=<item name>, <program> <hot key>
+item=Item name, {
+		cd \somedir\
+		type somefile.txt
+		copy somefile.txt \other\other.txt
+		}
+item=Exit, { echo see you soon! ; <exit> }
+autoexit=<0/1>
+menucolour=<paper>, <ink>
+barcolour=<paper>, <ink>
+defaultitem=<number>, <time>
+
+# other variables
+startmessage=<message>
+finishmessage=<message>
+startdelay=<time>
+finishdelay=<time>
+
+# sound variables
+mousesound=<wavefile>
+mouseoversound=<wavefile>
+keysound=<wavefile>
+upsound=<wavefile>
+downsound=<wavefile>
+startsound=<wavefile>
+entersound=<wavefile>
+exitsound=<wavefile>
+
+# wallpaper variables
+background=<picture>, <style> (center | fill | stretch)
+backgroundtext=<text>
+backgroundfont=<fontfile>
+backgroundfontsize=<fontsize>
+
+
+build-in script command:
+
+<exit> - close menu
+<waitkey> / <pause> - waiting user key-input
+<delay=time> - script delay
+<type=text> - console message
+<message=text> - message menu
diff --git a/knownbug.txt b/knownbug.txt
new file mode 100644
index 0000000..5ae9dfe
--- /dev/null
+++ b/knownbug.txt
@@ -0,0 +1,6 @@
+* не выводится сообщение об ошибке в случае неверного написания названия опции.
+* если описание Item заканчивается на "," в качестве параметра берется вся следующая строка.
+* функции задания цвета не сообщают о некоректных символах.
+
+
+- делать проверку при старте Item'а на "<" в первой позиции. (<exit> и т.п.)
diff --git a/menu.asm b/menu.asm
new file mode 100755
index 0000000..4239418
--- /dev/null
+++ b/menu.asm
@@ -0,0 +1,1053 @@
+;[]
+;
+; MENU.EXE 
+;
+	INCLUDE	"dss.inc"
+CR	EQU	13
+LF	EQU	10
+
+MAX_MENU_ITEMS	EQU	24
+
+	ORG	#8100-EXE_HEADER.Size
+
+EXE_HEADER:
+	DB	'EXE'			;EXE ID
+	DB	#00			;EXE VERSION
+	DW	EXE_HEADER.Size
+	DW	#0000			;CODE OFFSET HIGH
+	DW	#0000			;END-BEG ;PRIMARY LOADER
+	DW	#0000			;
+	DW	#0000			;RESERVED
+	DW	#0000			;
+	DW	START			;LOAD ADDRESS
+	DW	START			;START ADDRESS
+	DW	#80FF			;STACK ADDRESS
+	DB	#FF
+.Size	EQU	$-EXE_HEADER
+
+
+START:	PUSH	IX
+
+	LD	A,(IX+2)
+	CP	' '
+	JR	Z,.skipStartMessage
+
+	LD	A,0
+	CALL	MESSAGE
+
+.skipStartMessage:
+	CALL	INIT
+;
+	LD	C,DSS_SYSTIME
+	RST	#10
+	LD	A,B
+	LD	(RUN_TIME),A
+;
+	LD	C,0
+	RST	#30
+;	LD	C,1
+;	RST	#30
+	LD	BC,#0100+DSS_GETMEM
+	RST	#10
+	JR	NC,M_ALLOK
+	LD	A,9
+	CALL	MESSAGE
+	POP	HL
+	JP	QUIT
+M_ALLOK
+	LD	(HNDMEM),A
+	LD	BC,#0000+DSS_SETWIN3
+	RST	#10
+
+;	OUT	(#E2),A
+;	LD	(HNDMEM),A
+;	
+	LD	HL,INIT_DATA
+	LD	D,H
+	LD	E,L
+	INC	DE
+	LD	BC,#FFFE-INIT_DATA
+	LD	(HL),0
+	LDIR
+
+	POP	HL
+	CALL	EX_COMMAND_LINE
+
+	LD	A,(QUITMODE)	;
+	OR	A		; QUIT MODE
+	JP	NZ,QUIT		;
+
+	CALL	BUILD_TABLE
+
+	JP	C,QUIT	;IO ERROR
+
+	LD	A,(QUITMODE)	;
+	OR	A		; SYNTAX ERROR
+	JP	NZ,QUIT		;
+
+
+	LD	A,(ITEMCOUNT)
+	CP	MAX_MENU_ITEMS
+	JR	C,NOCUTMENU
+	LD	A,MAX_MENU_ITEMS
+	LD	(ITEMCOUNT),A
+NOCUTMENU
+	ADD	A,4	;MIN MENU HEIGHT
+	LD	(WIN_H),A
+	LD	B,A
+;
+	LD	A,(GO_TIME)
+	INC	A
+	JR	Z,NO_TRM
+	LD	A,B
+	INC	A
+	INC	A
+	LD	(WIN_H),A
+NO_TRM
+;
+	CALL	CHECK_WINDOW_SIZE
+	CALL	WIN_CLS
+
+	CALL	BUILD_MENU
+
+RETURN_TO_MENU
+
+	CALL	WIN_SAVE
+	CALL	WIN_SHOW
+	LD	C,1
+	RST	#30
+
+	CALL	M_OBJECT	;INIT MOUSE COORDS
+	LD	A,(DEFAULT_ITEM)
+	OR	A
+	CALL	NZ,MAKE_DEFAULT_ITEM
+
+	INC	A
+	ADD	A,#10
+;	LD	A,#11
+	CALL	MOUSE_OVER
+
+NOEXIT
+	EI
+	HALT
+	LD	A,(GO_TIME)
+	INC	A
+	CALL	NZ,CHECK_TIMER
+
+	CALL	K_OBJECT
+	CALL	NZ,MOUSE_OVER
+
+	CALL	M_OBJECT
+	CALL	NZ,MOUSE_OVER
+
+	LD	C,3
+	RST	#30
+	AND	7
+	CP	1
+	JP	Z,CLICK
+	CP	2
+	JP	NZ,NOEXIT
+
+QUIT_MENU
+	LD	C,2
+	RST	#30
+
+	CALL	WIN_BACK
+
+QUIT
+	LD	A,(HNDMEM)
+	LD	C,DSS_FREEMEM
+	RST	#10
+
+	LD	C,DSS_EXIT
+	XOR	A
+	RST	#10
+	RET
+
+MAKE_DEFAULT_ITEM
+	LD	HL,ITEMCOUNT
+	CP	(HL)
+	JR	C,ACCEPT_DEF_ITEM
+	LD	A,(HL)	;DEF_ITEM = MAX_ITEM
+ACCEPT_DEF_ITEM
+	DEC	A
+	RET
+
+CHECK_TIMER
+	LD	A,8
+	DEC	A
+	LD	(CHECK_TIMER+1),A
+	RET	NZ
+	LD	A,8
+	LD	(CHECK_TIMER+1),A
+;
+	LD	DE,(OBSOLUTE_CNT_POS)
+	CALL	LOCATE_
+
+	CALL	GETTIMEOUT
+	CALL	PRINT99
+PRC_CNT	LD	A,#00
+	INC	A
+	AND	#03
+	LD	(PRC_CNT+1),A
+	LD	E,A
+	LD	D,0
+	LD	HL,PRC_STR
+	ADD	HL,DE
+	LD	A,(HL)
+	CALL	PRINT_A
+;
+	LD	C,DSS_SYSTIME
+	RST	#10
+	LD	A,(GO_TIME)
+	CP	60	;GO_TIME > 60?
+	JR	C,YES_MKSUB
+	SUB	60	;THEN CORRECT IT
+YES_MKSUB
+	CP	B
+	JR	Z,RUN_OK
+	RET
+
+RUN_OK
+	JP	ENTER_MENU
+
+PRC_STR	DB	"-\\|/";	-\|/
+
+
+;GET TIMEOUT
+GETTIMEOUT
+	LD	C,DSS_SYSTIME
+	RST	#10
+	LD	A,(RUN_TIME)
+	CP	B		;RUNTIME > CURTIME
+	JR	Z,NO_TO_CORR	;ELSE
+	JR	C,NO_TO_CORR
+	LD	A,60
+	ADD	A,B
+	LD	B,A
+NO_TO_CORR
+	LD	A,(GO_TIME)
+	SUB	B
+	RET
+
+;50 - RUNTIME
+;12 - DELAY
+;62 - GOTIME
+;
+;IF RUNTIME > CURTIME {CURTIME+60}
+;
+
+
+; Initialization variables
+
+INIT	XOR	A
+	LD	(QUITMODE),A
+	LD	(ITEMCOUNT),A
+	LD	(AEXIT),A
+	LD	(EXTMENU),A
+	LD	(ANCHOR),A
+	LD	(DOEXIT),A
+	LD	(DEFAULT_ITEM),A
+	LD	(RUN_TIME),A
+	LD	(CMD_MENU),A
+	
+	DEC	A
+	LD	(GO_TIME),A
+	RET
+;
+
+HNDMEM	DB	0
+
+CLICK
+	CALL	M_OBJECT
+	JP	Z,NOEXIT
+PRESS	SUB	#11
+	LD	IX,MENU_TABLE
+	JR	Z,CLICK2
+	LD	BC,ITEMSIZE
+CLICK1	ADD	IX,BC
+	DEC	A
+	JR	NZ,CLICK1
+CLICK2	LD	L,(IX+2)
+	LD	H,(IX+3)
+	 PUSH	HL
+	; PUSH	HL
+	CALL	WIN_BACK
+	LD	A,#FF
+	LD	(C_OBJECT),A
+	LD	(GO_TIME),A
+;
+	LD	C,2
+	RST	#30
+;
+	;  POP	HL
+	; LD	C,DSS_PCHARS
+	; RST	#10
+
+;<Sayman>
+	 ;push bc
+	ld c,DSS_CURDISK
+	rst #10
+	add a,'A'
+	ld (cwd),a
+	ld a,':'
+	ld (cwd+1),a
+	ld c,DSS_CURDIR
+	ld hl,cwd+2
+	rst #10
+;</Sayman>
+
+	POP	HL
+;<Sayman>
+	ld bc,DSS_EXEC
+;</Sayman>
+	RST	#10		;Launch the program
+;<Sayman>
+	push af
+
+	ld hl,cwd
+	ld c,DSS_CHDIR
+	rst #10
+	pop af
+	 ;pop bc
+;</Sayman>
+	JR	NC,OK_EXEC
+	LD	A,7
+	CALL	MESSAGE
+OK_EXEC
+	LD	A,(DOEXIT)
+	LD	C,A
+
+	LD	A,(AEXIT)
+	OR	C
+	JP	NZ,QUIT
+
+	JP	RETURN_TO_MENU
+
+
+K_OBJECT
+	LD	C,DSS_SCANKEY
+	RST	#10
+	RET	Z
+	CP	13
+	JR	Z,ENTER_MENU
+	LD	HL,#011B
+	AND	A
+	SBC	HL,DE
+	JR	Z,ESCAPE
+	LD	HL,#5800
+	AND	A
+	SBC	HL,DE
+	JR	Z,KEY_UP
+	LD	HL,#5200
+	AND	A
+	SBC	HL,DE
+	JR	Z,KEY_DOWN
+	XOR	A
+	RET
+
+ESCAPE	POP	HL
+	JP	QUIT_MENU
+	
+
+ENTER_MENU
+	LD	A,(C_OBJECT)
+	POP	HL
+	JP	PRESS
+
+KEY_DOWN
+	LD	A,(ITEMCOUNT)
+	ADD	A,#11
+	LD	B,A
+	LD	A,(C_OBJECT)
+	INC	A
+	CP	B
+	RET	NZ
+	DEC	A
+	RET
+
+KEY_UP
+	LD	A,(C_OBJECT)
+	DEC	A
+	CP	#10
+	RET	NZ
+	INC	A
+	RET
+
+
+MOUSE_OVER
+	LD	HL,C_OBJECT
+	CP	(HL)
+	RET	Z		;IT'S CURRENT OBJECT
+	LD	(N_OBJECT),A	;NEW OBJECT
+	LD	A,(C_OBJECT)
+	CALL	UNSEL_EVENT
+	LD	A,(N_OBJECT)
+	LD	(C_OBJECT),A
+	CALL	SEL_EVENT
+	RET
+
+;SEL_ATTR	EQU	#30
+;SCR_ATTR	EQU	#1F
+
+SEL_EVENT
+	CALL	GET_OBJECT_PROP
+	RET	Z	;NO OBJECT
+	PUSH	BC
+	LD	D,E
+	LD	E,L
+	INC	E
+	CALL	LOCATE_
+
+	POP	BC
+;	DEC	C
+	LD	B,C
+	LD	C,#83
+	LD	A,(SEL_ATTR)
+	LD	E,A
+	RST	#08
+	RET
+
+UNSEL_EVENT
+	CALL	GET_OBJECT_PROP
+	RET	Z	;NO OBJECT
+	PUSH	BC
+	LD	D,E
+	LD	E,L
+	INC	E
+	CALL	LOCATE_
+	POP	BC
+	LD	B,C
+	LD	C,#83
+	LD	A,(SCR_ATTR)
+	LD	E,A
+	RST	#08
+;
+	LD	A,(GO_TIME)
+	INC	A
+	RET	Z
+	LD	A,#FF
+	LD	(GO_TIME),A
+	LD	DE,(OBSOLUTE_CNT_POS)
+	CALL	LOCATE_
+	LD	A,"0"
+	CALL	PRINT_A
+	LD	A,"0"
+	CALL	PRINT_A
+	LD	A," "
+	CALL	PRINT_A
+;
+	RET
+
+
+N_OBJECT	DW	#FFFF
+C_OBJECT	DW	#FFFF
+
+
+	INCLUDE "screen.asm"
+	INCLUDE	"object.asm"
+	INCLUDE	"parser.asm"
+
+BUILD_MENU
+	LD	BC,(WIN_W)
+	LD	B,C
+	DEC	B
+	DEC	B
+	DEC	C
+	DEC	C
+	LD	(W_SIZE),BC
+	LD	DE,#0000
+	PUSH	DE
+	CALL	WIN_LOCATE
+	LD	A,#C9 ;Й
+	CALL	WIN_PUTCHAR
+;	LD	A,#CD ;Н
+	LD	BC,(W_SIZE)
+TLINE1	PUSH	BC
+	LD	A,#CD
+	CALL	WIN_PUTCHAR
+	POP	BC
+	DJNZ	TLINE1
+	LD	A,#BB ;»
+	CALL	WIN_PUTCHAR
+
+	POP	DE
+	INC	D
+	PUSH	DE
+	CALL	WIN_LOCATE
+	LD	A,#BA
+	CALL	WIN_PUTCHAR
+	LD	HL,MENU_TITLE
+	LD	BC,(W_SIZE)
+	CALL	CPRINT_Z
+	LD	A,#BA
+	CALL	WIN_PUTCHAR
+;
+	POP	DE
+	INC	D
+	PUSH	DE
+	CALL	WIN_LOCATE
+	CALL	HLINE
+;
+	POP	DE
+	INC	D
+	PUSH	DE
+	CALL	WIN_LOCATE
+
+	LD	IX,MENU_TABLE
+	LD	B,MAX_MENU_ITEMS
+	LD	C,#11	;OBJECT ID
+BTABLE
+	LD	E,(IX+0)
+	LD	D,(IX+1)
+	LD	A,E
+	OR	D
+	JR	Z,ETABLE
+	PUSH	BC
+	PUSH	DE
+	LD	A,#BA
+	CALL	WIN_PUTCHAR
+	POP	HL
+	LD	BC,(W_SIZE)
+	CALL	CPRINT_Z
+	LD	A,#BA
+	CALL	WIN_PUTCHAR
+;
+	LD	DE,ITEMSIZE
+	ADD	IX,DE
+	POP	BC
+;
+	POP	DE
+
+	CALL	MK_OBJ
+
+	INC	D
+	PUSH	DE
+	PUSH	BC
+	CALL	WIN_LOCATE
+;	RST	#10
+	POP	BC
+	INC	C
+	DJNZ	BTABLE
+
+ETABLE
+;
+	LD	A,(GO_TIME)
+	INC	A
+	JR	Z,NO_TIME_MSG
+	CALL	HLINE
+	POP	DE
+	INC	D
+	PUSH	DE
+	CALL	WIN_LOCATE
+	LD	A,#BA
+	CALL	WIN_PUTCHAR
+	LD	HL,TIMEREM
+	LD	BC,(W_SIZE)
+	CALL	RPRINT_Z
+	LD	A,#BA
+	CALL	WIN_PUTCHAR
+	POP	DE
+	INC	D
+	PUSH	DE
+	CALL	WIN_LOCATE
+NO_TIME_MSG
+;
+	POP	DE
+;	CALL	ELINE
+;	CALL	CRLF
+;	CALL	ELINE
+;	CALL	CRLF
+
+	LD	A,#C8 ;И
+	CALL	WIN_PUTCHAR
+;	LD	A,#CD ;Н
+	LD	BC,(W_SIZE)
+TLINE2	PUSH	BC
+	LD	A,#CD
+	CALL	WIN_PUTCHAR
+	POP	BC
+	DJNZ	TLINE2
+	LD	A,#BC ;ј
+	CALL	WIN_PUTCHAR
+	RET
+
+X_OFFSET	EQU	#16
+Y_OFFSET	EQU	#0A
+
+
+MK_OBJ	PUSH	IX
+	PUSH	HL
+	PUSH	DE
+	PUSH	BC
+	LD	A,(WIN_X)	;X_OFFSET
+	ADD	A,E
+	LD	L,A
+	LD	A,(WIN_Y)	;Y_OFFSET
+	ADD	A,D
+	LD	E,A
+	LD	A,C
+	LD	BC,(W_SIZE)
+	LD	C,B
+	LD	B,1
+;	LD	A,#11
+	CALL	ADD_OBJECT
+	POP	BC
+	POP	DE
+	POP	HL
+	POP	IX
+	RET
+
+
+
+ELINE	LD	A,#BA ;є
+	CALL	DSS_PUTCHAR
+;	LD	A,#20 ;" "
+	LD	BC,(W_SIZE)
+;	LD	BC,#2000+DSS_PUTCHAR
+TLINE	PUSH	BC
+	LD	A,#20
+	CALL	WIN_PUTCHAR
+	POP	BC
+	DJNZ	TLINE
+	LD	A,#BA ;є
+	CALL	WIN_PUTCHAR
+	RET
+
+HLINE	LD	A,#C7 ;З
+	CALL	WIN_PUTCHAR
+;	LD	A,#C4 ;Д
+	LD	BC,(W_SIZE)
+;	LD	BC,#2000+DSS_PUTCHAR
+TLINEH	PUSH	BC
+	LD	A,#C4
+	CALL	WIN_PUTCHAR
+	POP	BC
+	DJNZ	TLINEH
+	LD	A,#B6 ;¶
+	CALL	WIN_PUTCHAR
+	RET
+
+;//VARIABLES
+
+ITEMCOUNT
+	DB	0
+
+W_SIZE
+	DB	DSS_PUTCHAR
+	DB	32
+
+;HL - STRING
+; B - SIZE
+
+CPRINT_Z
+	PUSH	HL
+	LD	E,B
+	XOR	A
+	LD	BC,79
+	CPIR
+	DEC	HL
+	LD	(HL),A
+	LD	B,E
+	POP	HL
+	LD	A,79-1
+	SUB	C
+	LD	E,A	; STRING SIZE
+	SRL	A	; / 2
+	LD	C,A
+	LD	A,B
+	SRL	A	; / 2
+	SUB	C
+	CALL	C,A_CORRECT
+	LD	C,A	; LEFT SPACE
+	EX	AF,AF'
+	LD	A,B
+	SUB	E
+	CALL	C,A_CORRECT
+	SUB	C
+	CALL	C,A_CORRECT
+	LD	B,A	; RIGHT SPACE
+	EX	AF,AF'
+	JR	Z,NOSPACE_L
+REP1	PUSH	BC
+	LD	A," "
+	CALL	WIN_PUTCHAR
+	POP	BC
+	DEC	C
+	JR	NZ,REP1
+NOSPACE_L
+	PUSH	BC
+	CALL	WIN_PCHARS
+	POP	HL
+	INC	H
+	DEC	H
+	RET	Z	; NOSPACE_R
+REP2	LD	A," "
+	CALL	WIN_PUTCHAR
+	DEC	H
+	JR	NZ,REP2
+	RET
+
+A_CORRECT
+	XOR	A
+	RET
+
+;HL - STRING
+; B - SIZE
+
+LPRINT_Z
+	PUSH	HL
+	XOR	A
+	LD	C,#FF
+	CPIR
+	POP	HL
+	LD	A,#FF-1
+	SUB	C
+	LD	C,A	; STRING SIZE
+	LD	A,B
+	SUB	C
+	CALL	C,A_CORRECT
+	LD	B,A
+	PUSH	BC
+	CALL	WIN_PCHARS
+	POP	HL
+	INC	H
+	DEC	H
+	RET	Z	; NOSPACE_R
+REP3	LD	A," "
+	CALL	WIN_PUTCHAR
+	DEC	H
+	JR	NZ,REP3
+	RET
+
+
+;HL - STRING
+; B - SIZE
+
+RPRINT_Z
+	PUSH	HL
+	XOR	A
+	LD	C,#FF
+	CPIR
+	POP	HL
+	LD	A,#FF-1
+	SUB	C
+	LD	C,A	; STRING SIZE
+	LD	A,B
+	SUB	C
+	CALL	C,A_CORRECT
+	LD	C,A
+	JR	Z,NOSPACE_L2
+REP4	PUSH	BC
+	LD	A," "
+	CALL	WIN_PUTCHAR
+	POP	BC
+	DEC	C
+	JR	NZ,REP4
+NOSPACE_L2
+	CALL	WIN_PCHARS
+	RET
+
+EX_COMMAND_LINE
+	INC	HL
+NEXTPR	LD	DE,WORKBUF
+	LD	BC,#0745
+	RST	#10
+	PUSH	AF
+	PUSH	HL
+	LD	A,(WORKBUF)
+	OR	A
+	JR	Z,EOCL
+	CP	"-"
+	JR	Z,ITCKEY
+	CP	"/"
+	JR	Z,ITCKEY
+	LD	HL,WORKBUF
+	LD	DE,FST_VAR
+	LD	A,(DE)
+	OR	A
+	JR	Z,MOVNAME
+	LD	DE,LST_VAR
+	LD	A,1
+	LD	(ANCHOR),A
+MOVNAME	LD	A,(HL)
+	CP	"#"
+	JR	NZ,MNU_ANCH
+	INC	HL
+	XOR	A
+	LD	(DE),A
+	INC	A
+	LD	(ANCHOR),A	;ANCHOR PRESENT
+	LD	DE,LST_VAR
+	LD	A,(HL)
+MNU_ANCH
+	LDI
+	OR	A
+	JR	NZ,MOVNAME
+	INC	A
+	LD	(EXTMENU),A	;EXT MENU PRESENT
+EOCL	POP	HL
+	POP	AF
+	JR	NC,NEXTPR
+	RET
+
+ITCKEY	LD	A,(WORKBUF+1)
+	CP	"a"
+	JR	C,KNU
+	RES	5,A
+KNU
+	CP	"H"
+	JR	Z,HELP
+	CP	"?"
+	JR	Z,HELP
+	CP	"X"
+	JR	Z,SETEXIT
+	CP	"M"
+	JR	Z,MENUDEFINITION
+	LD	HL,WORKBUF
+	CALL	PUTVAR
+	LD	A,1
+	CALL	MESSAGE
+	LD	A,1
+	LD	(QUITMODE),A
+	JR	EOCL
+
+HELP	LD	A,2
+	CALL	MESSAGE
+	LD	A,1
+	LD	(QUITMODE),A
+	JR	EOCL
+
+SETEXIT
+	LD	A,1
+	LD	(DOEXIT),A
+	JR	EOCL
+
+MENUDEFINITION
+	POP	HL
+	POP	AF
+	LD	DE,FILE_ARRAY
+	LD	BC,0
+MDEF	LD	A,(HL)
+	INC	HL
+	CP	";"
+	JR	NZ,NOBR
+	LD	A,CR
+	LD	(DE),A
+	INC	DE
+	INC	BC
+	LD	A,LF
+NOBR	LD	(DE),A
+	INC	DE
+	INC	BC
+	OR	A
+	JR	NZ,MDEF
+	LD	(MDEF_SIZE),BC
+	LD	A,1
+	LD	(CMD_MENU),A
+	RET
+
+MDEF_SIZE
+	DW	0
+
+MAX_TEXT
+	DB	0
+
+CHECK_WINDOW_SIZE
+	XOR	A
+	LD	(MAX_TEXT),A
+	LD	IX,MENU_TABLE
+	LD	B,MAX_MENU_ITEMS
+CH_L1	LD	L,(IX+0)
+	LD	H,(IX+1)
+	LD	A,L
+	OR	H
+	JR	Z,CH_L2
+	XOR	A
+	LD	BC,79
+	CPIR
+	DEC	HL
+	LD	(HL),A
+	LD	A,79-1
+	SUB	C
+	LD	HL,MAX_TEXT
+	CP	(HL)
+	JR	C,NOINCTEXT
+	LD	(HL),A
+NOINCTEXT
+;
+	LD	DE,ITEMSIZE
+	ADD	IX,DE
+	DJNZ	CH_L1
+CH_L2	LD	HL,MENU_TITLE
+	LD	BC,79
+	XOR	A	
+	CPIR
+	LD	A,79-1
+	SUB	C
+	LD	HL,MAX_TEXT
+	CP	(HL)
+	JR	C,CH_L3
+	LD	(HL),A
+CH_L3
+	LD	A,(HL)
+	CP	32	;MIN WINDOW WIDTH
+	JR	NC,CH_L4
+	LD	A,32
+CH_L4	INC	A
+	INC	A
+	LD	(WIN_W),A
+	SRL	A	;/2
+	LD	C,A
+	LD	A,40	;SCREEN CENTER
+	SUB	C
+	JR	NC,CH_L5
+	LD	A,0
+CH_L5	LD	(WIN_X),A
+	LD	A,(WIN_H)
+	SRL	A
+	LD	B,A
+	LD	A,16	;SCREEN CENTER
+	SUB	B
+	JR	NC,CH_L6
+	LD	A,0
+CH_L6	LD	(WIN_Y),A
+	LD	A,(GO_TIME)
+	INC	A
+	RET	Z
+	LD	HL,(WIN_XY)
+	LD	A,(WIN_H)
+	ADD	A,H
+	DEC	A
+	DEC	A
+	LD	H,A
+	LD	A,(WIN_W)
+	ADD	A,L
+	SUB	4
+	LD	L,A
+	LD	(OBSOLUTE_CNT_POS),HL
+	RET
+
+;<Sayman>
+cwd:	ds 256
+;</Sayman>
+
+OBSOLUTE_CNT_POS
+	DW	0
+
+MSG0	DB	0
+;0
+	DB	"User Menu v1.00, Copyright "
+	DB	"2002 (c) PETERS PLUS LTD",CR,LF,CR,LF,0
+;1
+	DB	"  Error: Unknown switch: %1",CR,LF,0
+;2
+	DB	"  Usage: MENU.EXE -switch [menufile.mnu] [menuname]",CR,LF,CR,LF
+	DB	"  Switches:",CR,LF
+	DB	"    -h, -?     Help page.",CR,LF
+	DB	"    -x         Quit from menu when launched program will terminated.",CR,LF
+	DB	"    -m <menu>  Define menu in the command line.",CR,LF
+	DB	CR,LF
+	DB	"  Menu command:",CR,LF
+	DB	"  Title=       Define Menu title",CR,LF
+	DB	"  MenuColor=   Set menu colors",CR,LF
+	DB	"  BarColor=    Set cursor bar colors",CR,LF
+	DB	"  AutoExit=    Auto quit menu",CR,LF
+	DB	"  DefaultItem= Set default menu item",CR,LF
+	DB	"  MenuItem=    Define menu item",CR,LF
+	DB	CR,LF
+	DB	0
+;3
+	DB	"  Error: Can't open '%1' menu file.",CR,LF,0
+;4
+	DB	"  Error: Menu section [%1] - not found.",CR,LF,0
+;5
+	DB	"  Error: Invalid time parameter in 'DefaultItem='.",CR,LF,0
+;6
+	DB	"  Error: Missing parameter in the item definition.",CR,LF,0
+;7
+	DB	CR,LF,"  Error: Launching has been failed.",CR,LF,0
+;8
+	DB	"  Error: Invalid syntax, parse failure.",CR,LF,0
+;9
+	DB	"  Error: Not enough memory.",CR,LF,0
+;10
+TIMEREM	DB	"Time remaining: 00 ",0
+	DB	0
+	DB	0
+MSG1
+
+MENU_TITLE	DB	"User Menu",0
+	DS	32
+
+MENUFILE
+	DB	"[MENU]",CR,LF
+MENUFILE2
+	DB	"title=It's a hidden User Menu :)",CR,LF
+	DB	"item=Flex Navigator, \\fn\\fn.exe",CR,LF
+	DB	"item=Command prompt, \\system.exe /s",CR,LF
+	DB	"item=I hope that it a small program will help you in work at the Sprinter, \\system.exe @echo You found the secret feature :)",CR,LF
+	DB	0
+
+;// DEFAULT VARIABLES
+DEFAULT_FILE
+	DB	"default.mnu",0,0
+DEFAULT_MENU
+	DB	"MENU",0,0,0,0,0
+
+EXTMENU	DB	0
+ANCHOR	DB	0
+DOEXIT	DB	0
+QUITMODE
+	DB	0
+CMD_MENU
+	DB	0
+DEFAULT_ITEM
+	DB	0
+SCR_ATTR
+	DB	#1F
+SEL_ATTR
+	DB	#30
+
+RUN_TIME
+	DB	0
+GO_TIME	DB	#FF
+
+TEXT_INDEX
+	DW	TEXT_ARRAY
+
+INIT_DATA
+
+FST_VAR	EQU	$		;DS	256
+LST_VAR	EQU	$+256		;DS	256
+WORKBUF	EQU	$+256+256	;DS	256
+WORDBUF	EQU	$+256+256+256	;DS	256
+
+MENU_TABLE	EQU	$+256+256+256+256
+ITEM_DEFINE
+	DW	0	;ITEM 1 TEXT ADDRESS
+	DW	0	;ITEM 1 COMMAND ADDRESS
+	DB	0,0	;LEFT AND RIGHT
+	DB	0,0	;TOP AND BOTTOM
+ITEM_DEFINE_END
+ITEMSIZE	EQU	ITEM_DEFINE_END-ITEM_DEFINE
+;
+;	DW	0	;ITEM 2 TEXT
+;	DW	0	;ITEM 2 COMMAND
+;	DB	0,0	;LEFT AND RIGHT
+;	DB	0,0	;TOP AND BOTTOM
+;
+;	DW	0	;END
+;	DS	256
+
+TEXT_ARRAY	EQU	$+256+256+256+256+256
+;	"Title name",0
+;	"Item 1",0
+;	"C:\fn\fn.exe",0
+;	DS	4096
+
+FILE_ARRAY	EQU	$+256+256+256+256+256+4096
+
+MYWIN	EQU	#0000-2560*4	;DS	34*8*2
+
+SCR_BUF	EQU	#0000-2560*2
diff --git a/object.asm b/object.asm
new file mode 100755
index 0000000..133090c
--- /dev/null
+++ b/object.asm
@@ -0,0 +1,185 @@
+
+G_OBJECT
+	RET
+
+; INPUT:
+; A - OBJECT ID
+
+GET_OBJECT_PROP
+	LD	IX,OBJECTS_AREA-OBJECT_SIZE
+	LD	BC,OBJECT_SIZE
+	LD	E,A
+GOP1	ADD	IX,BC
+	LD	A,(IX+0)
+	OR	A
+	RET	Z
+	CP	E
+	JR	NZ,GOP1
+	LD	L,(IX+2)
+	LD	A,(IX+4)
+	SUB	L
+	LD	C,A
+	LD	E,(IX+6)
+	LD	A,(IX+8)
+	SUB	E
+	LD	B,A
+	XOR	A
+	INC	A
+	RET
+
+
+; INPUT:
+; A - OBJECT ID
+; L - X
+; E - Y
+; B - HEIGHT
+; C - WIDTH
+
+ADD_OBJECT
+	LD	IX,OBJECTS_AREA
+	PUSH	BC
+	LD	BC,(OBJECTS_AREA_SIZE)
+	ADD	IX,BC
+	POP	BC
+
+;	LD	A,ID
+
+	LD	(IX+0),A
+	XOR	A
+	LD	(IX+1),A
+	LD	(IX+3),A
+	LD	(IX+5),A
+	LD	(IX+7),A
+	LD	(IX+9),A
+
+	LD	(IX+2),L	;X-MIN
+	LD	A,C
+	ADD	A,L
+	LD	(IX+4),A	;X-MAX
+
+	LD	(IX+6),E	;Y-MIN
+	LD	A,B
+	ADD	A,E
+	LD	(IX+8),A	;Y-MAX
+	XOR	A
+	LD	(IX+OBJECT_SIZE),A
+
+	LD	HL,(OBJECTS_AREA_SIZE)
+	LD	BC,OBJECT_SIZE
+	ADD	HL,BC
+	LD	(OBJECTS_AREA_SIZE),HL
+	RET
+
+REMOVE_OBJECT
+	RET
+
+P_MX	DW	0
+P_MY	DW	0
+
+M_OBJECT
+	LD	C,3
+	RST	#30	;GET MOUSE STATE
+	OR	A
+	JP	NZ,MFORCE
+
+	LD	BC,(P_MX)
+;16 BIT CMP
+	LD	A,C
+	CP	L
+	JR	NZ,DMC
+	LD	A,B
+	CP	H
+	JR	NZ,DMC
+;
+	LD	BC,(P_MY)
+	LD	A,C
+	CP	E
+	JR	NZ,DMC
+	LD	A,B
+	CP	D
+	JR	NZ,DMC
+; 	ZERO FLAG=1
+DMC
+	LD	(P_MX),HL
+	LD	(P_MY),DE
+	RET	Z
+MFORCE
+;CORRECT FOR TEXT MODE
+	SRL	H
+	RR	L
+	SRL	H
+	RR	L
+	SRL	H
+	RR	L
+
+	SRL	D
+	RR	E
+	SRL	D
+	RR	E
+	SRL	D
+	RR	E
+
+; E - Y, L - X
+	CALL	GET_OBJECT_ID
+	RET
+
+
+;
+; INPUT:
+; L - X
+; E - Y
+; OUTPUT:
+; Z = 1, A - ID
+; Z = 0 - OBJECT NOT FOUND
+
+GET_OBJECT_ID
+	LD	IX,OBJECTS_AREA
+OBJECT_LOOP
+	LD	A,(IX+0)
+	OR	A	;INC	A
+	RET	Z		;OBJECT NOT FOUND
+	LD	A,(IX+2)	;X-MIN
+	SUB	L
+	JR	Z,OBJ_X_OK
+	JR	NC,OBJ_NEXT
+	LD	A,(IX+4)	;X-MAX
+	SUB	L
+	JR	C,OBJ_NEXT
+OBJ_X_OK
+	LD	A,(IX+6)	;Y-MIN
+	SUB	E
+	JR	Z,OBJ_Y_OK
+	JR	NC,OBJ_NEXT
+	LD	A,(IX+8)	;Y-MAX
+	SUB	E
+	JR	Z,OBJ_NEXT
+	JR	C,OBJ_NEXT
+OBJ_Y_OK
+	LD	A,(IX+0)	;ID
+	AND	A
+	RET
+
+OBJ_NEXT
+	LD	BC,OBJECT_SIZE
+	ADD	IX,BC
+	JR	OBJECT_LOOP
+
+OBJECTS_AREA_SIZE
+	DW	0
+
+OBJECTS_AREA
+	DB	0	;+00 OBJECT HANDLE
+	DB	0	;+01 RESERVED
+
+	DB	0	;+02 MIN X
+	DB	0	;+03 RESERVED
+	DB	0	;+04 MAX X
+	DB	0	;+05 RESERVED
+
+	DB	0	;+06 MIN Y
+	DB	0	;+07 RESERVED
+	DB	0	;+08 MAX Y
+	DB	0	;+09 RESERVED
+OBJECT_SIZE	EQU	$-OBJECTS_AREA
+
+	DS	320
diff --git a/parser.asm b/parser.asm
new file mode 100755
index 0000000..c2dff98
--- /dev/null
+++ b/parser.asm
@@ -0,0 +1,549 @@
+BUILD_TABLE
+	LD	A,(CMD_MENU)
+	OR	A
+	JR	Z,BT0
+	LD	HL,FILE_ARRAY
+	LD	IX,MENU_TABLE
+	CALL	PARSER
+	AND	A
+	RET
+
+BT0	CALL	READ_MENU
+	RET	C
+	LD	HL,(MENU_ADDRESS)
+	LD	IX,MENU_TABLE
+	CALL	PARSER
+	AND	A
+	RET
+
+MNU_FHND	DB	#FF
+
+OPEN_MENU_FILE
+	XOR	A	;;;;;;;;
+	LD	C,DSS_OPEN
+	RST	#10
+	RET	C
+	LD	(MNU_FHND),A
+	RET
+
+CLOSE_MENU_FILE
+	LD	A,(MNU_FHND)
+	LD	C,DSS_CLOSE
+	RST	#10
+	RET
+
+
+MENU_ADDRESS
+	DW	0
+
+READ_MENU
+	; LD	HL,DEFAULT_FILE
+	; LD	A,(EXTMENU)
+	; OR	A
+	; JR	Z,DEFMNU
+	; LD	HL,FST_VAR
+	LD	HL,FST_VAR
+	LD	A,(EXTMENU)
+	OR	A
+	JR	NZ,NOT_DEF_MNU
+	
+	LD	HL,DEFAULT_FILE
+NOT_DEF_MNU:
+	PUSH	HL
+	CALL	OPEN_MENU_FILE
+	POP	HL
+	JR	NC,RM_STEP2
+	CALL	PUTVAR
+	LD	A,3
+	CALL	MESSAGE
+	SCF
+	RET
+
+RM_STEP2
+	LD	HL,FILE_ARRAY
+	LD	DE,16384
+	LD	C,DSS_READ
+	LD	A,(MNU_FHND)
+	RST	#10
+	JR	C,RF_ERR
+	LD	B,D
+	LD	C,E
+	LD	HL,FILE_ARRAY
+FIND_AGAIN
+	LD	A,"["
+	CPIR
+	JR	NZ,NOMENU
+	LD	A,(ANCHOR)
+	OR	A
+	LD	DE,DEFAULT_MENU
+	JR	Z,CHECK_MNU_NAME
+	LD	DE,LST_VAR
+CHECK_MNU_NAME
+	LD	A,(DE)
+	OR	A
+	JR	Z,END_MENU_TAG
+	CP	(HL)
+	JR	NZ,FIND_AGAIN
+	INC	HL
+	INC	DE
+	DEC	BC
+	LD	A,B
+	OR	C
+	JR	NZ,CHECK_MNU_NAME
+	JR	NOMENU
+END_MENU_TAG
+	LD	A,"]"
+	CP	(HL)
+	JR	NZ,FIND_AGAIN
+	INC	HL
+	LD	(MENU_ADDRESS),HL
+	LD	A,"["
+	CPIR
+;	JR	NZ,NOM
+	DEC	HL
+	XOR	A
+	LD	(HL),A
+NOM
+;;;
+	CALL	CLOSE_MENU_FILE
+	AND	A
+	RET
+
+NOMENU
+	LD	A,(ANCHOR)
+	OR	A
+	LD	HL,DEFAULT_MENU
+	JR	Z,NM_2
+	LD	HL,LST_VAR
+NM_2	CALL	PUTVAR
+	LD	A,4
+	CALL	MESSAGE
+RF_ERR	
+	CALL	CLOSE_MENU_FILE
+	SCF
+	RET
+
+;[PARSER]
+; HL - MENU CONTENT
+; IX - MENU STRUCT
+
+PARSER	LD	A,(HL)
+	INC	HL
+	CP	" "
+	JR	Z,PARSER
+	CP	9
+	JR	Z,PARSER
+	CP	13
+	JR	Z,PARSER
+	CP	10
+	JR	Z,PARSER
+	OR	A
+	RET	Z
+	DEC	HL
+	LD	BC,0
+	LD	DE,WORKBUF
+PARSER1	LD	A,(HL)
+	LD	(DE),A
+	INC	HL
+	INC	DE
+	INC	B
+	JR	Z,PARSE_FAILURE
+	CP	"="
+	JR	Z,EQUAL
+	CP	","
+	JR	Z,FIRST_VAR
+	CP	13
+	JR	Z,LAST_VAR
+	CP	10
+	JR	Z,LAST_VAR
+	OR	A
+	JR	NZ,PARSER1
+	DEC	HL
+	JR	LAST_VAR
+
+PARSE_FAILURE
+	LD	A,8
+	CALL	MESSAGE
+	LD	A,1
+	LD	(QUITMODE),A
+	SCF
+	RET
+
+LAST_VAR
+	LD	A,B
+	DEC	A
+	JR	Z,PARSER
+	EXX
+	LD	DE,LST_VAR
+	LD	HL,WORKBUF
+	CALL	COPY_STRING
+	EXX
+	PUSH	HL
+	CALL	PARSE_WORD
+;
+	XOR	A
+	LD	(FST_VAR),A
+	LD	(LST_VAR),A
+	LD	(WORDBUF),A
+;
+	POP	HL
+	JP	PARSER
+
+FIRST_VAR
+	LD	A,(FST_VAR)
+	OR	A
+	JR	NZ,PARSER1
+	LD	A,B
+	DEC	A
+	JR	Z,PARSER
+	EXX
+	LD	DE,FST_VAR
+	LD	HL,WORKBUF
+	CALL	COPY_STRING
+	EXX
+	JP	PARSER
+
+EQUAL	LD	A,(WORDBUF)
+	OR	A
+	JR	NZ,PARSER1
+	LD	A,B
+	EXX
+	LD	DE,WORDBUF
+	LD	HL,WORKBUF
+	CALL	COPY_STRING
+	EXX
+	JP	PARSER
+
+;HL - SOURCE
+;DE - DESTINATION
+; A - SIZE
+
+COPY_STRING
+	LD	B,0
+	LD	C,A
+	LDIR	
+	LD	A,B
+	LD	(DE),A
+	RET
+
+
+;COPY_IT
+;	LD	HL,WORKBUF
+;	LD	B,0
+;	LD	C,A
+;	LDIR
+;	LD	A,B
+;	LD	(DE),A
+;	EXX
+;	JR	PARSER
+
+PARSE_WORD
+	LD	HL,DICT_REF-3
+	PUSH	HL
+PARSE_AGAIN
+	POP	HL
+	INC	HL
+	INC	HL
+	INC	HL
+	LD	A,(HL)
+	INC	HL
+	PUSH	HL
+	LD	H,(HL)
+	LD	L,A
+	LD	B,(HL)
+	INC	HL
+	DJNZ	DO_COMPARE
+	POP	HL
+	SCF
+	RET
+DO_COMPARE
+	LD	DE,WORDBUF
+COMPARE
+	LD	A,(DE)
+	CP	"a"
+	JR	C,NOUP
+	RES	5,A
+NOUP	CP	(HL)
+	JR	NZ,PARSE_AGAIN
+	INC	DE
+	INC	HL
+	DJNZ	COMPARE
+	POP	HL
+	INC	HL
+	LD	A,(HL)
+	INC	HL
+	LD	H,(HL)
+	LD	L,A
+	JP	(HL)
+
+DICT_REF
+	DW	WORD_1,PROG_1,WORD_2,PROG_2,WORD_3,PROG_3,WORD_4,PROG_4
+	DW	WORD_5,PROG_5,WORD_6,PROG_6,WORD_7,PROG_7,WORD_8,PROG_1
+	DW	WORD_N
+
+DICT_WORDS
+WORD_1	DB	6,"ITEM=",0
+WORD_2	DB	7,"TITLE=",0
+WORD_3	DB	9,"OPTIONS=",0
+WORD_4	DB	10,"AUTOEXIT=",0
+WORD_5	DB	13,"DEFAULTITEM=",0
+WORD_6	DB	11,"MENUCOLOR=",0
+WORD_7	DB	10,"BARCOLOR=",0
+WORD_8	DB	10,"MENUITEM=",0
+
+WORD_N	DB	1	; END
+
+
+;GET TITLE
+PROG_2
+	LD	HL,LST_VAR
+	LD	DE,MENU_TITLE
+PROG2L1	LD	A,(HL)
+	LDI
+	OR	A
+	JR	NZ,PROG2L1
+	RET
+
+;GET ITEM
+PROG_1	LD	HL,FST_VAR
+	LD	A,(HL)
+	OR	A
+	JR	NZ,PROG1L0
+	LD	HL,LST_VAR
+PROG1L0	LD	DE,(TEXT_INDEX)
+	PUSH	DE
+PROG1L1	LD	A,(HL)
+	LDI
+	OR	A
+	JR	NZ,PROG1L1
+	LD	HL,LST_VAR
+	PUSH	DE
+PROG1L2	LD	A,(HL)
+	LDI
+	OR	A
+	JR	NZ,PROG1L2
+	LD	(TEXT_INDEX),DE
+
+	POP	DE
+	LD	(IX+2),E	;PUT ITEM COMMAND ADDRESS
+	LD	(IX+3),D
+	POP	DE
+	LD	(IX+0),E	;PUT ITEMNAME ADDRESS
+	LD	(IX+1),D
+
+	LD	DE,ITEMSIZE
+	ADD	IX,DE
+	XOR	A
+	LD	(IX+0),A	;PUT END CODE
+	LD	(IX+1),A
+	LD	HL,ITEMCOUNT
+	INC	(HL)
+
+	LD	A,(FST_VAR)
+	OR	A
+	RET	NZ
+	LD	A,6
+	CALL	MESSAGE
+	RET
+
+;GET OPTIONS
+PROG_3	LD	HL,AE_STR
+	CALL	FIND_VAR
+	RET
+
+FIND_VAR
+	LD	DE,LST_VAR
+	CALL	FIND_STR
+	RET
+
+FIND_STR
+	LD	(P3_L1+1),HL
+P3_L1	LD	HL,#0000
+	LD	B,(HL)
+P3_L2	INC	HL
+P3_L3	LD	A,(DE)
+	OR	A
+	RET	Z
+	INC	DE
+	CP	"a"
+	JR	C,P3NOUP
+	RES	5,A
+P3NOUP	CP	(HL)
+	JR	NZ,P3_L3
+P3_L4	INC	HL
+	LD	A,(DE)
+	OR	A
+	RET	Z
+	INC	DE
+	CP	"a"
+	JR	C,P3NOUP2
+	RES	5,A
+P3NOUP2	CP	(HL)
+	JR	NZ,P3_L1
+	DJNZ	P3_L4
+
+	LD	A,(DE)
+	CP	"!"
+	JR	NC,P3_L1
+	INC	HL
+	LD	A,(HL)
+	INC	HL
+	LD	H,(HL)
+	LD	L,A
+	XOR	A
+	DEC	A
+	RET
+
+;OPTIONS
+AE_STR	DW	AEXIT
+	DB	7,"AUTOEXIT"
+
+AEXIT	DB	#00
+
+;AUTOEXIT
+PROG_4	LD	A,(LST_VAR)
+	CP	"1"
+	LD	A,1
+	JR	Z,P4_YES
+	DEC	A
+P4_YES	LD	(AEXIT),A
+	RET
+
+;GET DEFAULT ITEM
+PROG_5	LD	HL,FST_VAR
+	LD	A,(HL)
+	OR	A
+	JR	NZ,P5_AUTORUN
+	LD	HL,LST_VAR
+	JR	P5_L0
+P5_AUTORUN
+	CALL	P5_L0
+	LD	HL,LST_VAR
+	LD	C,0
+P5_LOOP	LD	A,(HL)
+	INC	HL
+	OR	A
+	JR	Z,P5_END
+	CALL	STR2NUM
+	JR	P5_LOOP
+P5_END	LD	A,(RUN_TIME)
+	ADD	A,C
+	LD	(GO_TIME),A
+	LD	A,60
+	CP	C
+	RET	NC
+	LD	A,1
+	LD	(QUITMODE),A
+	LD	A,5
+	CALL	MESSAGE
+	RET
+
+; DEFAULT ITEM
+P5_L0	XOR	A
+	LD	C,A	;VALUE = 0
+P5_L1	LD	A,(HL)
+	INC	HL
+	OR	A
+	JR	Z,P5_L2
+	CP	"0"
+	JR	C,P5_L1
+	CP	"9"+1
+	JR	NC,P5_L1
+	SUB	"0"
+	LD	B,A	;SAVE DIGIT
+	LD	A,C
+	ADD	A,A
+	ADD	A,A
+	ADD	A,C
+	ADD	A,A	;VALUE x 10
+	ADD	A,B	;VALUE + DIGIT
+	LD	C,A
+	JR	P5_L1
+P5_L2	LD	A,C
+	LD	(DEFAULT_ITEM),A
+	RET
+
+; GET MENUCOLOR
+PROG_6	LD	A,(SCR_ATTR)
+	CALL	PCHANGE_COLOR
+	LD	(SCR_ATTR),A
+	RET
+
+PCHANGE_COLOR
+	LD	B,A
+	LD	HL,FST_VAR
+	LD	A,(HL)
+	OR	A
+	JR	Z,P6_NO_INK
+	PUSH	BC
+	CALL	MAKE_COLOR
+	POP	BC
+	CP	16
+	JR	NC,P6_NO_INK
+	LD	C,A
+	LD	A,B
+	AND	#F0
+	OR	C
+	LD	B,A
+P6_NO_INK
+	LD	HL,LST_VAR
+	LD	A,(HL)
+	OR	A
+	JR	Z,P6_NO_PAPER
+	PUSH	BC
+	CALL	MAKE_COLOR
+	POP	BC
+	CP	16
+	JR	NC,P6_NO_PAPER
+	AND	#0F
+	RRCA
+	RRCA
+	RRCA
+	RRCA
+	LD	C,A
+	LD	A,B
+	AND	#0F
+	OR	C
+	LD	B,A
+P6_NO_PAPER
+	LD	A,B
+	RET
+
+MAKE_COLOR
+	LD	C,0
+P6_L1	LD	A,(HL)
+	INC	HL
+	OR	A
+	JR	Z,P6_END
+	CALL	STR2NUM
+	JR	P6_L1	
+P6_END	LD	A,C
+	RET
+
+; C - VALUE "0..255"
+; A - DIGIT "0".."9"
+
+STR2NUM	CP	"0"
+	RET	C
+	CP	"9"+1
+	CCF
+	RET	C
+	SUB	"0"
+	LD	B,A	;SAVE DIGIT
+	LD	A,C
+	ADD	A,A
+	ADD	A,A
+	ADD	A,C
+	ADD	A,A	;VALUE x 10
+	ADD	A,B	;VALUE + DIGIT
+	LD	C,A
+	AND	A
+	RET
+
+; GET BARCOLOR
+PROG_7	LD	A,(SEL_ATTR)
+	CALL	PCHANGE_COLOR
+	LD	(SEL_ATTR),A
+	RET
+
+;[/PARSER]
diff --git a/readme.eng b/readme.eng
new file mode 100644
index 0000000..f8537a1
--- /dev/null
+++ b/readme.eng
@@ -0,0 +1,227 @@
+
+                             U S E R   M E N U  version 1.00
+                        -----------------------------------------
+
+  MENU is a standard Estex program which, based on configuration files, displays
+a menu to the user and  invokes the corresponding action.  An action may be to
+invoke an Estex program or to display another menu.
+  You can invoke the user menu by just typing 'menu' at the command prompt. And
+you should see a window that looks similar to the one below.
+
+  ЙННННННННННННН»
+  є  User Menu  є
+  ЗДДДДДДДДДДДДД¶
+  є±±±Item±1±±±±є
+  є   Item 2    є
+  є   Item 3    є
+  ИНННННННННННННј
+
+  Menus  may be  either  static  or dynamic,  depending  on  the needs  of  the
+application. 
+  Static menus are stored in the files with  a *.mnu extenstion  (see below for
+the file format). When you start menu, program has read required *.mnu file and
+displays it.  If you start  menu.exe  without any parameters  then program will
+search file default.mnu in the current directory.
+  Dynamic menus are generated by a program which get menu structure from switch
+"-m". The format is the same as for a static menu except ";" used as  delimiter
+for each line of menu structure. (example: "menu.exe -m title=My menu;menuitem=
+Item1, prog1.exe;menuitem=Item2, prog2.exe".)
+
+    USAGE
+   =======
+
+  MENU.EXE [-switches] [menufile.mnu] [menusection]
+   
+ 
+    Format of User Menu file
+   ==========================
+ 
+  A single MENUNAME.MNU file can define several different menu definitions.  To
+define user menu, you use the following special MENU commands:
+
+[MENU]
+Title=Menu Title
+MenuColor=1
+BarColor=3
+AutoExit=0
+DefaultItem=1
+MenuItem=Text, c:\dir\program.exe -key
+ 
+  To define multiple configurations, follow these general steps:
+ 
+1  Define  a startup  menu  in  the DEFAULT.MNU file  by using  a [MENU] header
+   followed by  one or more <MENUITEM>  commands.  The <TITLE>,  <DEFAULTITEM>,
+   <MENUCOLOR>, <BARCOLOR> and <AUTOEXIT> commands can be used to define special
+   characteristics of the startup menu.
+ 
+2  Create  a menu  definition block  in the DEFAULT.MNU file  for each menu you
+   want.  A definition block  begins with a block header - a name surrounded by
+   square brackets.
+
+
+
+   TITLE
+  =======
+ 
+  Defines a title of the user menu.
+ 
+Syntax
+ 
+    TITLE=title_text
+ 
+Parameter
+
+title_text
+    Specifies  the title you want USERMENU to display for this menu.  The menu
+    title  can be up to 78 characters long  and can contain any characters you
+    want. If you don't specify a title value, USERMENU will display 'User Menu'
+    as default.
+ 
+                                          -*-
+
+
+   MENUCOLOR
+  ===========
+ 
+  Sets the text and background colors for the user menu.
+ 
+Syntax
+ 
+    MENUCOLOR=[t,]m
+ 
+Parameters
+ 
+t
+    Specifies the color of the menu text. You can specify a value from 0 to 15;
+    For  a list of values and colors,  see "Color Values" later in this topic.
+    The 't' value is optional; if you do not specify a value, USERMENU displays
+    a white text color on the specified background color.
+ 
+m
+    Specifies the color of the menu background. You can specify a value from 0
+    to 15;  For a list of values and colors,  see "Color Values"  later in this
+    topic.
+ 
+  Be sure  to specify  different values  for t and m,  or the text  will not be
+readable.
+
+
+   BARCOLOR
+  ===========
+ 
+Sets the text and background colors for the cursor bar.
+ 
+Syntax
+ 
+    BARCOLOR=[t,]m
+ 
+Parameters
+ 
+t
+    Specifies the color of the bar text.  You can specify a value from 0 to 15;
+    For a list of values and colors,  see  "Color Values"  later in this topic.
+    The 't' value is optional; if you do not specify a value, USERMENU displays
+    a black text color on the specified background color.
+ 
+m
+    Specifies the color of the bar background.  You can specify a value  from 0
+    to 15;  For a list of values and colors,  see  "Color Values" later in this
+    topic.
+
+  Be sure  to specify  different values  for t and m,  or the text  will not be
+readable.
+
+ Color Values
+--------------
+ 
+Valid color values are from 0 to 15, as follows:
+ 
+    0  Black             8  Gray
+    1  Blue              9  Bright blue
+    2  Green            10  Bright green
+    3  Cyan             11  Bright cyan
+    4  Red              12  Bright red
+    5  Magenta          13  Bright magenta
+    6  Brown            14  Yellow
+    7  White            15  Bright white
+ 
+Note: For background, colors 8 through 15 blink.
+
+                                          -*-
+
+
+   AUTOEXIT
+  ==========
+ 
+Specifies method of the command launcher.
+ 
+Syntax
+ 
+    AUTOEXIT=[0|1]
+ 
+Parameters
+ 
+0
+    If set to 0, then USERMENU displays menu again, when command are terminated.
+
+1
+    If set to 1, then USERMENU  don not displays menu again,  when command  are
+    terminated.
+
+                                          -*-
+
+
+   MENUDEFAULT
+  =============
+ 
+  Specifies the default menu item on the user menu and sets a timeout value if
+desired.  If you do not use this command,  USERMENU sets the default to item 1.
+ 
+Syntax
+ 
+    MENUDEFAULT=item[,timeout]
+ 
+Parameters
+ 
+item
+    Specifies the default menu  item by its number.  The item must be defined
+    elsewhere in the *.MNU file. When USERMENU displays the startup menu, the
+    default menu item is highlighted.
+ 
+timeout
+    Determines how many seconds USERMENU waits before starting the program with
+    the default item.  If you don't specify a timeout value,  USERMENU does not
+    continue until the ENTER key is pressed or mouse is clicked. You can specify
+    a timeout value from 0 to 60 seconds.
+ 
+                                          -*-
+
+
+   MENUITEM
+  ==========
+ 
+  Defines an item on the startup menu. You can have up to twenty four menu items
+per menu.
+ 
+Syntax
+ 
+    MENUITEM=menu_text, command
+ 
+Parameters
+
+menu_text
+    Specifies the text you want USERMENU to display for this menu item. The menu
+    text  can be  up to  78 characters  long and can contain any characters you
+    want.
+ 
+command
+    Specifies the name of the associated program or command. If the menu item is
+    selected from the startup menu, USERMENU carries out the command.
+ 
+                                          -*-
+
+  Please contact us if you have any problems or have a suggestion! 
+
+  PETERS PLUS LTD
+  http://www.petersplus.com
+  e-mail: sprinter@petersplus.ru
diff --git a/screen.asm b/screen.asm
new file mode 100755
index 0000000..a1fd7cb
--- /dev/null
+++ b/screen.asm
@@ -0,0 +1,397 @@
+;DEBUG
+;////////
+
+FVAR	DB	"1-ST VAR: ",0
+SVAR	DB	"2-ND VAR: ",0
+
+
+
+DEBUG_PRINTZ
+	LD	(HL_D_POINT+1),HL
+	CALL	PUSHALL
+
+HL_D_POINT
+	LD	HL,#0000
+	LD	C,DSS_PCHARS
+	RST	#10
+	CALL	CRLF
+
+	CALL	POPALL
+	RET
+
+
+PUSHALL
+	EX	(SP),HL	;PUSH HL & GET ADDRESS
+	PUSH	DE
+	PUSH	BC
+	PUSH	AF
+	EXX
+	PUSH	HL
+	PUSH	DE
+	PUSH	BC
+	EXX
+	EX	AF,AF'
+	PUSH	AF
+	EX	AF,AF'
+	PUSH	IX
+	PUSH	IY
+	JP	(HL)	;JUMP TO ADDRESS (RET)
+
+POPALL
+	POP	HL	;GET ADDRESS
+	
+	POP	IY
+	POP	IX
+	EX	AF,AF'
+	POP	AF
+	EX	AF,AF'
+	EXX
+	POP	BC
+	POP	DE
+	POP	HL
+	EXX
+	POP	AF
+	POP	BC
+	POP	DE
+	EX	(SP),HL	;PUT ADDRESS
+	RET
+;////////
+;DEBUG
+
+
+
+
+;SHOW WINDOW ARRAY
+
+WIN_SHOW
+	LD	DE,(WIN_XY)
+	LD	A,(WIN_H)
+	LD	H,A
+	LD	A,(WIN_W)
+	LD	L,A
+	IN	A,(#E2)
+	LD	B,A
+	LD	C,DSS_WINREST
+	LD	IX,MYWIN
+	DI
+	RST	#10
+	EI
+	RET
+
+
+SAVE_POSITION
+	DW	0
+
+WIN_SAVE
+	LD	C,DSS_CURSOR
+	RST	#10
+	LD	(SAVE_POSITION),DE
+;	RET
+;
+	LD	DE,(WIN_XY)
+	LD	A,(WIN_H)
+	LD	H,A
+	LD	A,(WIN_W)
+	LD	L,A
+	IN	A,(#E2)
+	LD	B,A
+	LD	C,DSS_WINCOPY
+	LD	IX,SCR_BUF
+	DI
+	RST	#10
+	EI
+	RET
+
+WIN_BACK
+	LD	DE,(WIN_XY)
+	LD	A,(WIN_H)
+	LD	H,A
+	LD	A,(WIN_W)
+	LD	L,A
+	IN	A,(#E2)
+	LD	B,A
+	LD	C,DSS_WINREST
+	LD	IX,SCR_BUF
+	DI
+	RST	#10
+	EI
+
+	LD	DE,(SAVE_POSITION)
+	LD	C,DSS_LOCATE
+	RST	#10
+	RET
+
+WIN_CLS
+	LD	HL,0
+	LD	BC,(WIN_W)
+;	INC	BC
+;	INC	BC
+	LD	A,(WIN_H)
+	OR	A
+	RET	Z
+MULHGT	ADD	HL,BC
+	DEC	A
+	JR	NZ,MULHGT	
+	ADD	HL,HL
+	DEC	HL
+	DEC	HL
+	PUSH	HL
+
+	LD	HL,MYWIN
+	LD	D,H
+	LD	E,L
+	LD	A," "
+	LD	(HL),A
+	INC	HL
+	LD	A,(SCR_ATTR)
+	LD	(HL),A
+	INC	HL
+	EX	DE,HL
+	POP	BC
+	LDIR
+	RET
+
+WIN_XY
+WIN_X	DB	#16
+WIN_Y	DB	10
+WIN_H	DW	7
+WIN_W	DW	34
+
+WIN_ADDR
+	DW	MYWIN
+WIN_CUR_XY
+	DW	0
+
+WIN_LOCATE
+	LD	(WIN_CUR_XY),DE
+	LD	HL,0
+	INC	D
+	DEC	D
+	JR	Z,TOP_LN
+	LD	BC,(WIN_W)
+	SLA	C
+ADDYC1	ADD	HL,BC
+	DEC	D
+	JR	NZ,ADDYC1
+TOP_LN	SLA	E
+	ADD	HL,DE
+	LD	DE,MYWIN
+	ADD	HL,DE
+	LD	(WIN_ADDR),HL
+	RET
+
+WIN_PCHARS
+	LD	A,(HL)
+	INC	HL
+	OR	A
+	RET	Z
+	CP	13
+	JR	Z,CR_L
+	CP	10
+	JR	Z,LF_L
+	CALL	WIN_PUTCHAR
+	JR	WIN_PCHARS
+
+CR_L	LD	DE,(WIN_CUR_XY)
+	LD	D,0
+	PUSH	HL
+	CALL	WIN_LOCATE
+	POP	HL
+	JR	WIN_PCHARS
+
+LF_L	LD	DE,(WIN_CUR_XY)
+	INC	E
+	PUSH	HL
+	CALL	WIN_LOCATE
+	POP	HL
+	JR	WIN_PCHARS
+
+WIN_PUTCHAR
+	LD	DE,(WIN_ADDR)
+	LD	(DE),A
+	INC	DE
+	INC	DE
+	LD	(WIN_ADDR),DE
+	RET
+
+CRLF	LD	A,#0D
+	LD      C,DSS_PUTCHAR
+	RST     #10
+	LD      A,#0A
+	LD      C,DSS_PUTCHAR
+	RST     #10
+	RET
+
+MESSAGE	LD	E,A
+	LD	D,0
+	CALL	MESAGE
+	CALL	PRINTZ
+	RET
+
+MESAGE	INC	DE
+	LD	HL,MSG0
+	LD	BC,MSG1-MSG0
+LCPIR2	XOR	A
+	CPIR
+	RET	PO
+	RET	NZ
+	DEC	DE
+	LD	A,D
+	OR	E
+	JP	NZ,LCPIR2
+	RET
+
+PRINTZ	LD	A,(HL)
+	INC	HL
+	OR	A
+	RET	Z
+	CP	"%"
+	JR	NZ,PRINTZ2
+	LD	A,(HL)
+	INC	HL
+	SUB	"1"
+	PUSH	HL
+	LD	L,A
+	LD	H,0
+	ADD	HL,HL
+	ADD	HL,HL
+	ADD	HL,HL
+	ADD	HL,HL
+	LD	BC,PRM1
+	ADD	HL,BC
+	LD	C,DSS_PCHARS
+	RST	#10
+	POP	HL
+	JR	PRINTZ
+PRINTZ2	LD	C,DSS_PUTCHAR
+	RST	#10
+	JP	PRINTZ
+
+LOCATE_
+	LD	C,DSS_LOCATE
+	RST	#10
+	RET
+
+PRINT_A
+PRINT_	LD	C,DSS_PUTCHAR
+	RST	#10
+	RET
+
+MOVEBLOCKZ
+	LD	BC,255
+	JR	PUTPRMA
+
+PUTVAR	LD	DE,PRM1
+PUTPRM	LD	BC,15
+PUTPRMA	LD	A,(HL)
+	LDI
+	RET	PO
+	OR	A
+	JR	NZ,PUTPRMA
+	RET
+
+PRM1    DB      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+PRM2    DB      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+PRM3    DB      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+PRM4    DB      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+PRM5    DB      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+PRM6    DB      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+PRM7    DB      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+PRM8    DB      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+PRM9    DB      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+
+
+; PRINT MODULE
+
+DUMP	LD	B,2
+DUMPLP1	PUSH	BC
+	PUSH	HL
+	CALL	CRLF
+	POP	HL
+	CALL	PHEXSTR
+	POP	BC
+	DJNZ	DUMPLP1
+	CALL	CRLF
+	RET
+
+PHEX    LD      E,A
+        RRCA
+        RRCA
+        RRCA
+        RRCA
+        AND     #0F
+        ADD     A,#30
+        CP      #3A
+        JR      C,PHEX2
+        ADD     A,7
+PHEX2   CALL    PRINT_
+        LD      A,E
+        AND     #0F
+        ADD     A,#30
+        CP      #3A
+        JR      C,PHEX3
+        ADD     A,7
+PHEX3   CALL    PRINT_
+        RET
+
+PHEXSTR LD      B,#10
+PHS1    PUSH    BC
+        LD      A,(HL)
+        CALL    PHEX
+        LD      A,#20
+        CALL    PRINT_
+        POP     BC
+        INC     HL
+        DJNZ    PHS1
+        RET
+
+PRINTNUM
+	LD	HL,PRM1
+NUMC	LD	C,"0"-1
+NUMC1	INC	C
+	SUB	100
+	JR	NC,NUMC1
+	ADD	A,100
+	LD	(HL),C
+	INC	HL
+NUMB	LD	C,"0"-1
+NUMB1	INC	C
+	SUB	10
+	JR	NC,NUMB1
+	ADD	A,10
+	ADD	A,"0"
+	LD	(HL),C
+	INC	HL
+	LD	(HL),A
+	INC	HL
+	LD	(HL),0
+	RET
+
+PRINT99	LD	L,A
+	LD	H,0
+	JR	PRL99
+
+PRINTHL
+	LD	DE,10000
+	CALL	DIGIT
+	LD	DE,1000
+	CALL	DIGIT
+	LD	DE,100
+	CALL	DIGIT
+PRL99	LD	DE,10
+	CALL	DIGIT
+	LD	A,"0"
+	ADD	A,L
+	JP	PRINT_A
+
+
+DIGIT	LD	B,#FF
+PH1	INC	B
+	AND	A
+	SBC	HL,DE
+	JR	NC,PH1
+	ADD	HL,DE
+	LD	A,"0"
+	ADD	A,B
+	JP	PRINT_A
+
diff --git a/usage.txt b/usage.txt
new file mode 100644
index 0000000..fe27dcb
--- /dev/null
+++ b/usage.txt
@@ -0,0 +1,22 @@
+
+
+keys:
+
+-k keyboard disabled
+
+-u mouse disabled
+
+-o without message output
+
+-x autoexit from menu when program are terminated
+
+-m <menu defination> item=Flex Navigator, c:\fn\fn.exe; item=Command prompt, c:\system.exe /s
+
+
+[MENU]
+
+title=<menu title>
+item=<item name>, <program> <hot key>
+options=autoexit
+colours=blue, white
+defaultitem=<number>, <time>