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