home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 December / 64er_Magazin_91-12_1991_Markt__Technik_de_Side_A.d64 / filescanner (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 1 open1,8,15:open2,8,2,"#":print#1,"u1 2 0 18 1":w=170:dimc$(w),d$(w),e$(w):h=9
  2. 2 get#2,a$,b$:a=asc(a$+chr$(0)):b=asc(b$+chr$(0)):l=l+1:m=l*8:o$=chr$(0):open3,3
  3. 3 fori=1to8:print#1,"b-p 2"(i-1)*31+i+2:get#2,c$(m+i),d$(m+i):fork=1to16
  4. 4 get#2,q$:e$(m+i)=e$(m+i)+q$:nextk,i:ifa<>0thenprint#1,"u1 2 0"a;b:close3:goto2
  5. 5 print"[147][198][201][204][197]-[211][195][193][206][206][197][210]":print"f1[146]-vor,f3[146]-zurueck,[210]et[146]-bestaetigen"
  6. 6 close3:t=0:print">"e$(h)"<[145]":gett$:ift$=chr$(134)thenifh>9thenh=h-1
  7. 7 l$="blocks":printchr$(14);:ift$=chr$(133)thenifh<169andh<(m+i)thenh=h+1
  8. 8 ift$=chr$(13)thenc$=c$(h):d$=d$(h):print"[147][196]ruckerausgabe (j/n)":goto10
  9. 9 poke650,128:goto6
  10. 10 gosub19:open3,3-x,1:print#3,e$(h)"-track/sektor":print#3,"   dez"tab(22)"hex"
  11. 11 c=asc(c$+o$):d=asc(d$+o$):print#1,"u1 2 0"c;d:d(1)=c:d(2)=d:gosub18:forl=1to2
  12. 12 r=d(l)-int(d(l)/16)*16:ifr<10thenh$(l)=chr$(48+r)+h$(l):goto14
  13. 13 h$(l)=chr$(55+r)+h$(l)
  14. 14 ifd(l)>15thend(l)=int(d(l)/16):goto12
  15. 15 next:print#3,y$" ",w$;h$(1)" / "h$(2):get#2,c$,d$:t=t+1:ifasc(c$+o$)<>0then11
  16. 16 print#3,t;l$:print"[206]och ein [198]ile (j/n)?":gosub19:ifk$="j"thenh=9:goto5
  17. 17 close2:close1:close3:poke650,0:end
  18. 18 h$(1)="":h$(2)="":w$=m$(1-x):y$=""+str$(c)+"/"+str$(d)+"  ":return
  19. 19 getk$:ifk$=""then19
  20. 20 w$=chr$(27)+chr$(36)+chr$(165)+chr$(0):m$(1)="":m$(2)=w$:x=(k$="j"):return
  21.