Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!snorkelwacker.mit.edu!mit-eddie!uw-beaver!zephyr.ens.tek.com!tektronix!reed!glacier!busker!f20.n226.z1.FIDONET.ORG!Lawrence.DOliveiro From: Lawrence.DOliveiro@f20.n226.z1.FIDONET.ORG (Lawrence DOliveiro) Newsgroups: comp.sys.mac.hypercard Subject: Saving/restoring scrap in HyperCard Message-ID: <585.2783DE98@busker.fidonet.org> Date: 28 Dec 90 12:24:44 GMT Sender: ufgate@busker.fidonet.org (newsout1.26) Organization: FidoNet node 1:226/20 - cmhGate UF Gateway, Columbus OH Lines: 110 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