home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / change_bank.amos / change_bank.amosSourceCode < prev   
AMOS Source Code  |  1993-01-08  |  747b  |  19 lines
  1. ' This Proc will change the name of your bank. 
  2. ' Name$ is the new name of the bank  
  3. ' bank is the bank number you wish to change   
  4. ' Name$ can not be more than 9 characters long.  
  5. Procedure BANK_NAME[NAME$,BANK]
  6.    'by Brett George 
  7.    If Len(NAME$)=0 Then Pop Proc
  8.    NAME$=Left$(NAME$,9)
  9.    If Len(NAME$)<>9 Then NAME$=NAME$+Space$(8-Len(NAME$))
  10.    Poke Start(BANK)-9,Asc(Mid$(NAME$,0,1))
  11.    Poke Start(BANK)-8,Asc(Mid$(NAME$,1,1))
  12.    Poke Start(BANK)-7,Asc(Mid$(NAME$,2,1))
  13.    Poke Start(BANK)-6,Asc(Mid$(NAME$,3,1))
  14.    Poke Start(BANK)-5,Asc(Mid$(NAME$,4,1))
  15.    Poke Start(BANK)-4,Asc(Mid$(NAME$,5,1))
  16.    Poke Start(BANK)-3,Asc(Mid$(NAME$,6,1))
  17.    Poke Start(BANK)-2,Asc(Mid$(NAME$,7,1))
  18.    Poke Start(BANK)-1,Asc(Mid$(NAME$,8,1))
  19. End Proc