File FORT2.SV (save files (Executable program)

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

??2CHC[1SVJ\?2??CHNSUBPA?>CHNSUBBN??RANWX1PA?6RANWX1BN?>?0GOODBXPA?9GOODBXBN?>?,HELLOXPAJD?9HELLOXBNJD?>CUBEX2SVJD?:?<CUBEX2PAJD?6CUBEX2BNJD?=PIPSVJL?5?/LIFEX1PAJD?3LIFEX1BNJD?=GEDI31PAJD?5GEDI31BNJD?=GGG1RLJ\???;ROTA21+Y21"0*M/AN,"160*J3B.3^22MNJ.,N3"3*M
D^,.0F42MVJ.,N1"7642JSY+I3F"0*M3P3C7EKA.,^3"7672J?P7ISN.1B,";602J?P7ISN.2B,";602J?P7ISN.3B,";602J?P7ISN.4B,";602J?P7ISN.5B,";602J?P7ISN.6B,";602J?P7ISN.7B,";602J?P7ISN.8B,";602JGA.,B46M"J3V3A.,B1"0*M3YGV/LF,"0606JCP61B,$GPH^ <B,F>>G2A<<?4JF2J%LI,)X)2LIJYC
C-EB2A2B,
D02A2B,$D=P%2A,%P)2I,)2A2B,1DL2A2B,6DA2A2B,;D[GE2J%LI,)X)2LIJYC2C-EB[JUB(?1= H?YIKKS?UJ=F?4ZK	?0DD?:F ?<=VGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)=?<!N2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2AHC,[44MJ+VK0P4Y/[J4.K&)	-(
"H X$%\N *C$6";\E$S <![]2%^(&F(Q(2/!?X)N-X7L7XGLG

2LH]Z**)X)N.X7L7XG2LH\ZV2ILG8

2L2I*IX)N/X7L7X-L-Z(2LH]Z*P-L-

8P78H),72-7X)2LH\X-OIKH-\7P7H[8A\7*HX)OJKL7K9Z*P7L7X7**A?[ X[L[BKNZ(J(KGZ*2CN([[N*<(+]X7/K2J	HGAX%K!!E2J	HH2J	NA+<[:K,,%\OK&/[HY>(2J	NBP)K-YRK:ZN: YOK YP+7JF!EQO*X%RBJ?<H)CRN: JMYNJ[YOIP=H*&:QNMNC<9DIP8F8FYPMN+U]N9P*!ZFJ)!ER;QT*;%Q"J)CR3WS3S&*-)C*;+S+PJF8
8FZFJFC<MM]MJF8F8FC<MS]SJ/Z;QS+UISYMQSJF]SP))CK
YTJ2YSJ/Z;/W9?HH>2J&LCP)K%Z3W[%O.+5E-2J&LDP)YQ[32J&LK)<X -OM98 [A [B [C [B [BD2AI?2AH [AE2AH [AE2AHA [AE2AHB [AE2I*)(I3,I3,I2)8AJB>(*9JB?H*J [CF2AH2AHA2AHB*L [G [H [HXKHH[F2ALI2Q\JPK+D2A.;LIB8RL3(>G;(CGC!0A?&?%?$2K2AZ?^2I
&S&S	+
2A/%B%>?Y^*DPT+AIQ+IYPT+3IQ$6XTHU$6/.K\MI?XNLN<(+	$6A2AW?RLRL<HR!:J!>(;XK>Z2JLK=Z3 [AJ2AJ2*-J8N5R52A.JJ+Z4J,Z5*7:AZ2Z)ZLJ4Z$"["XG8: LG9J8J8HZ!J"2A
<"[]"[V:AZ3
;KU
:  IMOJ3R39HKVXG8LG<X+$8J8J8JC92A/W P%535%L=/PO?W??VR2MAT1FMZ=XS	?	>L+?QL ?RM&?TL]?WMB?XL-?YL? LALT2A
=	<8 Z
O=C;K:>(	9*	9	8*	9	?K7<(*K6	5*$	4*ASA: K+[+2AO3
ASA	<8!
A;VK+?H*O3[)OA[**	9WA+^;$KA[AS+*	2K)
3K*8!XS: 2AO3>(+\SA:A
ASA: 
A8 [+*-: KA[%2AO%
3*	<[%*RYJ3[WRO	?YR
X?8?/X]J)V*KW	?	>O=
?
=: Z[K<*	K;	:O??(;$K9	:O?=H8! [AK2AJ*K8	: [LK8	:*:	?	>Z[O==: 2AO78!I=SO==+O8!	6K5	:O==(+H8 Z\I=8 
>*>K8	:R\<H+D2AW>*<2AO=8!<H:I== 	6R[* *I:K8	:*12AO4=/3Z\>H	:K2R\+Z:O4>(/SK9	:/S2J	,G<D<?2?>GCYBMBLBJ Y%UO.WEM%0-ROE?;UPTV %<HO?8 [N[K [M8 [L8 2A
>:SN<H*7	=	<P ?RP2? PM?UPM?SPK?;P6JO[M [AN2AK/ [AO2AK,KM [P [AQ2AK,SK*MSL.
[K*M: [MSL*<I=<HKK8 	;2IO:<(+H2AW>K92I
:SM+]/88 2AW>+\[K+Y [AN2AK/SK+U+]	; [AR2AA>/7PYJIAC8AXJIOF0BXJION0A\JJMP(\JJMS N ZE PYZV*R8UOM%	?2AO>>(*HK="O*"8:*	?	<"O*KK;=HK:K92AO8 [S.O"
I?>(	7.Y2AO>> *-:J2> **"8*$Z22A.
K6"OK5"O.
R2K=C42A.8:J2> *4;Z2AO8 [SC3K2<(*3K19K:<P*9*4ZZSKP<HX+SKPDF^DZZSMA=ZZSNA<(ZZSNL<PZZSPA=HYJSTA: YJSTL9PZZSZA< >-?3A???J?MVJ!B A? KW J2XW	?/> [AT2AA>[O[P2IO=<(+M=*RK<SO
=:2IO=K;?*^ [AN2AK/SP*RQ [AO2AK,K:2I
=2AO9K8>(KP8!I==8 	7 [AQ2AK,Q2IO=8D?H+IO=9H
=O68H
6O58H
5O=C4O=K3
=*52IO=C2
=2A.2IO=K;?H %<H/Q;$	7: KP[P+R,Q[0B?$\IGX1B$\IGX2[6RMAINBCPBGH?<RQYZ?:J)PD/4 PPX [MR)*HRL  EI?J(*X> *[: Z)JKZS8NLY>RLNLY?2A.RL;X 7VKDG9F8TZ(;(DG8!RL*P[DKDK?9K><X*>R*:2AN*R*<(*?KD>(*>R**3[D2AN*Z*KD.*8![D*2IO=XUO<XTO;C:XSHS
;**2IO=HU
=8DO<HT
<8DO;HS
;O;9H8JC:K9	8SD+H/E2IO=9D
=O<8D
<O;8D
;2A/*-HRO0OPQRJ?FHSY=2AO?<(.	>JR?(R?7Z&?8RK?:N"?;NA??X-JR2AW=.W
?.HS<(:A2A.]"WI?>(	<O;> R.	:I=8![Y"*>OLG<X*98J8J8JC9	8SY*2*,	7[ZOKZ<X+I8A8F8F8F<HLGK6\GSY*>*,I>[WI=KY9HI?XG8/O[Y+! [AU2AK/SY+]2A/Z:2AO58 [Y+-K4	8SY++	:*C%</3[Z*M%? R8RO?VJ2RYL
V*J)I=8 2A
?8 Z=8 2A
>XS2AW?<H*[	=	<ZY? ZJ?UZJ?SZGJMW*JHSR=/;2AW>8! 7A>\G:	:	9*J<XUK8Z=
> 7A>LG=*58!2AW> [AK2AJ*XS [LK*2A\U8 HUXUR=HS< *5I=2A
7I=8 J=K6	5PU2ALU=H*$K4	3+OXTHS9FHS8DHTXS2A/W2J	7<0^4BZ%>>2IK1
6K5^7K)^.2C/(RO0OSDM%?<XVQOV*R8UOQN^5%N^
F$JEZNJFZO;X*P\NZEJNZS8NOROXG: NOROXHJM2A
?2IO>>(+W&B+UHXJEXXHW<(*;8!HY=*;ZEHS9HXSHT8HXTHU8HXURE*/+C8 ZEHYXW+A&ARE+HV?+H;&&DHX?H&D&HP?+R;&&D;XXV2A
=&C+%HG[/.< JEC-2I
>.2I
<.2I
;: [-ZE;VJN[+8.O??8LH/.K2ZNK3ZO;([-*PRQ
EP%(HGZC8LH"\XSHW< RXYHVXXLHXTLHXU2IO?"\XP[E2IO>XQO=XR.Z)J)8H8JC<XW;XB)XVJ)C;.\HR9DXRHQ8DXQHP8DXP.*9HRHUXR:DHQHTXQ:DHPHSXP.5%N%)HPK:?H+N	CPW+GKE>(+XPR+XPQ+XPP[E+GHW=(+1XW;&HP? +"*: +XHW9D8F=H/DHPHV2I
?HQ
>HR
=/F:XRXQ+*602J7J7P: ?8GC?RQPJZD8NARAZNNAXGJZXJAZY8LGPGZ: LGXHJZ7*JXZ\8NYRYZ7: NYXH2IO?"62I
?O>"62I
>O="62I
=RY;VJXZ48.Y8\H.6&IX 2IO?	<XP2IO>XQHWK;=++K:XT	9PT+KHV8DHQ<X8!XV2I
?
>
=HV  XK[[K\[$ [AT2IK[Z<;VK\Z=*> [AJ2A :;(+SK\"0*M/\B62,N 3A%N?==4^\RQP^5%N$^
F";%("HJG^FJHZN8NIRIXG: NIRIXH&C*]HVHXXVHWHYK?XWHPXXHQXYHRXZXPK>ZN&AHX8HXXHY8HXYHZ8HXZ<X&RN*(&D  N$IVZJE^FJ;[A8N<R<XG: N<R<XH&C+2HVHXXVHY8!HWK=XWXZK<[A;XSHP?H+\&B&HZ8DXZHY8DXYHX8DXX	;SA+VHXXPHYXQHZXR&D  U [AJ2A"9;(2I
:+0P^*?A??%=?K?ZQ;&ZR2ANQ8 <X9A^Q:0JQZQRR*E.JSZW8NTRTZ"NTRTXGJSZ%JTZ&8LG*	9=H81XQXPXR8HXVK>XW2A
=	<  PJ6Z:8N7R7[B: N7R7XH8LHXG: LHXHJ62A
;J7
:/9HP9HXPHQ8HXQHR8HXR:D2A
=/N/VFL2IO8< K72I
8  [:2AO([^S(O([
 [AJ2A%\;(+$&Z P\[\O\N
F
EBOUZAJFZK8NGRGZRNGRGZ)8N)"W  ]Z)K?ZC9DZJA9DZA<XJ)JRC*[.W(X$IVZ=*/RB8!ZAZCJ)Z38N*R*Z:N*R*ZF8NF<(.&=+BRB8!9DRC=+B9HZDJD8!ZFJC8 ZCJCZEZJAJFRC<H+9P=H9ZAJ8DZJA9D<P+RJD+S:JB8H:ZBJ<X8!  K:S.S.REJA=HJD<H9HRE+7  L?4JZD8NARAZKNARAZQ8NQ=H8!  \>DRRRR  ^ [AJ2A&	;(  K
Q2I
?
>
=JQ  M&AZ0J0=H8 ^1;$J3XHJ2Z>8LHC<>(+HLH[[LHZ*8 Z/LH[
LHZ)LHZ+LHZ,J2[LHZ-HH8AZ3R/+
: 8N*< 	38N)K;Z.8J+^-R-J0?HJ.9DJ.J,^-;VJ2[18.3&W??ARQPOIOERXGHG8F8F8DBJUZRJJ0\KD>(0Y8 [H.V-T*&,*,L*-*1+L,A,=-V-V-V-V-V-V-V0Q*FHG0V:  S0Y*F;Z*FSC*=KB0&0Y*5BJ0\KD> 0Z0L0I*F[C0N*+C^==/	BMAB -ZKJ>(+VSJ+]KF*+0Y+X0Z6:*F69+%KJ8![KKJKK9HKG2I	EKH*+6Y+S6Z9HKI2A	E[K
J8!9HKGZR2IKK<X+:8F8F8F<HNR^R: KJ[J+%C?2ANW>(+V2B2A&X+VB  S2ANY>(+V2BHGB2A&Z+V*JARFFAQF)K?0&660Z0V0L [M2A^W^Y  A61/>HGR<*6K=9A8A<P*89DK?66K<>(8 Z<*J??JI0\XG0ZHGK;> MHGK:> +K;&MHG*JHG0!+O0&:/MM*J [AJ2A*AQRSTUVWXYZC G]BPO3456789:=LE?^
M*+,-./012ADJI[<F!"$%&	();N\HK>=3=6565N*FBJ.A???? ERROR AT LOC G>JKZP8NLZXRL:0NLXHRL8[!LH8D<XS!9HZALHZBLHZPLHZXJ["2AO"8J8J8JPO"PS"*(JP8J8JJK?["JX8F8DZXJXJS"*8K>XG	=;&	=K!>(+]  J8DBJJTP/JC<<(*2K;=HK:K9 [S/P [ 2C.M0!+   ["O"<X+/8J8J8JC22A/	?0!+4A/3RB A? ?-M
M?<<BNQZJRQNQY/RQ<BM/=H:2A.BJPZC"BK?= :K>Y$"BK== :K<Y%"BY&I&8H>X*+I$Y"I%Y*/JY"JAYI$ZI%ZAI"8!I$=*=8!Y)K/Y	+Y)K0Y	I8!I%=+J8!Y*K1Y(+MY*K2Y(I*8!I)?H+]I)9D8!Y-I*9DY I)Y!	;+-I	<QI(Y	?AY(I*9D8!Y-I)9DY I*Y!	;  F252	3J3DPACOMMNAISZA2CG<9B<=DPI!8 Y.K7I,Y/2II&8J>X*S
+<QM/=A]/*WI+8 E/]/I!I Y!I!I-=H*!Y!2A%(;2A%	Q.*E.I+9HY+<P %<H.	;XY+Q,82A.	I+9DY+<P %<H.5;AY+; I,Y,2A.5I,K?Y,2A/DI,K>Y,2A/JI"9H9HY,I,9FI,9FI,9DI,8H8BC=Y,I,9DI,9D9D8!I"8 Y+;P8HQ++*Y+I9F9F8!K<I,Y,2A/PB7P: A*M10?P?0: J^XIK?Y?2I\IQ?*H  B1.*OJ^1(88K>1)  C1*  GB
J+ACC6MRJ+ACD3\OI3OWD6MNJ+NCA3CGL" *M7JCM. [\"0*M/\B46,R +ACD3\OI3OWD6MNJ+PCC2M*J+MCP/\B16M2J*5202 GC+LCL23^,3P?LT*M3A
R2 	\X*M3A
R2 	\Y*M3A
R2 	\3CSOE*M7JCM. K\"0*M/\B62,N 3A3L* 207GSSJN"0*M2 	C/FF "0*M2 7J3S& . J(*0&0*MBJ"1*M7D[E3N7U2,R 3E	V+CCE3DGT"0*M2 WD3V;H/DF+*MBJ7JCM2 C7EKR"1*M2 GT3DR 3E;V+U/M"1*M2 	C/FF "0*M2 7J3S& . J(*0&0*MBJ"2*M3B/L3N7U2,N 3HGNM7E.JB *MBJ7JCM2 C7EKR"2*M2 GT3DJ 3L;K
7M2JR +CCA3B/LN622JN +ICF"1602J* +MCS+I" 

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