File SNOBOL.SV (save files (Executable program)

Directory of image this file is from
This file as a plain text file

?>2CBLIHXLLLCD;D3XT 83LWLTHR>7LUDTT+LCLTF$3CE\3L;HED XGL38RD X7LKLEF0?CWL0R"B"B&*G P>G>G:P:Q:R:S2B"GHG?&2C.?D\3[ 2LJ=[^2AN<8H2I>X+Q2B"G(HW<B2B"GFHK>B(P2B"GHHW<B2K/"X"XRP"X"X"X"XPP"0HPPH!0!0CPCACLACSCNCOCBCOCLBCLCOCOCKCUCPACECNCTCECRACICCCLCOCSCEBCOCCCLCOC
CEBCPCUCSCHCJDCPCOCPCJBCECXCICTDCECNCDHCPCUCSCHPCPCOCPP?=COCUCTCPCUCTCICNCPCUCTCOCUCTCHCOCLCRCECACDCWCRCICTCECWCRCICTCECHCPCOCSCR?==7P=6H=3P= P=
N=XF=WD=VC=UA=TR=QB=FQ=EO=CM=DL<"S<!J=SBMBJB/B/B7BMBJBMBJCDCCCAB BMBJCTCACDB BMBJCTCACDB CXCSCUCCCCCECSBMBJCSCAB CCCLCABMBJ2/;S3O?B/L" ".&2"M*J7JOM* CI3X;II7T2J	XN7D.JCX6M"J3VWLN*M3X?TP*MBJ7JOM* CICX3AOSBMBJ7ISNBMBJ.-B4"060BJB0B;7JCM* CI.(Z7"060BJ7XKOC*M7
GEC*M3CGM2 GIC*M3C3L2 GRL*M3C3L2 GRL*M3C3L2 GRL*M3XWFN7CBJ7JCM* ...,BIBMBJ^7CBJ7JCMB 7JCM* CI*(Z..7B6.0J+"0602JGPG7E6JCX"=6.BJ3X3FCCB;7JOM* CI3XGPT*M7JOM* CI3X;I3DORBMBJ6MBJ3AWG"M*J+X20BMBJ6J[X3L;E*=6.X60BJBJ6,"ICX".*M"M*J3FWI+LCD"1*M2*[X3I3ED616J"J3ISNB=
M"JCX"M*J3X?T+P:="M*J*$R$&M*J3USN3E	F3NSE2 SA3DWR3SWS+SB:B B 3M;ACYCNCO6 KE7RKO3SR 3EWT3CWTD*MBJ7TE+T:IC^B 3L;I7ER +OCO3L;OCG7OSU7PSU2 	F+LCE3F3UCL7OSU7PSU6 KE7RKO7I[N3A	L3D: 3UKMCECR3I3L3EGG3LF 7RWG3M;E7TR 3YWP3PWR2-GM7TKU3EV COCF3N7A+ECS7M	A2 ?N3TJ 3E	G
N^ 3IT* CX+OCRB.3I3L3EGG3L2 3IWT3R3A2 GV3LWU3I3L3EGG3LN 7HKA7ASCCECR3LKA+ECL7M	A2 ?N3TJ 3E& 3N	D3ROECT3M3U7TCI+LCY3D[E3IWN3D2 3AWBCL3I3L3EGG3LR 3E	L7MSICECR7UKN3E?C3G	N3ZSE2 ?C3MGMCNCD3M
A7NSI3UWD2 [O6 KA3G7U7ESN6 OI2 ?T3O2 3A
RCE3A
R3UWM+NCT7M	A2 ?N3TZ 3O3L+OCW+ACN7EWQCACL+OCR7MOU3TJ 7EB 3ROE3ESE+ECD3ASN2 ?F3L?L3WSE6 	B* CA3N7ACE3O3N3Y> +NCE3TGR3N[S+ECR+ICS3L
ECACL3T?O2 WF3WF 7RWG3M;ECTCS3S7A7ER 3R;A3SWF3RN 3OSN3I	TCOCN+NCO3LKA7EOL2 WD3F;I+ECD7FKO2 ;I7ESC2 GT3BWL3C;A3TV 3NWT3R> 7UCT+UCT3F3ICE3G;E2 GV3R> 7VKE3F?LCWA^:H+X[%SYSTEMEGHJB B0C?< ???>?=?<?;?:?9?8?6=6=PQ1Q0$)S	E$Y,,K	 B(6.<$L.Z)FR)X$%(TB(D$	,$??&/%	&V)
&%G+(&!% &H;2A2J%5H2J%%ESNK?X)IXX*K>8AZ%2IO=YDO<YEO;YFO:YGK9Z+O8X.H.<(+2A2J%%A<BH.2J%%CAD/72IJ%X,J+X-H-
6J,9X
5K4X;AX$K3
2K3XZ2A2J%%IH.>(/12IK0%<O/<(+%XXHXAIIM
.HX8J8HXXK-XIHXC,%^K+XIHX8J8J8HC*%^K+%>K)%</1*S]OR]
R R%>6SSDQ9]WFQ=Q<"	>AD>D>C>B>A4>O2AK?XIK>XX\IPX*E2IK=XIK<XX\IPX*MK;X%K:XLK9X9;AX:IHX]P*<H/8L)<(/88J8JANK7
6K58AZ-L)2A2J%5A<BJ-X+2IP)L)
4P); X2X6X\X[O3X^%$K2X&%0HP> /1M\> /9;$HR<(/0IV<(*6IQ<(*ZIX<(//IR> /.H6> +^P6H^8 X^H^>(*>P\HLXXIL\X*>TE/TY0%UN,"MN!PM"ESR]Q:0Q;;?]BFP
>1?!Q>?47HRK?> *MH/>(/>
=I]%=K<%8/;H^> /:M\K9> /8%3K7XT; XUI]%1/6%-<BX&H&C5> *9P\K4%;%(H&8J>X/3HRK2> /1%0HP> />M\>(/1%(P\/3H&C0> +EH&C/> /.K-%;P\*7XPHR<(+MK2> /,; XW%"/+I[=H/*IX=/)IJXXHP9D9D9DHXXP+N8J+%: [WOVSVC3ZBJBC)HHA"G"TTOHNBA" ?0NQS9O"VNHP=RPOD>B,Q7"E?.IJIMX8HPK??/>HPPW8!X
; 
=/<
=/;;AX&X0HRK:>(/9X[K8%;IP%7HRIY> *K7%;*$%.%(;UH\X\;&HR<(/6IW<(*5K5<(/4K5> /3;AX&%0HP> /2M\> /1+CHRK0>(//;$HR<(/.IQ<(/6IU<(-,IQ<(-,K5<(/-IQ<(/4K5<(*5IQ>(/,/3]6HQ/ FN>?HQ9DXQH 8DX /!I,XLIUN!JSPMJD?2J"E"TJY?=JTGU5LC?3NQNNR]"X>P\P[%(/?P0<H/>M\>(/=P\P[K<%;%0M\
(/=*P0<H/>K;%;* P0<H/>K:%;; X0P[P\/9P0<H/>P[P[P\P\K8X&%0K7%;%2HRK6<(+Q8A> /5;AX&%0HRK6> /5HP<(+]9F8DXT;&XUHT8F8DXTHT8DAIIM%7PU+FK4%;H4> %.O3>(/2K1%?%.* %&K0%:K/%=%.O.%7K-%;;GH\X\+S<(+TUMR0R)T-RNLROTM"T?=U1PH5T
UATY"\"ZH?IM%7/?%2;AXS%0K>XMIXX(HR<(*%IQ>(*%HP> /=K<%;IP%7%.K;%?%.K:%;;AX[;GH\X\/9%0HP> +HM\>(*?%&HS> *2K8%:P\K7%=P\O6P(<H/5\MO6
4K3%?P\HR<(+FIQ> +X;AXS*$
4K3%?K2%7P\P\HS> +TK1%7HP%6%.*?K0%;K/%;K;%?%.P\P\IJH(<(/.8!X(K>XMK-%;/,NUGNQTCS9B-B(R3R8"+R0R)T%H;T
RNU5"ERFK[H(8!8A%6%.P\LM%7K?%;P\P(*F*Q;EX&%0;$HR<(/>IV<(-,IQ<(-,IW<(*NIQ> /=P2/<%"/;XSHSK:<(*?K9<(*1K8> /7K6K5
4;EX&%0HRIV> /=K3%?P\P\+XSK2X&%0M\>(/1HRIT> /=K0%;%(H4>(+VHS> //K?%;+VP\P\%"-,XTHTK.<(/-K8>(/-HTX8*N+,K"5K$[$S0+T2JP<:"PUU" LR;SJCZ?4"M?3?"=X"G"^"TPMUMHS<(/?8!HT>(/>%"/=K<> /;/:%!-,H6>(*]K9%8H\8!XTK8%8PT*WK7%=I]%?K6HL>(*/IL%7O5%7%"-,IZ<(*/K4%7*	K7%?-,./;X
"PX!2B%=FA)*&J!2C%<Z!J![%)9P.
"PX!2B%=AA</*&H!2C/K:RH 9HJ];J!]::Q2AE92I8H?X-:-89P+UBSZ 2KN 2K/K<[42AM92I8J>X/)2B%=BJQ>/!R&C^B/N?"T=X"G"""^;K?H]H\?H*NK>%<P>H>%+K=%<X]H\H]X]H^> *YK<%)	;K:%>; X3;&]B;&]CO9<(*9XT%-*9XUHUAP> *-HU%)*HUIP>(+GK8%)K7%)HUIP%+*P3*>O6< *"O9% 
9YCO6% 
6YB/5H[%+*KB9XKA?\!\8!KC> +XL"A+KB\!P$+GL	-*EPL"9F8F8FA)I(/\EIA)<(-	X*H*I&X"H*I%X!H*I$X(L!/$&YD6RWCLCXRXR&$QB/U-UY>B;.BX4X1X5XPXRX/IXXVI]XII]XOIXXX\OPX*QK?XN%"+2XWHWK><(/=IU>(/=HWLN>(+WLN> * HR>(*-HWX8+*H/> +RM\> +KHWI[=H+GIY=+GIKXXH^> +KIYXTHPPT+AHXXP*T;
P> /<PVHV?*THW\I*TK;XRHWX8+*LNXRHW
:HPH/M\> +&HRK9> +&XR*THRK9>(*THP> *AM\P/>(*/8K7XR*A"HLIX?0Q>P"CV=^O;H/M\> /?H&C>>(/=HW8!XV%"/<XTHTHV> HTAIXQ; X/;UHZX
; \ZHZXJ; \J\JH
XNHTP5***0%"/<XTHTHV>(*1HT\N*&\N\NK;HQXWLW<(+F8AXT; XUH
%1+[; H XULUIP]\+"; H
XX; \XP
; H
\WP=H=IP]\H=\J;&\N;AHNXZ+"; HTXW;$\WPW+LH5>(/:K9XR/8P4%3M\K7/6:PH!8!H&>8+<H!X&;$XQ<(TTPTAQ?"G"EAUR;$H&>(/?M\K><(/=XXH^> +KHXK<<(/;K:<(/9K8=H/7K6?/7
5K4XTXUI]%1*!+B;AHZXKHKX
; \Z; \
\KI]XILI<(+PXXHXI[=H/7IY=H*>IW=H/7K6?/7;HX\K*-HRK<> /3H&K2> /3/9HRK<> /3*L\KHRK<>(+^H4> +\H&C1> +&K0//H&K2> /.P1H4> /-H4> +\K,//^$RY"P"TZRZD?-TAOPQ7?&"MW"I?(W(?.\Z=R"EXWLW<(*YXTXUI]%1*MH1> /?+ZH&C>> +O; HTXW;$\WPW;A*H&C>> +O;AH
XX; \X;EH
\W;&\K;AHKXZH&C>> +ZH1>(+ZO=<(+ZXTXUI]%1+Z%-*<+EO=8!H > +JO=% 
=+ZP?%9%-+J+FP?; %9X?+ZK=XWO=<(*]XTXUI]%1*Q+ZH4>(/<K;%:I]%=P=H=IP
:K9%=;UH\X\H&C>>(+0Q+1QA/8=HB<B?+4<\R)R0U?TAR[D"RH&C?> *LO>]\K=
<IM
;
:/9K8]\IL
<O>
;K7
:K6
5O>
4
3/9O<K2> *<H^> /9K<XIXTLI<(*5I[=H*<IX=*<IJXXHT9F8DHXXT*$HT>(/1; X5
</0;H&K/> /./9H.>(/-K,%<O+<(+PXT%*+PK*%<+KK)%<K(XIIXXVLI<(/	XT/&H\A,H]X\LHX,]\H]8 ^^TQ>VSUMRZVI Y"I?-VQ"K<?Q7Q6Q5BJBMCITAQ4Q3Q2B,R0H%-*TXUK?%)K>%)HU%+K=%<HU%+K<%>%-*T>(**OPV/;K:%<IIA>(**K9%<I>(*%O8<(/7	6IA>(**O5	6IM%)K4XIIXXVLI<(/3XT%-/3XUK2%<HU%+K1%)]\
0I]XJ;&XU%-<B<(+^PU+\XWHW8F8FAOM\%+K<%>HW8J8J8HAOO0%+K<%>*=\J+CM\%+K<%>O0%+K<%>; %+K<%>*451LS;WSNQ2B,V9 Q>RZ!G"$RYV!V%]VR&V]CLCXPV/?K>%<O=8!XT%)O=HT>(*GH-8!O=ZVO<2A2J%5DAD/;2I%/O:<(*0XTK9%4%-*/<(*&%	* %-*/XUK8%	IL%	HU*$%/%/O7<(+BK6?*?K5XI
4O7%^K5%
+DK3%4+DK2%4K1%4+%XTHTXUK0%<%*/GHUXTK/%<%*/GK.%>%-/G; HT+H;K-X%K,XLK+/*K)%42A/<0S03XA"-W7P
>1R&V!W/W!W
W[RQRN>\R\B,WKR[">Q<V=^02IK?*-K>*-K=*-K<*-K;*-K:*-;K9*-K8*-K7*-K6*-K5*-K4*-K3*-K2*-K1*-K0*-K/*-K.%4/-2IK,%4/+;K*W)XU%/HLXOHLK(> \OK	%
H<IQ8!XTHLXVHVK(>(+E%!HV%
%/H;HT>(+MIL%	+FK&%4HU%4%/-,XOLO<(/S%	+U%-/Z<(+!%)+[SZ/Z$]?7PAW5P
/!R\]KB\;D6\\S\G[5[W[AZ)Z[ZOY?Y-Y!YQX;X1X!XWXMI]XNK?XOIXXXLN\OPX*G.I]%?%..LK>%>K>XLK=X%.QK<HL>(.Y%".YIZ> *^X8.YK;%?.%XOXNHOIY=H*2PN*-IKXOHN<(*=IM\IHOIM\I.)IL*8O%+E%	+AZ.?O%+M%7+IZ/GXXH9X!H:X"HXX9;AX:/OH!X9H"X:/ZXOLO<(/ %)+"XXK:X	IBX HX%9H YB/	;$RO**+8RC>R
2KRWR&/!>1P
RN	?%*F%8*B	>.XOK=X	IBX LO<(*S%9*NH YB.HXXK<X	ICX HX%9H YC.VXOK<X	ICX LO<(*,%9*	H YC.!XUITXTK=X	IBX HU8F8DXUHU8DAIIM%9PT*7H YB./<(/EXX;ELX<(+T8A>(+]; \XPX+I; \XPXLXXY; \XHY+H; \X/E0Y/ 0\K;> / 0ZK:%42A/9I\XNI]XOIXXXLN\OPX+3/,	B>UQ==RXRW%Z%OK?%
.ZJXIHTX "$*NRD.D;ULT>(.D; HTXT%-.D> *U; HUXXPX*
*F%-.D;*\%-.$<(*2XXLI<(.$8!HX> .$*%LI>(R$.$P=H=IP
>K=%:K<%:I]%=K;%:P\P\.6[WIT[VKW9F8D[WKW8DAIIM%)SV+J/F;ULT<(/XPTIQ<(+$IRSX/XLTXT+Y[6H <(	:	9X ;AK6<(/8IQ\ P /	PP*+A*GR	S?S9R0R&H?>(*EH % ;&/?O>[$IU[	;A[%K$8!HZ>(*&K%O$S$<(*]8A>(*J;E*M;$K%>(*$S	*N*	S$*J"3K	IH8!K$XXH > *1HX\	HX.G; HZXHIXXX; \HPX*9HZIJXZ.3[&;
K&8!HZ?(+!H?> +Z;EK&XX;ALX>(+";$
&S&"G
&O&/A;EO&> +"S&O&+B"3K&/A	=%+.%)+*	</("X"XRP"X"X"X"XPP"0HP%Z%OQ9)3H8<(*IXXRX8HX.; *NJKZX7H9K?>(+R;&H:> +I;$H9XOLOAO9J8JXXLOAO9F8F8DHXXXP9;AX:P7+EHX<(*IIZ=H*?IS=H*I<(+&K><(+2IR<(+2K=>(*I;HXP%<H/<\LHX< R.L9ANXXP:;$H:>(P9*)O;W;? +2I%X9O:[
W:2A$+BHB+/2IH7> *I*N;K9XX\LK8X%K7XL+E2I?+"K6X9.? FP
>1BJQ:Q;!\>[?5:XXH.>(.K?H> *[K>X;AX$O=ZUW=W=2A$,$HF/<2IW;*[/:;&H$> *3; HXYHX8F8FAOLY\YHX8J8J8HAOL\;AX$P.HXAN\P$;$H$>(P.[	%$H;>(+SK	K9<(X;K8>(+LK	Z.<ILZH;AI> +L.<K	IZ>(+BK7%)+B0&K6= P;K5%)H;< X<0!+$/Z/K<[42AM92I8J>X/)2B%=BZ=&B/D=3!Q="Q<F2

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search