PROGRAM LOAD(INPUT,OUTPUT);                       
                                                  
VAR REGS:RECORD SR,AKKU,X,Y: BYTE END;            
                                                  
PROCEDURE LOAD(S: STRING);                        
 VAR I:INTEGER;                                   
BEGIN                                             
  WITH REGS DO                                    
   BEGIN BANK:=15;                                
    AKKU:=0; X:=1;          (* NACH BANK 0 *)     
    WRITELN(SR,AKKU,X,Y);                         
    SYS(-152,REGS);         (* SETBNK *)          
    WRITELN(SR,AKKU,X,Y);                         
    AKKU:=LENGTH(S);                              
    I:= ADDU(ADR(S),1); X:=I; Y:=HBYTE(I);        
    WRITELN(SR,AKKU,X,Y);                         
    SYS( -67,REGS);         (* SETNAM *)          
    WRITELN(SR,AKKU,X,Y);                         
    AKKU:=0; X:=8; Y:=1;                          
    WRITELN(SR,AKKU,X,Y);                         
    SYS( -70,REGS);         (* SETLFS *)          
    WRITELN(SR,AKKU,X,Y);                         
    AKKU:=0; SYS(-43,REGS); (* LOAD   *)          
    WRITELN(SR,AKKU,X,Y);                         
   END;                                           
END; (* LOAD *)                                   
                                                  
BEGIN                                             
 LOAD("0:C$,P,R");                                
END.