home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 October / 64er_Magazin_89-10_1989_Markt__Technik_de_Side_A.d64 / basic-entpacker (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 10 dimf$(1,255):print"[147] basic-entpacker":open15,8,15,"i0":x=34:fori=1to255
  2. 20 a$=chr$(i):f$(0,i)=a$:f$(1,i)=a$:next:fori=128to203:readf$(0,i):next
  3. 30 input"programmname: ";p$:open1,8,3,p$+",p,r":gosub130:p$="e-"+p$:n$=chr$(0)
  4. 40 open2,8,4,"@0:"+p$+",p,w":gosub130:fori=1to2:gosub150:gosub120:next
  5. 50 q=0:p=1:gosub150:gosub120:b=a:gosub150:gosub120:v$=n$+chr$(b)+chr$(a)
  6. 60 gosub150:gosub120:b=a:gosub150:gosub120:v$=v$+chr$(b)+chr$(a):print256*a+b;
  7. 70 gosub150:p=(a-139)*(a-143):q=q+1-c:q=q-2*int(q/2):ifa<>58orq<>0orp=0then100
  8. 80 ln=256*asc(right$(v$,1))+asc(right$(v$,2)):ln=ln+1:u%=ln/256:v%=ln-256*u%
  9. 90 v$=left$(v$,3)+chr$(v%)+chr$(u%):print:println;" ";:a$=":"+v$+": "
  10. 100 printf$(q,a);:gosub120:ifa<>0then70
  11. 110 print:goto50:data end,for,next,data
  12. 120 print#2,a$;:gosub130:return
  13. 130 s=st:input#15,en,em$,et,es:ifen<2thenreturn
  14. 140 print:print"disk error":printen,em$;et;es:close1:close2:close15:end
  15. 150 get#1,a$:gosub130:ifs=0thena=asc(a$+n$):a$=chr$(a):c=abs(sgn(a-x)):return
  16. 160 a$=n$+n$:gosub120:close1:close2:end:data input#,input,dim,read,let,goto,run
  17. 170 data if,restore,gosub,return,rem,stop,on,wait,load,save,verify,def,poke
  18. 180 data print#,print,cont,list,clr,cmd,sys,open,close,get,new,tab(,to,fn,spc(
  19. 190 data then,not,step,+,-,*,/,^,and,or,>,=,<,sgn,int,abs,usr,fre,pos,sqr,rnd
  20. 200 data log,exp,cos,sin,tan,atn,peek,len,str$,val,asc,chr$,left$,right$,mid$,go
  21.