File SPCWAR.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=BQ"0&36/SS+ECP7CWO3NWT3R2 3OSA6 KF+OCM3M7E7O	R6MNJ/C7A.IR7"4&16/SS+ECP7CWO3NWT7RR 3OF 7CWC3M3U3A?TR*M3MGQ.=^I.5F06IJ/3ESA6 GM"M6
"J*M2MRJ.=FI*0>I7DOI3PGL3YJ 3U[F+ECR3FWIL7D2J	D7SWB/FR=.0B02IF/7DKD7EOS2 [O2 	D3S3P+ACY3B[U7FKE"M6J"J*M6LB/3AWG2 WZ+RCO3C;O3SGTFD?:?<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?<?<I/O ERROR ON SYS:ILLEGAL SYNTAXTOO MANY FILES NOT FOUND DOES NOT EXISTBAD MONITORINPUT ERROR READING INDIRECT FILECFILECCFILECCCCCCCCCCCF/???%)8 H^A*HVLALA
?AHHDHR HCHCBBB\B0CUCFX(CYNNNPVV2["\\,^<BBZL=RA ?;<>EC?K[PBIG]DB0?XL(?<BMHZBI=3NP) ")MBJ(8)--%O"G.%!>A? $?GZ! 2C$B FO = O?!)&FE?B0B.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.*:2A.0X,H
C>K?X-H,C=9> 9PL-<X8!/FK<F/UK-<Q<E C[+=A[-K,<Q<E C:=AK+[,K,/YAX
: 
;W:-?HSP +,JAJAHP+$*=*<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%29F8F8F.C*P
L
< */H)?(*ZI X
L
<(*ZI
>(*YI^$(I^$(]K?X^K>X
P
	=*	\
P^*^: X^*
\
P
\
I X
: X^*GI
<(+GH3K<<(+MK;<(+GK:< K9> +HP^*FI5X .EP++QI7X
;XL
X : X^.EH+<(+EX+P
L
I
<(+EK8<(+CK7>(: +MK>XJLJ<(/]$(] + :K6[,K5X(%"0(-, 4HWA,%6/.<(%)SS3%B?O?)2?4?^*NO>/;.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[EAOFABF3GGRGKMFKMFP?H*RH\%%*&(%*ITX%H8!L%?*\H\%%SPWHWA-> .%*I)X%L%XS.&!CSCYCMCBCOCLCSBIBIBIBIBIX$[NH08 X&H$X/%:HP8F:HR?P+GKNX/%!SNP$P&*:: KNX0-?B B CPCACLB8B-CVB9CBB
B CNCOB/CDCAB/CTCEB B CPCACGCEB ^O"%IR$(: X/I\$("9*^*RHKBD ERRORO59HXIK?XH"F.K>X.LI\HP.*I.FXHK?XI"F.NB B B B B$B$B$B$B$B$B$BMB-B4BIB/CMCOCRCEB CSCUCNBMBMBMBMB-B1B2BMB7B;B-B1B0B;B B-B5B;B-B1B1B;B B-B3B;B-B1B1B;B B-B1B;B-B1B1BM/*?3?0+%K[BBBBBBBBBBBBBBBBBBBB
BBBBBBB?/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".C+>H/XK<-H>GC\?]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%")$*I8!/6H[%6A/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,/6AY-,\^.Y%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/???A4N?6DA>OW>H)?(+L	=IY
<IZ
;X4K:[V2IOA2A<(+.2J$*A:H<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?<<<\ 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<

+%.4*46;*46;S-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.2"0.;&2*I>I+ICN7VKIG7O.J"8.;V1"7&I2/,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*%+SSI.,BI2M2J3SGP+C3E"I60"J*M7TCA3E?N.,BI6MBJ7R
T+D3S"I606JKP7TSCR&,"0*M7DSA+E3P"I602JGN+M3E.I.0. (JA0HU,0 2LHFLGKMK7NK6I3QP8.	$53
253%5V	?:	>/=9HX4/=	?<Q	<:K;X!K:
9K:
8/=	?<J	<:K7
9K6
8/=	?<W	<:K5
4/=	?;$	<:K3
4/=D ONANGULAR MOMENTUMNON-ANGULAR MOMENTUMSTRENGTH OF GRAVITY(1000):ANTI-GRAVITYMAX NUMBER MISSLES:THRUST CONSTANT (2):RETRO-THRUST (4):%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):K(6J;2;-;88M:%:!;%5N;^;9:3IWN2 ?R3U	TN7E2J*I+MCS3X	SN7E
J*I+MCP7I" 7COOI	N2/;A7DJ 7EWTR7N"J*M2/GR3N?D3M: 3UKM+ECR3G;E3EGR7TKO".*M6/OU+ECS3R:(*+&1.=J(/^F1*+&33R:(*-&12 ?M3D3U/OJ "46.2JN/3O3U3DJ 3E2 7EOS2 ;I3T3E3EWG+NCT7FKO6 CS3ESE".*M2/WR3S3U3T& /SF 22J +ICT3R;A3D7O6 WN3MWB3R& 

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