File VISTA.SV (save files (Executable program)

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

?92CADBHLBHPRH<AHY4B8C"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B&*2A;AO>2IXPLPXPHPXHLP=H+(C=HP8AXP\PK<XIK;XTLH<(+(C:8!LI> *QPT*ULH<(+(K99K8>P*
; HHXI*,+ELH<(+(K7> *,;UHHXP; HPXPLPK7<(*5K6\PLPK9> +EK5\P*5;&XTK4XHHIXPLI9F8F8FPT+TK3\H+XLIK2\H+KHPXIK1XHK0XT2AO/2I8!\HLI\HPT+/.:2A
-2I/?AGFAE?;VS=?
WSB0B/=RJ=F?
?9FFC?UFO>>(*E2B/=2B/<CVCECRCSCICOCN/?\HII>EHG<0G?6J00  >\+  0O?199WW$P2B.T<BZPJP9J8J8JBJA^MJP8F8DBBZQJPBJQJE^N*R2I2B.+(2A=H:ZPJF^O9JPJG>P*;JH^OJL*(JIZQJPJC=H+FZPJQBJJK*<JDJQ*(C[C[C[C[C[C[C[C[C[C[C[C[C[C[C[C[C[C[C[C[E^;E\^CRFFCKF+[VG]\"/XEZ&4&5(GCGES]G\3E
%R^9^:^]!Z1LYJ*J]J\IHIIH.D=E)E";YB?F4D%C]D?DH<=OO<4PC<3LT<.& <-&[<)&ZCA??^PICKUP/PUTDOWN ERROR\^CLOSING FILE...\                        NONAME.XX-00.00     14  EXTRA BLOCKS    <NNN>\^NUMBER OF REPLACEMENTS MADE: NN  \BD >>2I/?X>(*E	>E*1G*JK=0	:K<
;O:> *Y;A2A
92IK<
8K82A
72I2I0&K6	5O:<(O4>(/3O29F?**K12A
02IO/C.>(*2K-2A
,2IO/9J>P*92A
+2IO2C*>(+AK)2A
(2I;GG/>(+GK-
	O&<(O%K$< K>(K.2A
*2IO2C"2A
!2IO/?/ 2AO*2IK.C./?ZCABPHE/9>I>DD*AD=4AAC\)8D>$B\:>]I>&N(WA\HAP>EBZW8?Z2A
>2IO=?*JK<2A
;2IO:9D?*VK92A
82IK92A
72I	6H/??,-.:8>%AGD>A\O>> *
K=Z\K<Z]K;Z^O=> *WN]K:>(/9N]C8K7>(/9N]^\R]R\R^*L*
O>
6O5
4O3
2O18J8J8JXPHPC0K/
.HP8HC8K-
,K+
*K;Z^K6Z\N\C8>(;XN\^\N\C0>(K)N\^\R\R^*9/(K	
&K%	$2B//?/X&N*W&50Y^C ^6WS-WR.?>DWQ>CWP>BWOV?$4?V?;>E>>A^6O><(*/	=A6*K*TJH9H>X/<RHJK=Z*CJH2A
;2IJK=?HK=JZO>2I	=B>F/:J"2A
92IK8Z"J2A
72IO6
5K42I
6JZ9O3	=A*<+EJ99H>X/<R9JK=Z*6O29F?H/1J92A
02IJC3K/>(+XJK=?HK=JZJ9K.>(+ K-2A
,2IK+
*O3/? B>AN+;UA9JA!!C>$>TM<B>DAS>FAR$/A $3B>E 	>C>A/=O<C;9J9J8!<(JC2A
:2IJB2A
92I2AO:2I8!2A
82I2AO:2I<(+C9 K7
6O5C4> W62AO32I<(*/O6<P/2
6O69K1>X+CK0	/K.	-
6K,
+0ZW6*<0Y+A+CW+*<0ZO*K4?(+LK)2A
(2IO*K	?(+[2A
&2I	>IK%
$K%
	"HK!	/K 	//?BJBM?NBM^C[ABF\)8^^B>\&N)\&0BG?6$8ASD>$^ABAUAVAW?0>$4B"K>ZPK=
<O;C:<(*M9FW<9D=*I;A	9B*S/8JP8AZZ2B	7C0/82AO6
5O4
3O2
1O0
/O.
-K,O/9%
+O+
*O)?H*2K(
	O)9D?H*8K(
&O/XQO1XR2IHQK%9K$>P/8HRK9K">P/8HR8!XT9HQK!<X/ PT+MK
<X/ 2AXPHPO1K^/?DBW8$-BA>[B?<7RR\80I87?8AF0H\0GW0FAI0EAE0D>G$5BG?>%*TM0*S$>X*5HP8A
>O>
=O=
<O;HP
:O;8 XTK9XP; O>XH2IHP\H;EHPHQXPPT*UO;9%O>K89K72AW62I<X*!:	5I2B/4:*5K3	22B/1K0K/K.	2*1:K-	,K-	,K+	2K*	2	)C(K	>(/&*1/?!C<	?
&A)1)H&0BG)>>M3/X&N(H1B::(HW8VW1CU&.A<B0Z0Y*C0^C>K=Z.J."0J..A.N<BZ.N.8J8J8J"ZN."ZR.*P.Z<BC<<(.ZK;<(**K:<(.NK9=HK8K7"0.ZK6"0K5*(.0<B0!*10&:8.02B/4/?/XBJBMB A?<B?"?BA?(INPUT FILE NOT FOUND^\CAN	T OPEN OUTPUT FILE^\VISTA--01.09......COPYRIGHT (C), 1980^DEWAR
INFORMATION SYSTEMS CORPORATION^^\CAN	T LOAD HANDLER^\NOT ENOUGH ROOM FOR WHOLE INPUT FILE!!^\LESS THAN 10 BLOCKS FOR FILE EXPANSION!^\^CONTINUE ANYWAY? (Y/N): \VIDEO CHARACTERISTICS FILE BAD/MISSING!^\VCM0SV^^RUN-TIME OPTIONS:^       /A      AUDIT TRAIL 
F CHANGES WITH VERSION 	S^       /B      INHIBIT AUTOMATIC FILE BACKUP ON CLOSE^       /C      ALLOW LOWER CASE CHARS BEFORE COMMENT^       /F      STRIP FORM FEEDS ON INPUT^       /H      ASSEMBLER/COMPILER HEURISTICS ON ENTRY^       /M      FLAG MODIFIE
 LINES WITH CONTROL/A^       /O      EDIT WITH NO OUTPUT^       /P      USE SLOW, BUT OPTIMAL PACKING ON FILE CLOSE^       /V      DON	T INCREMENT VERSION NUMBER^       /W      WORDWRAP LINES WIDER THAN SCREEN^       /Z      SKIP OVER & IGNORE END OF FILE
^       /1-9    SELECT ALTERNATE VCM FILE 1-9^VISTA COMMANDS^^C      CLOSE BLOCK SAVE BUFFER AS 	PIKUPX	 ON SYS:^LA     LOOK UP FILE 	PIKUPA	 ON SYS: FOR PICKUP^M      MARK ALL ROWS SCROLLED OFF THE SCREEN^R      REPLACE SEARCH STRINGS WITH FOLLOWING STRI
G^S      SEARCH FOR STRING THAT FOLLOWS^W      SEARCH FOR WORD THAT FOLLOWS^^IF MORE THAN 2 PDP-8 PAGES ARE NEEDED FOR HANDLER SPACE^/H OPTION, INVERT CASE AND TAB LEFT FUNCTIONS ARE NOT^AVAILABLE. IF ALL 4 HANDLER PAGES ARE NEEDED^/P OPTION IS FORCED^\^F
LE CLOSE ERROR\^I/O ERROR! RETRY? \^DEVICE FULL\2AO>2IZ		=HO<	;D>A+SO:9D?*/O9<HK8
7O<	;B>A*=O<	;D>A+SO9
7O<	;B>A+GK8VK6
7O<	;B>A+SO9V2B/52B/4/V<BZA; O3O2ZJA^O1ZO0C0[	2B&"HL8?/V2B///?/QG)OLD/V/XTM>DBK<B>B>?AT>;A,P6Q]R?(!SM 2ABP ADL*)LCXPLP-$L]XPLP-)	>O=>(*G	<:*H!X"X)LUXP;(DP\P	<X!H!K;=H*5K:>(/9H??H* IB>(*	8*H!	7X!H!	6	5IG>(*1;WHG8 H\? *1K4$%IB>(*G/3K2?+[H!K1XPLPXP2I,PV	0!$?
	/	./-;XH?X?+OV;XH>X><X*+[0Y+R	,*$<BH=>(/V$%K4/+X-%H->(K*/+	)/%<B; HG/?P!IE R:\HILHL"OLI :HQSTTP0:3F">!= 0VZRUDXG<X/>P-;(XG"K/="Y"K,$<B	<HC8!HU>(*W; HCXC	;.K	:*U<BH"?* HXG*"HGX; X!.YX-	9X&"-H->(H&+ <B	8*9PG	9<(.-9J> .-P-*.XGDP-.-XGX"YD,$	;/D<B	<HC8!HV>(+P
C!$?H+S+B	7+LPC	<!$?+R; HCXC	6+^HUXCXG,$$%/5	4%>P+"	3,$"-%>X+("-%>P+,,$/?GSC%BQA^MQLP8^0P!CVC$CF	>*EH>?H*G"I,$K=/<<BHGK;8!H\?(.IK=X&	>*U*ZH&	:;EX&*]	9$%PGHGC8>(.I*R	>	7	6	9;E\ 	5	4/3	>	7	7	9K2? *-	1; XHGX.	6	5	>+K%>P+B;E\ PG*9H>(+KL K2? *>;E\ H.XG$%	4P/0/
/S<BHG>(/S	7%>X+T	1/SHG>(+%	>//	.	5/-	6HC	,	+	5/?
FHRBHLHDE)D-= BGUWQSCVC%GP8TTHB"BIQLH!$?H	>,$	=9PLC	<K;$%	:/9<BHG	8K7$%.L<BX]L]X^; H]XIH]XHHV8 H]XT*"LH\IPT* H^\V;X\^H]	6K5$%	4.R	="6+I"6K3$%2J/2<B;XX)HW8 X(HUX9L9XP;X\PP(+E.6	1P9*>K2L/0/L<BX,X)K/$%HUX]L]
P]!)?H+\K.$%+SX,/L/
<BXHHHX;L;C-8 X<L;,/?C?CEE\
FD A&TG ]DQEEZEDMX"CVDKJ> K>K=$%L;8F?*LK<*KLH$%P<*JK=$%L;"S/;<B8D?.SK:$%K9$%.SK8X+	7!$C6H+\PXG$%LC	5K4$%/3XGHUXC2AK2
1Y"K0Y]2IIO>(H2>(*=;XX)	/*4!$=H+J9F?H+THC8!HV>(+JPC*=:IP>(H3>(/.;XX)	-*=	,8 X	LCXJ+ LJ9J<(+ 8F	+P	+ZK*	+K)	+HC/?BJBMMQA^MLE^0MCMED?DI
?CVHIMI^KL?>L	>HCX1	=/<K;9PTH1XC	:X3X2K9K82A
72I,$	6*O	5HU	>XG	4O3> ,$	2K1<(*8K;X&HC	0	:H&**	2K/<(*)K.<(*VK-<(*6K,	+*)	**)9TLVXPLP?H	=,$<BYZ/CME/IZ]]Q]CIZ]]C; I]	)C9P	(+E/T<B2AK	Y]I">(/&K%Y]<X	(2AI"
$Y"/?O"C?NCNZ+GFITTBIAC=3Z5=&NGVZRU"%&J$N>H8QSBZJ=
FHRNK>Y]K=K<ZI2I/;<B.INLC>.GM]"IQ]M]"I; I]	:"I9"Z*L2I.Z<B2AJ6C9<XK8Z6Q]I]K7> *XK6Y]KF> *-/5">KGI">(/5I"Q"KFZ8	4BH?*X	3*X*5<B[EK2[F;A2J	1/5Y".>PIKUPATM2A;$KE>(+$K"> +\S"K>Y]9P"Z;A2A2J	1DOK/5[F[E["SM2I	0K/
6/?BZ&J?OKPT>GPO< 
?,MMSNLIC?PY"	>/=PG"8C<K;2A
:;E	9Q"9	>/8K7	6/5RT.T<BK4	6$Z"02AK3<(/2K1>(.T*R<B"8<(*-9J> .!; HGXGP-*"AXG.!<BK09K/<XK.K-.0<B;ALCHGX L.8L .8<B!$C,/A<BXQ!$C+HQ\P/EA8!HG?HSL/L<BH=> /S!$C*K)\P/S/]<BXQK(XRO	<(/&YN/?RMVZ?8D;?\C?C!? Z<E>5/X==<LO*S"V/&HN>OMP
BMTRK>XLK=XMLM=(*I\L*D:\LIN/<"UPQ/;PR/;HGX/;<B0Y.U":YNK>XLINK:<(*7K9>(*8INK8> *+;XH)X).ULL<(*1?*+.U; HLXLIN\L.U;XYH.U<B0^C7K6.:<BYM"U0!+AIH?H+AIM0&:.?:/M<BH)=H+KK5=(+\K4<(+\K3=+^K2> K1K0K/	./M/"<BX92IL98J8J8J	-L9/?TC0BB ="MWA
<P?1BA?=1B=-Q!Q\VZVYT"CP9/><BC=K<<(*OK;<(/:K9=HK8K7K6H)$%.C.T<BX&	5*\H>?H*<*
LCXPTPPGLCHGX H&\ 	4<(*09J> *-K3\ H&$%.T	28 H\?H*:H&$%!$	1.TW*7	2XQHQ8!HGXTLCHQXQHQXHLQ\H; PT+C:H&\QLCXPTPW	0$%.T/W<B	/	.8HGX/IK<(/-K,8!HG?H/-IKK,XGHG8 /?1*VAX/XCD-JSQABIP8QLEB[A?<S!B?"?S%VH/YJ$%HCX]	>H/XGIK>(*R"V	=IJ<(*RXGPC$%/<RV.V<BHGX/HC8!HV> *(	;HU	:
VXP\P; HCXC.VIK<(+&XOK9Y
K8XNK7	6HNYLIJ> +TLCXPIC<(*?DP>(+TK5]LHNPC	4	3+G+QXGHCX]$%	>; HCXCYK+); HCXC9LC	2IL8!K1XTHTK0XIHIYKK8XHLH\IPT+"HC8A	/H/XGIK/?Z5RTNVX"X/XCB YT ?NU!BHR"%UVXSZLX> "S/><B<(K=XN	<8ALCXP\PLCXOK;Y
K:T.C<BHC8AX]HGX/H]	9	8XGIK	7H/XG.S<BXP8J<(ICXR;*DPHR\P."R/./<BYKK=H\8 HN?H./; HNYKIKK6<(+LK=YKMKK5> *:K4H\8!IK?*:]K*-;$H\K4YKK3$%+J/T<BY^HGX/XGX+%^=H+Y<(/2K1< /0K/\NPGHGC.>(+Z;E+/?GBIZ=7ZGHNV= 1*ZL&T ] ?!BQANUVTZK><(/=K<\NPG/=\NH/XGH+/;<B<(K:HGXHL]HGXRL]
]L]C9HG\]HG> *L]9F?HK8K7$%LH<(*,PR\RT]LR$%*K6$%L]	5.L	4HC"5/3<BX^LVX
L
?	2HV8 H^XT; HVXP+KHPXHLP\H; HPXPPT+DH
\^\
H^	1K0$%	/.5H=> /.	-<(+
K,>(/+YK	*8	)/(		$%/?XC\GQLVVC[=7P8\M&TF ]"O\HCVJSDL??\NUYSBYZBG\	>HGK=YK]K	</;	:XGIB>(,$/9	>XG	8	7XPK6XHPHLH<(/5HP> *TLHXP,PQP!$;X\P	4K3	2UIP> *-/1	0	/*&K.	/	-2J/,	+	4LUXPLP?*2IO> *?	*	)*9H2H3X3X2	0< 	)/(	4UH3H2X2X3IP> /		0< 	/+M/U<B;XX)LUXPLP?H/U	&HU	%+
	$HC/?^MHR"%^9H/,9+["O<]-SBZ*-,[<S"V:CVC[NGP0P8FEDD=XSNVHL^8!HU> ; HCXC	>O=<(IP> *./<<B	;X>HUXHLHXPLP?H.MLVXPIP>(LP?H*!	:HU	9F.M	>O=> *."0HC8!HV> PC*	8/7<B	;IO> /6HU	5	4.0K3K2X*;XX)HW8!X($*P(+A/1/F<BIP> /FHUX]!)?H+QP]+L\PH]	0	/K.XNK-Y
K,	+H3X3H6K*>(	-:IP> HNK)/?1*=3YT"3,[NU&T ]II^M!FZ5E\HP!HR"%CV]!VZRU >(*YXG	>*UHNXOK=Y^H6>(*PK<	;K:	;K;"(9L]	9	8H/XG/7!);X\P/7<BXPHCX1HPXCHGX0XG$%.]<BY
%^<(.(9J<(**8F%
**<B;$HOXOLO.3<B\N;$HNXN.9<BLO.?<B\N/B/F<BHUX]	6K5< +P	6:+UK<	49LU	9K3XNK6Y
H2X2	2=H+Y<(+""9+[H6>(+)K:	4K<	4HN8AXOK1XNK0/? ?NU"3RS*-=6+[
EZLX"BM,9BJ 3X/"	>XG	=*KK<XOK;Y^K:	9IK	8H/XG/7<BHVX]!)?*X; H]*Q	6H3X3;X\P;$HJXJLJ<(.O	5*]<BHUX]	6H2X2K<XJLJ<(.%	:*-.3<BX6P7H7?+&%
X6H6K4?+$H6ID>(*9H6<(+&K3< K2<(*9K1<(+&K0< +TH7K/X7K/< +\!)C.I\P*9K-> +$!)K,\P; .3H6.3H8X7.3/?HB;?HD?3J=6= ,9$A!EZL (*- ?NUX/YT$.A<BK>XJ!)C=8 X	HPXIXRXKLP9F?*SK<\J;AX+LPA>(*(K;*	PRIF8 HR> *"HJXKLI9J<(*(8F\JP	*ZLPAG>(+FHR8!IF?(*<K:\JHJXKHRC9K8XR*.HK< XJK7X
LK<(+F\J+ALP9D?H+MK6\JK5K4\J\JH+.AH=> /3ISIQ8!H:8!XPIT8!IUHP2J	2
1HP
0	/2J	.HC	-HUXC/? ]LTP8WZWYL+&HB ?*BMVSH?8BIBAAC?NU&	>$%	=K<	;P=X>/:"J/9<BX=XGHUX]$%	8"T$%.J<BH0XGH1XC.T;AYAK7""J/6K5"*H<BXJ	48!X	*0P L 9J<(*08F\JP	*)\J.; X5K3X]HGX.	2	19J<(+J8FXPL]	18!HP> /0;E\ P]PGL]> *:H.XG	/;XX>H)9XX)K5XKYLLK<(+^	5+YX>H)9DX)	.HGX0H.XG
L> /-/?(CQSUWC[P0P8RVQATT(HRUZLBE\S"WCHLXC($%	>*D	=H0XG*J	<; X5	;"4HC8!HV>(*WPC!$?*]	:*%IP> *%;XX)	9	8O7>(*KH)> 	=/6P5*)	=/5H52J	4
3HP
2X)K1/0XG.4<B	/8ALCXP\P; HGPGLCXJ; HG>(; X+PJHJXHLH<(*29J>(+BHJXHK8XIP+IA>(+[HHXPLP	.>X+CLI<(/-	,8!XPLH<(*29J<(+!8F	,HP/?P0*C*]QAPPW&W6W5L+C[E VZRU^MDKCVD-ILUW*> />/=IA>(*JLH"]>X/>LC8!HJXGP5/<H)>(,$HW99X(H(HCXC	;P(*Y/:<B	9K89K7<X*	K69K5:.]<B	4"].)<BYZYOQX
XK32A/2*8*<+BI[K1>(	0M[C/IZ][Q[.-;$I[GYX.-<BXP;$XTIZ8F8FYZIZC/XRLPC.HR\PPPPT+K/G/[<B; IXYX<P+	; I[Y[M[C./[I[K/>(	-/?.^C?<-S8B:*4P8Z?UJ=FP0(!^M&6)[)C,;EYXIO> *I;$I["M/>YXK=Y[/<<BXPLPC;XRPPLPC;9J8JHR8J8J.M<BQYIYK:2A/9,$,(,0I\K8>(	7M\Q\+*K5<(*5K4.[YY;$I\"M**
4"9QP.[<BYZYP; IYYY<P+I; I\Y\M\C;IZ]\.9I\K3>(];$I\	2;EYY.9<BK=Y[IT9P	1DQT/S/]<BK0Y\; IUYUIU9P	1H/]2I/?C6<(*\*+L.A+G8BZ=&C?./4B:, <+ZD+%..A<B2AIVZXNARAZWJVC><XK=ZVI!>(/<IU8!IT>(+U%!"H?/<	;/<*U<BK:Y[; IT=H*+YTIT9"AD.^YO.^2I./<B2AK:Y\IUIW> +HIQIS>(+NIQIR[BQQ
 BHH?*-	;*-*?IUQU9"AH*-;AYP*-	;+X2J/9K8K7	6X)K5$%2A/4/?>NS"<CS=HPT-( 
?0:.B/?2X+O>C=< *G"M*IK<X4H+2J/;.M<B;2AJ18F8DB\J	ZV2AN/8ZVJX^/8N/<J^J0> *	JV^/R1*O2A; J19D8FK:X4.M6^LA/?2AW<2I8??8	>*C/=; "3/=H!IE> *!	<HG	;K:$%HGK9?(*YHGK8?*\	7*SXG$%	6H!	5K4	5/=; HGC9K9> /=H!II> /3LCXH;E\HXGX>	2/1HG8 XTH=> .3LCXH+ALHIE>(.3PT*=R3.3X>%>P/
L C/K.9K->P+V	,L C+> K*K+L 	5+F	<HGC)>(,$+Y/?G? QSZ<%?
E)FUWBB TTHLFI? ?8IQEC%BGQL<IP> *LIY<(I\K>>(*M	=	<*K;K:XP2A
92IHP	<2AO92I>(*MIUIW<(*	8!XPIVIUXQI!"7IUYU*YIQIS<(*58!XPIRIQXQI "7IQYQ*	2J*]XRHPK8?(*?K7XPHP9J8J8JK62A[IHQ[K$R?+Q	5+Q+H;XKI[90ITHPIW2I>X/4ITIV2A[%I!>(++%!?++	5+++"2IITHPYTHP.7/?/UPTHO?1-SBZ*-,[4>$(

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