File STARTR.SV (save files (Executable program)

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

?=2C8H
PXSH8B$=A=1Q9<K< =!0C$P=A=1Q:<K< =!0C$ =A=1Q;<K< =!0C$0=A=1Q<<K< =!0C%=A=1Q=<K< =!0C%P=A=1Q><K< =!0C% =A< =1Q?<K< =!0C%0=A< =1R<K< =!(!^8<!<K< =!0C\=AQ ==1PQ<K< =!0C\P=A=1Q(<K=!0C\Q=AQ
==1PS<K=!P;=P< 0C\ =AQ^==1PU<K=!P;=P< 0C\0=AQ]==1MZCHH=NLHT90CE0POXD)GQPOYC)BQ)AAA0CFPOXD)E(0CFP=A=1QJ<K=!P9<J< PC<AR(!?X(!"Q0CH P!9T9)AW0CIPOYC)E;0CIPP T9)AW0CI0P$T9)AW0CJPPZ9T9)AW0CLP( :E(!"Q0CMPCAWUW0CMPPZU[PCE[)DA>A[TR0CM =1QKTB=!0CM0=AP $R!W5$CU\P $R
W5$ TQ\=1PB=!=
<K=!PC<AR)AAX0CNPPCYW)FBOPZYW)FBO0CP=A=1QL<K=!0CPP<D=1QM C7AQN T7A=!0CQ=1QO  7AQP !7A=!0CQP=1QQ "7AQR 7A=!0CQ0=1 56!TB=!0CRP<D0CTPPZTE( Y&T50CT PZTE( Y&T60CT0PO$6 54D)CB80CU<D0CUP=A< =1QS<K< =!<!0CU0=A< 0CU2=A=1QT<K=!0CV=A=1IU=!0CVP=A< < < 0CX=1QUEV=!(&^8
1QWEX=!(&^80CXA=1QUEY=!)FDP=1QUEZ=!)FDP)AC[0CXE=APG==1PA<K< < =!0CXF=A=1Q[<K< =!0CXG=A=1Q\<K< =!0CXH=A=1Q]<K< =!0CXI=A< =1Q^<K< =!0CXP=AP"==1Q
<K< =!0CX =AP"==1Q <K< =!0CX0=AP"==1Q!<K< =!0CY=AP"==1Q"<K< =!0CYP=A< =1Q<K< =!0CY =A< =1Q$<K< =!0CY0=A=1Q%<K=!Q]==1PK<K< =!0CZ=A=1Q&<K=!0CZA=AQ^=P;=P=1PM<K< =!0CZP=A=1Q	<K=!0CZQ=AQ
=P;=P=1PO<K< =!0C\=AQ ==1PQ<K< =!0C\P=A=1Q(<K=!0C\Q=AQ
==1PS<K=!P;=P< 0C\ =AQ^==1PU<K=!P;=P< 0C\0=AQ]==1PW<K< =!0C]=A< =1Q)<K< =!0C]P=A=1Q*<K< =!0C] =A=1Q+<K< =!0C]0=A=1Q,<K< =!0C^=A< =1Q-<K< =!0C^P=A=1Q.<K< =!0C =A=1Q/<K< =!0C P=A=1Q0<K< =!0C  =A< =1Q1<K< =!0C 0=A=1Q2<K< =!0C!=A=1Q3<K< =!0C!P=A< =1Q4<K< =!0C
 =A=1Q5<K< =!0C!0=A< =1Q6<K< =!0C"=A=1Q7<K< =!0C"P=A=1Q8<K< =!0C$=A=1Q9<K< =!0C$P=A=1Q:<K< =!0C$ =A=1Q;<K< =!0C$0=A=1Q<<K< =!0C%=A=1Q=<K< =!0C%P=A=1Q><K< =!0C% =A< =1Q?<K< =!0C%0=A< =1R<K< =!(!^8<!?FTO DESTROY THE KLINGONS. ONE STARDATE TRANSPIRES EACH TI
E?G  POWER AS TO DEPLETE HIS SHIELDS. KEEP IN MIND THAT WHEN ?G  DEFINES THE AMOUNT OF ENERGY TO BE ASSIGNED TO SHIELDS. ?H    ALSO GIVEN AUTOMATICALLY AFTER SUCCESSFUL COMPLETION?H  COMPUTER WILL COMPUTE TRAJECTORIES FOR YOU (OPTION 1).?HYOU MOVE TO A NE
 SECTOR. (THE UNIVERSE IS 8X8 SECTORS).?HTHE ENTERPRISE IS DEAD IN SPACE, AND MUST BE EVACUATED!!?HSHORT RANGE SENSORS REPORT NO KLINGONS IN THIS QUADRENT.?I  CODED IN THE FORM XXX, WHERE THE UNITS ARE THE NUMBER ?J    A STATE OF REPAIR OF LESS THAN ZERO 
NDICATES THAT?J  OF STARS, TENS THE NUMBER OF STARBASES, AND HUNDREDS?J  COURSE IS THE SAME AS WITH WARP ENGINES. THE LIBRARY?K    GIVES DIRECTION TO ALL KLINGONS IN YOUR QUADRANT. ?L  YOU MAY DESTROY THE KLINGON BY USING ENOUGH PHASER?MAS CAPTAIN OF THE 
NTERPRISE, YOU HAVE 30 STARDATES ?NYOU ARE HEREBY RELIEVED OF DUTY!! CONGRATULATIONS!?Q  A 	WARP FACTOR	 IS THE SIZE OF ONE QUARDRANT. ?R     *** THE ENTERPRISE HAS BEEN DESTROYED ***?SENGINES ARE DAMAGED. MAXIMUM SPEED = WARP 0.5 ?TTHE LAST KLINGON CRUSE
 HAS BEEN DESTROYED!!?V  COURSE IS IN A CIRCULAR VECTOR AS SHOWN.?X  1.2 WOULD BE HALF WAY BETWEEN 1 AND 2.?Y    THE DEVICE IS TEMPORARILY DISABLED. ?Z  REAL VALUES MAY BE USED. FOR EXAMPLE?ZOPERATING COMMANDS FOR THE ENTERPRISE:?[  YOU FIRE AT HIM, HE WI
L FIRE BACK! ?\COMPUTER ACTIVE AND AWAITING COMMAND?]YOUR RESIGNATION HAS BEEN ACCEPTED. ?]THE FEDERATION WILL BE CONQUERED!!! ?^FUNCTIONS AVAILABLE FROM COMPUTER:?
  OPTION 1 = PHOTON TORPEDO DATA. ? UNITS. SUGGEST YOU TRANSFER FROM? DANGER AHEAD, ENTERPRISE STOPPED?!YOU CAN	T DESTROY STARS, SILLY! ?!THE FEDERATION HAS BEEN SAVED!! ?"  OPTION 2 = SHORT RANGE SCAN.?"ALL PHOTON TORPEDOES EXPENDED.?COMMAND 5 = LIBRARY 
OMPUTER. ?COMMAND 3 = PHOTON TORPEDOES. ?$    OF WARP ENGINE MANUVERS.?$  OPTION 0 = DAMMAGE REPORT.?$COMMAND 1 = LONG RANGE SCAN.?&NUMBER OF UNITS TO SHIELDS?	  THE NUMBER OF KLINGONS. ?	  SHIELDS DANGEROUSLY LOW ?	STAR TREK SPACE SIMULATOR ?	NUMBER OF U
ITS TO FIRE = ?	COMMAND 0 = WARP ENGINES. ?(------------------------?(***STARBASE DESTROYED***?(DO YOU NEED INSTRUCTIONS?(DAMAGE CONTROL REPORTS 	?(COMMAND 6 = RESIGNATION.?)***KLINGON DESTROYED*** ?)  1=PHOTON TORPEDO DATA ?)UNIT HIT ON ENTERPRISE. ?,  2
SHORT RANGE SCAN?,TORPEDO COURSE (1-9)?,COMMAND 4 = SHIELDS.?,COMMAND 2 = PHASERS.?-UNIT HIT ON KLINGON ?-SCAN CHART SYMBOLS: ?.5=LIBRARY COMPUTER?.SHIELDS WHICH HAVE?.ENERGY AVAILABLE =?/1=LONG RANGE SCAN ?/***FATAL ERROR*** ?/  0=DAMAGE REPORT ?/ NOT OP
RATIONAL. ?/WARP FACTOR (0-8) ?0<*> = ENTERPRISE?0ENERGY AVAILABLE?13=TORPEDO CTRL. ?1   <*>+++ * >!< ?1TORPEDO MISSED. ?1STATE OF REPAIR ?2>!< = STARBASE?22=PHASER CTRL.?2SHIELD CONTROL?2IT IS STARDATE?2CONDITION     ?36=RESIGNATION ?3+++ = KLINGON ?3YOU
ONLY HAVE ?3TORPEDO TUBES ?3TORPEDOES     ?3STARDATE      ?3SHIELDS       ?3KLINGONS      ?3ENERGY        ?3CONDITION RED ?40=SET COURSE?4WARP ENGINES?4PHASER BANKS?4COURSE (1-8)?55 ------- 1 ?5COMBAT AREA ?6	 DAMAGED.?6 *  = STAR?6GOOD LUCK!?6DIRECTION=?
4=SHIELDS ?8SCANNERS?8COMPUTER?96  7  8 ?94  3  2 ?9COMMAND ?:YELLOW?:UNITS.?:DOCKED?:DEVICE?;      ?;GREEN ?</ ^ ?< ^ /?=YES ?=RED ?>/^?>^/?>NO??: ??Y ??N K	2Q?8KJ(2Q?1GV/2Q>8	W2Q?	WT2Q?,W
2Q?((A2Q?(/L2Q?5.!2Q?3	I2Q?	0E2Q?9+	2Q?/.)2Q?402Q?9+I2Q?/0%2Q?<,92Q?2002Q?>,M2Q?1/E2Q?5/+2Q?70.2Q?>*+2Q?.0"2Q?<-Y2Q?3/;2Q?9.>2Q?4+12Q?/
42Q?S-)2Q?3<2Q? *52Q?.0N2Q?:((2Q?(/S2Q?6$M2Q? 042Q??*?2Q?.	%2Q?	*U2Q?-%P2Q?")42Q?,)B2Q?)$^2Q?!(N2Q?(^)2Q?N,
2Q?1,D2Q?0&-2Q?&0V2Q?:,(2Q?1[I2Q?HW,2Q?80R2Q?:)\2Q?)+S2Q?/Z,2Q?H-I2Q?2
\2Q?RE2Q?] L2Q?T$/2Q?!0^2Q?;0+2Q?=0J2Q?:.A2Q?3-Q2Q?2.Y2Q?3-92Q?3.I2Q?3.Q2Q?3"
2Q?\X2Q?^+]2Q?/)O2Q?)))2Q?,/%2Q?6,V2Q?10Z2Q?;.02Q?4/12Q?8.72Q?4-12Q?3-A2Q?2/62Q?8"22Q?]([2Q?(W12Q?8082Q??W62Q?8022Q?>062Q??0(2Q?=^N2Q?MW;2Q?FZO2Q?H* 2Q?-+;2Q?0/Y2Q?6-!2Q?3,12Q?2!72Q?Z	32Q?	 2Q?V!2Q?Z 92Q?X
C2Q?Q&^2Q?$[&2Q?I\
2Q?J&;2Q?	*J2Q?,]32Q?LXY2Q?G"K2Q?[%02Q?\;2Q?JY22Q?H)?2Q?,X72Q?G% 2Q?&O2Q?$\C2Q?J!N2Q?Y*2Q?
]W2Q?K%2Q?"YU2Q?H&2Q?$(52Q?(/
2Q?6R<2QIIRL2QDDP22QJCP]2QGL*2QIIL^2QDAPETGYLW\D^BPDPDRBXCPCTCXC\Y&Y&^.EFDTHYEUH[ EVERPE^EQDZESIR0F\)&XFV FYFY FZFX=A< 0B&P=A=1PC<K< =!0C<D0CP=A=1QE<K=!0C =A<IT90C0PC9DC(&64PC9DT(&?OPC9D )FAH0CA=A=1QF<K< =!0CAP=A=1QG<K< =!0CA =A=1QH<K< =!0CA0=A=1QI<K< =!0
B=A< (!>L0CD=A< 0CDPP UXPCEX)D&AXTR0CD PO$  R4A)G!0CD0PW$T R4ATD0CE$C R6!XSUC0CEPPOXD)F/0CE PD]C<NIYV:2I>N??P>
??PY(2IP ]2I  ^L2I0 !G2IYSTAR TREK SPACE SIMULATOR A
^2IA J<2IA0 KZ(2IA??E M SZ22ICE&I2IB SY"2IBP S&42IET00=A< < =1PA<K< =!<Q(!Y,PC>NHEC=N<D0BPPGTE( Y&GHHTF0BQPFTI0DPKTJ0DPPMTL0D POTN0D0=1PDTC=!(!ZPS$C R4ATUPTTPU<>TVPW$T R4ATXPTTPX<>V>^<D0EPPZTE( Y&TY0EQPYT[0ERPYTS0ESPYTW0E!P\T]PCD]($[V]TRPTT
PCD
($[Q
T^PC$^ R7BPC<A^(![CPC<AR(!Z;0E0PC<C$C T7BPC<C$C  7BPC<C$C !7BPC<C$T !7BPC<C$T "7BPC<C$T 7B0FPO$C C7BPO$T  7BPO$C "7BPO$T $7BPO$C \7BPT%PCD%($\\%TRPO R7CPC<AR(!\O0HPOT&POT	0HPPZT(PCD(($]<(TR0H PZT)PCD)($]7)T^0H0POT*POT+0IPC>ND,(%]O0IPP TE( Y&T*0I P*	T	0I0P
>ND-(%]
0JPCT+0JPPC&T&0LP"TE( Y&T.0LPPHH*T0P/H+0.$^ R7PC<A^(!\1PC<AR(!\	0MPOX	(&\\POX&(&\\)AC[0M PCXY("^T0M0PCTSPCTY0NPZXY(	^ 0NPPZTSPZTY0PPCX[("^,0PPPCTWPCT[0P PZX[(	^80P0PZTWPZT[0QPH$[ Y7 TD0QPPD=NT*0Q P*XDH/=NT+0Q0P/H+T0PHH*0$[ Y4T.0RPOX*(&
70RP=A=1PE<K<PPF<K< =!0TPHH*XN($
70TP=A=1PG<K< =!P T0PCD0($ U0TRP T1PCD1($ P1T^PO$^ R7APC<A^(! BPC<AR(!
:PZT2PCD2($ 32TRPZT3PCD3($ .3T^PO$^ R7DPC<A^(!  PC<AR(! X0UPC$W S7D0UPP*T4PCD4($!$4TR0U )B80U0PT$6 57D0VP5$C R7A0VPP6$T R7A0XP7$  R7APC<AR(! >0X POX+(&!40X0)B80YP!$6 57D0YPP.T8PCD8($"M8TR0Y )B80Y0P $6 57DPC<AR(!!90ZP( :E0\=A=1PH<K=!0\P=A<IT90\ PCX9(%HP"X9
$HP9=NX9(H0\0PC9T50]PO 54C("H0]P)BR0] =A=1PB<KPI<K< =!(!"Q0^PC9DC(&%%PC9DT(&,8PC9D (&.<0^APC9D!(&0.PC9D"(&6CPC9D(&>L0^BPC9D$)FCQ0^P=A< 0 =A=1PJ<K=!PG==1PK<K< =!0 P=A=1PL<K=!P:=P;=P=1PM<K< =!0  =A=1PN<K=!P<=P;=P=1PO<K< =!0 0=A=1PP<K=!P===1PQ<K< =!0!=A=1PR<
=!P<==1PS<K=!P;=P< 0!P=A=1PT<K=!P:==1PU<K=!P;=P< 0! =A=1PV<K=!PG==1PW<K< =!0!0=A< (!"Q0"P=A=1PX<K=!0$=A<IT>0$PPCX>(%"QP\X>(""Q0$ =A=1PY<K=!0$0=A<IT?0%POX?(	"QPZX?($"Q0%PPO C4C("&&QX?(	&&0% =A=1PZ<K< =!(!%;0&PZH?XJDO($	R0&PPCXN(%880A=A=1P[<K=!PJ<J=1P\<K< =
0AP=A=1P]<K=!PN<J=1P^<K< =!(!"Q0A0PUAPCEA($	/AATR0AAPO R4C("	*0AAPPC R4 R7CPC<AR(!	W0AA0P/TE( Y&D"((
PTX?(%(
0ABPTE( Y&T50ABPP"TE( Y& 54C 57C0AD)BR0ADP=A< =1P
<KPB<KP <K< < =!0AD PZH?=NUB0AD0PO$W S7D0AEPSTD0AEPPWUC0AE P>=NUD0AE0PCADUF$C!D6"$C!F4BUGQDX>IG$C!D4"UE0AFPCADUF$T!D6"$T!F4BUGQDX>IG$T!D4"UH0AFPQBUFPCEF($*-AFTR0AHQESTS0AHPQHWTW0AH PCXS(%+VPZXS($+VPCXW(%+V0AH!PZXW($+V0AH0PS=NUGPW=NUIPO%I!G4D(&*(0AIQEXSTS0
IPQHXWTW0AI =A=1P!<K< =!(!*-PC<AR(!)0AJPS=NTS0AJPPW=NTW0ALPC$W S7D0ALPQBXJTJ0AL PCX?(%"M0AL0PCITI0AMQJFXI($9J(!"M0AM PZHYDUGQBIEAGTD0AM0PZH[ACUGQBIHAGUC0ANPZ\D=NTY0ANPPZ]C=NT[0APPZHYXDA=NTS0APPPZH[YCA=NTW0AP POXS($,U0AP0PCXYTY0AQPZTS0AQPPOXW($,$0AQ PCX[T[
AQ0PZTW0ARPCITI0ARPQBXJ"TJ0ATQJFXI($9J(!^H0AT =A=1%K C6 <K< =!0AT0PCYUGPCXYEG($.:AGTR0AUPO C7EPO T7EPO  7E0AUPPC[UIPCX[EI($.IAIT^0AU PCXR(%.DPZXR($.D0AU%PCX^(%.DPZX^($.D0AU0P[X^TUL$^ R6 !L7EPC<A^(!- 0AVP=A=1P"<K=! C6%<JP$==1P"<K=! T6%<JQM==1P"<K=!  6%<JQN
=1P"<K=!0AX=A=1%K C6 <K< =!PC<AR(!-I(!"Q0AYPOX*(&7%0AYP=A=1P<K=!PJ<J< 0AY =A=1P$<K=!0AY0=A<ITD0AZPCXD(%"Q0AZPPDXJDO(%/L0A\PDXJTJ0A\PP ULPCEL($0,ALTR0A\ PO$  R4A(&0	0A\0P*\DUPPOTQ( ZM]P=NUO0A]QO$  R4A$  R7A0A]P=AQO<J=1P%<K< =!0A] PO$  R4A($0	0A]0( 4YPC<AR(
//(!4S0A POXL($0>0A P=A=1P&<K< =!(!"Q0A 0=A=1P	<K=!0A!=A<IT>0A!PPCX>(%"QP\X>(""Q0A! P>=NUD0A!0PCADUP$C!D6"$C!P4BUQQDX>IQ$C!D4"UE0A"PCADUP$T!D6"$T!P4BUQQDX>IQ$T!D4"UH0A"PPSTD0A$PWUC0A$PPCXLTL0A$ =A< 0A$0QEDTD0A%QHACUC0A%PPCXD(%59PZXD($59PCYC(%59PZYC($590A%
PD=NUPQC=NUQPO%Q!P4D(3L0A%!QD=NUPQAC=NUQPO%Q!P4D(3L(!2P0A%0P UPPCEP($4MAPTR0A&PD=NUQ$C R6!YQ(3.0A&AQC=NUQ$T R6!YQ(3.(!4O0A&PQD=NUQ$C R6!YQ(4H0A&QQAC=NUQ$T R6!YQ(4H(!4OPC<AR(!3Q(!5O0B ( 4Y0B0( 7/(!"Q0BAPPO$  R7A$C R6!UQ$T R6!URPO%R!Q7D0BA =A=1P(<K< =!0BA0P
X*T*0BBPCX	T	0BBPPOX	(&9+0BDPH$[ Y4$[ Y70BDP<D0BD PD=NUQQC=NURP %R!Q4D(5	0BD0=A=1P)<K< =!(!590BEP=A=1P*<K< =!0BE =A=1P+<K< =!(!9 0BF=A=1P,<K< =!(!4S0BH=A=1P-<K=!P"J<J< 0BHP=A=1P.<K=!0BH =A<ITD0BH0POXD(%"Q0BIPNJDDDO(%6N0BIPPNJDDTJ0BI PDTN(!"Q0BJ=A< =1P/<K<
P0<K< =!0BJPPUQPCEQ($7
AQT50BL)BR0BLP=A=1PB<K<P=! 56<J< PC<A5(!7E0BL0=A< (!"Q0BMP=A=1P1<K< =!(!"Q0BM0=1P2D3=!(&850BNPOX*(&850BNPP URPCER($85ARTR0BPPO$  R4A(&800BPPPOTQ( ZM$  R7!C=NUO0BP QOXNTN0BP0=AQO<J=1P4<K< =!0BQPOXN(%9WPC<AR(!8B0BQ <D0BQ0=A=1P5<K< =!0BR=A=1P6<K< =!(!9 0BT=A
 =1P7<K=!PI<J< (!9 0BT =A< =1P8<K< =!0BT0=A< =1P9<K< =!)ACZ0BUP=A< 0BU =A=1P:<K< =!0BU0=A=1P;<K< =!0BV=A< )ACZ0BXPCSUSPCXSES($;CASTR0BXPPCWUTPCXWET($:>ATT^0BX PCXR(%:9PZXR($:90BX!PCX^(%:9PZX^($:90BX0P!$^ R4D(&;EPC<A^(!:XPC<AR(!:L(!;+0BY0=1P3T2=!0BZPKTJ0BZ
PMTL0B\PUUPCEU($;%AUTRPO R7CPC<AR(!;X0B\PPOTN(!<Q0B\0=A< 0B]POX*($<C0B]PQVXJ(%<K0B] =1P<T2=!(!<Q0B^=1P=T2=!(!<Q0B =1P>T2=!0B P=A=1PC<K< =!0B  POUW0B 0)AN0B!=A< 0B!P)AN0B! =A=1P?<K=!PI<J< 0B!0)AN0B"=A=1Q<KP2<K< =!0B"P)AN0B$=A=1QA<K=!PJ<J< 0B$P)AN0B$ =A=1QB
K=!PL<J< 0B$0)AN0B%=A=1QC<K=!PN<J< 0B%P)AN0B% =A=1QD<K=!P	<J< 0B%0)AN0B&<H*.K?XHK>XI2I\H\H\H2A2J	=HLI<(*
ZV:A2J	<B	;JV8A2I\H2A*N:A2J	<B9H*(J8A2I\H2A2J	<I2IO:2A
9/8888<99DBRTSSVBASICAFBASICSFBASICFFBASICUFO7C 9H8J< /L2AK18F8DC K+[Z2AO/8[ZK\
/8O/<K"K0> ++KZ
/S1+S2A: K1/L9"LA7]O?0>O7\??:I:N>G;JB?82>CH(ZF	?\?>.S$*P	?\P2ISNO>C=K<2A>(O;K:> +&K%>(JKXZ2QO+Z29O+[JJ
+2QKJ
+S+* 2A9VJ
;8AJ
9O9
8SN	7JG?HJO"^OS"ROS*;K6
5K6
4HY8H9TXY/32J	2GA/4K$>("K1
5K0
4/52Q7]7D1A092IYYW:W: ;X?6??AK/C!K.[!*6>CP A2K"G?B>E>,G9L?W?QM->"=8G8?0>G

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