home *** CD-ROM | disk | FTP | other *** search
- 10 input"p[146]acken,oder e[146]ntpacken ";a$:ifa$<>"p"anda$<>"e"thenprint"[145][145]":goto12
- 11 ifa$="e"then20
- 12 input"source-name ";s$:input"destination-name ";d$
- 13 x=0:b$="":x$=""
- 14 open2,8,2,s$+",s,r":open1,8,1,"@:"+d$+",s,w"
- 15 get#2,a$
- 16 ifa$=b$thenx=x+1:x$="\"+str$(x)+b$:goto15
- 17 print#1,x$:x$=a$:b$=x$:x=0
- 18 ifb$<>"\"then15
- 19 print#1,"\":close2:close1:print"packed !":end
- 20 input"destination-name ";d$
- 21 open2,8,2,d$+",s,r"
- 22 input#2,a$:ifa$="\"thenclose2:end
- 23 ifleft$(a$,1)="\"then27
- 24 printa$;
- 25 geta$:ifa$=""then22
- 26 geta$:on-(a$="")goto26:goto22
- 27 x=val(mid$(a$,2,len(a$)-1)):x$=right$(a$,1):forg=1tox+1:printx$;:next:goto22
- 28 rem
- 29 rem ********************************
- 30 rem * *
- 31 rem * seq - packer / - entpacker *
- 32 rem * *
- 33 rem * coded by zeitgeist/h-t/wil *
- 34 rem * for publication 11 *
- 35 rem * *
- 36 rem ********************************
-