home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / scr.rename (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  425b  |  21 lines
  1. 0 rem  ***  scr.rename  ***
  2. 1 rem  dazu zeile 65 abaendern !!
  3. 2 rem  name1 = n1  *  name2 = n2               name3 = n3  *  name4 = n4
  4. 3 rem              *
  5. 4 :
  6. 5 :n1=49686 : n2=n1+8
  7. 10 n3=n2+8  : n4=n3+8
  8. 15 :
  9. 20 print chr$(147) :print
  10. 25 print" screen-name (max.8 stellen):"
  11. 30 print :print " ";
  12. 35 :
  13. 40 input n$ :n=len(n$)
  14. 45 if n>8 then 20
  15. 50 if n<8 then n$= n$+chr$(32) :n=n+1   :  goto50
  16. 55 :
  17. 60 for i=1 to n
  18. 65 :  poke n1+i,asc(mid$(n$,i,1))
  19. 70 next
  20. 75 end
  21.