;ᥬ஢ 㦭  䠩 "PC1"

FONT	EQU 24576
	IF LOAD
	ORG FONT
	INSERT "FNT"
	ENDIF


SETUPS	EQU 23967

	LD A,(23833)
	ADD A,65
	LD (LEFT_D+1),A
	LD (RIGHT_D+1),A

START	LD DE,TABL_PG
	LD HL,tabl_pg
	LD BC,4
	LDIR
	LD B,58
	LD A,6
LOOP	LD (DE),A
	INC A
	INC DE
	DJNZ LOOP

	LD A,(RAM_drv)
	AND A
	CALL Z,CONFIG ; -
		      ;
	LD A,(TYPE)   ; Scorpion?
	BIT 7,A	      ;᫨ ,	
	LD A,8	      ;⠢塞 8-
	CALL NZ,DEBUG ;  ⥭

;

;	 LD A,1
;	 CALL DEBUG
;	 LD A,2
;	 CALL DEBUG
;	 LD A,3
;	 CALL DEBUG
;	 LD A,4
;	 CALL DEBUG
;	 LD A,5
;	 CALL DEBUG
;	 LD A,6
;	 CALL DEBUG
;	 LD A,7
;	 CALL DEBUG

;

	LD A,(PAGE)
	INC A
	LD HL,64
	CALL mul_hla
	LD DE,18
	ADD HL,DE
	LD (Q_MEM),HL ;	- ᥪ஢	 !

Restart	CALL ESCAPE
	LD HL,0
	LD DE,#1840
	LD A,7
	CALL CL_WIN
	XOR A

	LD HL,CAT_L
	LD DE,CAT_L+1
	LD (HL),A
	LD BC,7680
	LDIR

	LD (D_ERROR+1),A
	LD (move),A
	INC A
	LD (disk_er),A
	CALL DOWNlin

Rst1_0	LD A,(PANEL)
	LD (Rst1+1),A
	XOR 1
	LD (PANEL),A
	CALL READ
Rst1_1	CALL CAT
	CALL RESTORE

Rst1	LD A,0
	LD (PANEL),A
	LD A,2
	LD (disk_er),A
	CALL READ
Rst0	CALL SET_pan
	CALL RESTORE

	XOR A
	LD (disk_er),A

ந ᪮ 
Arrow	CALL MSPEED2

	LD BC,#FBDF
	IN A,(C)
	LD (TM_A1+1),A
	LD B,#FF
	IN A,(C)
	LD (TM_A2+1),A

Arrow2	CALL panel
	LD HL,COORD_L
	JR Z,coord_l
	LD HL,COORD_R
coord_l	LD (CRDS+1),HL
	LD E,(HL)
	INC HL
	LD D,(HL)
	EX DE,HL
	CALL cursor2

᭮ 
	EI
	JR ARROW2
ARROW	JR ARROW1
	JR Q1
ARROW1	LD HL,0
	LD (ARROW),HL
	LD HL,(OLD_CRD)
	CALL ARRcurs
ARROW2

;
;	 LD (50000),SP
;	 LD HL,(50000)
;	 LD DE,0
;	 CALL NUMBER
;

	LD HL,(COORDS)
	LD (OLD_CRD),HL
	CALL ARRcurs

Q1	HALT

Q2	CALL mouse
	BIT 4,A
	JP NZ,FIRE  ;  
	BIT 7,A
	JP NZ,FIRE  ; ࠢ 

: 0-3 - ।, 4- ५졠!
;     5- - ।	࠭!
;     6- - ᫥ ࠭!
;     7- - escape!

CRDS	LD HL,COORD_L
	CALL SCANER
Arr_Mod	JP Arr_Nxt
Arr_Nxt	BIT 7,A
	JP NZ,CAPS4  ; BREAK/EDIT
	BIT 4,A
	JP NZ,RUN    ; ENTER

	AND 111	     ; - ?
	JP NZ,udlr

	LD A,#FE     ; Caps Shift
	IN A,(#FE)
	BIT 0,A
	JP Z,CAPS
	LD B,2
	LD A,#7F     ; SPACE
	IN A,(#FE)
	BIT 0,A
	JP Z,CAPS2+2
	BIT 1,A	     ; Symb. Shift
	JP Z,SHIFT
	BIT 4,A
	JR Z,Basic   ; "B"

	LD A,#F7
	IN A,(#FE)
	BIT 0,A	     ; "1"
	JP Z,HELP
	BIT 1,A	     ; "2"
	JP Z,USER
	BIT 2,A	     ; "3"
	JP Z,VIEW
	BIT 4,A	     ; "5"
	JP Z,COPY_FL

	LD A,#EF
	IN A,(#FE)
	BIT 0,A	     ; "0"
	JR Z,EXIT0   ; 

	BIT 1,A	     ; "9"
	JP Z,Mask
	BIT 2,A	     ; "8"
	JP Z,DELETE
	BIT 3,A	     ; "7"
	JP Z,MOV_FIL
	BIT 4,A
	JP Z,RENAME  ; "6"

	LD HL,#1E1E
	LD (FIRE_Q),HL
count	LD A,0
	AND A
	JR Z,cntt
	DEC A
	LD (count+1),A
cntt	JP ARROW

EXIT0	CALL ARRcurS
	CALL panel
	LD A,(LEFT_D+1)
	JR Z,EX1
	LD A,(RIGHT_D+1)
EX1	SUB 65
	LD (23833),A
	LD C,1
	CALL DOS
	JP EXIT

Basic	LD A,#7F
	IN A,(#FE)
	BIT 4,A
	JR Z,Basic
	CALL panel
	LD HL,MASK_L
	JR Z,BasL
	LD HL,MASK_R
BasL	LD DE,#422E  ; "B."
	LD BC,#072A  ;	07"*"
	LD A,(HL)
	CP D
	LD (HL),D
	JR NZ,Bas2
	LD (HL),C
Bas2	INC HL
	LD (HL),C
	INC HL
	LD (HL),E
Bas3	INC HL
	LD (HL),32
	DJNZ Bas3
	CALL ARRcurS
	JP Mas_Yes

SHIFT	BIT 4,A	     ; "*"
	JP Z,Mark0
	LD A,#BF
	IN A,(#FE)
	BIT 1,A
	JR Z,INFO    ; "L"
	CPL	     ; "+" / "-"
	AND 12
	JP NZ,Mark
	LD A,#EF
	IN A,(#FE)
	BIT 3,A	     ; "7"
	JP Z,MOVE
	BIT 4,A
	JP Z,Label_Disk	 ; "6"

	LD A,#F7     ; "1" / "2"
	IN A,(#FE)
	CPL
	AND 3
	JP Z,ARROW
	RRA
CH_DRV2	LD (PANEL),A
	EX AF,AF'
	CALL ARRcurS
CH_DRIV	EX AF,AF'
	AND A
	PUSH AF
	LD DE,#0412
	LD HL,#0605
	LD BC,#0907
	JR Z,CH_D1
	LD H,6+32
	LD B,9+32
CH_D1	LD A,79
	EXX
	LD BC,#0303
	CALL WINDOW
	POP AF
	LD DE,#0805
	JR Z,CH_D2
	LD D,8+32
CH_D2	LD HL,DRIVE
	CALL PRINT
	CALL CONTROc
	CALL panel
	LD A,(LEFT_D+1)
	JR Z,CH_D3
	LD A,(RIGHT_D+1)
CH_D3	SUB 65
	LD (MD_ctrl+1),A
	JP CONTROL

INFO	CALL ARRcurS
	LD A,196
	LD (INFOlin+15),A
	LD A,(PANEL)
	XOR 1
	PUSH AF
	PUSH AF
	PUSH AF
	PUSH AF
	LD HL,#0000
	LD DE,#1620
	LD BC,#0E14
	JR Z,INF2
	LD H,32
	LD B,46
INF2	EXX
	LD BC,#0B04
	LD A,40
	CALL WINDOW
	LD HL,INFOTXT
	LD DE,#0D00
	LD A,20
	LD (WDH_BOX),A
	POP AF
	JR Z,INF3
	LD D,45
INF3	CALL PRINT
	LD HL,INFOtxt
	LD DE,#0101
	POP AF
	JR Z,INF4
	LD D,33
INF4	CALL PRINT
	INC HL
	INC D
	INC E
	CALL PRINT
	LD HL,INFOlin
	INC E
	DEC D
	CALL PRINT
	INC E
	INC D
	LD HL,INFtext
	CALL PRINT
	LD HL,OKtxt
	LD DE,#0F14
	POP AF
	JR Z,INF5
	LD D,47
INF5	CALL PRINT
	POP AF
	LD DE,#1106
	JR Z,INF6
	LD D,49
INF6	LD A,(TYPE)
	BIT 7,A
	LD HL,SCOR
	JR NZ,INF7
	LD HL,ATM
	BIT 4,A
	JR NZ,INF7
	LD HL,PROF
	BIT 2,A
	JR NZ,INF7
	LD HL,KAY
	BIT 1,A
	JR NZ,INF7
	LD HL,SPEC
INF7	CALL PRINT
	INC E
	DEC D
	DEC D
	LD HL,(Q_MEM)
	PUSH DE
	CALL NUMBER
	LD HL,MarkPar
	CALL cont
	CALL PRINT
	POP DE
	INC D
	INC D
	INC E
	INC E
	CALL qf
INF8	LD H,0
	CALL NUMBER
	INC E
	CALL DEL_FL
	LD L,A
	LD H,0
	CALL NUMBER
	INC E
	DEC D
	CALL panel
	LD HL,(CAT_L+2048+229)
	JR Z,INF9
	LD HL,(CAT_R+2048+229)
INF9	XOR 1
	LD (PANEL),A
	CALL NUMBER
	JP CONTROL

 ᫠  HL
NUMBER	PUSH DE
	LD A,#C9
	LD (HL_MOD),A
	CALL HL_NUM
	XOR A
	LD (HL),A
	LD (HL_MOD),A
	POP DE
	LD HL,LINE
	JP PRINT

- 䠩  ᪥
qf	CALL panel
	LD HL,(CAT_L+2048+228)
	JR Z,qf2
	LD HL,(CAT_R+2048+228)
qf2	LD B,A
	LD A,L
	AND A
	RET

USER	CALL ARRcurS
	LD HL,#1203
	LD DE,#0718
	LD BC,#1404
	EXX
	LD BC,#0D14
	LD A,104
	CALL WINDOW
	LD HL,USERtxt
	LD DE,#1B03
	CALL PRINT
	LD DE,#1504
	INC HL
	CALL PRINT
	LD A,(DEL)
	AND A
	INC HL
	JR Z,US1
	INC HL
	INC HL
US1	LD DE,#2404
	CALL PRINT
	LD A,(RAM_drv)
	AND A
	LD HL,INS
	JR Z,US2
	LD HL,USERtxt
US2	LD DE,#2005
	CALL PRINT
	CALL US3
	JP CONTROL

US3	LD A,(MOUSE)
	AND A
	LD HL,INS-2
	JR Z,US4
	DEC HL
	DEC HL
US4	LD DE,#2506
	JP PRINT

WIN_13	EX AF,AF'
	BIT 7,A
	JP NZ,ViewExi
	LD A,C
	CP 1
	JR Z,LoadDrv
	CP 4
	JP Z,Save_Setup
	CP 3
	JP Z,Mouse_Setup
	LD HL,DEL
	ADD HL,BC
	LD A,(HL)
	XOR 1
	LD (HL),A
	LD A,C
	CP 2
	JR NZ,W13exit

	LD HL,(real_c+1)
	CALL cursor
	CALL US3
	CALL ARRcurS
	JP real_c

W13exit	LD HL,PANEL
	PUSH HL
	LD A,(HL)
	PUSH AF
	XOR 1
	LD (HL),A
	CALL CAT_CUR
	CALL CAT
	CALL RESTORE
	POP AF
	POP HL
	LD (HL),A
	CALL CAT_CUR
	CALL SET_pan
	CALL RESTORE
	JP Arrow2

LoadDrv	CALL QFILES
	JP Z,ARROW
	LD A,(RAM_drv)
	AND A
	JR NZ,LD2
	INC A
	LD (D_ERROR+1),A
	CALL compare
	LD A,(FILEnum)
	LD HL,16
	CALL mul_hla
	CALL panel
	LD DE,CAT_L+14
	JR Z,LD1
	LD DE,CAT_R+14
LD1	ADD HL,DE
	LD E,(HL)
	INC HL
	LD D,(HL)
	LD BC,#0105
	LD HL,USERdrv
	CALL DOS
LD2	LD A,(RAM_drv)
	XOR 1
	LD (RAM_drv),A
	JP START

Label_Disk
;
	CALL panel
	LD HL,CAT_L+2048+245
	JR Z,RT_L
	LD HL,CAT_R+2048+245
RT_L	LD A,(HL)
	AND A
	JP Z,ARROW
	LD DE,FIL_PAR
	PUSH DE
	LD BC,8
	LDIR
	EX DE,HL
	LD (HL),32
	INC HL
	LD (HL),32
	CALL rename
	PUSH AF
	DEC D
	LD HL,REN_T
	CALL PRINT
	POP AF
	POP HL
	LD DE,#0C06
	JR Z,RT1
	LD D,12+32
RT1	LD A,8
	LD (MODE_IS+1),A
	CALL INP_STR
	JP NZ,RENAM10
	LD HL,LINE
	LD DE,FIL_PAR
	LD BC,8
	LDIR
	CALL compare
	AND A
	LD DE,256
	SBC HL,DE
	PUSH HL
	LD DE,245
	ADD HL,DE
	EX DE,HL
	LD HL,FIL_PAR
	LD BC,8
	LDIR
	POP HL
	LD DE,#0008
	LD BC,#0106
	CALL DOS
	CALL panel
	LD DE,LEFT_D+3
	JR Z,RT2
	LD DE,RIGHT_D+3
RT2	LD HL,FIL_PAR
	LD BC,8
	LDIR
	JP RENAM10

Mouse_Setup
	LD HL,#1204
	LD DE,#0418
	LD BC,#1405
	EXX
	LD BC,#0E14
	LD A,56
	CALL WINDOW
	LD DE,#1405
	LD HL,M_SUtxt
	CALL PRINT
	INC E
	INC HL
	CALL PRINT
	JP CONTROL

WIN_14	EX AF,AF'
	BIT 7,A
	JP NZ,USER+3
	LD A,C
	AND A
	JR NZ,Mspeed

	LD A,(CLICK)
	LD (FIL_PAR),A
	LD A,56
	LD (FIL_PAR+1),A

DCspeed	LD HL,#1204
	LD DE,#0418
	LD BC,#1506
	EXX
	LD BC,#1006
	LD A,(FIL_PAR+1)
	CALL WINDOW
	LD DE,#1404
	LD HL,M_SUtxt
	CALL PRINT
	LD DE,#1606
	LD HL,DC_txt
	CALL PRINT
	LD A,(CLICK)
	CALL Msp
	JP CONTROL

WIN_16	LD DE,CLICK
	EX AF,AF'
	BIT 7,A
	JP NZ,W15esc
	LD A,B
	CP 1
	JP Z,Mouse_Setup
	CP 2
	JP Z,W15esc
Testing	EX DE,HL
	LD A,(count+1)
	AND A
	JR Z,TST2
	CP (HL)
	JR Z,TST3
	LD A,(FIL_PAR+1)
	XOR 63
	JR DCspeed-3

TST2	LD A,(CLICK)
	LD (count+1),A
TST3	LD HL,CONTRL2
	LD (Arr_Mod+1),HL
	LD HL,(old_c+1)
	LD A,(LENcurs)
	CALL curs_0
	JP CONTROL

Mspeed	LD HL,#1204
	LD DE,#0418
	LD BC,#1606
	EXX
	LD BC,#0F08
	LD A,56
	CALL WINDOW
	LD DE,#1704
	LD HL,MStxt
	CALL PRINT
	INC HL
	CALL PRINT
	LD HL,ok_can+2
	CALL PRINT
	LD DE,M_SP
	LD A,(DE)
	LD (FIL_PAR),A
	CALL Msp
	JP CONTROL

win_15	CP 15
	LD DE,M_SP
	LD C,24
	JR Z,w_15
	LD DE,CLICK
	LD C,20
w_15	LD HL,(COORDS)
	LD A,L
	CP 5
	JP NZ,FIRE2
	LD A,H
	CP 24
	JP C,FIRE2
	CP 35
	JP NC,FIRE2
	SUB C
	LD (DE),A
	CALL Msp
	JP ARROW

Msp	PUSH AF
	LD HL,mstxt
	LD DE,#1705
	CALL PRINT
	LD A,(WINnum)
	CP 15
	LD C,0
	JR Z,Msp1
	LD C,4
Msp1	POP AF
	INC D
	ADD A,D
	SUB C
	LD D,A
	LD HL,COPYT2+3
	JP PRINT

WIN_15	LD DE,M_SP
	EX AF,AF'
	BIT 7,A
	JR NZ,W15esc
	LD A,B
	AND A
	JR Z,W15
W15esc	LD A,(FIL_PAR)
	LD (DE),A
W15	JP Mouse_Setup

Save_Setup

	LD A,1
	LD (D_ERROR+1),A
	LD C,A
	LD A,(SETUPS)
	CALL DOS
	LD HL,BUFD
	LD DE,0
	LD BC,#0905
	CALL DOS
	LD HL,BUFD
	LD A,(BUFD+2048+228)
Loop	EX AF,AF'
	LD DE,SETUPS+3
	LD BC,16
Loop2	LD A,(DE)
	CPI
	JR NZ,NxtFILE
	INC DE
	JP PE,Loop2

 , ࠭塞 ⠭

	LD DE,(SETUPS+1)
	LD BC,#0106
	LD HL,DEL
	CALL DOS
	JP Restart

NxtFILE	ADD HL,BC
	EX AF,AF'
	DEC A
	JR NZ,Loop
	LD A,21
	LD (23823),A
	JP USERerr

HELP	CALL ARRcurS
	LD HL,#1104
	LD DE,#0E1E
	LD BC,#1E10
	EXX
	LD BC,#0C04
	LD A,40
	CALL WINDOW
	LD HL,HELPtxt
	LD DE,#1D04
	CALL PRINT
	LD DE,#1305
	LD A,D
	LD (WDH_BOX),A
	INC HL
	CALL PRINT
	LD HL,OKtxt
	LD DE,#1F10
	CALL PRINT
	JP CONTROL

RESTORE	CALL panel
	LD A,B
	LD HL,ADD3_L
	JR Z,Rst2
	LD HL,ADD3_R
Rst2	LD (HL),A
	RET

CAPS	LD A,#7F     ; CS+SS (EXTEND)
	IN A,(#FE)
	BIT 1,A
	JR Z,CAPS2
	LD A,#EF     ; CS+"0" (DELETE)
	IN A,(#FE)
	BIT 0,A
	JR Z,CAPS2
	BIT 1,A	     ; CS+"9" (GRAPHICS)
	LD B,2
	JR Z,CAPS2+2
	LD A,#BF
	IN A,(#FE)
	BIT 1,A	     ; CS+"L" (INFO)
	JP Z,INFO
caps	JP ARROW

CAPS4	BIT 6,A
	LD A,(PANEL)
	JP NZ,CH_DRV2
CAPS2	LD B,1
	LD A,(FIRE_Q)
	DEC A
	JR Z,CAPS3
	LD (FIRE_Q),A
	CP 29
	JR NZ,caps
CAPS3	EXX
	CALL ARRcurS
	EXX
	LD A,B
	EXX
	CP 2
	JP Z,MARK

室	  
CH_PAN	CALL ch_panM
	LD HL,#0500
	JR Z,ch_pan3
	LD H,21
ch_pan3	LD DE,#0105
	LD A,15
	CALL SET_ATR
	LD A,(PANEL)
	XOR 1
	LD (PANEL),A
	CALL ch_pan1
	LD A,#C9	; RET
	LD (CAT_MOD),A
	CALL SET_pan
	XOR A		; NOP
	LD (CAT_MOD),A
	CALL panel
	LD HL,COORD_L
	JR Z,ch_pan0
	LD HL,COORD_R
ch_pan0	LD (CRDS+1),HL
	CALL CURSOR
	JP ARROW2

ch_panM	CALL panel
ch_panm	LD DE,(FILEadr)
	LD HL,FILE_L
	JR Z,ch_pan2
	LD HL,FILE_R
ch_pan2	LD (HL),E
	INC HL
	LD (HL),D
	LD DE,(ADDER1+1)
	LD A,(ADDER2+1)
	LD HL,ADD1_L
	LD BC,ADD2_L
	JR Z,ch_pan4
	LD HL,ADD1_R
	LD BC,ADD2_R
ch_pan4	LD (HL),E
	INC HL
	LD (HL),D
	LD (BC),A
	LD A,(PR_CATc+1)
	INC BC
	LD (BC),A
	RET

ch_pan1	LD HL,(ADD1_L)
	LD DE,(ADD2_L)
	JR Z,ch_pan5
	LD HL,(ADD1_R)
	LD DE,(ADD2_R)
ch_pan5	LD (ADDER1+1),HL
	LD A,E
	LD (ADDER2+1),A
	LD A,D
	LD (PR_CATc+1),A
	RET

 ப
DOWNlin	LD DE,#0017
	LD HL,MENU
	JP PRINT

VIEW	CALL QFILES
	JP Z,ARROW
	CALL ARRcurS
	CALL compare
	LD A,(FILEnum)
	LD HL,16
	CALL mul_hla
	LD (LARGE+1),A
	CALL panel
	LD DE,CAT_L+11
	JR Z,View0
	LD DE,CAT_R+11
View0	ADD HL,DE
	LD C,(HL)
	INC HL
	LD B,(HL)
	INC HL
	XOR A
	OR B
	OR C
	JR NZ,View02
	LD BC,70*256
View02	LD A,(HL)   ; 䠩  ᥪ
	CP 71
	JR C,View01
	LD A,70
	LD (LARGE+1),A
	LD BC,70*256
View01	PUSH HL
	LD HL,70*256
	AND A
	SBC HL,BC
	POP HL
	JR C,View01-3
	LD (EndTxt+1),BC; 	䠩 	
	LD B,A
	INC HL
	LD E,(HL)
	INC HL	    ;DE=஦, ᥪ
	LD D,(HL)
	LD C,5
	LD HL,TEXT-1 ;㤠 㧨 ⥪
	LD (HL),13
	INC HL
	CALL DOS     ;㧨!

VIEWER	CALL ESCAPE
	LD HL,0
	LD DE,#1740
	LD A,15
	LD (VIEWsc+1),A
	CALL CL_WIN

viewer	LD HL,#0017
	LD DE,#0140
	LD A,56
	CALL CL_WIN
	LD A,#C9
	LD (PrntMod),A
	LD (WINnum),A
	LD DE,#0017

	LD HL,(FILEadr)
	CALL PRINT
	LD HL,ViewT
	LD D,42
	CALL PRINT
LARGE	LD A,#3E
	AND A
	LD HL,Large
	LD DE,#0B17
	CALL NZ,PRINT
EndTxt	LD HL,#2121
	LD DE,TEXT
	ADD HL,DE
EndTxt2	LD (HL),A
	LD (VPgDn+1),HL	; 	 ⥪
	LD (VLnUp4+1),HL
	INC HL
	LD (HL),13
	LD (ADR_TXT+1),DE
	LD HL,ViewM
	LD (Arr_Mod+1),HL
	LD A,(VIEWMOD)
	AND A
	JP NZ,VIEWscr
	JR ADR_TXT
VIew	CALL ARRcurS
ADR_TXT	LD HL,#2121
	LD A,23
	LD DE,0
View	LD (QuanLin+1),A
	LD A,(HL)
	AND A
	JR Z,View2+3	; 	⥪!
VIEw	CALL PRINT
VIEw2	LD A,(HL)
	CP #0A
	JR NZ,View2
	INC HL
View2	LD A,(COUNT+1)
	PUSH DE
	PUSH HL
	CP 64
	JR NC,Cl_Lin2-1
	AND A
	RRA
	JR NC,Cl_Lin
	RLA
	LD D,A
	LD HL,LEFT_D+11
	CALL PRINT
Cl_Lin	LD A,(COUNT+1)
	SRL A
View3	LD H,A
	LD A,32
	SUB H
	JR Z,Cl_Lin2
	LD B,A

	LD A,E
	AND 7
	RRCA
	RRCA
	RRCA
	ADD A,H
	LD H,E
	LD L,A
	LD A,H
	AND #18
	OR #40
	LD H,A	; HL=  ࠭  㪢

	XOR A
	LD D,H
Cl_Lin3	LD (HL),A
	INC H
	LD (HL),A
	INC H
	LD (HL),A
	INC H
	LD (HL),A
	INC H
	LD (HL),A
	INC H
	LD (HL),A
	INC H
	LD (HL),A
	INC H
	LD (HL),A
;	 INC H
	LD H,D
	INC L
	DJNZ Cl_Lin3
	XOR A
Cl_Lin2	LD (COUNT+1),A
	POP HL
	POP DE
	INC E
QuanLin	LD A,#3E
	DEC A
	JP NZ,View
	LD (Vdwn1+1),HL
	CALL ARRcurS
Viewm	JP ARROW
ViewM	LD B,A
	BIT 7,A
	JR NZ,ViewExi ;ESCAPE?
	LD A,(VIEWMOD)
	AND A
	JR NZ,ViewN
	LD A,B
	BIT 6,A
	JP NZ,VPgDn   ;࠭	
	BIT 5,A
	JP NZ,VPgUp   ;࠭	

	BIT 2,A
	JP NZ,VPgDn   ;ப 
	BIT 3,A
	JP NZ,VLnUp   ;ப 

	BIT 1,A
	JP NZ,VPgUp   ;࠭	
	BIT 0,A
	JP NZ,VPgDn   ;࠭	

ViewN	LD A,B
	LD A,#EF
	IN A,(#FE)
	BIT 2,A
	JP Z,VIEWmod
	BIT 0,A	      ;室?
	LD A,20
	LD (FIRE_Q),A
	JR NZ,Viewm

ViewExi	CALL ESCAPE
	XOR A
	LD (PrntMod),A
	LD HL,0
	LD DE,#1840
	LD A,7
	CALL CL_WIN
	LD HL,Arr_Nxt
	LD (Arr_Mod+1),HL
	CALL DOWNlin
	LD A,#C9
	LD (MODEprt),A

	CALL ch_panM
	LD HL,PANEL
	PUSH HL
	LD A,(HL)
	PUSH AF
	XOR 1
	LD (HL),A
	CALL ch_pan1
	CALL MARK_M
	CALL WINS
	CALL CAT
	POP AF
	POP HL
	LD (HL),A
	AND A
	CALL ch_pan1
	CALL MARK_M
	XOR A
	LD (MODEprt),A
	JP Mas_Esc

MARK_M	CALL panel
	LD HL,(MRKadrL)
	LD DE,MARKEDL
	JR Z,VE1
	LD HL,(MRKadrR)
	LD DE,MARKEDR
VE1	SBC HL,DE
	RET Z
	AND A
	LD HL,(MARK_L)
	JR Z,VE2
	LD HL,(MARK_R)
VE2	CALL Mark_M
	RET

VPgUp	LD DE,(ADR_TXT+1)
Vup0	LD C,24
Vup1	LD HL,TEXT
	AND A
	SBC HL,DE
	JR NC,Vup2
	DEC DE
	LD A,(DE)
	CP 13
	JP NZ,Vup1
	DEC C
	JP NZ,Vup1
	INC DE
	LD A,(DE)
	CP 10
	JR NZ,Vup2
	INC DE
Vup2	EX DE,HL
	JR ViewMP

VPgDn	LD HL,#2121   ;HL=	⥪
Vdwn1	LD DE,#1111   ;DE=	࠭
	EX AF,AF'
	LD A,(DE)
	AND A
Vdwn2	JP Z,ARROW
	SBC HL,DE
	JR Z,Vdwn2
	JP C,ARROW
	EX AF,AF'
	CP 4
	JR Z,VLnDn
	EX DE,HL
ViewMP	LD A,(FIRE_Q)
	DEC A
	JR Z,VIEWw1
	LD (FIRE_Q),A
	CP 19
	JP NZ,ARROW
VIEWw1	LD (ADR_TXT+1),HL
	JP VIew

VLnDn	CALL ARRcurS
	LD HL,(ADR_TXT+1)
VLnDnM	LD A,(HL)
	INC HL
	CP 13
	JR NZ,VLnDnM
VLnDn0	LD A,(HL)
	CP 10
	JR NZ,VLnDn00
	INC HL
VLnDn00	LD (ADR_TXT+1),HL
	LD HL,#0000
	LD A,#2C
	LD (VMod1),A
	LD (VMod2),A
	CALL Vscroll
	LD HL,(Vdwn1+1)
	LD DE,#0016
	JP VIEw

VLnUp	LD HL,(ADR_TXT+1)
	LD A,13
	LD BC,0
	DEC HL
	CPDR
	INC HL
	EX DE,HL
	LD HL,TEXT
	AND A
	SBC HL,DE
	JR Z,VLnUp1
	JP NC,Viewm
VLnUp1	EX DE,HL
	DEC HL
	CPDR
	INC HL
	INC HL
	LD A,(HL)
	CP 10
	JR NZ,VLnUp3
	INC HL
VLnUp3	LD (ADR_TXT+1),HL
	EXX
	CALL ARRcurS
	EXX
	LD BC,0
	LD A,23
VLnUp2	EX AF,AF'
	LD A,13
	CPIR
	EX DE,HL
VLnUp4	LD HL,#2121
	AND A
	SBC HL,DE
	JR C,VLnUp5
	EX DE,HL
	EX AF,AF'
	DEC A
	JP NZ,VLnUp2
VLnUp5	PUSH HL
	LD HL,#0016
	LD A,#2D
	LD (VMod1),A
	LD (VMod2),A
	CALL Vscroll
	LD HL,(ADR_TXT+1)
	LD DE,0
	CALL PRINT
	POP HL
	JP VIEw2

Vscroll	LD A,22
VLnDn1	PUSH AF
	PUSH HL
	LD D,H
	LD E,L
	CALL SCR_ADR
	EX DE,HL
VMod1	INC L
	CALL SCR_ADR
	LD B,8
VLnDn2	LD A,E
	EX AF,AF'
	LD A,L
	LD C,32
	LDI:LDI:LDI:LDI:LDI:LDI:LDI:LDI
	LDI:LDI:LDI:LDI:LDI:LDI:LDI:LDI
	LDI:LDI:LDI:LDI:LDI:LDI:LDI:LDI
	LDI:LDI:LDI:LDI:LDI:LDI:LDI:LDD
	LD L,A
	EX AF,AF
	LD E,A
	INC H
	INC D
	DJNZ VLnDn2
	POP HL
VMod2	INC L
	POP AF
	DEC A
	JP NZ,VLnDn1
	RET

VIEWwin	LD HL,(COORDS)
	LD A,(VIEWMOD)
	AND A
	JR NZ,Vwin1
	LD A,L
	CP 13
	JP C,VLnUp
	CP 23
	JR C,VIEWw2
	EX AF,AF'
Vwin2	LD A,H
	CP 58
	JP NC,ViewExi
	CP 52
	JP NC,VIEWmod
	EX AF,AF'
	JP NZ,ARROW
	EX AF,AF'
	CP 47
	JP NC,VPgDn
	CP 42
	JP NC,VPgUp
VIEWw2	LD A,4
	JP VPgDn
Vwin1	EX AF,AF'
	LD A,L
	CP 23
	JR Z,Vwin2
	JP ARROW

VIEWmod	CALL ARRcurS
	LD HL,#3013
	LD DE,#050E
	LD BC,#3214
	EXX
	LD BC,#040A
	XOR A
	LD (PrntMod),A
	LD A,7
	CALL WINDOW
	LD HL,VIEWM
	LD DE,#3313
	CALL PRINT
	LD A,(VIEWMOD)
	LD DE,#3A14
	ADD A,E
	LD E,A
	INC HL
	CALL PRINT
	JP CONTROL

VIEW_M	EX AF,AF'
	BIT 7,A
	JP NZ,VIEWER
	LD A,C
	LD (VIEWMOD),A
	JP VIEWER

VIEWscr	EX AF,AF'
VIEWsc	LD A,0
	AND A
	JP Z,ARROW2
	XOR A
	LD (VIEWsc+1),A
	EX AF,AF'
	CP 1
	JR Z,SCR
	LD BC,(EndTxt+1)
	AND A
	LD HL,2048
	SBC HL,BC
	JR NC,FNT_m
	LD BC,2048
FNT_m	LD HL,TEXT
	LD DE,0
	LD A,32
FNT_M	EX AF,AF'
	PUSH DE
	EX DE,HL
	CALL SCR_ADR
	EX DE,HL
	LD A,8
	JR FNT
FNT2	DEC A
	JR Z,FNT3
	DEC DE
	INC D
FNT	LDI
	JP PE,FNT2
	POP DE
	JR Vscr2
FNT3	POP DE
	INC D
	EX AF,AF'
	DEC A
	JR NZ,FNT_M
	LD D,A
	INC E
	JR FNT_M-2

SCR	LD HL,TEXT
	LD DE,#4000
	LD BC,6912
	LDIR
ANY_KEY	CALL escape
	AND 144
	JR NZ,Vscr2
	XOR A
	IN A,(#FE)
	CPL
	AND 31
	JR Z,ANY_KEY
Vscr2	JP viewer

楤  HL=HL/DE   ZF #7!
DIV	LD A,D
	OR E
	RET Z
	PUSH DE
	PUSH BC
	LD A,1
DIV_0	PUSH HL
	SBC HL,DE
	JP C,HL0
	SBC HL,DE
	JP C,DIV_1
DIV_01	INC A
	SLA E
	RL D
	POP HL
	JP DIV_0
DIV_1	POP HL
	LD BC,0
DIV_2	AND A
	JP NZ,DIV_3
	LD H,B
	LD L,C
	POP BC
	POP DE
	RET
DIV_3	SBC HL,DE
	JP NC,DIV_4
	ADD HL,DE
DIV_4	CCF
	RL C
	RL B
	SRL D
	RR E
	DEC A
	JP DIV_2
HL0	CP 1
	JP NZ,DIV_01
	POP HL
	POP BC
	POP DE
	LD HL,0
	RET

CONFIG	XOR	A
	LD	(TYPE),A
	INC	A
	LD	(PAGE),A
	DI
	LD	A,(#08)
	CP	#C3
	JR	NZ,IDFFD
	LD	HL,TYPE
	SET	7,(HL)

IDFFD	LD	HL,#80
	LD	DE,#1000
	LD	BC,#DFFD
	OUT	(C),D
	NOP
	LD	A,(HL)
	INC	(HL)
	CP	(HL)
	LD	(HL),A
	OUT	(C),E
	NOP
	JR	Z,I1FFD
	LD	HL,TYPE
	SET	2,(HL)
	OUT	(C),D
	NOP
	LD	B,#7F
	OUT	(C),D
	NOP
	LD	B,#DF
	OUT	(C),E
	NOP
	JR	I7FFD

I1FFD	LD	DE,#1110
	LD	B,#1F
	OUT	(C),D
	NOP
	LD	A,(HL)
	INC	(HL)
	CP	(HL)
	LD	(HL),A
	OUT	(C),E
	NOP
	JR	Z,IFDFD
	XOR	A
	OUT	(C),A
	LD	HL,TYPE
	SET	1,(HL)
	JP	I7FFD

IFDFD	LD	B,C
	LD	HL,#FFFF
	OUT	(C),D
	NOP
	LD	B,#7F
	OUT	(C),D
	NOP
	LD	(HL),D
	LD	B,C
	OUT	(C),E
	NOP
	LD	B,#7F
	OUT	(C),D
	NOP
	LD	(HL),E
	LD	B,C
	OUT	(C),D
	NOP
	LD	B,#7F
	OUT	(C),D
	NOP
	LD	A,(HL)
	CP	D
	JR	NZ,I7FFD
	LD	HL,TYPE
	SET	4,(HL)

I7FFD	LD	HL,#80
	LD	DE,#1000
	LD	BC,#7FFD
	OUT	(C),D
	NOP
	LD	A,(HL)
	OUT	(C),E
	NOP
	CP	(HL)
	OUT	(C),D
	NOP
	JR	Z,SIZED
	LD	HL,TYPE
	SET	0,(HL)

SIZED	CALL	VIRT
	LD	HL,PAGE
	LD	A,(HL)
	CP	1
	JR	NZ,SIZED2
	DEC	(HL)
SIZED2	CP	8
	JR	C,ENDING
	DEC	HL
	LD	A,(HL)
	CP	1
	JR	NZ,ENDING
	SET	5,(HL)
ENDING	LD A,0
	CALL EX_RAM
	EI
	RET

VIRT	LD	IX,#FFFF
	LD	HL,DOOM+63
	LD	B,64
V_R11	LD	A,B
	DEC	A
	CALL	EX_RAM
	LD	C,(IX+0)
	LD	(HL),C
	LD	(IX+0),A
	DEC	HL
	DJNZ	V_R11
	PUSH	AF
	LD	A,61
	LD	(PAGE),A
	POP	AF
	LD	DE,TABL_PG
V_R20	LD	A,(DE)
	CP	#FF
	JR	Z,V_R30
	CALL	EX_RAM
	CP	(IX+0)
	JR	Z,V_R22
	PUSH	DE
	LD	HL,TABL_PG+62
	AND	A
	SBC	HL,DE
	PUSH	HL
	POP	BC
	PUSH	DE
	POP	HL
	INC	HL
	LDIR
	PUSH	HL
	LD	HL,PAGE
	DEC	(HL)
	POP	HL
	POP	DE
	DEC	DE
V_R22	INC	DE
	JR	V_R20
V_R30	LD	B,64
	LD	HL,DOOM
V_R31	LD	A,64
	SUB	B
	CALL	EX_RAM
	LD	A,(HL)
	LD	(IX+0),A
	INC	HL
	DJNZ	V_R31
	RET

 ࠭  ⠡
DEBUG	LD	HL,PAGE
	LD	C,(HL)
	INC C
	LD	B,0
	LD	HL,TABL_PG
	CPIR
	RET NZ
	LD	D,H
	LD	E,L
	DEC	DE
	INC	BC
	LDIR
	LD	HL,PAGE
	DEC	(HL)
	RET

ONPAGE	PUSH BC
	LD C,A
	LD A,(RAM_drv)
	AND A
	LD A,C
	POP BC
	JP NZ,USERdrv+2
	PUSH	BC
	PUSH	HL
	LD	C,A
	LD	B,0
	LD	HL,TABL_PG
	ADD	HL,BC
	LD	A,(HL)
	POP	HL
	POP	BC

EX_RAM	DI
	PUSH	HL
	PUSH	AF
	PUSH	BC
	LD	HL,TYPE
	BIT	1,(HL)
	JR	NZ,ZS256
	BIT	2,(HL)
	JR	NZ,PROFI
	BIT	4,(HL)
	JR	NZ,ATM1
	BIT	0,(HL)
	JR	NZ,SPECCY
	BIT	7,(HL)
	JR	NZ,SPECCY
	JR	TDK

ATM1	LD	BC,#FDFD
	PUSH	AF
	RRCA
	RRCA
	RRCA
	AND	3
	JR	HOME

PROFI	LD	BC,#DFFD
	PUSH	AF
	RRCA
	RRCA
	RRCA
	AND	7
	JR	HOME

ZS256	PUSH	AF
	LD	B,A
	AND	%00001000
	RLCA
	LD	C,A
	LD	A,B
	AND	%00110000
	RLCA
	RLCA
	ADD	A,C
	LD	BC,#1FFD
HOME	OUT	(C),A
	NOP
	POP	AF

SPECCY	LD	B,A
	AND	24
	RLCA
	RLCA
	RLCA
	LD	C,A
	LD	A,B
	AND	7
	ADD	A,C
	OR	16
	LD	BC,#7FFD
	OUT	(C),A
	NOP
TDK	LD	(23388),A
	POP	BC
	POP	AF
	POP	HL
	EI
	RET

訡 㧪	ࠩ /࠭ ⠭
USERerr	LD DE,#1908
	LD HL,E20
	CP 20
	JR Z,D_err2+3
	LD HL,E21
	CP 21
	JR Z,D_err2+3
	LD HL,E6+1
	CP 6
	JR Z,D_err2+3
	LD HL,E216
	CP 216
	JR Z,D_err2+3
	LD HL,E35+1
	JR D_err2+3

D_err1	LD HL,E4
	JR D_err2
D_error	LD A,(WINnum)
	CP 13 ;USER
	LD A,(23823)
	JR Z,USERerr
	CP 255
	JP Z,Restart
	CP 20
	JR NZ,DR1
	LD HL,e21
D_err2	LD DE,#1508
	PUSH DE
	PUSH HL
	LD HL,#1206
	LD DE,#061C
	LD BC,#1E0A
	EXX
	LD BC,#0704
	LD A,87
	CALL WINDOW
	LD DE,#1C06
	LD HL,e20
	CALL PRINT
	POP HL
	POP DE
	CALL PRINT
	LD A,20
	LD (WDH_BOX),A
	JP CONTROL
DR1	LD HL,E6+1  ;NO	DISK
	CP 6
	JR Z,DR2
	LD HL,E21+1 ;WRONG DISK
	CP 21
	JR Z,DR2
	LD HL,E216  ;READ ONLY
DR2	LD A,9
	LD B,0
	LD DE,#190A
	JP PrntMes+3

MES_WIN	LD DE,#011A
	LD HL,#130A
	JP CL_WIN

DOS2	EX AF,AF'
	LD A,#E1 ;POP HL
	JR DOS+2
DOS	EX AF,AF'
	XOR A	 ;NOP
	LD (der),A
	EX AF,AF'
	LD (d_error+1),SP

	PUSH   HL
	LD     HL,0
	LD     (23823),HL
	LD     HL,(23613) ; Cop. ERR_SP
	LD     (ERR+1),HL
	LD     HL,DDRIV	; . pa.
	LD     (#5CC3),HL
	LD     HL,ERR
	EX     (SP),HL
	LD     (23613),SP
	EX     AF,AF'
	LD     A,#C3
	LD     (#5CC2),A
	EX     AF,AF'
	JP     15635

ERR	LD     HL,0
	LD     (23613),HL ; o. ERR_SP
	LD     A,#C9 ; o. RET
	LD     (#5CC2),A
	LD     A,255
	LD     (23610),A
	LD     A,(23823)
	AND    A
	RET    Z
	JP     D_ERROR

DDRIV	EX	(SP),HL
	PUSH	AF
	LD	A,H
	CP	13
	JR	Z,ERROR
	POP	AF
	EX	(SP),HL
	RET

ERROR	POP	HL
	POP	HL
	LD	A,L
	POP	HL
	POP	HL
	POP	HL
	CP	216  ;READ ONLY,  DISK ERROR
	LD	HL,23823
	LD	C,A
	JR	Z,ERR_1
	LD	C,255
	LD	A,(D_ERROR+1)
	AND	A
	JR	Z,ERR_1
	LD	(HL),C

	LD	A,87
	CALL	MES_WIN
	LD	DE,#100A
	LD	HL,E35
	CALL	PRINT
	CALL	cont
	LD	HL,E255
	CALL	PRINT
	LD	HL,(#5CF4)
	PUSH	HL
	LD	L,H
	LD	H,A
	CALL	cont
	CALL	NUMBER
	LD	HL,e255
	CALL	cont
	CALL	PRINT
	POP	HL
	LD	H,A
	CALL	cont
	CALL	NUMBER
	LD	DE,#150B
	LD	HL,e255_2
	CALL	PRINT
	LD	A,(WINnum)
	LD	(WIN_17+1),A
	LD	HL,#140B
	LD	(ATcurs),HL
	LD	HL,#1108
	LD	(LENcurs),HL
	JP	CONTROL

ERR_1	LD	(HL),C
	JR	D_ERROR

OK	LD	A,8
	LD	(LENcurs),A
	DEC	A
	LD	DE,#021A
	CALL	MES_WIN+3
	LD	HL,ok_can+1
	LD	DE,#170B
	PUSH	DE
	CALL	PRINT
	POP	HL
	LD	(ATcurs),HL
	LD	A,#C9  ; RET
	LD	(CTL_MOD),A
	CALL	CONTROL
	LD	(CTL_MOD),A ; NOP
	JP	ARRcurS

cont	LD	A,(COUNT+1)
	LD	D,A
	RET

WIN_17	LD	A,0
	LD	(WINnum),A
	EX	AF,AF'
	BIT	7,A
	JR	NZ,D_ERROR
	LD	A,B
	CP	1
	JR	Z,D_ERROR
	LD	C,"R"
	JR	C,RIA
	LD	C,"I"

RIA	PUSH	BC
	CALL	OK
	POP	BC

	XOR	A
	LD	(23823),A

	LD	A,C
	LD	HL,#3F7E
	EX	(SP),HL
	JP	#3D2F

- ᪮ 訡!
D_ERROR	LD A,0
d_error	LD SP,0
	POP HL
der	NOP
	AND A
	JP NZ,D_error
	CALL panel
	LD HL,#0507
	LD DE,#0516
	LD BC,#080A
	JR Z,ERR_2
	LD H,5+32
	LD B,8+32
ERR_2	EXX
	LD BC,#0108
	LD A,(PrntMod)
	CP #C9
	JR NZ,D_ERR2
	LD B,A
	XOR A
	LD (PrntMod),A
D_ERR2	LD A,87
	CALL WINDOW
	CALL panel
	LD HL,Errors
	LD DE,#0707
	JR Z,ERR_3
	LD D,7+32
ERR_3	CALL PRINT
	DEC E
	DEC E
	INC D
	INC D
	LD A,(23823)
	LD HL,E6+1
	CP 6
	JR Z,ERR_4
	LD HL,E20
	CP 20
	JR Z,ERR_4
	LD HL,E21
	CP 21
	JR Z,ERR_4
	LD HL,E216
	CP 216
	JR Z,ERR_4
	LD HL,E35+1
ERR_4	CALL PRINT
	JP CONTROL

FIRE1	LD A,B
	BIT 7,A
	JP NZ,EXE5-1
	LD A,(WINnum)
	CP 15
	JP Z,win_15
	CP 16
	JP Z,win_15
	CP #C9
	JP Z,VIEWwin
FIRE2	LD HL,(ATcurs)
	LD BC,(AT_INP)
	LD A,(COORDS)
	CP L
	JP C,CONTRL
	JR Z,fire2
	CP C
	JP NC,CONTRL
fire2	SUB L
	LD C,A
	LD A,(COORDS+1)
	CP H
	JP C,ARROW
	CP B
	JP NC,ARROW
	LD D,A
	LD A,(LENcurs)
	LD L,A
	LD A,D
	SUB H
	LD B,255
fire3	INC B
	SUB L
	JR NC,fire3
	JP EXE4

砫 ࠡ 	  㭪権: RENAME, DELETE
CONTROl	CALL CONTROm
ࠢ ஬  
CONTROL	CALL ESCAPE
	CALL W_1
	LD A,B
	AND A
	CALL ch_panm
	CALL ARRcurS
	LD A,(LENcurs)
	LD D,A
	LD HL,(ATcurs)
MD_ctrl	LD A,0
	AND A
	JR Z,MD_1
	LD B,A
	LD A,H
MD_0	ADD A,D
	DJNZ MD_0
	LD H,A
MD_1	LD (real_c+1),HL

	LD A,(WDH_BOX)
	LD HL,AT_BOX+1
	ADD A,(HL)
	LD B,A
	LD A,(ATcurs+1)
contrl	ADD A,D
	CP B
	JR C,contrl
	SUB D
	LD B,A	     ;B=ࠩ	ࠢ. ࠭
	DEC HL
	LD A,(WDH_BOX+1)
	ADD A,(HL)
	DEC A
	LD C,A	     ;C=ࠩ	 ࠭
	LD (AT_INP),BC
	XOR A
	LD (MD_ctrl+1),A
	JR real_c
old_c	LD HL,0
	CALL cursor
real_c	LD HL,0
	LD (old_c+1),HL
	CALL cursor
CTL_MOD	NOP
CONTRL3	LD HL,CONTRL2
	LD (Arr_Mod+1),HL
CONTRL	JP ARROW
CONTRL2	AND 159
	JR NZ,uDlR
	LD A,30
	LD (FIRE_Q),A 

	LD A,(count+1)
	AND A
	JR Z,CONTRL4
	DEC A
	LD (count+1),A
CONTRL4	LD A,(WINnum)
	CP 3
	JR NZ,CONTRL
	LD BC,0
	LD D,#FD
	LD A,D
	IN A,(#FE)
	BIT 0,A
	JR Z,exe4
	INC B
	LD A,#7F
	IN A,(#FE)
	BIT 4,A
	JR Z,exe4
	INC B
	LD A,#FE
	IN A,(#FE)
	BIT 3,A
	JR Z,exe4
	INC B
	LD A,D
	IN A,(#FE)
	BIT 2,A
	JR NZ,CONTRL
exe4	XOR A
	EX AF,AF'
	JP EXE4

uDlR	EX AF,AF'
	LD A,(FIRE_Q)
	DEC A
	JR Z,u_r
	CP 29
	LD (FIRE_Q),A
	JR NZ,CONTRL
u_r	LD A,(LENcurs) ;A=	
	LD HL,real_c+1
	LD DE,(real_c+1) ;D-X, E-Y
	LD BC,(AT_INP)
	EX AF,AF'
	BIT 7,A		;BREAK/EDIT
	JR NZ,EXE
	BIT 4,A
	JR NZ,EXE	;ENTER
	BIT 1,A
	JR NZ,LFT
	BIT 0,A
	JR NZ,RGT
	BIT 3,A
	JR NZ,UPP

DWN	LD A,E
	INC A
	LD D,A
	CP C
	JR NC,CONTRL
	JR write_C

UPP	LD A,(ATcurs)
	LD C,A
	LD A,E
	DEC A
	LD D,A
	CP C
	JP C,CONTRL
	JR write_C

LFT	LD A,(ATcurs+1)
	LD B,A
	EX AF,AF'
	LD C,A
	LD A,D
	SUB C
	JP C,CONTRL
	LD D,A
	CP B
	JP C,CONTRL
	JR write_c

RGT	EX AF,AF'
	ADD A,D
	LD D,A
	CP B
	JP NC,CONTRL
write_c	INC HL
write_C	LD (HL),D
	JP old_c

EXE	EX AF,AF'
	LD C,A
	LD A,(ATcurs+1)
	LD B,A
	LD A,D
	SUB B
	LD B,0
	AND A
	JR Z,EXE3
EXE2	INC B
	SUB C
	JR NZ,EXE2
EXE3	LD A,(ATcurs)
	LD C,A
	LD A,E
	SUB C
	LD C,A
;B=浪  樨  ⨪ X
;C=   ਧ⠫	Y

EXE4	LD H,0
	LD L,B
	LD A,(LENcurs)
	CALL mul_hla
	LD A,(ATcurs+1)
	ADD A,L
	LD H,A
	LD A,(ATcurs)
	ADD A,C
	LD L,A
	EX DE,HL
	LD HL,(real_c+1)
	AND A
	SBC HL,DE
	JR Z,EXE5
	EX AF,AF'
	PUSH AF
	PUSH DE
	LD HL,(old_c+1)
	CALL cursor
	POP HL
	LD (old_c+1),HL
	LD (real_c+1),HL
	CALL cursor
	POP AF
	EX AF,AF'
EXE5	CALL ARRcurS
	LD HL,Arr_Nxt
	LD (Arr_Mod+1),HL
	PUSH BC
	CALL ESCAPE
	POP BC
	LD A,(WINnum) ;  ?
	CP #C9
	JP Z,ViewExi
	DEC A	    ; A=1  ..
	JP Z,WIN_1
	DEC A
	JP Z,WIN_2
	DEC A
	JP Z,WIN_3
	DEC A
	JP Z,VIEW_M
	DEC A
w5	JP Z,WIN_5 ;COPY
	DEC A
w6	JP Z,WIN_6 ;SAVE
	DEC A
	JP Z,Restart ; BREAK,  ६ COPY
	DEC A
	JR Z,w6	;WIN_6 INS. SOURCE DISK
	DEC A
	JR Z,w6	;WIN_6
	DEC A
	JR Z,w5	;WIN_5	Move
	DEC A
	JP Z,INFOesc ; 11 INFO
	DEC A
	JP Z,ViewExi ; 12 HELP
	DEC A
	JP Z,WIN_13  ; 13 USER
	DEC A
	JP Z,WIN_14  ; 14 MOUSE	SETUP
	DEC A
	JP Z,WIN_15  ; 15 MOUSE	SPEED
	DEC A
	JP Z,WIN_16  ; 16 DOUBLE CLICK SPEED
	DEC A
	JP Z,WIN_17  ; 17 訡  Copy/Move
	JP ARROW

cursor	LD A,(LENcurs)
	JP curs_0

escape	LD A,(MOUSE)
	AND A
	RET Z
	LD C,#DF
	JP r_key

 ᠭ  ⮪  ६,
  ⥪   㤠,	 
 .

;BUFFER	- ᠬ		⪠ 
஢. 㦭 ᫥, ⮡  
   . ᫨	 PC 㤥 -
,   㦭 㢥, 
⮬ 㦭 㤥 㬥  SEC_48,
..  ⢥砥 ᪮쪮 ᥪ஢
뢠  ࠧ,	 ⠫
ࠧ 뢠 64 ᥪ, .. ࠭.

;NAMEprg -   Basic', 㤠 
 䠩   ᪠. ࢮ砫쭮
 ⮬ 	室 "boot". ᫨
㤥  稪,   
 !

筮 ⪨,  㦭 	
	ࠧ ᫥ 㪢  L	 R.

;CAT_L -   뢠 ⠫,
;..   2304	.

;TXT_L- ⥪  䠩 襤訬
䨫.
ଠ - 10	-  䠩, 11- 
, 12-  	䠩  ᪥,
᫨ 7-  祭,   䠩
⬥祭!!!  = 1536

६  楤 WINDOW, ᠬ
楤  䠩 "PC2"
;HL'-. 
;DE'-, ਭ
;BC'-.   
;B- , C- 
;A-ਡ  