File KUNOY.SV (save files (Executable program)

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

?>2CX
EH
XO?;DIRECTSV/(?9TEST1SV
.?/BUILDSV^/?
HELPHL^	?IFORLIBRL0M=\RK8EPLSY2Y?NBASICFF+A?<LIB8RL\/?ABSCHRSVT9?$TECOSVFT?4AB3HILSVUA?-AB9SVU9?%KUNOSTSVVA?0UMSCHRSVT)?+AB8SVT9?^AB7BSVT9?+AB3ERSSVUA?)BASICSFVE?<REUMSFTUA?>BASIC$GPH^ <B,F>>G2I<<JK2J%LI,)X)2LIJYC2C-EB2I2B,
D02I2B,$D=P%2I,%P)2I,)2I2B,1DL2I2B,6DA2I2B,;D[HATAF>!I>C\6AB$BJBM>E?AC^B<BBB(?1= HB?YIJKU?UJ=FZK(FBDD?:?F$?<=AGIUF1LAKLB0 B>">&G8???0/G <%E DHGD,=?=DI?OIOERHXGHG8F8F8DBJUZRJJ0\KD>(0Y8 [J.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!9HKGZR2IKK<X+:8F8F8F<HNR^R: KJ[J+%C?2ANW>(+V2B2I&X+VB  T2ANY>(+V2BHGB2I&Z+V*JARFFAQF)HK?0&660Z0V0L [N2A^W^Y  A61/>HGR<*6K=9A8A<P*89DK?66K<>(8 Z<*J??JI0\XG
ZHGK;> MHGK:> +K;&MHG*JHG0!+O0&:/MM*J [AK2IBAQRSTUVWXYZC G]BPO3456789:=LE?^
M*+,-./012ADJI[<F!"$%&	();N\HK>=3=6565NBFBJ8NLZXRL:0NLXHRL8[!LH8D<XS!9HZAS"*(JP8J8JJK?["JX8F8DZXJXJS"*8C<<(*2K;=HK:K9 [T/PH []2C2I/	?A-K>I]Y\H5Y]B A? ?EMBM?<IOERQKW"7OT<(*Q\HLKX2B2I	V  E [AK2IHQ"ZKY*LJUZBJVZCKW"7OU<(*Q\HL.ZQ"ZJ	ZBJ(ZCK[ZZK\ [TRZ*0KZ*LXHJB
;NC[FRCNCZ;RCEE.78N;R;2A\H/E: "7EKS\H/LDA<=E!E*E7G!G/9?NZK[ZB []K\ZCLWTK5[SK?Z [AE2II42AK>2A
6
7+)SCSVE9E/+4ATB+$SQ++;FCH$GPH^ <B,F>>G2A<<JK2J%LI,)X)2LIJYC2C-EB2A2B,
D02A2B,$D=P%2A,%P)2I,)2A2B,1DL2A2B,6DA2A2B,;D[HATAF>2J%LI,)X)2LIJYC2C-EB\KVB(?1= HB?YIJKU?UJ=FZK(FBDD?:?F$?<=AGIUF1LAKLB0 B>">&G8???0/G <%E DHGD,=?=DI?2A2I2A2A2I2I2A2A2I2I2I2I2A2A2A2A2A2A2A2A2I2A2A2A2A2A2A2A2A2I2A2A2AX
D[^+*KHUHB<2^4H	I[G[FK:);-<
6H4X8%0N4BC866;0E8S4<5[129^G!<:F<Q?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,,%:9F8FA52I2J	NBP)K-YRK:ZN: YOK YP+7JF!EQO*X%RBL?<H)CRN: JMYNJ[YOIP=H*&:QNMNC<9DIP8F8FYPMN+U]N9P*!ZFJ)!ER;QT*;%Q"P)CR3WS3S&*-)C*;+S+PJF8F
FZFJFC<MM]MJF8F8FC<MS]SJ/Z;QS+UISYMQSJF]SP))CK
YTJ2YSJ/Z;/W9?HH>2J&LCP)K%Z3W[%O.+5E-2J&LDP)YQ[32J&LK)<L SYNT=.2I
POP
ROP2A8 Z(: J(>(*SJ(")";: J(*H:A")	Q!W/S	Q"AD(/S")KT
UKX
WK(
V2K.AH 9F8DKYXHHHX\HHX!HHX	HHX.HHX3HHX8.)HPKZXIHIXJK[XKHH[F2ALI2Q\JPK+D2A.;LIB8RL3(>G;$C$0A?&?%?$2K2AZ?^2I
&S&S	+];$
)2A/%B+>?Y^=0FORTRLTMPT+2IB$6XTHU$6/-J\MIAXNLN<(+&$6+:B*X<J+*L=)R	* ",J&?H*"J)X=K=
>J*C>(.,K:Z(K9Z)K8Z*K7Z+K6
52AK4
?K49J8H8 [ZO18D?H8AKZ//
HP
/U8??555	L=/PO?W?TAHAP>F2=VFM2J?&WIJQZW.LBBJOZ"L2K^J$^%B2CHCACICNB(B	CKCUCNCOCXB	B)K$K"["K$8 /IN<:K"9&8F8FI;PK"BNBLBJB BI??N/N/N>RGRIRBRBRI.VAA=X+ABSYM^X*ARGL4\JANDX+BLOCKVX*CALLLX+COMMNNYJCIA8!XJCLA:YJCLL9YJCMA8 YJCML8PX+DECIM	]X+DUMMY-\\JDCAXX*EAP3=X*EN
E\X+ENTRY62X+FORTR[/ZJHLT<BX)IF3ZX+CPAGEV[\ZISZP\JINCPYJIAC8AXJIOF0BXJION0A\JJMP(\JJMS XJKRB0^XZKSF0YX*LAP3:YJNOP8X+OCTAL	 X+OPDEF^EZJOSR<DX*PAGEC\X+PAUSENXJPLS0VXZPSF0QX+REORGC%X+RETRN"/YJRAL8DYJRAR8HXJRFC0LXJRRB0JXZRSF0IYJRTL8FYJRTR8JZZSKP<HX+SKPDF^DZZS
A=ZZSNA<(ZZSNL<PZZSPA=HYJSTA: YJSTL9PZZSZA< ZZSZL<XZZSPC?H\JTADHX*TEXTN/XJTLS0&XZTSF0!D*ACHPD*ACMQD*ACLRD)ID0BREAD,B\10B70BIOH,C\IANZBP0COOPEN,A]3B\,A]6BY,A^ACB,A\KBQ,A^BCC,A^CER,B\20CX,C\FNAMEBR,A^DC!0CIOPEN,B\200C	,B\35DQ,A\LBU,A^EC.,A^FDL0CSUBSC,C\KART
B,A^GDI,A^HDU,A^ID$,B\30DV,Q[0FX,B\300EP,B\100D10CWRITE,A^JD8,A^KEK,A^LEH,A^MET,A^NE&,B\16E[,A^OE-,A^PFL,A^QFI0COCLOS0CCHAIN,B]11BV0BEXIT6RMAINB
PBOPEN?UD?SD?CA?DAA0X>\?6??2J$*DWTK+/.;LST<I"[,K4KP[.K,IM9F8F8FAIKP[PKP9PK5>0+6	3".CS>H/XK<-H2HCI7(K;-HW?=]E$&$%UMUHL5KUNOXNOTENRKA18 [A [BB2AY>2AX7 [AC2AXP [AC2I [BD2AX\2AXY+B(	ANZAHL DATEIEN:	I2)ZQRQJQ8!JP?H/= [BB2AY>2AYX [AC2AXR [AC2I+!(	DATEINAME:	A6)
[BE2AX\2AXR [BB2AY<2AZQZURUJU8!K;?H/:+?JT]FEC?/=TZLPD[RA8*U(16I3)*$(I3,3(I1,I2),5I2,I1,*1 [BG2A[<2AZV
;2AW;O;8!K:?H+K [8/82A
;2AW;O;8!K:?H+& [BF2AXU2A8!K:?H/7+?.AA?\LYCY	PXUDAY.8 [BF2AXU2AX\I [AC2I/? [AC2I [H [AI2AXV [JK=Z3 [AI2A\2*-\]M2AN5R52A.AJ2AX^J+Z4J,Z5*7P2AX":AZ2Z)ZLJ4Z$"["XG2A: LG9J8J8HZ!J"2A
<"[]"[V:AZ3
;KU
:  F
OX+^BJ3R39HKVXG2ALG<X+$8J8J8JC92A/WAGD P%?1?>KARTEFT?($2
AT1FM[-RL<HR!:J!>(;XK>Z2JLK=Z3 [AK2A^2Z5*7H:AZ2Z)ZLJ4Z$"["XG
;KU
:  G!OJ3R39HKVXG8LG<X&Z*Z&Z*Z&Z*Z&Z?*&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*	<[%*&Z*Z&Z*Z&Z*Z&Y^3/W&O	?Y&
,?8?/,]^)**
W	?	>O=
?
=: Z[K<*	K;	:O??(;$K9	:O?=H8! [AL2A^*K8	: [MK8	:*:	?	>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	:/S*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z -%)O.+E!%0-&OE?;)P(* %<HO?8 [N[K [N8 [L8 2A
>:SN<H*7	=	<$ ?R$2? $M?U$M?S$K?;$6^O[M [AO2A
/ [AP2A
,KM [Q [AR2A
,SK*MSL.
[K*M: [MSL*<I=<HKK8 	;2IO:<(+H2AW>K92I
:SM+]/88 2AW>+\[K+Y [AO2A
/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*4RTWADA?8WAKA11DAMK?8JANS1KDAMS?5JANS2KDAMS?UJANS3KDAMS?3JANS1FDAMS?9JANS>-?3A???J?M*^!B A? 
W ^2,W	?/> [AU2AA>[O[P2IO=<(+M=*RK<SO
=:2IO=K;?*^ [AO2A
/SP*RQ [AP2A
,K:2I
=2AO9K8>(KP8!I==8 	7 [AR2A
,Q2IO=8D?H+IO=9H
=O68H
6O58H
5O=C4O=K3
=*52IO=C2
=2A.2IO=K;?H %<H/Q;$	7: KP[P+R8 B> 9XRA+G+FC=>(+27"9V7"7!+,7"7%> +/GH?<RQ-Z?:^)PD/4 P$,Z)JKZS8NLY>RLNLY?2A.RL;X 7*KDG<X*>R*:2AN*R*<(*?KD>(*>R**3[D2AXSHS
;**2IO=HU
=8DO<HT
<8DO;HS8D
<O;8D
;2A/*&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+! [AV2A
/SY+]2A/Z:2AO58 [Y+-K4	8SY++	:*CS18A*!%? &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> [AL2A^*XS [M
*2A\U8 HUXUR=HS< *5I=2A
7I=8 J=K6	5PU2ALU=H*$K4	3+OXTHS9FHS8DHTXS2A/WOL;H6 >H+\"5L2	<43BH>,(L)T	H2&O0SD!%?<,*%O**&8)O%N259N23F8EJEZNJFZO;X*P0NEZEJNZS8NOROXG: 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/.EK2ZNK3ZO;([-*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+*CI[602J7J?8GC?RQPEJZD8NARAZNNAXGJZXJAZY8LGPGZ: LGXHJZ7*EJXZ\8NYRYZ7: NYXH2IO?"62I
?O>"62I
>O="62I
=RY;VJXZ48.Y8\H.6&IX E2IO?	<XP2IO>XQHWK;=++K:XT	9PT+KHV8DHQ<X8!XV2I
?
>
=HV  YEK[[K\[$ [AU2IK[Z<;VK\Z=*> [AK2A4:;(+S3A/LF 2,?IH*M+^9N?==42\RQPRIXG: NIRIXH&C*]HVHXXVHWHYK?XWHP8HXZ<X&RN*(&D  O$IVZEJE^FJ;HWK=XWXZK<[A;XSHP?H+\&B&HZ8DXZ  V [AK2A69;(2I
:+0P2*?A??%=?K?ZQ;&ZR2ANQ8 <X9A^Q:0JQZQRR*E.EJSZW8NTRTZ"NTRTXGJSZ%JTZ&8LG*	E9=H81XQXPXR8HXVK>XW2A
=	<  QEJ6Z:8N7R7[B: N7R7XH8LHXG: LHXHJ62A
;J7
:/9HP9HXPHQ8HXQHR8HXR:D2A
=/N/VFLE2IO8< K72I
8  \:2AO([^S(O([
 [AK2A9\;(+$*  P0[0O0N3F3EBOURGZ)8N)"W  
Z)K?ZC9DZJA9DZAZCJ)Z38N*R*Z:N*R*ZF8NF<(.&=+BZJAJFRC<H+9P=H9ZAJ8DZJA9D<PS.S.REJA=HJD<H9HRE+7  MZN\??4EJZD8NARAZKNARAZQ8NQ=H8!  ^E>DRRRR    [AK2A:	;(  LEZQ2I
?
>
=JQ  N:AEZ0J0=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: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