home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_87-10_1987_Verlag_Heinz_Weise_de.d64 / compactor (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  25 lines
  1. 0 rem         programmstrecker
  2. 10 poke55,0:poke56,15:clr:poke53280,12:poke53281,12:print"[147][144]":co=3850:c=1:input"laenge1[157][157][157]";tt:p=co:x=p:input"name";a$:open3,8,3,a$+",p,r":l=co
  3. 150 get#3,b$:pokel,asc(b$+chr$(0)):ifst<>0then200
  4. 180 l=l+1:goto150
  5. 200 q=l:f=q:close3:open2,8,2,+"des-"+a$+",p,w":print#2,chr$(peek(x));chr$(peek(x+1));:x=p+1:goto410
  6. 270 c=c+1:poke216,1:printchr$(peek(x));:poke216,0:ifx>coandpeek(x)<>58thenprint#2,chr$(peek(x));
  7. 320 ifpeek(x)=0then410
  8. 330 ifpeek(x)=34andr=0thenr=1:goto390
  9. 340 ifpeek(x)=34andr=1thenr=0
  10. 350 ifpeek(x)=143thenr=2
  11. 360 ifpeek(x)=139thenr=2
  12. 370 ifpeek(x)=58thenifr=0thenifc>ttthenifpeek(x+1)<>0then540
  13. 380 ifpeek(x)=58thenprint#2,chr$(58);
  14. 390 x=x+1:goto270
  15. 410 ifpeek(x+1)=0andpeek(x+2)=0then660:
  16. 420 lo=peek(x+3):hi=peek(x+4):print:printlo+hi*256;:forl=1to4:print#2,chr$(peek(x+l));:next:x=x+4:c=0:r=0:if(l1+h1*256)>((lo+hi*256)-1)and(lo+hi*256)>0then700:
  17. 530 goto390
  18. 540 print#2,chr$(0);:f=f+4:print#2,chr$(8);chr$(8);:lo=lo+1:iflo>255thenlo=0:hi=hi+1
  19. 590 l1=lo:h1=hi:print#2,chr$(lo);chr$(hi);:print"":printlo+hi*256;"[144]";:c=0:goto390
  20. 660 print#2,chr$(0);chr$(0);:close2:gosub780:end
  21. 700 close2:open2,8,15,"i":print#2,"s:des-"+a$:close2:print"   problem:";:printlo+hi*256:gosub780:end
  22. 780 open1,8,15:print:print"";
  23. 810 get#1,a$:printa$;:ifst=0anda$<>chr$(13)then810
  24. 840 print#1,"m-w";chr$(106);chr$(0);chr$(1);chr$(133):print#1,"i":print#1,"m-w";chr$(6);chr$(0);chr$(2);chr$(36);chr$(1):print#1,"m-w";chr$(0);chr$(0);chr$(1);chr$(128):close1:return
  25.