COND CESKY MHELP: DEFB 4 DEFM 'Disk',0 DEFM 'Menu',0 MVIEW: DEFM 'Uka',0DA,0 MEDITUJ: DEFM 'Edituj',0 MCOP: DEFM 'Kop',0C9,'ruj',0 DEFM 'Panel',0 DEFM 'Atributy',0 MDEL: DEFM 'Vyma',0DA,0 DEFM 'Nov',0D9,' edit',0 MREN: DEFM 'P',0D2,'esu',0CE,0 DEFM 'Ulo',0DA,' SETUP',0 MOZN: DEFM 'Selektuj',0 MODZN: DEFM 'Odselektuj',0 MUTTY: DEFM 'Utility',0 DEFM 'Info',0 DEFM 'Zru',0D3,' n',0C1,'vod',0 DEFM 'Menu edit',0 DEFM 'EXT edit',0 MTIME: DEFM 'Nastav ',0C3,'as',0 MQUIT: DEFM 'Skon',0C3,'i',0 DEFB 0 MHELPW: DEFB 1 DEFM 'N',0C1,'vrat',0 DEFM 'Hex/' MTEXT: DEFM 'Text',0 MKOD: DEFM 'K',0CF,'d',0 DEFM 'Najdi vzad',0 MNAJDI: DEFM 'Najdi',0 DEFB 0 MHELPE: DEFB 1 DEFM 'N',0C1,'vrat',0 MULOZ: DEFM 'Ulo',0DA,0 DEFM 'K',0CF,'d',0 DEFM 'Najdi vzad',0 DEFM 'Najdi',0 DEFB 0 ELSE MHELP: DEFB 4 DEFM 'Disk',0 DEFM 'Menu',0 MVIEW: DEFM 'Uk',0C1,0DA,0 MEDITUJ: DEFM 'Edituj',0 MCOP: DEFM 'Kop',0C9,'ruj',0 DEFM 'Panel',0 DEFM 'Atrib',0D5,'ty',0 MDEL: DEFM 'Vyma',0DA,0 DEFM 'Nov',0D9,' edit',0 MREN: DEFM 'Presu',0CE,0 DEFM 'Ulo',0DA,' SETUP',0 MOZN: DEFM 'Selektuj',0 MODZN: DEFM 'Odselektuj',0 MUTTY: DEFM 'Utility',0 DEFM 'Info',0 DEFM 'Zru',0D3,' n',0C1,'vod',0 DEFM 'Menu edit',0 DEFM 'EXT edit',0 MTIME: DEFM 'Nastav ',0C3,'as',0 MQUIT: DEFM 'Skon',0C3,'i',0 DEFB 0 MHELPW: DEFB 1 DEFM 'N',0C1,'vrat',0 DEFM 'Hex/' MTEXT: DEFM 'Text',0 MKOD: DEFM 'K',0CF,'d',0 DEFM 'N',0C1,'jdi vzad',0 MNAJDI: DEFM 'N',0C1,'jdi',0 DEFB 0 MHELPE: DEFB 1 DEFM 'N',0C1,'vrat',0 MULOZ: DEFM 'Ulo',0DA,0 DEFM 'K',0CF,'d',0 DEFM 'N',0C1,'jdi vzad',0 DEFM 'N',0C1,'jdi',0 DEFB 0 ENDC HXY: CALL PUAL LD H,0 DEC A HXY1: SUB 5 INC H JR NC,HXY1 ADD A,5 ADD A,A LD L,A ADD A,A ADD A,A ADD A,A SUB L ADD A,0D LD L,A JP SETXY HELPR: EX (SP),HL CALL SETDOWN CALL FARZVY CALL SETBOL HELPR1: LD A,(HL) INC HL OR A CALL NZ,PUTCHAR JR NZ,HELPR1 EX (SP),HL CALL FARZNI LD A,7 CALL SETX LD A,'+' CALL PUTCHAR HELPR0: LD C,0A LD B,5 HELPR2: LD A,C CALL SETX ADD A,0E LD C,A CALL FARZVY LD A,'F' CALL PUTCHAR LD A,'6' SUB B CALL PUTCHAR CALL FARZNI LD A,':' CALL PUTCHAR DJNZ HELPR2 DEC E RET HELP: CALL PUAL CALL CURDIS LD C,(HL) INC HL PUSH HL LD HL,01402 LD DE,0184F LD A,5 SUB C ADD A,H LD H,A CALL SETWIN CALL FARMNU CALL CLRSCR CALL ORAMUJ CALL LABEL0 DEFM ' N',0C1,'vod ' DEFB 0 LD E,C CALL HELPR0 JR Z,HELP3 CALL HELPR DEFM 'SHIFT',0 JR Z,HELP3 CALL HELPR DEFM 'CTRL',0 JR Z,HELP3 CALL HELPR DEFM 'GRAPH',0 JR Z,HELP3 CALL HELPR DEFM 'SH+GR',0 HELP3: POP HL LD C,0 HELP4: LD A,(HL) OR A RET Z INC C CP ' ' JR NC,HELP5 LD C,A INC HL HELP5: LD A,C CALL HXY HELP6: LD A,(HL) INC HL OR A CALL NZ,PUTCHAR JR NZ,HELP6 JR HELP4