;-----------------
UDSPCMD           
;KOMMANDOZEILE AUS
;TAB ANZEIGEN     
JSR HOME1         
LDY #0            
DSPCMD1 LDA TAB,Y 
JSR USETR         
INY               
CPY #<SCRLC       
BNE DSPCMD1       
RTS               
;-----------------
SCNCLR            
;                 
LDY #0            
LDA #" "          
SCNCLR1 STA TAB,Y 
INY               
CPY #<SCRLC       
BNE SCNCLR1       
JSR UDSPCMD       
JSR USETAY        
LDA #255          
STA <COMFLG       
BNE HOME1         
;- - - - - - - - -
HOME              
;                 
LDA <SSPAL        
ORA <SZEIL        
BNE HOME1         
LDA #<SCRLC       
LDX #<SCRLL       
JMP UCSPR         
HOME1 LDA #0      
TAX               
JMP UCSPR         
;-----------------
UPOS              
;BESTIMME CURSOR- 
;POSITION:        
;******C=1********
;(<TP),Y ZEIGT IN 
;TEXT (Y=<TSPAL)  
;X=FELDLAENGE     
;A=0:TEXT         
;A=1:TAB          
;A=2:BND          
;A=3:MSK          
;A=4 COMMAND      
;                 
;A=5 SCROLL       
;A=6 ZAHLBEREICH  
;*****C=0*********
;A=255            
;GESPERRT         
;                 
JSR UTEST         
BCS IN.TEXT       
LDY <SSPAL        
LDA <SZEIL        
BNE POS1          
CPY #<SCRLC       
BCS IN.SCRL       
;**********COMMAND
LDA <COMFLG       
BNE POS0          
JSR SCNCLR        
POS0              
LDY <SSPAL        
STY <TSPAL        
LDA #[TAB         
LDX #]TAB         
STA <TP           
STX <TP+1         
LDX #<SCRLC       
LDA #4            
SEC               
RTS               
;*****************
IN.SCRL           
LDA #5            
SEC               
RTS               
;*****************
IN.TEXT           
JSR UTZEIL        
JSR UTSPAL        
JSR UTP           
LDX <TXTLEN       
LDY <TSPAL        
LDA #0            
SEC               
RTS               
;*****************
POS1              
CPY #<ZAHL        
BCS POS2          
CMP <TOPFLG       
BEQ IN.ZAHL       
CMP <SCTOP        
BCC POSA          
CMP <SCBOT        
BCC IN.ZAHL       
;********BLOCKIERT
POSA LDA #255     
CLC               
RTS               
;*****************
IN.ZAHL           
LDA #6            
SEC               
RTS               
;*****************
POS2              
CPY <SCLEN        
BCS POSA          
CMP <MSKFLG       
BNE POS3          
;************MASKE
LDA MASK          
LDX MASK+<MXIND   
LDY #3            
BNE POS5          
POS3 CMP <BNDFLG  
BNE POS4          
;*************BNDS
LDA BNDS          
LDX BNDS+<MXIND   
LDY #2            
JMP POS5          
POS4 CMP <TABFLG  
BNE POSA          
;*************TABS
LDA TABU          
LDX TABU+<MXIND   
LDY #1            
POS5              
STA <TP           
STX <TP+1         
STY <YREG         
JSR UTSPAL        
LDX <TXTLEN       
LDA <YREG         
SEC               
RTS               
;-----------------
UENTER            
;                 
LDA <LFD          
STA (<TP),Y       
;- - - - - - - - -
UDISPLAY          
;                 
LDY <SSPAL        
LDA <LFD          
JMP USET          
;-----------------
ZEICH             
;SETZT ZEICHEN A  
;VON TASTATUR     
;AN LFD. POS.     
;                 
STA <LFD          
JSR UPOS          
BCC ZEICHX        
BNE ZEICH2        
;** IM TEXT       
JSR UENTER        
BIT <TEFLAG       
BMI ZEICH0        
JMP SKIP          
;                 
ZEICH0            
;** TEXT MODUS    
LDY <TSPAL        
INY               
CPY <RBND         
BNE ZEICH1        
JMP RETRN         
ZEICH1 JMP RIGHT  
;                 
ZEICH2            
CMP #5            
BEQ ZEICH3        
CMP #6            
BEQ ZEICH4        
;** TEXT,PROFILE  
;** ODER COMMAND  
JSR UENTER        
JMP RIGHT         
;                 
ZEICH3            
;** SCROLL        
JSR UDISPLAY      
JSR SKIP          
CPY #0            
BEQ ZEICHX        
LDA #" "          
JMP USET          
;                 
ZEICH4            
;** LINE COMM.    
JSR UDISPLAY      
JSR SKIP          
CPY #<ZAHL        
BEQ ZEICHX        
LDA #" "          
JMP USET          
ZEICHX RTS        
;-----------------
DELETE            
;LOESCHE ZEICHEN  
;LINKS VOM CURSOR 
;                 
JSR UAXPOS        
BCC DEL2          
CMP #5            
BCS DEL2          
CPY #0            
BEQ DEL2          
;                 
STX <YREG         
DEL1              
LDA (<TP),Y       
DEY               
STA (<TP),Y       
INY               
INY               
CPY <YREG         
BNE DEL1          
LDA #" "          
DEY               
STA (<TP),Y       
JMP UNXPOS        
DEL2 RTS          
;-----------------
UINSERT           
;FUEGE LEERZEICHEN
;BEIM CURSOR EIN  
;                 
JSR UAXPOS        
BCC INS3          
CMP #5            
BCS INS3          
;                 
STY <YREG         
TXA               
TAY               
DEY               
LDA (<TP),Y       
CMP #" "          
BNE INS2          
;** ZEILE VOLL    
;                 
INS1 CPY <YREG    
BEQ FERTIG        
DEY               
LDA (<TP),Y       
INY               
STA (<TP),Y       
DEY               
BNE INS1          
INS2 LDA #" "     
STA (<TP),Y       
JMP UNXPOS        
INS3 RTS          
;-----------------
UAXPOS            
;MERKE CURSOR FUER
;ZEILENKORREKTUR  
;                 
LDA <SSPAL        
STA <XSPAL        
LDA <SZEIL        
STA <XZEIL        
JSR UPOS          
STA <LFD          
RTS               
;-----------------
UNXPOS            
;RESTAURIERE DIE  
;ZEILE UND DIE    
;CURSORPOSITION   
;A = 4 KOPFZEILE, 
;SONST PROFILE    
;ODER TEXT        
;                 
LDA <LFD          
CMP #4            
BNE NXPOS1        
JSR UDSPCMD       
JMP NXPOS2        
NXPOS1 LDA <XZEIL 
JSR ZEILE         
NXPOS2 LDA <XSPAL 
LDX <XZEIL        
JMP UCSPR         
;-----------------