home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 April / 64er_Magazin_91-04_1991_Markt__Technik_de_Side_A.d64 / mini-dir (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  908b  |  20 lines
  1. 10 restore:forz=0to6:readp$:printtab(1)p$:nextz:poke198,0
  2. 20 gete$:ife$=""then20
  3. 30 q$="":ife$="r"theninput"name alt";a$:input"name neu";n$:q$="r:"+n$+"="+a$
  4. 40 ife$="t"theninput"startfile";s$:q$="r:"+s$+chr$(0)+chr$(0)+chr$(0)+"="+s$
  5. 50 ife$="e"theninput"eintrag";i$:input"file";k$:q$="r:"+k$+chr$(160)+i$+"="+k$
  6. 60 ife$="f"theninput"name";f$:input"id";id$:q$="n:"+f$+","+id$
  7. 70 ife$="d"thenopen1,8,0,"$":poke781,1:sys65478:getd$,d$:goto210:
  8. 90 ife$="h"thenopen2,8,5,"#":open1,8,15:print#1,"u1 5 0 18 0":goto245
  9. 170 open1,8,15,q$:close1
  10. 180 open1,8,15:input#1,f1,f2$,f3,f4:printf1;f2$;f3;f4:close1:wait198,1:goto10
  11. 190 data"[147]mini-[158]dir","d[146]irectory","t[146]eilweises verstecken der dir."
  12. 210 getd$,d$:ifst=64thensys65484:close1:wait198,1:goto10
  13. 220 getd$,dr$:print""asc(d$+chr$(0))+256*asc(dr$+chr$(0));
  14. 230 getd$:printd$;:ifd$<>""then230
  15. 240 print:goto210:data"e[146]intrag nach file","r[146]ename","h[146]eader aendern"
  16. 245 input"neuer header name";nh$
  17. 250 iflen(nh$)<16thennh$=nh$+" ":goto250:data"f[146]ormatieren"
  18. 260 fory=144to159:print#1,"b-p";5;y:x$=mid$(nh$,y-(144-1),1):c=asc(x$)
  19. 270 print#2,chr$(c);:next:print#1,"u2 5 0 18 0":close2:close1:goto180
  20.