repeat l:peek i,buf:if i=' ':memcpy buf,buf,l,0,1
loop
i=3:gosub com:if tmp="DIR"{
gosub nln:notesel dir:notemax l:l.2=0,0:strlen l.6,cdir:l.6+
repeat l
noteget buf,cnt:up tmp,buf:instr l.1,tmp,cdir+" ":if l.1=-1:continue
peek l.4,buf,l.6:if l.4='?':l.3+:else:l.2+
getstr tmp,buf,l.6+1,'/':strlen l.5,tmp:repeat 13-l.5:tmp+=" ":loop:if l.4='?':tmp+="<DQN>":else:tmp+=" "
data+=tmp:gosub nln
loop:py+=l.2+l.3:data+=" "+l.2+" 個" :gosub nln:py+:data+=" "+l.3+" DQN":gosub nln:py+:break
}
i=2:gosub com:if tmp="CD"{
memcpy buf,buf,l,0,2:repeat l:peek i,buf:if i=' ':memcpy buf,buf,l,0,1
loop:up buf,buf:up temp,dir:instr i,temp,cdir+buf+" "
if i>=0:getstr cdir,temp,i,' ':break
if buf=".."{
j=0:repeat:instr i,cdir,"\\",j:if i=-1:break
j+=i+1:loop:if j>0:strmid cdir,cdir,0,j
break
}
if buf=".":break
gosub nln:data+="指定されたパスが見つかりません。":py+:break
}
i=3:gosub com:if tmp="CLS":memset data,0,80*25:py=-1:break
i=9:gosub com:if tmp="KANKODORI":gosub kan:break
if buf!"":gosub nln:data+="コマンドまたはファイル名が違います。":py+
loop
gosub nln:data+=" ":py+:gosub nln:data+=cdir+">":py+:if py>24:py=24
memset buf,0,256:bfp=py,0:gosub out:goto main
}