File RALGOL.SV (save files (Executable program)

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

?:2CBKH CH(KHB,E8CH0D[DK,/H"8KH[<WE2<IH!DSD2<AH"HSHS,WN4/<DW\SH<<(HWX0H0,!]:+XM3<.2$5L>P(L,?L/8KEBL?DS 1H/<GH(1L.<;D? 1\4P%L<KL81 XKDK(HLJ8OH2\J=DHLE(JLC F! KL>$(AT[K?1TKX(1LJ0
HKH;L0 J
(:L8$
DJ<9L8XXDX 5*T<F*APA$AFG*A*CAAMI78C&	\]*[+(PI= LBSC6BU2A??<KJOCVBB2B7B<CITVE!B&B*B.N7BYBURQC"K%RLDJPW-3B
FHOHDQN2G2OVO[G(REF&GDGLODS6RHC3O%O&MBJ%BSO5-8G"K,H-E	DPC]G5S.T
J.BRKPKYLRL]G.P7MJL!K]L LL"S0L>QMQZQYQ"OMQ3JGPU*FHVC?.2ALH2IXV: XUHV8J8J8JC?."\Z("K>ZX<B8F8F8FC=.Y$:XA$:XYHA$9*UK<I.&K;I.*K<"<..N2R2"<.2N7R7I.7K:XI(HZXJLI\JLI\JLI\J.<K:XIPZLZ\IPZLZ\IPZLZ\I/IK:Z2J29DJ2/V$4$3HP$8*U$:X0$:X/8 -0;&HZXZ	9/(H%?H	8/.$\?H8 \W*U9]E
??-=$?-?$4<(.K?=HK>K=$9*A$:XY",
.N$4X&HH8AXA: $>XH$>XC8 HSXI$4\IHA\IHR\IHQ\IHT\IHSXRHCHRXS-	<$48!H&> 	;H&>(+^K:H&$3HRXBH&8!XC$:XD$4XAHA8!HD>(+WHAHDK9> 	;8 HA> +T$:X$	8+V$;	7$=HB$8;&HBXBPC*>HZXQ,
PZPZPZLZ/!$:=XX?H0L,
HS9!HZ>P	;0Y/-$2/-KT-[?=CJFBB A? T4	?HSXT\SPS.B: $>XH,
XUJ%XH8AXXJXP\PHPXRHP2AO?2IXSJAXZ"BHZXQ0L0&0V0Z,
BA[B;AX$8ZX%X&$:XAHA<(/>=HSB=8![CKBK=Z;HZ8A<B8SC*9/>67RXD[[J[X[	<+SXD[[R[X[	;:HD8H:H[<X8!,]$:=HPD=H8!/[$:>(,
$\: ,^$4$?XA$4HA,]HRX%$>/:$:$\,^$4$3HP$7,
LZJ8M
	L$A>2C&D./P8DX[K>ZH[8D8FX[H[C=K<	;:R*J.E	:	;J$<(*^J".VJ	;:*\BMBJ=3HX> *+	:.%"V.%$<$;	9XA8 $:> +GH%SHA	88HA	78	6-=H%=H: PD8!?8 ,^H&S;VHAXAH&LA\AO58!LA+B?H8 XD$\> /SX$X%X&/SO^S^<(/^	;:+
HRXIHRXSLIXALIXRLIXQLIXT/&,-?9O;R8O.N>QCB0G?<J:K?	>:J	=0Z	<BMBJC^"O*M>0Y.O0\K;<(/2K:<(*G8A<(*K9> .O0Z2C.P0Z,
$>XA$:> ,
8 HAXH,
$:8!$\<(,^8D:A<X: ,^ZON8R89![TK8X*+IJO8DZOJOKT<XZO:H[8DX[P*+AJO.8	7	6H$,^	6H$X&/T$\X$	5/4$<$:X$	5$=$5-=,
$\XY	3H*>(+	/4$:8!$\>(8 ,^FL2L$-[-MR?3O?==0I^HEQCB?ZHK?HZXWJHLW.H%<(*P8D:A<X: X&.HXU2ALHX$LHX%LH2IX&$=,
R	>*$8A8A8A"-HZXIH$\IH%\IH&\I,
K=Z78AHZZ8PZPZPZR.-89O67R:A"-"H*$R$4K<XALAXA$A*$$6AR	;&<A	:*$HZXILIX$LIX%LIX&8HIXW/R;[6K9[7O
[8S
+/K6<P+-9K88H[6H[8HX[S7+(K6/
?3)]*3:Y&:9]C.K?XA8 LAXOLO8!Z1LO8!XC$4HC> 	>LO8!$:XAPC<H*$LOX[LO8!$:Z
	=H[HAXA*UJ18 >(**HA9DHA8AHOXAR1R.$4$3HR$7,
PU82ALH2I.70Y*?$20^.>$:8!$\,^	<XUHAXH,
$48!XDLRHD>(/;	<+P";$HA$7,
$;"+"HA	:8,
H&\A,
8 XC.PC+,$7,
$8,
$4	9$4$3HA/.$\8 ,^&Z-$;RPEI&M
JB2C&D.0$48!XAHQXZLTHA>(,
"P*JHTXSPTLTXT.P$:9=H81X[$:XYK><X$9:"$,
$5P$H[K=?*0H[K<$9$;,$	;J\Z	:"$$:*,X.$;$:XY	9,
$20I*>0N.=0!+D0&/C0Q+I0V/HXU$;8 H&XHH%8!HR>(,
	8+R$4X&HHXAXU8 $:/!DWHHXB8 $:XH$:XY$5UXU	2$6UHBXH,
D"P,
>O10.?I&.C(J8B0?6B-J2C&D,
1M$\8!,^$\? 8 ,^$4$3HR$8,
$4XALT8!HA>(*!HA\SPSHT\S: HSXTPS$48!ZC$4$3K>HRX*$4[TKT\SHS\*PS$4\SLSPS8!XDHDXE8A[D$:XB$:XCHC8!HB8AX[	=H[[DHC\SPSPD<H+QKD\SPS*:KDX[	=HSH[XS	<RC<H,
L*XAK;H*X*HS\*HE9DK:XDLA\SPAPSPD+	+Q$:*HH8AXAXU2C,A$\>(8 ,^??CE-M
BJJH%P=HJJJJDNQCQHPJJJJ:XEJ\"(.PXEJ]"(:.V&&H?9$:XYJ&$9J	$9,
BMBJHYZ2HY=H&J^? &HE.(;N38J8J8J">N3">R3*5C;<(+KK:<(+MK9=HK8K7R.>R3.3K6RK5R+I0!+S0&	4:/RE8ERK?;>Z 32DF?;0\ 08RF?>4
X NCLI?>4
VH8ETDL>BJBMB A?>?"?>L7L=/40&0Z	?BMBJCRCOCGCACLCGCOCLCOCACDCECRB CICNB-	>K=XY0L;X
<;&HY>(	;O:K9
8O:XHK7O8XT\HPT*)K6XS	5	4K3> */: 
2	4	1<H/0K/<(/.K-<(*3K,<(+IK+<(/*K)<(/(			5	&	5XT	&:2AHS
%HT
$2I	?BMBJCECNCDCSB K
<HS/"JFFLA>A=$J%DF"AJ?$?3%P=S%Q^LH=E$L+B?%+!AF%YK2=PHVI^.:	?^	>XT	=X+	<H+K;<(*&K:<(*)K9<(*UK8> 	>	7*YS/6S8 HS\EHT	5/6	5<H	>HT\A/6HSXV*?HTXW	?^*6XT	=:HTXVHWXT*?KR> 	>XT	=	<	7	>*2	7<H	>XD\AHV\EHD>(/62ALDXCHV\D2IHCXD+F<42A\S2IPSHS8!J>(	>/SK4=H+(K3=+)K2S^/^K3
1/^	?^+,/+?<B:J?6=P$	 3$7AB?/=T%$$J$L"L	?.ZLHT9FHT9DJLXT*A	>J!<(K=J"<(*MJ<(*MJ$<(*MJ%<(*MJ&<(*M.L=3C?*>!A6BI8!XBK<XCK;XAPALAHB>(.	PC*.R	.	HTO:XEHT"	+BLE< R7.7LE.7	9H*>(+DH$	8H%	8H&	8/O /
7XT":HTW78!	8/6O5K4>(	3O5XA2C:A$A/Y:HTK+? 	3/$KP]OXSSH	OOQWJ6RD 3LHS2F^??-TP^.A=&=0<E&O9X<K<K<KH(BNJZMG	[JU^WJV^X,144J</<1  ?BB??FX??!!??EEB^!1>?MU"R%)RA?A
  
OP 
?XX?3LL3C<<C1)%?!BDHP!?D^DDNUD	\	[;$XH(?+J	ZPH)9DX)H(8DX(X!H%?+W	YP8H	/9]9&;.:)H"9!H%<P/49X%	3H!=+09HX%H&8HX&P$8H%X%/27"7%; X$<(X&X%	3H&9!X&<P8 +%P&2)=FKXB<JJZI*I.K(V(O(R(T&5)C*V&6*V&7)C&3(=&8&3)&2,B&1+?&2)&1+<&2)&1+9&2(=X.&1,E".+;F86;R7R49]9O=4--[4JCAP&3
=&9H$[X&:&5(=/FH%?+V&68A[]/PK]> &6/X&2,HF&2,K&3(=&8&1,N&;,Q&1,T&7(=&3)&0(=P$8&4)&1)C&8KXH$X$/]TW3B&1	.(=	3)CH%?H*P	7)C	1(=	.(=8AZ3	7(=	5	.)	0,)	2,&	0,	0)	2, 	0,]	0)	2,Z	0,W	/(=J3>(*/	4,E&2.)P)XH%=(/89F<(H$8!8A<(H&> +DX$X&X%.3H$ZX$	.(=	0,,	.)	7(=	3,,	1)	.(
	5	.)	/,5	0,2	/)	0,/	/(=	3,8	.)JX$	6	0)	/,;.3;R687R4J9O4=4-[;F=:AYH
	+UI7?=TVT6?9.HY4AYH
.AWET\??VK$MF^B8,J-LYDDXA;A?>VV1/B]+H9C[CF8C$*7BZ!=,??/C  AWKY V(I8BWET ^1E6SJ-UPVK$M?B:H$= +G:+VKX<(+U=/ZX$9H%=H8P8HX%P$+MH%X$/?5K=8H$X%X&KYX$	/[:58!XBHRXALAHB>(/$;VHAXALAXA+)$\XY	7,^TP$:XA$\A,^CBG;$
 [!H.> *KK"X0KQX/	RK[
WH%<(*<?*U	 
 H$? *\	
3MS!*UF	^10X$9ZX%X&H.> K!8!H0=8 KY=H:K[[F*2	]3MSF*0	\10FH$8!	D	E	EK!X	H.> +[!K[+	8:8/H$?(/F	]3M8 K![!+G1+N;..131=0>1
??G?0?987R;R69]FK!=: KXH/8!
]H0<(8 O]=/T[F+4KZ	PSF+2;&O 	PK!=/U8!	VH0>(*C;$+O/?(*UO/8 Z>H08 [2*N+R><H*SS2*MO/8!H0= ">:H.> *6$CEH	? ;V$B+K\X(;$Z>H	=H8!X&X%9	^H&+K]X(H%R>**+H->(/"$BM$BJ/"8![2H%X(H&X)	 8D[0	 K08D[0X"	!8DK0[0	 K08DS
+X: [
+S2+A.>>\?67%8/9//S/>O$$9;/$;/$$B0/+/!:H/8 [2S2<H*6$B*+7:+/: 
G8 Z>	HX*X$X&BX%[CP*XP*SC	53M	610	73J+1*LWG*
SKSK>H*K[CR>	A: Z>H+KD>(P*.H9FH9DKK*&HR>8!8!KC9!=H918 [C8DKEZ>SC*>.3M*;9]10<;	F67R;.JKDTX%H+K><(+[K?> +\Z>%H+K$9KI[K<XSP/P=F	0X+H+<(+&K/>(*A/%<ATP	8	910*W6;R;F:58/%1$A2<A=U?><(N&$&GJ.H9]9U?*<(NJ&$H&X)L"X&H$9!H	X$X	H%X"H(X%H"X(&%JJ^	J(^&.<B:);.<7R7V;ZZZJ&%
IX"H%<(.)?H&GH$=H8P8HX$<XP$8<P	?;$[>;Z8JX(X)K=H%X%H%<(H&>(+8+UH(9HX(H)8HX)	?H)JJ9!H&<(S>X8TH(J9!H%<P+4< +)S>+)8 X"X%HX&H)9DJJZJH(8DJZ;$[>P"+NJX%JJX&.)08/<(N	<H$X$[%X"H%>(X$"H(X)"H"X&K%X%H%8D?*]X!RP.	;.8 H$X$&"*X8/K=X	H)< *,X!.H)8HX)<P*69H"H&X"8DH%K%8H[%H"
HX"8HX!P	*+.X)H"<P+G9H&8HX"H)8HR+A9!X&8T/Q<]<(OR	<8!H$X$H(9!X(%H&X!K>Z+IKRZ*WH%H(>X/?K>X"+5H%8DX%H%H(<XX%:H&8DX&P"+-/%9]<?4?3=9<(N	W	>H(>(*WH%>(*SH$9!H	= *Y8!"\":H	X$/	?R.":"\*S8 X H(8D:H(8HX(H)8HX)8HX"P	8P *
.\H!9DX!H&8DX&H%8DX%./8 X H%8D:H%8HX%H&8HX&8HX!P$8P *=.:;/=<(OO	W&KOZ*D:)	>LG<B:,1H&9!X&8TH%9!X%/]H)9!X)8TH(9!X(/&9H"H!X!8DH)H&X&8DH(H%X%//<5;.:5H(JYZJ.LG[7NX[5L1[6:.K6\1K5^XK7\G,1X!.58//.<(&Y=44)((+*)]*3LHKTC.--[:J:J:JX"L"X	P"L"X(P"L"X).)<6H%<(H&<(H!>(+>
ZH%< +CH&> ?H*T+9<(OF")H	X$H)X&H(X%SF/F<(OR[FH$
FSFH%
FSFH&
FSR/R8!X%9H(H%<P++X%8 H!X!;H%.42TH[/JW[098>>(R2+/90H$X$&V*=X$*T&\&[;$XH(?*J&ZPH)9DX)H(8DX(X!H%?*W&YP8H	.9]9&;.:)H"9!H%<P.49X%&3H!=*09HX%H&8HX&P$8H%X%.27"7%; X$<(X&X%&3H&9!X&<P8 *%6+-H	CJ>(.6T	*KR*KA0;VJK[N.<(**X(H	C%>(/ JK[ZJ\(H(Z+H&I7R9OCGFK%H	[*H%R*KH(Z
K: H(J7*J	$/4	<	<	</?J9M+B:KE<B??%)8 H^H;9 H:H^,BJYJY>TWLH!RUNOS8: HX2K\^,
HBUBNDDSKO?.A2IPH2KHXXYHY<(??????>G?8?9HB88B.B F>!I>C\6AB$BJBM>E?AC^B<BB46HTB3<C B)=WFKB(?1= HB?YIJKU?UJ=FZK(FBDD?:?F$?<=AGIUF1LAKLB0 B>">&G8???0/G <%E DHGD,=?=DFL*.O?<(*.
>O=C<<(*.K;[B	:2IOB2A<(*0
98 X4X2K82I
7K6XHK5\HK4\HK3\HK2\HK1\HK0\HK/\HK.\HK-\H
,2A2K/+O=C<2J	*A6A*.KBK)[B2IOB2A8F?H*.J5*Q> -3X^ ]2;XE1HR]1*3P!-3*NHUX[P
-3HV*V0!+V0"2KH*]0H+]/H,. J0[6XRZA B<P+:XPAI?   CFLHE.I*E0!&H*YJJ A!!*D/H8R>&OD/YDA:2KJ;
A/BJJA.;<=&C?.;H2> 	CP4+%	HB:?<H	CSY: KX[IK(X4K?[JKJ=H+<:SIOICD9DKJ8F8F[JOICFKE> +88AX2OICF2K/P
I9P+.HC?K>"J*HJ[M+$2K.K=Z1H3> 	<H5> *YO;X58 J4[K*\8*^*:JRZYKK[LSKJ1
KRYJ1K>>(*.P5.J"1SI.J	<"1RJ.J	J"2	<R5P6.1J18F8FC,OL
LJ18J8J8HC,OK*">G.;/ +ZH2?H	<X2KH
:8 X42K/M8!8 < +$	GB8 	</ ZJ9H>(+-H3>("J<	GB2!	<J///Y/(.;BZ=&C?< *D	?/>K=>(*SH3=H	<>(	?8 X3O;
:O9
8/72J	6HWCOCUCTCPCUCTB CFCICLCECNCACMCEB B?EM2J	5E*0&EO"S"2I
!S!2ASW*2K4[!K3["K2[WMO3>(*V/1K0[!K/["K.[W/E2IO!S!2A
"S"SW+N/MOWSW<(/W0&0!+]:+X?25I>(4?;/K>EB?1S1H/G/H1J.;??1X4%K?1> KFKHZJO>2J	=AEJJCF8!KH>(9A[EK?1KEX1JJ
<K;"0J8
:J8
9J9
8X6X5X3/7H6Z92J&?HK6"09AX3.%Z7K5Z8O>2J	=E2J	=IKE?.0KEJ7
4/3>*;8F 3L;R+A/M"3*M2IOD3A6 "2*M2I7J3S6 3EGSG7E.JGM.,BI"M&J"0.<.;/LD1X1I05/GC1JB/KBZQ	?": 	>	?"2!	>K=
<JC
;JQ/<K:ZP*> 9X8AX0O5C42A>(*O3>(/2K1K0
/2IO52AC.9HK-
,
+.D:O*Z<2J&<IK)
*O*
(J.
+/Y:K0
/O+> /0O	Z<N<> /&:A2J	)B8/%KL[XO=
$O
.2J	)FL0SK SKIP ERRORDISK13DA< :NJH1*?7SL/1Z8DL=/4?<:1+ >P>$1J6(.R1 1N< .;>G2J	?HCCICNCPCUCTB CFCICLCECNCACMCEB B?"1"92J	>E*0&"1O\S\2I
[S[2ASC*^K=[[K<[\K;[C"9KM>(*C/:K9[[K<[\K8[C.12IO[S[2A
\S\SC*:.9OCSC<(/C0&0!+I:+DE8ERK?;>Z 32DF?;0\ 08RF?>4
X NCLI?>4
VH8ETDL>BJBMB ?2>(<?;;M>EB?K?Z]8A1> J*J1ZLO>2J	=A")JLB*8!J1>(K<Z)9A1J)X1O>2J	=B")2J	=IJ)?*,J)
;/:>* JL
9J]
8/78	? NOT FOUND^/6O5K4>(	32IO2C12A> +GO0//2IO2C.K-
22AKX
5KX
,KX
+KX
*8A
)/(00LN=	X\;O80?V1!?,C?YGF7:NL	=\X6
1+1/1.1-D;?7HJH >8.OP1,:X1S1H/H.<.;BB;M;N

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