home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 104 / Tiger_Disk_104_20xx_Tiger-Crew-Disk_de_Side_B.d64 / renamer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  96 lines

  1. 0 rem     q-link disk # 81
  2. 5 poke53280,15:poke53281,15:poke646,12:poke53272,23:pg=1:poke2,pg:print"[147]"
  3. 6 ifpeek(679)=255thendr=peek(680):goto11
  4. 10 dr=peek(251):ifdr<>8anddr<>9thendr=peek(186)
  5. 11 poke680,dr:xr=17-dr:open15,xr,15:close15:ifst<>0thenxr=dr
  6. 12 print"           [158][210][197][204][193][217][197][210] [211][207][198][212][215][193][210][197]'s[146]"
  7. 13 print"               [153]"chr$(34)"[210]enamer"chr$(34)
  8. 15 print"[152][201]nsert disk in drive[153]"xr"[152]";
  9. 28 ifpeek(679)=255then61
  10. 29 poke679,255
  11. 30 ford=49152tod+224:ready:poked,y:next
  12. 60 poke49162,xr:poke49180,xr:poke49305,xr
  13. 61 dimf$(144)
  14. 120 print"  [208]ress <[211][208][193][195][197]>[152]":poke198,0:wait198,1
  15. 170 print"        [210]eading the filenames...       "
  16. 180 sys49152
  17. 210 k=peek(787)
  18. 219 print"[147]"
  19. 220 print"[153][198]1[152]-prev [153][198]7[152]-next [153][210][152]-rename [153]_[152]-disk [153]\[152]-abort":gosub600
  20. 230 ifa$="r"then219
  21. 240 sys64738
  22. 600 print"":ifa$="r"thengosub833:a$="":goto600
  23. 605 pg=peek(2)
  24. 610 fori=1to20
  25. 612 j=pg*40-20+i
  26. 615 ii$=str$(j-20):hh$=str$(j):i$=right$(ii$,len(ii$)-1):h$=right$(hh$,len(hh$)-1)
  27. 617 if(j-20)>144orj>144then625
  28. 618 if(j-20)>ktheni$=" ":f$(j-20)=" "
  29. 619 if(j)>kthenh$=" ":f$(j)=" "
  30. 620 print"[150]"i$;tab(3);"[152]";f$(j-20);tab(20);"[152]";h$;tab(23);"[152]";f$(j)
  31. 625 next
  32. 690 px=pg:gosub800
  33. 691 ifa$="r"then699
  34. 692 ifpx=pgthen690
  35. 698 goto600
  36. 699 return
  37. 800 rem pager
  38. 805 pg=peek(2):poke198,0
  39. 810 geta$:ifa$=""then810
  40. 815 ifa$<>"[136]"anda$<>"[133]"anda$<>"r"anda$<>"\"anda$<>"_"then810
  41. 816 ifa$="r"thengosub2000:return
  42. 817 ifa$="\"thensys64738
  43. 818 ifa$="_"thenpoke198,2:poke631,19:poke632,13:print"[147][151]r[213]":clr:end
  44. 820 ifa$="[136]"thenpg=pg+1:ifpg*40-39>kthenpg=pg-1:return
  45. 830 ifa$="[133]"thenpg=pg-1:ifpg=0thenpg=1:return
  46. 833 print""
  47. 835 fori=1to20:print"                                       ":next
  48. 840 poke2,pg
  49. 899 return
  50. 900 rem   disk rename
  51. 929 open15,xr,15
  52. 930 print#15,"r:"+nn$+"="+f$(n):input#15,e,e$:close15
  53. 940 ife<21thenf$(n)=nn$
  54. 945 iflen(f$(n))>16thenf$(n)=left$(nn$,16)
  55. 950 print"                                        "
  56. 955 print"  [153]status:[150]"e;e$"[152]"
  57. 960 fori=1to2000:next
  58. 965 print"                                       "
  59. 970 return
  60. 1000 data169,0,141,19,3,169,36,133,150,169,8,170,160,0,32,186,255
  61. 1001 data169,1,162,150,32,189,255,32,192,255,162,8,32,198,255,32,207
  62. 1002 data255,32,207,255,169,0,133,253,169,128,133,254,165,47,133,251,165
  63. 1003 data48,133,252,160,0,177,251,201,70,240,9,200,208,247,230,252,208
  64. 1004 data243,240,78,200,208,2,230,252,177,251,201,128,240,2,208,228,162
  65. 1005 data9,200,208,2,230,252,202,208,248,152,24,101,251,133,251,144,2
  66. 1006 data230,252,160,31,32,207,255,136,208,250,32,207,255,166,144,208,30
  67. 1007 data201,34,208,245,165,253,133,176,165,254,133,177,160,0,32,207,255
  68. 1008 data201,34,240,18,145,176,200,208,244,230,177,208,240,32,204,255,169
  69. 1009 data8,32,195,255,96,132,155,152,24,101,176,133,176,144,2,230,177
  70. 1010 data160,0,165,155,145,251,200,165,253,145,251,200,165,254,145,251,200
  71. 1011 data152,24,101,251,133,251,144,2,230,252,165,176,133,253,165,177,133
  72. 1012 data254,238,19,3,32,207,255,208,251,32,207,255,32,207,255,32,207
  73. 1013 data255,76,112,192
  74. 2000 nn$="":n=0:nl=0:print""
  75. 2001 print"[153]use [204][207][199][207] [153]to escape"
  76. 2002 print""
  77. 2003 print"[152][197]nter [153]#,newname[152]:";
  78. 2005 poke204,0:poke207,0
  79. 2006 getx$
  80. 2010 ifpeek(653)=2thenprint" ";:poke204,1:return
  81. 2011 ifx$=""then2006
  82. 2018 ifx$=chr$(13)thenprint" ";:poke204,1:goto2024
  83. 2019 ifasc(x$)=20andlen(nn$)>0thennn$=left$(nn$,len(nn$)-1):goto2023
  84. 2020 ifnot((x$>chr$(31)andx$<chr$(128))or(x$>chr$(159)))then2005
  85. 2021 iflen(nn$)<20thennn$=nn$+x$:goto2023
  86. 2022 goto2005
  87. 2023 printx$;:goto2005
  88. 2024 nl=len(nn$):ifnl<1thenprint"[157]";:goto2005
  89. 2025 fori=1tonl
  90. 2030 ifmid$(nn$,i,1)=","thenn=val(left$(nn$,i-1)):nn$=right$(nn$,nl-i)
  91. 2035 next
  92. 2039 ifn>0andn<=kandlen(nn$)>0then2050
  93. 2040 print""
  94. 2041 print"                                       ":goto2000
  95. 2050 gosub900:return
  96.