home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 June / 64er_Magazin_90-06_1990_Markt__Technik_de_Side_A.d64 / renumber (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  788b  |  21 lines
  1. 1 input"name";na$:input"weite";za:input"anfang";ze:input"von";vo:input"bis";bi
  2. 2 dimzn(1500):y=ze:forz=1to2:ifz=2thenopen2,8,2,"@:r."+na$+",p,w":print#2,d$;
  3. 3 s=65536:bi=bi-(bi=0)*(s+bi):open1,8,4,na$+",p,r":gosub19:d$=chr$(z1)+chr$(a)
  4. 4 gosub19:n=n+1:ifn>1thenonzgosub18,20:ifzn=0thenclose1:nextz:close2:end
  5. 5 gosub19:p=(zn<vo)+(zn>bi):onzgosub6,8:goto4
  6. 6 gosub16:ifa>0then6
  7. 7 zn(zz)=abs(ze+p*(ze+zn))+zn*s:zz=zz+1:ze=ze+(p+1)*za:return
  8. 8 q=y+p*(y-zn):print#2,chr$(q-int(q/256)*256);chr$(int(q/256));:y=y+(p+1)*za
  9. 9 gosub17:print#2,a$;:ifa=137ora=138ora=141ora=155ora=167then11
  10. 10 on-(a=0)+1goto9,18
  11. 11 gosub17:ifa>47anda<58thenb$=b$+a$:goto11
  12. 12 ifb$=""thenprint#2,a$;:goto9
  13. 13 zu=-(a=44)-(a=171)-(a=0)*2+1
  14. 14 forc=0tozz-1:ifval(b$)<>int(zn(c)/s)thennextc:printzn:close1:close2:end
  15. 15 b$="":print#2,mid$(str$(zn(c)-int(zn(c)/s)*s),2);a$;:onzugoto9,11,18
  16. 16 get#1,a$:a=asc(a$+chr$(0)):a$=chr$(a):return
  17. 17 gosub16:ifa=32thenprint#2,a$;:goto17
  18. 18 return
  19. 19 gosub16:z1=a:gosub16:zn=z1+256*a:return
  20. 20 print#2,chr$(z1);chr$(a);:return
  21.