home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_92-10_1992_-_de_Side_A.d64 / fk.namechange (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  906b  |  47 lines
  1. 10 print"[147]       disknamen und -id aendern        "
  2. 20 print"moechten sie:"
  3. 30 print"-------------"
  4. 40 print"(n)amen der diskette aendern"
  5. 50 print"(i)d und formatkennung aendern"
  6. 60 print"(p)rogramm beenden"
  7. 70 getx$:ifx$=""then70
  8. 80 if x$="n" then gosub200:run
  9. 90 if x$="i" then gosub400:run
  10. 100 if x$="p" then end
  11. 110 goto70
  12. 120 :
  13. 130 :
  14. 200 open1,8,15,"i":open2,8,2,"#"
  15. 210 print#1,"u1 2 0 18 0"
  16. 220 print#1,"b-p 2 144"
  17. 230 na$=""
  18. 240 for i=1 to 16
  19. 250 get#2,a$:na$=na$+a$
  20. 260 next
  21. 270 print"aktueller name: ";na$
  22. 280 input "    neuer name";na$
  23. 285 if len(na$)>16 then na$=left$(na$,16)
  24. 290 if len(na$)<16 then na$=na$+chr$(160):goto290
  25. 300 print#1,"b-p 2 144"
  26. 310 print#2,na$;
  27. 320 print#1,"u2 2 0 18 0"
  28. 330 print#1,"i"
  29. 340 close1:close2:return
  30. 350 :
  31. 360 :
  32. 400 open1,8,15,"i":open2,8,2,"#"
  33. 410 print#1,"u1 2 0 18 0"
  34. 420 print#1,"b-p 2 162"
  35. 430 id$=""
  36. 440 for i=1 to 16
  37. 450 get#2,a$:id$=id$+a$
  38. 460 next
  39. 470 print"aktuelle id:";id$
  40. 480 input "    neue id";id$
  41. 490 if len(id$)>5 then id$=left$(id$,5)
  42. 500 print#1,"b-p 2 162"
  43. 510 print#2,id$;
  44. 520 print#1,"u2 2 0 18 0"
  45. 530 print#1,"i"
  46. 540 close1:close2:return
  47.