home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 11
/
Publication_11_19xx_-_de_Side_B.d64
/
seq-packer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
835b
|
28 lines
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 ********************************