ORG 100H .SET MACRO @VALTOZO,@ERTEK LD B,1 LD C,@VALTOZO LD D,@ERTEK EXOS 16 ENDM LD SP,3FFFH .SET 22,0 ; 0-as videomod .SET 23,0 ; 2 szinu uzemmod .SET 24,40 ; 40 oszlop szeles .SET 25,24 ; 24 sor magas LD DE,KEY LD A,105 EXOS 1 LD A,50 LD DE,VID EXOS 2 LD B,1 LD A,50 LD C,1 LD D,24 LD E,1 EXOS 11 FOMENU LD A,50 ; csatornaszam LD BC,ESCHOSSZ LD DE,ESC EXOS 8 LD A,50 LD BC,SZHOSSZ LD DE,SZOVEG EXOS 8 NEMJO CALL BILL LD A,B LD HL,FOMENU PUSH HL CP "1" JP Z,MENU1 CP "2" JP Z,MENU2 CP "3" JR NZ,NEMJO JP MENU3 ESC DB 27,0 DB 27,"C",0,255,0,0,0,0,0,0 DB 27,"I",0 ESCHOSSZ EQU $-ESC SZOVEG DB 26 ; kepernyo torlese DB "FOMENU",10,13,10,13 DB "1 - Kilepes BASIC-be",10,13 DB "2 - Kilepes WP-be",10,13 DB "3 - Szoveg kiirasa",10,13,10,13 DB "Valasszon!" SZHOSSZ EQU $-SZOVEG MENU1 LD DE,BASIC EXOS 26 MENU2 LD DE,WP EXOS 26 MENU3 LD A,50 LD BC,SZHO LD DE,SZ EXOS 8 CALL BILL RET SZ DB 26 DB "Szovegek kiirasa...",10,13,10,13 DB "Billentyu leutesere",10,13 DB "vissza a FOMENU-be." SZHO EQU $-SZ KEY DB 9,"KEYBOARD:" VID DB 6,"VIDEO:" BASIC DB 5,"BASIC" WP DB 2,"WP" BILL LD A,105 EXOS 5 RET END