ldo@waikato.ac.nz (Lawrence D'Oliveiro, Waikato University) (12/28/90)
Here are a couple of XCMDs I wrote a very long time ago. SaveScrap
saves the scrap in a resource whose type and ID you specify, in the current
stack, while RestoreScrap restores the scrap from such a resource.
Rather than try to provide proper documentation on how to use the
things, I've enclosed the source, in TML Pascal (pre-MPW). It's
not very long, and hopefully not too hard for others to figure out.
If anybody finds any problems, actual or potential, please let me know.
Lawrence D'Oliveiro fone: +64-71-562-889
Computer Services Dept fax: +64-71-384-066
University of Waikato electric mail: ldo@waikato.ac.nz
Hamilton, New Zealand 37^ 47' 26" S, 175^ 19' 7" E, GMT+13:00
--------------------------------------------------------------------------------
(This file must be converted with BinHex 4.0)
:%%K$8f0bBA"9G'PXFbjcDA3!8dP8)90*9#%!!!!!&I)!!!!!h"T6593K!!-!!"A
bFNaKG3&-!!!!&J!T!J)08f&fC90MFQ&`,P"KFh*YEfjj!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!'b!!!!!!!!!!!9%9B9%e38b!"!*i44l+I!X*
M!!!"IJ!!#2`!!!%R!!!&'i4HZmS!!!!!!!"Zl!!!"!JSN!!*3B-"CB"`mBqG!%$
r)[S$!F5*&bGe8!""%8")'hikK*ck`32!'#4k'N`*BkI-P$&b`X"a!5A-(!%%U46
"3U8*P#NJ"J)!0$5J6TiqJ3SP5T5JdkG2288i)LXJ!Ri"!rMj%H!&JP4'3$`4FXC
V+PX`2RMM0j!!E#SF8)"K&%N53"'4,hK%M*L+$iJ2CmLp!#!5*3!*U5+P'Z3@aea
!'!03##J!43ZRR[i&'LM!fB*rrA!#'#6XFcm$!3FC-kdJY6,6$P*l"LdKYE62"*%
!50$NMCX`Bpi!@"6!)(%Z!0S&f*!!2-#+jJD9)`q)'J'!NL3#G"23icU!l0YlI")
JE!a8U%)&%LaqN!#J$!!aa0%bJ$8J"`$[!5593P$"J(B4269$)Q!!815m15-R6"X
38m,B+60P6%%i1aVXD3#L)JJUD0,-!G(Q$CNkE-U!J#2`ijJb'm1!3*)(6KNj3m,
))3-#bj!!*N4!b%(jTSkFNb$S[!%a4k&)1QM+8,3iaZG10h4!M(N$Y3c8M@r-"%d
+BJLE0($%[*&*-da+R6ap!Vf6"ZP@T4C"R%Qcd%h3PL,$Z+'C*'FDZdK&0TAc01S
F1Q('V(&4-BP@P6[Rp2`*ef)B0M[$N!$*!k)-(Sed0V*e'jLS`D0i3HMP5i3&L,D
[0j)T%j*1'6)ZPPD-bBE0fjShFjS4H*!!T8ZBC&9[021QpjXlFh3dD*!!S1M#KJr
4cU'#ehAN[Y2MAT(6eVCG-CbCK,Rc&#L4%dqq,N`M%%5-($K`J&#LYij-cM(-N!"
EA1SGaT&(DCL4aQhfiDHI%L!"5%0ZI8K%`K!JR'!66LIB*i0q*b4dR80K`0(K$$*
8Z!F*5'4S8aYN)&''CLqGS#)*9,JBR)hK@96&(#K4ed4L58"P"J[8'II5Lf4%T"X
)!EeadNFlAC48P'-m@4%+e%%KNd&3d#%(#$S!"f1BFQJ*3JS4a9A4(UU03BGr[Nd
e'`M-M9RDKN3`9L&e9XK%A9`BP5%&5Ybj4#B)Kfk(9d3*%*T8ShdY@U4YCl`%UD3
-N3M(SP"J9q)8FjTKaUB@A@(@%fi3SG%DL`Va4R-cZS&U4B8f1KP3C5+a@NLhJP!
%BBXq-F@`FMLC!*Dhq565%@A3d@LLC35a9eqS`TPT9*(YLTULUi(3Pjr64@T4S'N
QN!!!T853!%UH'fFXkUi-0G5JE%9#P$'A'i0D*!3E8Ul4a"X,SH"P3@fJkB8,"aX
daaBaG1'&Dd$NLQKh)0$!CVm9DI(5'e5miH8F"RqCX*LZ0Abb(!ZVr,!-%V['VVY
rRE'aZEK1LP+P1[5!N!#B)6Y44aXP)ibQc$Zh+fE0+I4Ea&iJl!'YY"HlC#dCII@
K,,08LR6SR(+iJH`Ek@l*XE#%N@eT9CQ@[@DfD)&YedX#MHR'd'+mT*aU4#d0,lP
RSdYG!Q2,361mmST*VlhPiU[[AfF,h8E)Kjq"3Z'Z&9ljcA'TV,!,Ar[N4U"Xe#&
5ce#D&E,(!K80*XTSelfjde$[%AVBK@[GBecjlKYeS9K@Q-$8dq*e0ECU`QR9(-k
#i-C3(m(ae4KKf+DGYaX*El&NDThZmp3ak0Sp#YY6kpVfIGhXQ*@'TN8C#$ci!))
6DIJ@',mi-pV'3Z*64Vl1h+2-c3SPUNqKVNM-+5#NN!"&*Tmji3h)JT5UjX!U9md
"9UJMS+F@9N"598mN2S-"T0Bh`3UqkLhiL`X$8FH%XC!!3B(8@4m$(3K"BYf[Alf
$A2kfjkd'XUq!(258VrB#V,1Yd'G$*%2)N[LrpJA`**bcL!b*48-'hM"rMY[Ai)*
!"M,dlb40r')CcJG!ml'2ADij`3PZ4MKLSDj4KB08!UBiTLVD-#Ri-eF1maLA+85
V88'JJjK)aX2ZZ8B)EAQ#(&"!2*3%FT!!BA3I&*%f"bMi*&0K%%0)8X$'Z&3"$Q6
iB+1-8,mbS'!)2KPP+6YTN5-b#L9a(&aFN!"J56PN+T*2,%26e&@4Tj&KF,3"NL`
YBN%i['%153`*,Vfe5cF*UhD1%9i[S@N'hFe4+`b-hraUU#FmRZefBN[E)T'P2Uf
8X&8R[+)+hHLc+VJ"B*STS*TmqEXV#@3-ZQ[!(U-QSNipT%*[!X&(fY!'cV3K$(r
jLKY%8L&klU'I"Ha$EJ!#!K"5CA0dEh*P8f0bBA!Z8'&cERN!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!"B!!!jL!!!!!!!!!!"849K869"6)!%!RK&(XTm
"G`J!!!&q!!!,,`!!!5S!!!B!'GD!H`!!!!!!!2S3!!!%##L3!!P"J`&PJ($aMjd
!32mLqJ-"a)NA*h93!%%43%JEIMU%R2V"!m!B*(SJ5#NcKmiE1@@QM*%6"Si,+'(
QK"&!N!"+%5a8QN#C!Q*J3*p!K4)ebJJ!%)*3SdVe&1')V)!,AJ3-i1G(J"F)8KN
"m86)'E#TE-(ii)hI3,1TF%!"KP%N53"&4,lJ%6&L+MiJ2T`KTe8N5J!58N9+03J
ZMVU!-!DJ%&!!LKC32Id,0&#!X`Arq[%%-%JBk(i'!JibGPU"DQ@R(DMq(&U#DQQ
J#5)"N!#Jb4XhBFDm!3!$5###3&43lT!!64q!$YTi3RF0hACU"!#J!#MD68#2l0X
$G1ra+F!Gl&+M'K9)-!"#!1pP!)JKMYB",33j!*!!$d#T&))+$0"14&(0N!!)$&$
N[$NM*d`E%&,+c+(c4NkC+@-+`YR4B%m$%"K"8%'6CJk)0Qr)e'&6"J3FJ5,(+!3
4"J552($+b"N54JiC%&L'0#%#`Z'F0hANU!6"X+G#KJk*SLPc-H1BS!lGd!%ajSh
8-P)p[M'MY1330QRJL(P6mkBCJ3GEqJ3UY15G0(63G!9a*SdGV%dadS&C-SbEQdP
iTR%cpkQFU&-AKKQcaJ9'QQcBJ)!,iZbEJbpMcLc,FNlHbQmL[lNc4dH$"JPm)Rd
B-3`FSh1Sm'8"1r$TM##Zb)&,"bX)-AP!-!Pc*qT3)LHHJ,fE4L#)'$P`i!#Ka'q
GQX&Mc($aHIM#Mb(6Q%P6jLCdkG4(CYrHS%p&%N0!R-Ljmm4c'6RN*ecBN!#e42X
cb1$H(L3J)9p1EC!!J83CBC!!)G-*!j*!aB%k)HIHCeA-S4"U65b@K&4QX)"DCM)
K5!C&R`AdKNSL*E94'5U1m4P'++!'48d'38'((#$SJ0-3#HSSai`JT%!4EKMY`G)
BG&`R@981JXCMA#A44i4M&bCJ48fSiIELIV,&e#0##S9C"N8*H,R8IS'0q@&[CmL
%TTTPl-I@8$iLi4FC*-fCdCF+h9N'%eLG%GHB6&KeaTYqBP6%B@-q-F@MFU#B3)c
P"9A5%@A3!C&%GJDPNTp+aNQ(4e6#*LK99Y%4aQ#$R6(A(+h"JH9TD@D%DBZEGJS
QAd(m&9LM'CADUDULPV5AQ(Z#%0LYU'R*C3+jBX3Q%92X'1ZBfFSK3`de@)SN#%+
88CFEd3V"aSTV02('A5MF@&!E3RVKJV`'cE&&$&ei34X3J-Bf'`Jd'"QY&M+p3F8
E0mi4,ildlNJE[K(,B5r&qXV3,fhAGKZV`G3'h+B12B$3lF*1e0('`r-+bE&#JAR
XaKNTG)PN%Aq"X!HRG2`D8l"N"0D(Z15D1jM12(rU@UKYZ9FY#$clA!E3`pU-8F#
VNJbeVi%QLd,!CY)Q-K%ejiVc66YhUM3F6+Xd0+klDNSQI`kpZ$DT5cBC4Q6"UGE
IV,9@KTC'DhEG&V42QaQYQ8+#8,)ANTU*CJ*6T+%(M$Xk$S)ALFl-++kiE6NNY@Z
lE(+Y6jKKKSC6qGMjSP*0[P&(CNBkKH5,Fc4(jCFMUZMRe"*K98Nq#[&'D!bk3A5
jjeVYNK--"aAReiArP#c)Z+fGqZV(DJd$XC6f@$,#!YhY[2"Z%&pbq$ci!!,dP"*
l"8FNJH$''e1KAa)CEcL2%I1$L9B5Z+)peE%1"1l$@V))0E0$Y3!%dk%5ZUL&'rf
*6b0bU-1C"-L9qq9[H&fCB+i!+%,F)#&4M+&HR3bR%T!!2DedQG2D%fa#!a@fV3a
HF+'DD-HA#c*Z4bL!)Bp@F$U*E)pe+I$#j(Di1mZTcf41&&)3Dp8i)KD3!(Y6)@,
"P"JYh)42De#SJkGU4Ef1m+i-BY0Gf%!J45'#`)US-q#aL)L$&1J`)dLSJK[@P8)
&YZ@1'"NJ#0MR2[K"5S,45S!&Y8D&$$+&JS2-f4i'q$CU#G+$),!J)L'*N5XH8'Z
HR#2Kc1M%0d,3P$-N!`UH3!C9cUk*Pl1Mrb+*Y[QPJ5590'%Bj6!p2lE3CQI6fAj
@BlGD[Fe'!Q'4h",5*$QiJ9)0X9Q0RJC0([RS6HD5LFf`Tc1M0*-`-K%)Mk$8&iq
dC#'lQ4RL3MHY"&46CV,b8EHq&5l3&Dej6dYC'aB'6a48NcE[e0E-Z)N4LYA,"F`
-LKZfa!B0AV"K#b2I'eL@)iN0mM!0J@IC(#A*K$UcQXFF&`PepU)B15eTYESKQJ6
Tbj+dlhfh$+(051LmPM,38(,4'Xrdp"H5R0'',#`$3HG'c+@BlfQ#R%)H&P+'0K5
"$(""`3ad0S3h`#%2I8K"#,[j%a!dB54d5)-4"Z-J(RN`$5T"&4V#N!#B`+h9)f0
Bkmc+!`+RM8Y*Gd$$m@*5NPaQ4*!!K(cI'm+hb34ip*NBPB-r$l04@U+Q$'c3N!$
c$PY0&2J%HR3`!P$q8V0a"A-2*8hQ-8HkKf(fCfhZ54))40+'0J5R$DrDif$kfS$
2QYBKU181!J!@8f&fC90MFQ&`,e*PFh4[FQ96Bh*KF!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!E)!!!!!!!!!!!!!!!!FR0bBe*6483!!+1K,l+MS5qr!!!+,`!
!!!!!!!FJ!!!!!"Zl!!!!!!!!!!")+3!!"!J)))'fJ!J1"U`5F)!4#8I+c+%6KJd
G+K,TJ$$bKJfC-R+-$#4i)+#&+@(XP*Nb4NiB1#qNC(`MCfA,Pf8%%*3c4mkBJ$a
p5TP5K!M"SdL6*Kd9kS@XT!THF23)FQ6!NJ!'0!(9#KDU8C-U,8(U!i!$!2S#L"S
**1$!IrMqY90+Yqj4#J3G1N!5aJdC0L!hG[`BdLS!$!fGG+V&33AB5P53!"B"N!!
'3$m"*D`5!1!N,DSVFY,3S92'$3JaH8!`#A1RTTXaC8!3UID%64U9DH5mB3&Lb*X
fF1U3!*B$BJT)1fPJcj&G"JiGhPAFh!Bj4h6U0fC!A!Q6CNdB1VY"m'f6aZ)E0lb
GP,N$3NZCLRh*Z'MJ'dkHd'I3D%`&)NB1($L!%0ed2&N(!REDFHFGH204J8BDbih
aaNFJY"&'DQ,%*L%FDC4""JMaJ8!'K(5%*SC`(S*J4NePX*%(EbGUj-BE'TP"NiL
jP6''4K+fd3C)Bk44%3KRF1I'I!%jBF8r!#"a6J!BS1!'!!LJ`!D99J)J`!X85%P
P%Zcm`mm,$,c!!d%%1+&,!24iLF!,,'!jCC9AdJQ!!9`Li3D6DJTJKCYC2',#R#q
X3+@HI1SLJ"dZI*!!`a(rk-2%0aJ!iS3A,RcL4"e(&%'&&%9-388@5M,T**3qZ!!
!!dJFmm)"L(+f*LKZCSP!S)05@HLKHmSD!#b0TR!%!%*-@ZQP)(c"a5013!-U&99
)i834dLlTcUP[1U$Q2c)%qS),B[i!VMkSI0"S#j!!`U1%+rr!F`C#hlDE5LZ"TT,
2ZC!!fL2%RZj)qBmp5PbT`"A(%(&!"j!!dU-%Z25mZfUpqc6D!k6Z+-'['3&*iUm
p,9a*3,Y92))S2'S'B)!2(dcm6m8A"`36Z2$%biqiN5+K"`#@T,*+b+QmJV,+,+q
--3"%a!Y2S#%ERBST+,IkUTN%JB$+&ShqF%!UTr"-#FT@Tj)*cckR6,(4DJ+!4QF
!4!9cf9*B[,,$$0$XcJ[DkZ+2+`[rdh"!$05VMm386`U"TCKU@JF95"3"K442$!&
#3#*m!F)(S$$KJU9a`!(!#`R%!)`!)'bU14Mf4*iX+#0dpJmlTRm"5K+ULb2#"j1
h$SS,)J5KZM3(!N!!##p3qF1C!+6L6V*320&Xllp$N8Si)VcKZ`L)r0!@!TPZ@QU
66dBjja(Z-#R%%4j3B!%h86`MTTF-J-pN#Q0"N3-I!*6%"*a0*ZX%*"d$S$N%aL)
FmTJ&$58&j&6H!`!%8M!P"J!!#VP#!2`!3)Aj83N!piX6%[3(L3!Lk`Y2H-HUQV8
p",V*IF3LRrR3TcjqX!q&%j3Ir45!3IaYm![lkprr21L&!6BV)!53!%CR"U!#d)L
'0+C"M@TBiaVBb)BfYX'0ERMM'q#JL$M'N30bP--Fjd"(1LST%"fZNjhYG1Fli4P
2HF#$RY#YTch[B80mjP1Iqk3K2r[Tchm#0+!`9QH-"bUMJY$BS!G&D%+aX4#'023
'$U8S4#1DL)P3p+%9PD&&,cU0F%!`SaVGD%3ef4%)H[3MR`L*$83b%T)iXb6Z3DP
@GE*9PVE8T6RC#NaL)K28J0JRDX"59h'UNLeM5F`ljDPADKT!!Zed+d(0b34Vd*@
K%"#VC-+J8Bq+&!qcabP2J8T8T,,#!EY(YffC!9$1P+DB)[L$&83U&EIlJ,$qY8h
$GBS+8aL#&))!K9*Gka`(%#B`rp8R$JL"A5kF8lhiJFedZ5PJlE*#`3j'-3q!bad
++%N!(1B-0lQ!"Iq3!%F8$X%#F2'$&iH3!"k91N#r!+c-SL[,U%!FKJFh`BQJDr)
%,2r9!LV!a3AJ`SFh%)U#)r48Ed#&be$&K)9$&2@Sm%#RdH*&Mk3+&D&31-5V8Z'
2KVE,TL#e4mQJm&!fY-YK#'#T3&jk8CPZ&(**jFG5iC(9NVB,!3B)L"@-333$#+%
3'M#!0Jl4JL+)5A8U!#Y1!m!!`B(M8Ycm*K@Hm+`5GLp9Uh)DV*!!Z5B$r,+C%G`
906NlN!"J$DYBP"+JXJMiV'K0UeVY1YAQkZB2(kcVA`lMJEI!*9CG!-!-q!TT1Hh
QKC!!$5mVU4#'"clJ-!'ic9emSeR-k[B20D!YEMci"a#'q`mZ6!S!K1-QiK6(1-H
CMR+@`jcQ11Fjd)N1!+5cA3NZT`DrAN*ejP!G1'bA!Y9K`hBU8*dcE!FlIIb$',C
6JZTd-E[D5FjeZ01GJ9A"21!*MhM'3jlb#YK+%hi[I#NXhrR5Yli'`M"q&V5I$6Q
S3`Abd)FF(ZFVTl6!"Mi`JK1X)2d38%-0F[$&)"3K!dMBiHkG%-6M%c%,5lbU%cr
3JM6-B2j`b,mVl6#e(i3#!Ge#%)-J4#%!B%J)lN'&"H3e)"`!3&N!J)8K0-%S!k%
K)!,b1)+-1Ff"50[M#,#C-@-J!5K4#8YF!JF'b'3L0,%*S3(m-!!!:Lawrence.DOliveiro@f20.n226.z1.FIDONET.ORG (Lawrence DOliveiro) (12/28/90)
fF1U3!*B$BJT)1fPJcj&G"JiGhPAFh!Bj4h6U0fC!A!Q6CNdB1VY"m'f6aZ)E0lb
GP,N$3NZCLRh*Z'MJ'dkHd'I3D%`&)NB1($L!%0ed2&N(!REDFHFGH204J8BDbih
aaNFJY"&'DQ,%*L%FDC4""JMaJ8!'K(5%*SC`(S*J4NePX*%(EbGUj-BE'TP"NiL
jP6''4K+fd3C)Bk44%3KRF1I'I!%jBF8r!#"a6J!BS1!'!!LJ`!D99J)J`!X85%P
P%Zcm`mm,$,c!!d%%1+&,!24iLF!,,'!jCC9AdJQ!!9`Li3D6DJTJKCYC2',#R#q
X3+@HI1SLJ"dZI*!!`a(rk-2%0aJ!iS3A,RcL4"e(&%'&&%9-388@5M,T**3qZ!!
!!dJFmm)"L(+f*LKZCSP!S)05@HLKHmSD!#b0TR!%!%*-@ZQP)(c"a5013!-U&99
)i834dLlTcUP[1U$Q2c)%qS),B[i!VMkSI0"S#j!!`U1%+rr!F`C#hlDE5LZ"TT,
2ZC!!fL2%RZj)qBmp5PbT`"A(%(&!"j!!dU-%Z25mZfUpqc6D!k6Z+-'['3&*iUm
p,9a*3,Y92))S2'S'B)!2(dcm6m8A"`36Z2$%biqiN5+K"`#@T,*+b+QmJV,+,+q
--3"%a!Y2S#%ERBST+,IkUTN%JB$+&ShqF%!UTr"-#FT@Tj)*cckR6,(4DJ+!4QF
!4!9cf9*B[,,$$0$XcJ[DkZ+2+`[rdh"!$05VMm386`U"TCKU@JF95"3"K442$!&
#3#*m!F)(S$$KJU9a`!(!#`R%!)`!)'bU14Mf4*iX+#0dpJmlTRm"5K+ULb2#"j1
h$SS,)J5KZM3(!N!!##p3qF1C!+6L6V*320&Xllp$N8Si)VcKZ`L)r0!@!TPZ@QU
66dBjja(Z-#R%%4j3B!%h86`MTTF-J-pN#Q0"N3-I!*6%"*a0*ZX%*"d$S$N%aL)
FmTJ&$58&j&6H!`!%8M!P"J!!#VP#!2`!3)Aj83N!piX6%[3(L3!Lk`Y2H-HUQV8
p",V*IF3LRrR3TcjqX!q&%j3Ir45!3IaYm![lkprr21L&!6BV)!53!%CR"U!#d)L
'0+C"M@TBiaVBb)BfYX'0ERMM'q#JL$M'N30bP--Fjd"(1LST%"fZNjhYG1Fli4P
2HF#$RY#YTch[B80mjP1Iqk3K2r[Tchm#0+!`9QH-"bUMJY$BS!G&D%+aX4#'023
'$U8S4#1DL)P3p+%9PD&&,cU0F%!`SaVGD%3ef4%)H[3MR`L*$83b%T)iXb6Z3DP
@GE*9PVE8T6RC#NaL)K28J0JRDX"59h'UNLeM5F`ljDPADKT!!Zed+d(0b34Vd*@
K%"#VC-+J8Bq+&!qcabP2J8T8T,,#!EY(YffC!9$1P+DB)[L$&83U&EIlJ,$qY8h
$GBS+8aL#&))!K9*Gka`(%#B`rp8R$JL"A5kF8lhiJFedZ5PJlE*#`3j'-3q!bad
++%N!(1B-0lQ!"Iq3!%F8$X%#F2'$&iH3!"k91N#r!+c-SL[,U%!FKJFh`BQJDr)
%,2r9!LV!a3AJ`SFh%)U#)r48Ed#&be$&K)9$&2@Sm%#RdH*&Mk3+&D&31-5V8Z'
2KVE,TL#e4mQJm&!fY-YK#'#T3&jk8CPZ&(**jFG5iC(9NVB,!3B)L"@-333$#+%
3'M#!0Jl4JL+)5A8U!#Y1!m!!`B(M8Ycm*K@Hm+`5GLp9Uh)DV*!!Z5B$r,+C%G`
906NlN!"J$DYBP"+JXJMiV'K0UeVY1YAQkZB2(kcVA`lMJEI!*9CG!-!-q!TT1Hh
QKC!!$5mVU4#'"clJ-!'ic9emSeR-k[B20D!YEMci"a#'q`mZ6!S!K1-QiK6(1-H
CMR+@`jcQ11Fjd)N1!+5cA3NZT`DrAN*ejP!G1'bA!Y9K`hBU8*dcE!FlIIb$',C
6JZTd-E[D5FjeZ01GJ9A"21!*MhM'3jlb#YK+%hi[I#NXhrR5Yli'`M"q&V5I$6Q
S3`Abd)FF(ZFVTl6!"Mi`JK1X)2d38%-0F[$&)"3K!dMBiHkG%-6M%c%,5lbU%cr
3JM6-B2j`b,mVl6#e(i3#!Ge#%)-J4#%!B%J)lN'&"H3e)"`!3&N!J)8K0-%S!k%
K)!,b1)+-1Ff"50[M#,#C-@-J!5K4#8YF!JF'b'3L0,%*S3(m-!!!:
+ Organization: University of Waikato, Hamilton, New Zealand
--
Lawrence DOliveiro - via FidoNet node 1:105/14
UUCP: ...!{uunet!glacier, ..reed.bitnet}!busker!226!20!Lawrence.DOliveiro
INTERNET: Lawrence.DOliveiro@f20.n226.z1.FIDONET.ORGLawrence.DOliveiro@f20.n226.z1.FIDONET.ORG (Lawrence DOliveiro) (12/28/90)
Reply-To: ldo@waikato.ac.nz
Here are a couple of XCMDs I wrote a very long time ago. SaveScrap
saves the scrap in a resource whose type and ID you specify, in the current
stack, while RestoreScrap restores the scrap from such a resource.
Rather than try to provide proper documentation on how to use the
things, I've enclosed the source, in TML Pascal (pre-MPW). It's
not very long, and hopefully not too hard for others to figure out.
If anybody finds any problems, actual or potential, please let me know.
Lawrence D'Oliveiro fone: +64-71-562-889
Computer Services Dept fax: +64-71-384-066
University of Waikato electric mail: ldo@waikato.ac.nz
Hamilton, New Zealand 37^ 47' 26" S, 175^ 19' 7" E, GMT+13:00
--------------------------------------------------------------------------------
(This file must be converted with BinHex 4.0)
:%%K$8f0bBA"9G'PXFbjcDA3!8dP8)90*9#%!!!!!&I)!!!!!h"T6593K!!-!!"A
bFNaKG3&-!!!!&J!T!J)08f&fC90MFQ&`,P"KFh*YEfjj!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!'b!!!!!!!!!!!9%9B9%e38b!"!*i44l+I!X*
M!!!"IJ!!#2`!!!%R!!!&'i4HZmS!!!!!!!"Zl!!!"!JSN!!*3B-"CB"`mBqG!%$
r)[S$!F5*&bGe8!""%8")'hikK*ck`32!'#4k'N`*BkI-P$&b`X"a!5A-(!%%U46
"3U8*P#NJ"J)!0$5J6TiqJ3SP5T5JdkG2288i)LXJ!Ri"!rMj%H!&JP4'3$`4FXC
V+PX`2RMM0j!!E#SF8)"K&%N53"'4,hK%M*L+$iJ2CmLp!#!5*3!*U5+P'Z3@aea
!'!03##J!43ZRR[i&'LM!fB*rrA!#'#6XFcm$!3FC-kdJY6,6$P*l"LdKYE62"*%
!50$NMCX`Bpi!@"6!)(%Z!0S&f*!!2-#+jJD9)`q)'J'!NL3#G"23icU!l0YlI")
JE!a8U%)&%LaqN!#J$!!aa0%bJ$8J"`$[!5593P$"J(B4269$)Q!!815m15-R6"X
38m,B+60P6%%i1aVXD3#L)JJUD0,-!G(Q$CNkE-U!J#2`ijJb'm1!3*)(6KNj3m,
))3-#bj!!*N4!b%(jTSkFNb$S[!%a4k&)1QM+8,3iaZG10h4!M(N$Y3c8M@r-"%d
+BJLE0($%[*&*-da+R6ap!Vf6"ZP@T4C"R%Qcd%h3PL,$Z+'C*'FDZdK&0TAc01S
F1Q('V(&4-BP@P6[Rp2`*ef)B0M[$N!$*!k)-(Sed0V*e'jLS`D0i3HMP5i3&L,D
[0j)T%j*1'6)ZPPD-bBE0fjShFjS4H*!!T8ZBC&9[021QpjXlFh3dD*!!S1M#KJr
4cU'#ehAN[Y2MAT(6eVCG-CbCK,Rc&#L4%dqq,N`M%%5-($K`J&#LYij-cM(-N!"
EA1SGaT&(DCL4aQhfiDHI%L!"5%0ZI8K%`K!JR'!66LIB*i0q*b4dR80K`0(K$$*
8Z!F*5'4S8aYN)&''CLqGS#)*9,JBR)hK@96&(#K4ed4L58"P"J[8'II5Lf4%T"X
)!EeadNFlAC48P'-m@4%+e%%KNd&3d#%(#$S!"f1BFQJ*3JS4a9A4(UU03BGr[Nd
e'`M-M9RDKN3`9L&e9XK%A9`BP5%&5Ybj4#B)Kfk(9d3*%*T8ShdY@U4YCl`%UD3
-N3M(SP"J9q)8FjTKaUB@A@(@%fi3SG%DL`Va4R-cZS&U4B8f1KP3C5+a@NLhJP!
%BBXq-F@`FMLC!*Dhq565%@A3d@LLC35a9eqS`TPT9*(YLTULUi(3Pjr64@T4S'N
QN!!!T853!%UH'fFXkUi-0G5JE%9#P$'A'i0D*!3E8Ul4a"X,SH"P3@fJkB8,"aX
daaBaG1'&Dd$NLQKh)0$!CVm9DI(5'e5miH8F"RqCX*LZ0Abb(!ZVr,!-%V['VVY
rRE'aZEK1LP+P1[5!N!#B)6Y44aXP)ibQc$Zh+fE0+I4Ea&iJl!'YY"HlC#dCII@
K,,08LR6SR(+iJH`Ek@l*XE#%N@eT9CQ@[@DfD)&YedX#MHR'd'+mT*aU4#d0,lP
RSdYG!Q2,361mmST*VlhPiU[[AfF,h8E)Kjq"3Z'Z&9ljcA'TV,!,Ar[N4U"Xe#&
5ce#D&E,(!K80*XTSelfjde$[%AVBK@[GBecjlKYeS9K@Q-$8dq*e0ECU`QR9(-k
#i-C3(m(ae4KKf+DGYaX*El&NDThZmp3ak0Sp#YY6kpVfIGhXQ*@'TN8C#$ci!))
6DIJ@',mi-pV'3Z*64Vl1h+2-c3SPUNqKVNM-+5#NN!"&*Tmji3h)JT5UjX!U9md
"9UJMS+F@9N"598mN2S-"T0Bh`3UqkLhiL`X$8FH%XC!!3B(8@4m$(3K"BYf[Alf
$A2kfjkd'XUq!(258VrB#V,1Yd'G$*%2)N[LrpJA`**bcL!b*48-'hM"rMY[Ai)*
!"M,dlb40r')CcJG!ml'2ADij`3PZ4MKLSDj4KB08!UBiTLVD-#Ri-eF1maLA+85
V88'JJjK)aX2ZZ8B)EAQ#(&"!2*3%FT!!BA3I&*%f"bMi*&0K%%0)8X$'Z&3"$Q6
iB+1-8,mbS'!)2KPP+6YTN5-b#L9a(&aFN!"J56PN+T*2,%26e&@4Tj&KF,3"NL`
YBN%i['%153`*,Vfe5cF*UhD1%9i[S@N'hFe4+`b-hraUU#FmRZefBN[E)T'P2Uf
8X&8R[+)+hHLc+VJ"B*STS*TmqEXV#@3-ZQ[!(U-QSNipT%*[!X&(fY!'cV3K$(r
jLKY%8L&klU'I"Ha$EJ!#!K"5CA0dEh*P8f0bBA!Z8'&cERN!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!"B!!!jL!!!!!!!!!!"849K869"6)!%!RK&(XTm
"G`J!!!&q!!!,,`!!!5S!!!B!'GD!H`!!!!!!!2S3!!!%##L3!!P"J`&PJ($aMjd
!32mLqJ-"a)NA*h93!%%43%JEIMU%R2V"!m!B*(SJ5#NcKmiE1@@QM*%6"Si,+'(
QK"&!N!"+%5a8QN#C!Q*J3*p!K4)ebJJ!%)*3SdVe&1')V)!,AJ3-i1G(J"F)8KN
"m86)'E#TE-(ii)hI3,1TF%!"KP%N53"&4,lJ%6&L+MiJ2T`KTe8N5J!58N9+03J
ZMVU!-!DJ%&!!LKC32Id,0&#!X`Arq[%%-%JBk(i'!JibGPU"DQ@R(DMq(&U#DQQ
J#5)"N!#Jb4XhBFDm!3!$5###3&43lT!!64q!$YTi3RF0hACU"!#J!#MD68#2l0X
$G1ra+F!Gl&+M'K9)-!"#!1pP!)JKMYB",33j!*!!$d#T&))+$0"14&(0N!!)$&$
N[$NM*d`E%&,+c+(c4NkC+@-+`YR4B%m$%"K"8%'6CJk)0Qr)e'&6"J3FJ5,(+!3
4"J552($+b"N54JiC%&L'0#%#`Z'F0hANU!6"X+G#KJk*SLPc-H1BS!lGd!%ajSh
8-P)p[M'MY1330QRJL(P6mkBCJ3GEqJ3UY15G0(63G!9a*SdGV%dadS&C-SbEQdP
iTR%cpkQFU&-AKKQcaJ9'QQcBJ)!,iZbEJbpMcLc,FNlHbQmL[lNc4dH$"JPm)Rd
B-3`FSh1Sm'8"1r$TM##Zb)&,"bX)-AP!-!Pc*qT3)LHHJ,fE4L#)'$P`i!#Ka'q
GQX&Mc($aHIM#Mb(6Q%P6jLCdkG4(CYrHS%p&%N0!R-Ljmm4c'6RN*ecBN!#e42X
cb1$H(L3J)9p1EC!!J83CBC!!)G-*!j*!aB%k)HIHCeA-S4"U65b@K&4QX)"DCM)
K5!C&R`AdKNSL*E94'5U1m4P'++!'48d'38'((#$SJ0-3#HSSai`JT%!4EKMY`G)
BG&`R@981JXCMA#A44i4M&bCJ48fSiIELIV,&e#0##S9C"N8*H,R8IS'0q@&[CmL
%TTTPl-I@8$iLi4FC*-fCdCF+h9N'%eLG%GHB6&KeaTYqBP6%B@-q-F@MFU#B3)c
P"9A5%@A3!C&%GJDPNTp+aNQ(4e6#*LK99Y%4aQ#$R6(A(+h"JH9TD@D%DBZEGJS
QAd(m&9LM'CADUDULPV5AQ(Z#%0LYU'R*C3+jBX3Q%92X'1ZBfFSK3`de@)SN#%+
88CFEd3V"aSTV02('A5MF@&!E3RVKJV`'cE&&$&ei34X3J-Bf'`Jd'"QY&M+p3F8
E0mi4,ildlNJE[K(,B5r&qXV3,fhAGKZV`G3'h+B12B$3lF*1e0('`r-+bE&#JAR
XaKNTG)PN%Aq"X!HRG2`D8l"N"0D(Z15D1jM12(rU@UKYZ9FY#$clA!E3`pU-8F#
VNJbeVi%QLd,!CY)Q-K%ejiVc66YhUM3F6+Xd0+klDNSQI`kpZ$DT5cBC4Q6"UGE
IV,9@KTC'DhEG&V42QaQYQ8+#8,)ANTU*CJ*6T+%(M$Xk$S)ALFl-++kiE6NNY@Z
lE(+Y6jKKKSC6qGMjSP*0[P&(CNBkKH5,Fc4(jCFMUZMRe"*K98Nq#[&'D!bk3A5
jjeVYNK--"aAReiArP#c)Z+fGqZV(DJd$XC6f@$,#!YhY[2"Z%&pbq$ci!!,dP"*
l"8FNJH$''e1KAa)CEcL2%I1$L9B5Z+)peE%1"1l$@V))0E0$Y3!%dk%5ZUL&'rf
*6b0bU-1C"-L9qq9[H&fCB+i!+%,F)#&4M+&HR3bR%T!!2DedQG2D%fa#!a@fV3a
HF+'DD-HA#c*Z4bL!)Bp@F$U*E)pe+I$#j(Di1mZTcf41&&)3Dp8i)KD3!(Y6)@,
"P"JYh)42De#SJkGU4Ef1m+i-BY0Gf%!J45'#`)US-q#aL)L$&1J`)dLSJK[@P8)
&YZ@1'"NJ#0MR2[K"5S,45S!&Y8D&$$+&JS2-f4i'q$CU#G+$),!J)L'*N5XH8'Z
HR#2Kc1M%0d,3P$-N!`UH3!C9cUk*Pl1Mrb+*Y[QPJ5590'%Bj6!p2lE3CQI6fAj
@BlGD[Fe'!Q'4h",5*$QiJ9)0X9Q0RJC0([RS6HD5LFf`Tc1M0*-`-K%)Mk$8&iq
dC#'lQ4RL3MHY"&46CV,b8EHq&5l3&Dej6dYC'aB'6a48NcE[e0E-Z)N4LYA,"F`
-LKZfa!B0AV"K#b2I'eL@)iN0mM!0J@IC(#A*K$UcQXFF&`PepU)B15eTYESKQJ6
Tbj+dlhfh$+(051LmPM,38(,4'Xrdp"H5R0'',#`$3HG'c+@BlfQ#R%)H&P+'0K5
"$(""`3ad0S3h`#%2I8K"#,[j%a!dB54d5)-4"Z-J(RN`$5T"&4V#N!#B`+h9)f0
Bkmc+!`+RM8Y*Gd$$m@*5NPaQ4*!!K(cI'm+hb34ip*NBPB-r$l04@U+Q$'c3N!$
c$PY0&2J%HR3`!P$q8V0a"A-2*8hQ-8HkKf(fCfhZ54))40+'0J5R$DrDif$kfS$
2QYBKU181!J!@8f&fC90MFQ&`,e*PFh4[FQ96Bh*KF!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!E)!!!!!!!!!!!!!!!!FR0bBe*6483!!+1K,l+MS5qr!!!+,`!
!!!!!!!FJ!!!!!"Zl!!!!!!!!!!")+3!!"!J)))'fJ!J1"U`5F)!4#8I+c+%6KJd
G+K,TJ$$bKJfC-R+-$#4i)+#&+@(XP*Nb4NiB1#qNC(`MCfA,Pf8%%*3c4mkBJ$a
p5TP5K!M"SdL6*Kd9kS@XT!THF23)FQ6!NJ!'0!(9#KDU8C-U,8(U!i!$!2S#L"S
**1$!IrMqY90+Yqj4#J3G1N!5aJdC0L!hG[`BdLS!$!fGG+V&33AB5P53!"B"N!!
'3$m"*D`5!1!N,DSVFY,3S92'$3JaH8!`#A1RTTXaC8!3UID%64U9DH5mB3&Lb*X
Continued in next message ...
--
Lawrence DOliveiro - via FidoNet node 1:105/14
UUCP: ...!{uunet!glacier, ..reed.bitnet}!busker!226!20!Lawrence.DOliveiro
INTERNET: Lawrence.DOliveiro@f20.n226.z1.FIDONET.ORG