File SPCWR3.SV (save files (Executable program)

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

?>2CBHDH
LF(??:DF(<LB0
L8T=A??A??BL8?BL8?PL<<PL<<F?:F?:DHB?DLPD=>DSD$$BL>0<H8<??L.:$?>HNH(XAL<<"UPLC8:; >B L( <?ULOHCL>87DC.JLJX?LX?L=<FH[ LC<2FL>B$H=BQP&I2/WZ3R	O+NCG3NWE3DSE"M&J7JCM* CI7W+R3E?R"M&J3TSA. J(.0B0"M&J7JOM* CI2(WZ7RCO+R>I3SGT+RCT+BCY7ZKE3O;I3G" 3ESAE7R*JBI. Z-"M&J
C[D. B1"M&J3TSA* CI.(R4"1&02/	P+CCK+UCP3SGT+RCT+OCF3F3I7EN 7TKO3AWG"M&J3DGC* CI.(B2"0&12/	F+LCE3O	R3G;I"M&J3SGT"M&J3DGC* CI.(B2FD?:?<G?9?:DF?<?2N?9?4GLG?4?9L?+US?5?-KSK?-?5N?	?2Y\?$NY?2?	?]T^?,?"?,^T?"H!X!;$HOXOH!91H*> *=I
X!H*XOH$%^\OP$P!+NMQ\O8A%U\OHO]P: M!]!L(H,\(%O-NLO9!X!HH&:H<(8PH!:PH!8!H&>8+<H!X&;$HOX*MMX,H"X%H!8!* %ZR=R>A,>Z
>C:/=UA*AU>(T>C2!<>A[A[>%I=5C!(=AAGAX>%?)=.CX=+<+>,=XA1?R?5AM/=DAIAJ>7?,=	CUZ<-/AU>Z?7=\CBAB<9]AJ>(?==QCD7A8=JCG>KB<=XAGFF?:?:CP>WCPA&<OQ>?)?.<CA5>RAI?,?<QA5>TAI?5?.<\A1>QAX?7?T<"A1>TAP?M<+>Z<Q>3<Q>><H>><%?G<"F?:?:F<ZB
<8=5A??A??B?>B?>D?<D?<F?:F?:BR?AP=1>SA$BY><<8?/?.C:?I>NB(A&<"?UDC:>;>HB (<8?UOC2>7>CA.JJ?6?6=F?[(C2?F>CB$=BBQKA)AE?AB$?A<8>93C/?T>FCH=X>9ABC$?
>K=J>+3C$?F=)=U>->C6?F=7=X<P<"BI<0]AXB]LL?4?4=.>+ABC/?=7=.>3?*=&?
=!Z>(/>N]>D>
DDD?<?<D?<?<?;PASS3SVR[?8PARTSTD M? PATTRNTD M? MCPARTTD!E? FORLIBRL!M>RRALFSVS[?-FRTSSVSC?&MEDIAOSVV,?;SPCWARSVRE?-MICROSV*L?.MEDIAISV*4?9XREFSV*T?4REWINDSVT<?>CVCCSV*M?;DING INDIRECT FILECE/???%)8 H^JFJF>PA
?AHHDHR HCHCBBB\B0CUCFX(CYNNNPVV2["\\,^<BC^B<BB46HTB3<C B)=WFKB(?1= HB?YIJKU?UJ=FZK(FBDD?:?F$?<=AGIUF1LAKLB0 B>">&G8???0/G <%E DHGD,=?=D0B.A*9=H81<QNBRB=H81ZO8$Z[<E<KZO=A?H8AJOR[.B8!.B9=H81<Q8$Z[N\R\<(.\R\Z*<G?AR[.\8!.\XJN0R0<(.09XX.2I0BLJK?XGLJ1!A	B;P.*:
A.0X,H,C>K?X-H,C=9> 9PL-<X8!/FK<F/UK-<Q<E C[+=A[-K,<Q<E C:=AK+[,K,/YAHR8D=H-3XRHSP +,JAJAHP+$I.X ABA?D2A%BWCIC;D-E^FPGAG2H"ISJCJ2K!LPL>M,NYOFO2P]QHQ2R[SDS,TST:U
VDV(WKW.XOX/YOY-ZKZ	[B[][6\N\%\;]P]$]7^H^Y^(^6
C
N
Y
"
*
1
6
;
>
?
?
?
>
;
6
1
*
"
Y
N
C^6^(^Y^H]7]$]P\;\%\N[6[][BZ	ZKY-YOX/XOW.WKV(VDU
T:TSS,SDR[Q2QHP]O2OFNYM,L>LPK!J2JCISH"G2GAFPE^D-C;CIBWA%2(2% %- NOT FOUNDX I1XP%&-3<XI
90XQ<XPP8H<PPQ*UXQ2IHQ8 DPHQ\P2A.KEBH I^9I]<X*/I\9PI
<PR$.$H[%[H\%[%- DOES NOT EXIST%Z2II=XNIYXP\NPP+D2A-XD7LMIW<(+JIV<(+VI;<(+YIU/ILM%T+JLMIS<(+JIR%T+YH!U>(-3I	HOXZ;VX^K7%Q9F8FA5LZ\Z2AH IP<(%)X -OM9:%-ILLEGAL SYNT;.C.C?6?4?2?0?,?.?,?*ACEGIJALAMANA?>A?=B?<C?;D?:E?9F?7F?5F?4F?5E?7C?9A?8AM??L??J???8???9???7?=
5?;?4?:?5?:?7?:?9?:?:?;?;?<?<?=?=?>?>????ACEGIIJKC?=C?=NLAJBHBFBDBBBB?>B?<B?:B?8B?8DDBFH?=H?>GECL??J?>H?>F?>D?>B?>?>?>?>?<?>?:?>?8?>D?<B?:?8?=?8?>?9?;?=IJKA0AA.BA*CA$DA[EAOFABF3GGRGKMFKMFPOLO	>J!Z!P!*KJ!9F8FH(2J$RC\+7H(2J$RD\A+7H0XO$ZM78D8 ?PJY[0,LO[/;XLO
.K/8D?X+WK./> +W: K.9DK/8D?X+FK.H>+VK.X!K/8!H.9X[.,;Z[/K.-8!H!=H,[.,T1*.%2FHK(A: 2I\?,+S(/%2HH??[(A/$V!AF+7K.	>K0[0/,%SAVE ERRORO59HXIK?XH"F.K>X.LI\HP.*I.FXHK?XI"F.N IMAGEM78H:HR?X.X2J$RIH?XR.X%A% NOT FOUNDF<]7%(2J$RK2A.-%NO!!L!]VH&>(%BOK8A[]HV]WHV[-LM\NS
+E/J=MF.W*+UK]
+0!+Q/T?/O)[\S)O)[[	-BC+%K[5K][]S)+M2J	,G<D<?2?>GS2+$/ J*%7HT9J8J8JC?<(K?8A9H?/OHZ> .HQ>(.H^918HX.: H]XHH!ZRH $9Z9H!ZYH
8!$9Z=H
=H8![RHR<MB[.HS<MB[/H!Z+H
$9[HH!Z1H $9[LLH[+LH[,K+$9[-K,$9[1K1K-K.2I\%P%2AK+$9[0K,$9[2K2K08$9K/2I\%P%2AK18!K-K.2I\%P%2AK28!K0K/2I\%P%2AP.*3..J:>:?WCI=V??0G8O!:
?8?H.HZ> .K?XHH!ZJH
$9Z
K>9XX.HR<MB[LHS<MB[MH!Z[LH$9[NLH$9<MC[O2IKNKL\%P%KOKM\%P%KNKL\%P%KO8!KM\%P%KN8!KL\%P%KOKM\%P%KN8!KL\%P%KO8!KM\%P%2AP.*Y.[%K%8D:OP=H8P<X+!K%=H8P<PSPSP/PK%SPSP/P;HT8!XTS&/&;HU8!XUS-/-,).+3	%.%2!4%$Z?*KR=H8!<ODK?ZINI.
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
<
8
)
Z
P
F^2^^^E],]S\:\\[>[VZ.Y<YJXNW\U+T-R<QLO(NDL J<I1H&G4GBFPE^D
C!B9BVA=A$AK2/.--------T=I,[MK<[KKLZ%9/O%4IO+%4K;%H IL>(%<;&%-?[8
:%;<H+5S8+0: [8+2H 	9%<+(	9S8+4/%V)V5?9.WX=6TJ$>ZGJGZUH$9ZGH&<(*PZOH $9JGHTXTH"$9ZUH&<(*^Z]H
$9JUHUXUHTMZ&HR	=$7XRHUMZ.HS	=$8XS.H(>(*9H	HW*=>QH	<KCXWHWHXXXHX<MCC<XVHV$=X
HV$<X .2$:N8/M.;LST<I"[,K4KP[.K,IM9F8F8FAIKP[PKP9PK5>0+6	3".-	>H/XK<-H>G-X:(K;-H$&*;+.$&C?SPX]X;HR=H8!Z\HS=8!J\>P*O:HR*Q:HS	?X!H!ZWHT$9$:N8.:H!ZHU$9$:N8.]	>HP<OBK=Z1N1.(K<XK[FK;X0\KSFKF	:Z?H2$:88!\KP0*9.2,]H K9<(+QK8>(/7;X*V%<P2+ HWX]%HPXLHQXMHRXNH]XO*IHW
!H]>(+W%")$*I9H-/+J
A/H[8 \/6%</3[Z[&^A^AEC?/=T[G>AE?FZTHR=H8!ZHJH<Q<E[D=A[EHS=H8!ZSJS<Q<EKD[D9=AKE<Q:DKDXPHP<IZ&<!KFZ)<QJH<G:<KXHR?*1H8!XJ&Z8J)Z;<QJS<G:<KX"HS?.H"8!X".C9D9D[
K?[!8A[SKS[ K
$:8KS9H[SS!+OKS9H<(8A/GH&>(/"K>X]$?C=8A8AX^%B/"/9
+].=P=HB<B?+4<^X\&3NHE?<R)8>QJ)<KD<MDZ)J)C?Z*$?C>J*=8!9DZVK=$;JVK<8!Z
;$Z+K;$;.;K=$;>K;$;>.??:$?C:K9Z4K8$;?.,8A%1LHX.LHX]H\A,<(+X8!HWA,>(+OH\	>X\KKX8P=G<H,	I>H]X]H.A=>(+X%"):H.A/> H\A-H]X\LHX,]OH]8 AW< ++%"))H]X]/^^.,]^$^4^4^	K;>(0YG?? 
K?BPI?G?8HZ> .HQ>(.J8X\H[>(.P[8<QJ8<KB\6P6HV$=Z"HV$<Z\K?$9HR\6P6K?$9HS\6P6H4Z*J\$9HHT\6P6H4Z2J"$9HHU\6P6P).?0: XZ$?XR$?XS.9<(/5K4<(+^8A<(+*W3K2[[H)?(+SS\+W: [\O3XK[,S]K[
]+SBM??L(K,>(+	[,P"X!H)? %]I\[[+QS,/6AA/X\*4Y%BLBL*M+B*AA4>A^AZQ] Z.?BEC%KH)? 
8P&+ZKK
8-?KZ2I>9!M)[<X.2M)%+M)K7+E	9%<+(	9S8+4PSL\? PAO!KI".$/-,H)<(.8!Z[K?
>X*X&X	K=Z\J\X6"<%C	<	;	:	;"
R[*OH*X).HR<MB2IZ]J]\%P%HS<MBZ^J^\%P%J]\%P%J^\%P%2AHQ>(*;PQG.
K9XHK8X.N\\HR\P.+A.<P*K9XHK8X.LH\6P6P.+M/GH$<(/SZ[X*X&X	K7Z\H6[,K7X6"<%C"
R[+!K,X6H*8!X$/S/!??0 IU;?U	P?;P$,%E$S -G?HR"L<H*HHS"L*JR.XQ.=H8!C?> RL.L".SO>>(*	O=> *	HR8!O<"L<H*	HS8!O;"L*)RS.SXQ
>.S".,O:>(+O9> +HR8!O8"L<H+HS8!O7"L+BR,.,XQ
:.,K6XHK5XIK4X.LH\ILHHR\ILHHS\ILHHT\ILHHU\IP.+LK4X$/EZ-*)D-XWH)> /!HWHX9PPZ%U:XZ/!& S^SSW/>G?0	O%?K=K<LDK;K,K+K3K*>? ? (P? (P?$PPPP?$?0?0?0?0?(P?0?0?(?0P?0?(  ?,P?,P?,?0?,?0?0PHH?0PH?8?0?0?8H?0?0?8?8%<*VK?J
ZT%4%	*0"8*+%%X\HR?*J%")0*J%")H ?H-?%<.8H/	;HP\IHQ\IHR\IH]\I2A/ZGX: HHXHHHK:?H+\H\H: HHXH/MK9-H[UH K89K7>PS^/^B
%E/&%	/&S&/&XUH K69K5>PS-/-Z<%J=F"%2SN?>XI=DH0BK?%"SK?%AK>%"SK=XRK>%AK<X6X)	;0A/:XTXUK9XR$?XSXW$?C8XV8AXQXYXZX$H+X[X\	7.SN>R>APZTN>3N>R>AP9J8JJT8J8J3*&R=?*X/???A<N?5FA>OW>H)?(+L	=IY
<IZ
;X4K:[V2IOA2A<(+.2J$*A>J<BKVA,K9> I>H6[2IOAAD< II9Z8JZ?SAOAZVSAZ=2A*FK83I\3/7*7A-/6^8X2B?U,0" +K9K(: 
?K>X%2I
=
<2AK;%HQ>(*YK:[G>D	9HZ> *V	8	7K;%A%EK6%HQ>(*.K:[G>D<OG	9HZ> *+	8<H	5	7K6%A%E0B	40AH$> 	3H%8!K=0BZ;K2$;%G0ASG<H/1KF>(+A[F*B+NH ?H-?%<+I	+	:IY[	IZXJ+[S	+[: [	+]H \J: X^%<H ?+V%]-?H)*ED!%4H IG>(/	H ?S	/	*
?S"$SK9%E$.?K( A  B\+
?O?8H>XH1X&XZO?C><(*ZX,H,K=>(	<HZ> .H,8J:H3<P8!X	H\>(* P\*$O?C;> %H%C%D%B	:.PL<<PL<<F?:F?:DHB?DLPD=>DSD$$BL>0<H8<??L.:$?>HNH(XAL<<"UPLC8:; >B L( <?ULOHCL>87DC.JLJX?LX?L=<FH[ LC<2FL>RH^9?:FNFZ8HZA0Y*J0^ZP. 0!*R0"ZO. 1Y*W1]: 
?4B4J;JA9DJ2$0A,2*W;1Z1\K>1[;K=1Z1];K<1\;K;1Z;."]LL?4L?44H.,>ALBH/L?L=47L.L>L?4*D&<?=!HZ >L8/DN4>DD<>DDPL?<<<PL?<<<L 9B"B"BBZ!CA? -FT"&<08G<=8R<:8[<&8"<>3	<)4<?4H<24N<941<35B<.5P<,5I<-6(<*8<+6V<16==>/?Z4N&R&<(.&J4>(*1R&*(N&Z&.&N5Z4R5N48J8J8JBN4BR4*9C><(.5
==HK<K;L/B0&
:	9O:< +O/LO8< +Z	9+U[^
8K^/TK7LK6L/
	9*K5X7K4X8"5<

+%CA7BKO3E3AS-S&BJBM0P0 0OB A? ?*K?X7K?X8	><$	=/<:AX(	><,	=/<X(	><5	=/<Z/Z0	;	:O9K8=*(K7=H*(Z0J/9D9D9DJ0Z/R0*V;J0> RS	=J/.S	>="S/<X2K6
5	4H2?/3	>=N	=K6
5/3	>=U"S/<8!X+/<	>=
"S/<9FX1/<	>=*"S/<X3/<	=OV<(/V[]	>SV+W.3R;"6*M.1.0.0B;.;B1.;F-.0B;.;.0.-B12I,X20 2H=H3^3L3T3%3
25HC	?:R:	:<;H;T;\;,<J<Q<W;$<
<$<,<5=U=
=*:/>	=;<	<K;
:K9
8K7
6K5
4K3
2K1
0K/
./-	=<C	<J8
8K9
:K,
6K+
4K*
2K)
0*%+S	M3RGF3K& 7NB 7EOR7EOU.MFJ.6.4.-N6*I>I+ICN3A	RE7S"J*M2/WLO&I3S
A3IGT7RWI3S^ 3E	MN	I3P
E3A	SS(JA0HU,0 2LHFLGKMK7NK6I3QP8.	$53
253%5V	?:	>/=9HX4/=	?<Q	<:K;X!K:
9K:
8/=	?<J	<:K7
9K6
8/=	?<W	<:K5
4/=	?;$	<:K3
4/=NING BATCH%SUPERCEDING%CAN	T REMEMBERI/O ERROR ON SYS:ILLEGAL SYNTAXTOO MANY FILES NOT FOUND DOES NOT EXISTBAD MONITORINPUT ERROR%G,<%F	>	?V*V"M
?3
3%4S25VELOCITY INITIAL OF MISSLES(2000):OPTIONS ARE DESIGNATED BY FIRST CHARACTERTHE NUMBER IN PARENS ARE "NORMAL" VALUESINPUT NUMBERS ARE OCTALAVAILABLE OPTIONS ARE:U DISPLAY UFO	SS DISPLAY SHIPSZ POLARIS ONLYG RESET GRAVITY CONSTANT(1000)DISPLAY UFO	SDI
PLAY SHIPSCURVED SPACEPHLAT SPACEFIELD OF STARSBOUNCE ONWRAP-AROUND ONANGULAR MOMENTUMNON-ANGULAR MOMENTUMSTRENGTH OF GRAVITY(1000):ANTI-GRAVITYMAX NUMBER MISSLES:THRUST CONSTANT (2):RETRO-THRUST (4):65"J*M2MJJ;%
%?(	,2M*J+)C-2 & +SCZ3NOR7ROD.MFJ.5N5*4B .5J7*7B * B * B 2 * +MCP7IR 7IWBF*M.1V5*3B5. B0*0B06 SC*,B * B "0*M.1V5*3B6. B0*0B06 KN3CSR+SB,"0*M.1V5*3B7. B0*0B02 ;O3T7E+PB,"0*M.1V5*4B0. B0*0B06 SS3OGR+GB,7SWB7FSS* > 3S?T3R
AE*M.1V5*4B1. J0*1B42 ?F3R[M*,B .2R1* B * > 7GSE

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