File MORTT.SV (save files (Executable program)

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

?>2CIXHH
*V?1MRPOSSV\7?5RUNOFFSV\/?(MERGESV[G?7SORTSV[G?5XTRACTSV[G?8MEDIAISV[G?8MEDIAOSV[G?;FINDSV[G?:MLASV0V?0KIMMLASVX
?*LIB8RL0M?BASICAF0M?<BASICSF0M?<BASICFF0M?<BASICUF0M?<EAEOVRBN0M?;SABRHL0M??PIPHL0M?>FOTPHL0M?=PIP10$GPH^ <B,F>>G2I<<?;OL2J%LI,)X)2LIJYC2C-EB2I2B,
D02I2B,$D=P%2I,%P)2I,)2I2B,1DL2I2B,6DA2I2B,;D[?CXCFE4O%EWCN9<D><C<B<ANH?1?0?.?=?%N5H?$IKC8HAF%MZSVF)N%<HG3NF
N-F>I3? JKWC3G?I6>GB.D??:?&<??6?>=RB = \8OIOERGXGHG8F8F8DBJUZRJJ0\KD>(0Y8 [N.VETB&D*DLB-B1CLDAD=EVEVEVEVEVEVEV0Q*FHG0V:  T0Y*F;Z*FSC*=KB0&0Y*5BJ0\KD> 0Z0L0I*F[C0N*+C^==G	BMAB EZKJ>(+VSJ+]KF*+0Y+X0Z6:*F69+%KJ8![KKJKK9HKG2I	EKH*+6Y+S6Z9HKI2I	E[KKJ8!9HKGZR2I
K<X+:8F8F8F<HNR^R: KJ[J+%C?2ANW>(+V2B2I&X+VB  T2ANY>(+V2BHGB2I&Z+V*JARFFAQF)GK?0&660Z0V0L [L2A^W^Y  A61/>HGR<*6K=9A8A<P*89DK?66K<>(8 Z<*J??JI0\XG0ZHGK;> MHGK:> +K;&MHG*JHG0!+O0&:/MM*J [AO2IBAQRSTUVWXYZC G]BPO3456789:=LE?^
M*+,-./012ADJI[<F!"$%&	();N\HK>=3=6565NBFBJFA???? ERROR AT LOC GG>JKZP8NLZXRL:0NLXHRL8[!LH8D<XS!9HZALHZBLHZPLHZXJ["2IO"8J8J8JPO"PS"*(JP8J8JJK?["JX8F8DZXJXJS"*8K>XG	=;&	=K!>(+]  O8DBJJTP/JC<<(*2K;=HK:K9 [T/PG [^2C.MG0!+  ^["O"<X+/8J8J8JC22I/	?A-K>I]Y\H5Y]B
A? ?EMBM?<8!Z [AG2IIINARAZN [AE2IHY [AF2IIIR*V.AJNK>*JL4Q"LQM%UUUUNUUUUUODO,PL/N&<HFO$	(0;/.F^A2O5WV0S/7-A]O=S01>/??70APG??8!PLP +VO-"9CALOGDKQ[YKR[Z [AU2ISRSR2IO==(/<C;K:[YO=C9K8
= [AK2IH(K7"AH+ [AG2IILKY [R+?HPHG/8
8JJPC8 [AF2IIF [AE2IIL  I [AO2IIO%XP DJPZZJQZ[RQRQ [AU2I;(2IG>K=?O<9K;>X+XO>< K:
> [AG2IIL [AE2IIL [M=8A
9O98! [R [AE2IILK8	7HY [AE2IH( [AG2IIL [AE2IIC [A!2IIQ [AF2IIL  J [AO2IJN2IO>?9(
>
<
6  JD [RK%[0K&[1+2&LPWD 7K0LG+?RHAEIQ ]GQ/CP8Z 2IW? 7K0LGZ!2IW? 7L LG>(*,2IO>=H*2> *V    [AG2III [AI2III [AF2I [AG2III [AJ2III    [LK=2I
>**K<2I
> [AO2IK.*V%>(+I	<K*M> 8AHB[+$.$^[+A*3H5[,M*3[LHF9!8AHG>X-?I9HFXFHFXI2AK+\IK,\IK*M>(+	8A\F8 HFXF2I/MAAQ8	DAQF8$&,\YTITA0>(I2I4IT/;K" PLPK1AJZSJAZT [AG2INK*WAZK8AZRJSZZ8NTZ!RTNTZQRT8NQ9=H81ZQJK>(JR> +:JR< *2K?2I
>ZN<P+BJR> +: [AH2INK [AG2INK9*/JQ<(+99HZQ<P+QJN<(+^ [A[2INKZNJQ>(+9JR>(+JK [A[2INKZK+B [AF2INK+P [AG2INN [AE2INK [AF2INK [AG2INK [AE2INNZN+BJN  "==BPPL$GPH^ <B,F>>G2A<<?;OL2J%LI,)X)2LIJYC2C-EB2A2B,
D02A2B,$D=P%2A,%P)2I,)2A2B,1DL2A2B,6DA2A2B,;D[?2J%LI,)X)2LIJYC2C-EB!LH?1?0?.?=?%N5H?$IKC8HAF%MZSVF)N%<HG3NF
N-F>I3? JKWC3G?I6>GB.D??:?&<??6?>=RB = \N2A2I2A2A2A2A2A2A2A2I2I2A2A2A2I2I2A2A2A2A2I2A2A2A2A2A2A2A2A2A2I2I2I2I2IIXD[^4*K^+0N6H4X6;IQJP0E<
4<G[FK:);-8%4BC868S5[129^<:F<Q<2G!K%K0NNS?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,,%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+PJF8F8FZFJFC<M
]MJF8F8FC<MS]SJ/Z;QS+UISYMQSJF]SP))CK
YTJ2YSJ/Z;/W9?HH>2J&LCP)K%Z3W[%O.+5E-2J&LDP)YQ[32J&LK)<K/>EHN     Y     OUG+!RPLP>PP&8 [A+
(///)+2(	 MORTGAGE AMORTIZATION TABLE	,//)/>+?\!+1J+H<X\	>H;$S/6M&JO8(	 AMOUNT OF LOAN = 	,F10.2)*^(	 LOAN RATE (%) = 	,F5.2)*/(	 LOAN TERM (YEARS) = 	,F5.1)+(	 MONTHLY PAYMENTS = 	,F7.2,/)+E(F8.2)+
(/,	    DATE   INTEREST   PRINCIPLE   PRINCIPLE	)+9(	                        PAYMENT   REMAINING	,/)+<(/)/>+?LX8(	  	,I3,I3,	   	,F8.2,	    	,F8.2,	    	,F8.2)*	(/	 LAST PAYMENT = 	,F6.2)*6(	 STARTING MONTH (MM)= 	)+D(	 STARTING YEAR (YY)= 	)+H(I4)+M(F10.
)+!(/,	 INTEREST PAID THIS YEAR= 	,F8.2)+3(/,	 TOTAL INTEREST PAID= 	,F8.2)/>+?NR8(/,	LISTING DESIRED ? [Y OR N]: 	)*V(1A6) [BB2AO>2AI  [AC2I [BB2AO>2AJ [AC2I [BD2AO>2AMI [AC2AH [AC2I [BB2AO>2AJP [AC2I [BD2AO>2AMI [AC2AHC [AC2I [BB2AO>2AJ
 [AC2I [BD2AO>2AMI [AC2AHF [AC2I [AE2AIR [AF2AIU [AG2AH= [AE2AHC [AH2AH=+?9HA8 [AG2AHI [AE2AIU [AF2AHF [AG2AHL [AE2AHI [AE2AIO [AG2AH= [AI2AH= [AF2AHL [AG2AH= [AJ2AH= [AG2AHO [AE2AIO [AH2AHO [AG2AHR [AE2AIO [AK2AHR [AG2AHU [AE2AHI [AF2AH [AG2AHX [AE2AHX [
H2AHU [AE2AIL [AG2AH[ [BB2AQ>2AJ0 [AC2AH[ [AC2I [AE2AII [AG2AH^+?XZKSFA8 [AE2AIF [AG2AH! [BB2AS>2AN [AC2I [BD2AS>2ANS [AC2AH$ [AC2I [AE2AH$ [AK2AH!2IO= [L>(/<*/ [AE2AH$ [AK2AH^2IO= [L>(*>*H [BB2AS>2AL( [AC2I [BD2AS>2AME [AC2AH	 [AC2I [BB2AS>2AL7 [AC2I [BD
AS>2AME [AC2AH( [AC2I [BB2AS>2AI\ [AC2I+?\JTADNVPA8 [BB2AU>2AI  [AC2I [BB2AU>2AJ [AC2AH [AC2I [BB2AU>2AJP [AC2AHC [AC2I [BB2AU>2AJ
 [AC2AHF [AC2I [BB2AU>2AJ0 [AC2AH[ [AC2I [BB2AU>2AKF [AC2I [BB2AU>2AK  [AC2I8A2A
= [AE2AIU [AF2AHF [M
< [AE2AIC [AG2AH+ [AE2AIC [AG2AH. [AE2AH+?^MF6,CH*H)A8 [AG2AH1K>8!2AO=>(*K+G8A2A
=8AO<
< [BB2AW;2AMN [AC2AH+ [AC2I [BB2AW;2AK: [AC2I [AE2AH+ [AE2AH. [AG2AH. [AE2AIC [AG2AH+ [BB2AW;2AK: [AC2I2AO:8!O9>(/8+N [AE2AHC [AF2AH1 [AG2AH= [AE2AIU [AF2AIR [AG2AI [AE2AH= [AH2AI [AG2AH4 [AE2AH[+?TEYIH)H*AH(H	M8 [AK2AH4 [AK2AIL [AG2AH7 [AE2AH1 [AK2AH7 [A
2AH1 [BB2AY>2AL [AC2AH	 [AC2AH( [AC2AH4 [AC2AH7 [AC2AH1 [AC2I [AE2AH4 [AE2AH+ [AG2AH+8AO=
=8AO<
</; [AE2AHC [AF2AH1 [AG2AH= [AE2AIU [AF2AIR [AG2AI [AE2AH= [AH2AI [AG2AH4 [AE2AH1 [AG2AH7 [AE2AIC+?,CVDH)H	A8 [AG2AH1 [AE2AH4 [AE2AH7 [AG2AH: [BB2A[>2AL [AC2AH	 [AC2AH( [AC2AH4 [AC2AH7 [AC2AH1 [AC2I [BB2A[>2ALY [AC2AH: [AC2I [AE2AH4 [AE2AH+ [AG2AH+ [BB2A[
2AMN [AC2AH+ [AC2I [AE2AH+ [AE2AH. [AG2AH. [BB2A[>2AM" [AC2AH. [AC2I [BB2A[>2AI\ [AC2I+?LBZ3?A8 [BB2A]?2AI\ [AC2I/> [N[A0\K2>(0Y*W2C/62LK3Z?KF> +S2AR
<B*<*9KA9F8FC4OB
BKA9J8J8HC4OC
CKDZ
SCSE*>K5	9*?"A*>KC[BSCKA
CRM<B.M*
2LK3[Q2IO6C7K8[AOA<B/G2B![G2LK3[!2AO.2I>(8AKG2C/U[,2A;$G-K,
-2I/?&A0H.C?==2C<(>O?/:(7&)[/	ANVA2AW?RLRL<HR!:J!>(;XK>Z2JLK=Z3 [AO2A^2*-^8N5R52A.JGJ+Z4J,Z5*7G:AZ2Z)ZLJ4Z$"["XG8: LG9J8J8HZ!J"2A
<"[]"[V:AZ3
;KU
:  B!OJ3R39HKVXG8LG<X+$8J8J8JC92A/W P%2JG\+NB,3B?L+C?*&2!AT1FM.=XS	?	> +?Q  ?R!&?T ]?W!B?X -?Y ?  A T2A
=	<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*	<[%*+]3A2 3B3O/C&Y^3/W&O	?Y&
,?8?/,]^)**
W	?	>O=
?
=: Z[K<*	K;	:O??(;$K9	:O?=H8! [AP2A^*K8	: [QK8	:*:	?	>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	:/SCP2MVJ7NKT3Y6 3A;I2M6J3A;I -%)O.+E!%0-&OE?;)P(* %<HO?8 [N[K [L8 [L8 2A
>:SN<H*7	=	<$ ?R$2? $M?U$M?S$K?;$6^O[M [AF2A
/ [AG2A
,KM [R [AE2A
,SK*MSL.
[K*M: [MSL*<I=<HKK8 	;2IO:<(+H2AW>K92I
:SM+]/88 2AW>+\[K+Y [AF2A
/SK+U+]	; [AS2AA>/7&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z" .E P-Z**&8)O!%	?2AO>>(*HK="O*"8:*	?	<"O*KK;=HK:K92AO8 [T.O"
I?>(	7.Y2AO>> *-:J2> **"8*$Z22A.
K6"OK5"O.
R2K=C42A.8:J2> *4;Z2AO8 [TC3K2<(*3K19K:<P*9*46J^I7RSI/EF(.,B1*0&47TKEM*M6IKW3IWT*(21.1B065B)3A7Y"M&J3W	R+TE.1F,.0^0")>-?3A???J?M*^!B A? 
W ^2,W	?/> [AU2AA>[O[P2IO=<(+M=*RK<SO
=:2IO=K;?*^ [AF2A
/SP*RQ [AG2A
,K:2I
=2AO9K8>(KP8!I==8 	7 [AE2A
,Q2IO=8D?H+IO=9H
=O68H
6O58H
5O=C4O=K3
=*52IO=C2
=2A.2IO=K;?H %<H/Q;$	7: KP[P+R7A3O;UT*M"3&1+IF+M7O*1&3*323*322"363GH?<RQ-Z?:^)PD/4 P$, [LR)*HRL  CI?J(*XG> *[: Z)JKZS8NLY>RLNLY?2A.RL;X 7*KDG9F8TZ(;(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/*&5&O0OPQRJ?FHSY=2AO?<(.	>^R?(&?7.&?8&K?:""?;"A??,-^R2AW=.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+! [AH2A
/SY+]2A/Z:2AO58 [Y+-K4	8SY++	:*C(<28A*!%? &8&O?*^2&Y 
**^)I=8 2A
?8 Z=8 2A
>XS2AW?<H*[	=	<.Y? .J?U.J?S.G^MW*JHSR=/;2AW>8! 7A>\G:	:	9*J<XUK8Z=
> 7A>LG=*58!2AW> [AP2A^*XS [Q
*2A\U8 HUXUR=HS< *5I=2A
7I=8 J=K6	5PU2ALU=H*$K4	3+OXTHS9FHS8DHTXS2A/W/*2K
)/(QF]H9Z.A9\:TUM:M:L:ISW&O0SD!%?<,*%O**&8)O%N259N23F8DJEZNJFZO;X*P0NDZEJNZS8NOROXG: 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/.DK2ZNK3ZO;([-*PRQ3EP9(HGZC8LH"\XSHW< RXYHVXXLHXTLHXU2IO?"\XP[E2IO>XQO=XR.Z)J)8H8JC<XW;XB)XVJ)C;.\HR9DXRHQ8DXQHP8DXP.*9HRHUXR:DHQHTXQ:DHPHSXP.59N9)HPK:?H+N	CPW+GKE>(+XPR+XPQ+XPP[E+GHW=(+1XW;&HP? +"*: +XHW9D8F=H/DHPHV2I
?HQ
>HR
=/F:XRXQ+*B /S7T+S/T?8GC?RQPDJZD8NARAZNNAXGJZXJAZY8LGPGZ: LGXHJZ7*DJXZ\8NYRYZ7: NYXH2IO?"62I
?O>"62I
>O="62I
=RY;VJXZ48.Y8\H.6&IX D2IO?	<XP2IO>XQHWK;=++K:XT	9PT+KHV8DHQ<X8!XV2I
?
>
=HV  MDK[[K\[$ [AU2IK[Z<;VK\Z=*> [AO2A4:;(+SR 7TR=7TN+T*M3C9N?==42\RQP259N823F6;9(6HDJG^FJHZN8NIRIXG: NIRIXH&C*]HVHXXVHWHYK?XWHPXXHQXYHRXZXPK>ZN&AHX8HXXHY8HXYHZ8HXZ<X&RN*(&D  F$IVZDJE^FJ;[A8N<R<XG: N<R<XH&C+2HVHXXVHY8!HWK=XWXZK<[A;XSHP?H+\&B&HZ8DXZHY8DXYH
8DXX	;SA+VHXXPHYXQHZXR&D  H [AO2A69;(2I
:+0P2*?A??%=?K?ZQ;&ZR2ANQ8 <X9A^Q:0JQZQRR*E.DJSZW8NTRTZ"NTRTXGJSZ%JTZ&8LG*	D9=H81XQXPXR8HXVK>XW2A
=	<  RDJ6Z:8N7R7[B: N7R7XH8LHXG: LHXHJ62A
;J7
:/9HP9HXPHQ8HXQHR8HXR:D2A
=/N/VFLD2IO8< K72I
8  Y:2AO([^S(O([
 [AO2A9\;(+$0 P0[0O0N3F3EBOUDZAJFZK8NGRGZRNGRGZ)8N)"W  [Z)K?ZC9DZJA9DZA<XJ)JRC*[.W<X$IVZD=*/RB8!ZAZCJ)Z38N*R*Z:N*R*ZF8NF<(.&=+BRB8!9DRC=+B9HZDJD8!ZFJC8 ZCJCZEZJAJFRC<H+9P=H9ZAJ8DZJA9D<P+RJD+S:JB8H:ZBJ<X8!  PD:S.S.REJA=HJD<H9HRE+7  QZN\??4DJZD8NARAZKNARAZQ
NQ=H8!  ZD>DRRRR  \ [AO2A:	;(  PDZQ2I
?
>
=JQ  L:ADZ0J0=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?4:D?&H:C?=:B??ARQP

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