DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦9188f1c12⟧ TextFile

    Length: 10240 (0x2800)
    Types: TextFile
    Names: »REGVEDLH.CCC«

Derivation

└─⟦9c8e44efc⟧ Bits:30005957 Std. Rammesystem
    └─⟦this⟧ »REGVEDLH.CCC«

TextFile

* REGVEDLH.CMD                                                                  
ERASE                                                                           
STORE 'H' TO XFUNK                                                              
  STORE ' ' TO XMSG                                                             
  &XLIN0                                                                        
  &XLIN2                                                                        
  &XLIN18                                                                       
  READ                                                                          
DO WHILE XFUNK<>' '                                                             
  IF @(XFUNK,'ORSVHB')=0                                                        
     RETURN                                                                     
  ENDIF                                                                         
  IF XFUNK='H'                                                                  
     STORE ' ' TO XFUNK                                                         
  ENDIF                                                                         
  IF XFUNK='O'                                                                  
     STORE XKEYLGD TO XKEY                                                      
     @ 24,0 SAY '                               '                               
     @ 19,5 SAY &XPROMT1                                                        
     READ                                                                       
     IF TRIM(XKEY)=' '                                                          
        &XLIN18                                                                 
        READ                                                                    
     ELSE                                                                       
        FIND &XKEY                                                              
        STORE # TO XRECNR                                                       
        IF XRECNR=0                                                             
           APPEND BLANK                                                         
           REPLACE &XKEYINFO2                                                   
           SET FORMAT TO GEPANOPR                                               
           READ                                                                 
           SET FORMAT TO                                                        
           STORE 1 TO XAKTIV                                                    
        ELSE                                                                    
           @ 24,0 SAY '*** ER OPRETTET ...'                                     
        ENDIF                                                                   
     ENDIF                                                                      
  ENDIF                                                                         
  IF XFUNK='R'                                                                  
     STORE XKEYLGD TO XKEY                                                      
     @ 19,5 SAY &XPROMT1                                                        
     READ                                                                       
     IF TRIM(XKEY)=' '                                                          
        &XLIN18                                                                 
        READ                                                                    
     ELSE                                                                       
        FIND &XKEY                                                              
        STORE # TO XRECNR                                                       
        IF XRECNR=0                                                             
           @ 24,0 SAY '*** FINDES IKKE I REGISTERET'+CHR(7)                     
        ELSE                                                                    
           SET FORMAT TO GEPANOPR                                               
           READ                                                                 
           SET FORMAT TO                                                        
           STORE 1 TO XAKTIV                                                    
        ENDIF                                                                   
     ENDIF                                                                      
  ENDIF                                                                         
  IF XFUNK='V'                                                                  
     STORE XKEYLGD TO XKEY                                                      
     @ 19,5 SAY &XPROMT1                                                        
     READ                                                                       
     IF TRIM(XKEY)=' '                                                          
        &XLIN18                                                                 
        READ                                                                    
     ELSE                                                                       
        FIND &XKEY                                                              
        STORE # TO XRECNR                                                       
        IF XRECNR=0                                                             
           @ 24,0 SAY '*** FINDES IKKE I REGISTERET'+CHR(7)                     
        ELSE                                                                    
           SET FORMAT TO GEPANVIS                                               
           READ                                                                 
           SET FORMAT TO                                                        
        ENDIF                                                                   
     ENDIF                                                                      
  ENDIF                                                                         
  IF XFUNK='S'                                                                  
     @ 20,0                                                                     
     STORE XKEYLGD TO XKEY                                                      
     @ 19,5 SAY &XPROMT1                                                        
     READ                                                                       
     IF TRIM(XKEY)=' '                                                          
        &XLIN18                                                                 
        READ                                                                    
     ELSE                                                                       
        FIND &XKEY                                                              
        STORE # TO XRECNR                                                       
        IF XRECNR=0                                                             
           @ 24,0 SAY '*** FINDES IKKE I REGISTERET'+CHR(7)                     
        ELSE                                                                    
           SET FORMAT TO GEPANVIS                                               
           STORE 'N' TO XFUNK                                                   
           STORE '..SLETNING udføres, hvis du taster J for JA ' TO XMSG         
           READ                                                                 
           IF @(!(XFUNK),'J')>0                                                 
              DELETE FOR &XKEYINFO                                              
           ENDIF                                                                
           SET FORMAT TO                                                        
           STORE 1 TO XAKTIV                                                    
           STORE ' ' TO XMSG                                                    
           STORE 'S' TO XFUNK                                                   
        ENDIF                                                                   
     ENDIF                                                                      
  ENDIF                                                                         
  IF XFUNK='B'                                                                  
     GOTO TOP                                                                   
     STORE '+' TO XFUNK                                                         
     DO WHILE XFUNK='+' .OR. XFUNK='-'                                          
        @ 19,5 SAY 'BLADRING frem +, tilbage -, andet = slut   '                
        READ                                                                    
        IF XFUNK='+'                                                            
           SKIP +1                                                              
        ELSE                                                                    
           SKIP -1                                                              
        ENDIF                                                                   
        STORE &FELTNAVN TO XKEY                                                 
        SET FORMAT TO GEPANVIS                                                  
        READ                                                                    
        SET FORMAT TO                                                           
     ENDDO                                                                      
  ENDIF                                                                         
ENDDO                                                                           
RETURN                                                                          
«eof»