File EDU35.SV (save files (Executable program)

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

??2C=S0<AA<"ELD?H<A?;(E(Z*LD;L8HHHL Z28AJ(RZ8)J(RD9(!ETJL8 FFX8DJ((((NR(JH3(ZJ,2H>D9LJ8*HX R	=H(4TJL8$AHH(JHZ82JL,L \Z*H(N8OHE* PEDU$SSTTLML-D5<
8OTNLL5D:H2\J<H=^L,/!9K :L:(XD<X; <P <L<,KH>8 L$KDX <D:PSH8D\$1<(81W8L\	9 H7P8L< X!Z9 H< <LH8;D 9HJ<\ABLLDDLXX1DBD6,L?D;*.\0 	\$L??D 4* 7 ?% ,L98KL94DH88,HL=$XDK(<
\$=\L?0%MLH;DH 9D9<R*RH\-HP"E?1A/?;JEZJ*L;P8H2LZ(2ANJRJZ)NJRJ9!ZEJE8F8F8FJ(Z(NJRJJ3Z*J2K>9!J*>XR(	=*4JE8A9HJ*Z2.J; Z7**NONE*  EDUSYSTEM-35

NONE35:A2J	<B=^/;;VKWZ3*EDU35SV/2HP
1HVK090O/>PHP> %X/.(.PD.QCMFJ
CPDB?0?6>B>GEH.B.CNNA:AXU-?:AXT-?ZZAZBI>[*ZCH]A=K?= K>K=RC+TO*
*%<%;*QH.9HX"X-9PX!<X+JX!<PP!H"<P8!H-X-H"9H<(P!<(8AX"%:I9P9!J> *$;(Q9!JA> *$;(R9!JB> *$RJ.J;$H!> *&P-XZXPXQXR.JS*
*O*9FZCJC9F8DJCO*
*K*K<8D:4ZCRC*[: K*[**[A?H]I8> /+%<+,;XX]I7X\: 
;W:-?*>*===Z?+?&??2C>PODSP"HOH(HTPA"TDJP"(AHS>.,L?8	.D(D-;J8RHT4RH<(XHXD8LN TD!HZ:( H-<R,SH?4ZR(THS >.(TL-8	.TH[\OH=8.[,PLP0	D+(GR<KL90DX\+L80DX\+LK0OX\+L80DX\+LJ0RHP<*:,LP,
DK<P:<KHR8..H\L=$/
<;L;0	H+H\L.$/H	H8L\/:<L;8	9F8F8F.P\L\< */H	?(*ZI!X\L\<(*ZI >(*YI
$&I
$& K?X[K>X\P\$%*	\\P[*^: X[*
\\P\\\I!X\: X[*GI <(+HH1K=<(+NK<<(+HK;<(*?K:> +IP[*FI^X].EP)+QI7X\;XL\X]: X[.EH)>(+FP\L\I <(+FK9<(+DK8> +Q: H)X)+QK>XJLJ<(+($&+]!/ K7[/K6X&%%-,HWA,%-/1]10(B?O?)2?4?^NK>/?H8\:$]IA\G, <8NK73>QP]&5EP=^<E<JKNLULLIBA LUL/PJF"B=PG	FAA FFEX?OFOMOW<C<9<:<;<<<=<><
<7=D;???ABCF9JARA?BGBJBMB
!**?6??!?=?%==>+<?60!)!0&:- AAQ	>, WHAT?

C
IS$!IR$!-0L+>()<I?X!: !0-6L3YCNX>RIC9!H>>P*U2IL><(*R]CP>QC*K]C2A.H>X<2IL<>(*]P<*XICH<81H4H>>P*(2A$RC),"H>8!ICH<YCH<8 H>X>L<]C: H<X<: ICYCP>*12A.YBYAIB9HL:YL2IML2A<X+L8J8J8JIY<(X=I[9INYL<P.=IA9D=X+%8DIA=X+%8DIL<X+%YAQB+:$RI!,"
NO ROOM IN FILE
NEW:A\+, 
;W:-?$
$U$P?.X2I\32A\0$RC2"N, $RG3\0"N.MT+YJ$RR6"1K?	>?=K=Z1K<YL;&YMMLAX9D< 8H^1MLK;< K:N1^1QLR1QM*\O=>(*P.N$[: H=X=K9YMK:$QM*8.1"1K8	>?:, YLDD0I+LYEHV0N/BQL+DHXXSQ&IE>(,YYE0Y+U,"X?H=K7?H+!$RI*/6H=9HH6YL2I<X+0H?9F8F8F]L2AP=/XMLAXH?+,*9%%JA8H=F?4 ? =C=OIC=BT,HWX!
RM]0ZYD2A$[H6Z9$]IB>(,^II9!IA>XIJH3Z9IAYI$]IA9!II>(+E<P*3""*X2IN9<(*3AXIU>(*.N9IYR9> *$2A."2ATIM8!J9$VH6[Q2IOQ^9R9SQQM*=2A*FJ9YK""J9[QIKZ9H=8A9HIK$VT*:J9I^YJH=<(*F918HYM/T;XL,\,, 2I\32A, !6!02IL82AK?>(/	$R=C/	OLDK>XS0LQHQEH"X^Y&,"EB180&\,^Q^P2I\32AT1*K$RH
L2> $T\1, =B=AI/O ERROR$RA+,"K?
>$U-)QD*!$
H9\:$]IAYH3\:$]I9!IA>X*0$\*(L:Z;ID>(*8K=X!0V:A2I$R, 0Q*>0V:.=XJH5XIOCYLSC2ILI2A\JQL+J/C!6$P^?7AH:A$R^YK<
;
:$Q^??AH, LINE NO. TOO BIG

LINE TOO LONG
 DELETED
O?8H9T^(^T	H=?%<X=2I\8\92A$SX;H;AP<(*FK?< *SIH> *F*8A< 8A< K>< * IH> *A$RI2*AK=< **: H==H:X=I/+FIO< *8I.$I	A&> !0: H=>(*A.H9<(*FI]9H>P+EH;< $+GIQX;I	A&>(*FH;$!*FYEKS2L[W2AONYLSN<B0ZML8J8J8J+ML+QL0Y+Y0\I\> +X!0YE2A/N<(+(IY< +7!0IE> + /+=HK<IT$!/+A><A">AL2Z
2I$PD?(I."98!\2L2ZR2I$QD?(I.I9IVYG\*IZZ3IGSM<H840Y*	YG0ZHV0\.UT**]R3*]YGIH>(*YHZX^YH, 66:61*6.3K?XL2ILL> *=2AHLI)8F8F8FA..9"98A9HM, I
S\=+NK>YMK\K=$!IM$!!0[\/M
READY
B B CPCACGCEB ^O"	IN$&: X-I\$&"9* *RHKBDLM\IS;+6/?Z]B/B:C?$&$(IF2J$$D=O*K$	, $RO,$	,"0Z0Y*P0Z>DZZJZZ5$P ?>>Q*90Y*]0^J8<(+8A<(*6K?<(*8K><(+CK=<(*SK<> *>$Q ?>>Q, <<C;<Q=AJXYCMC*]>D]C*>IC9A*92J$$HHVX$/FH$?H/M2J$$IIXX$/MK
> /W2J$$A/S:/:K
YFK X%/WNO ROOM
FILE NOT FOUND
BAD FILE
B<4C??;?<?>?7J\XILI<(/?2IL6>(*M2APIPI*BL72AAXLI> *KLI9HYL
>L08D> -L/?P\04<HQ1;)HA-+2G52?(B319R"30,G)+,	G+,?*(-;-,A37-QA1?3HI<?,*O,=.OG*2-\=?,%=+?0O+7;?I:3;2ZQ;;>N>:=8CQ/+2P=114LA/?-$./.7$A>4,\^,,?%;=	;P5?80D!>B/?6
RJ%N%OWJI=WF?0G8AJHWY&	?2IL6J*< *NL7J+< *NL8J,< : 2A\0Q&T0, $RR-, Y&	?2IL68!Z*L78!Z+L82A8!Z,$QP?>EQ&, :<*MJ INVALID PASSWORD
 FILE NAME--T-K>\)\.0!+AL0?(+OH9\:$]IA<(KS8!\//=L-?+K/=B;&YMMC QCQM+W I	</TX?H?9J8J8J*H?*/ < K;=HK:K9$!/*?FV,?!YEWTYJB A? MM<ACD1	?8A9HZW$&$(JVZOJW9F8FIF2J$$C+DIF2J$$D=O<BJOZ(K>JW9F8F8A8F8D8AZ&$	$%D/=, $&$(JVZ3IF2J$$B=O/<9J4K;>P+J3Z(J49!*]$RO4$	,"$RO	+B!6
(:A[N$%BH/=K:XI2ILI>(++HIYCPIPILIYO:9!HIXIIK9> ++LI<(+,9!Y	8<HPIT6+SL82A< +J, <H/	8+2STLKDNNK<4PL9	?K>[
K=[ [!

S
K 

S
	<*&<(*^

O
8!K!>(*^O
[!S
K K;[ K 

S
K^*"	:*&K9>(*K* 	?K
8!K>9X
8
7	:/6[^K^	5*7	</6	4	3:*<	:/6[^K^	2K^K1<(*9K0<(//K.<(/-K,<(*,K+<(YK*>(	)	:/6[^K^	2K^K9+IO7> /Y*,8F8FALKW[WKW9P[Q?5C?(]QBXW? Z^\YJX	YE[
Y?!ZJ\.AZ [G"0K?> />"0K=< *
"0K<> *D	;+E[
K
"	*W	:+EJ	9/8:K
	7K
K6>(/5*LK4> *D"0K4> *D*LK3=.	K2=H.	R	.		;+E[
K
	7K
K1<(*18A<(/5K0<(	/K.>(	-K
.0;	7	7	7/,8![ K[!K+["O"K >(+\S"S"S!+QK 8!/JS"O"/J:*IHZY8 Z/5P\ Z4[Q?5WYC? J?F?1V,?!Z^WT\\.Z?2?;WQ?:K 9F8F8F[!K!C?[ K!C>8D<(*WK=< *T;XK
[
K<R.2IO"2AS"< *B.2I.!2A.^"!9F8F8F
OK;>(*0"!O
SS$*$
:K8!Z^KK9["2I: K"[": K[O
"R^*;2A, [ [K9["K8Z!K7[$/GK
> /Q"/6ZJ"^JK5> +R/4+Y%%): X]/7HY%-A0XY-A
+=HB<BV,?!YEHZ%D7?!"?^
?8 ZRZS"TO("TA$"TJ"TAJS> .K?	>.Z-;PJRNTR-<X*X8!NT8!ZR: J-< RSK?Z-RTJS>(.TJ-	>.T[O	=..[PKP	<+GZRKO9D<X+G8D<X+GKO<X+G8D<X+GJR<P*/:KP
;KP
:KOR...	=/9
;O;	<+\"./9	8"/7:O;	>+Q>(+,HZAO>(+)%%))+,IOHZXZHYA>HZXY-	<I.0\K;>(WTYJYEY
W^X	ZZ^0: Z&%<%6H*%&HX%&HY%&J&%&%5LHZ&HYR&*T"	<H.XZJ&8 Z&LHXYLHXXLHX*H]K?R&K>>(%</=[9HWA,<(+2[:H=[.I0XHS[;K:%-I)X K.L X"K;8!L <(+I[;L"8!K9>(+)P"S;+AK:%-IP[;L 8!O;?H+\K:>(+X$70%+Z$7:%: +$: L >(+R: L \ L K.X"K9\"K.8!H"K:.	[9K.Z	[:K<[.H?XI.*3PO[Z?L=W100 FOR 
=1 TO 1000\NEXT I
110 FOR I=1 TO 10\PRINT CHR$(7);\NEXT I
115 FOR I=1 TO 10\PRINT\NEXT I
120 PRINT "EARTH CONTROL CALLING LUNAR LANDER. OUR IBM COMPUTER"
130 PRINT "HAS LOST YOUR DESCENT PROGRAM. YOU ARE NOW UNDER MANUAL"
140 PRINT "CONTROL. USE ANY TIME INTERVAL YOU FEEL IS NECESSARY FOR"
150 PRINT "RETRO-ROCKET BURSTS. USE 0 OR ANY VALUE BETWEEN"
160 PRINT "8 AND 200 LBS./SEC. AS YOUR RETRO-ROCKET BURN RATE FOR"
170 PRINT "EACH BURN INTERVAL."
180 PRINT
190 PRINT "WE	RE WITH YOU, FELLA!"
200 PRINT
210 PRINT
220 PRINT "    TIME    ALTITUDE   SPEED   FUEL WT  MOMENTUM  ";
230 PRINT "INTERVAL    RATE"
240 PRINT "    SEC    MILES FEET   FPS      LBS    RELATIVE";
250 PRINT "     SEC     LBS/SEC"
260 PRINT
270 I1=0
280 L=0
290 A=120
300 V=1
310 M=32500
320 N=16500
330 G=.1
340 Z=1.8
350 Q1=5
360 Q2=L
370 GOSUB 1050
380 Q1=13
390 Q2=SGN(A)*INT(ABS(A))
400 GOSUB 1050
410 Q1=19
420 Q2=INT(5280*(A-SGN(A)*INT(ABS(A))))
430 GOSUB 1050
440 Q1=26
450 Q2=INT(5280*V)
460 GOSUB 1050
470 Q1=35
480 Q2=INT(M-N)
490 GOSUB 1050
500 Q1=43
510 Q2=INT(M*V/32.5)
520 GOSUB 1050
530 IF I1=0 THEN 580
560 PRINT
570 GOTO 600
580 PRINT TAB(51);
590 INPUT T,K
600 IF K<0 THEN 640
610 IF K=0 THEN 700
620 IF K<8 THEN 640
630 IF K<=200 THEN 700
640 PRINT "NOT POSSIBLE";
650 FOR X=1 TO 44
660 PRINT ".";
670 NEXT X
680 INPUT K
690 GOTO 600
700 IF ABS(M-N)<.001 THEN 1110
710 IF T<.001 THEN 350
720 S=T
730 IF (N+S*K)-M<=0 THEN 760
740 IF K=0 THEN 760
750 S=(M-N)/K
760 GOSUB 1010
770 IF I<=0 THEN 880
780 IF V<=0 THEN 800
790 IF J<0 THEN 930
800 GOSUB 820
810 GOTO 700
820 L=L+S
830 T=T-S
840 M=M-S*K
850 A=I
860 V=J
870 RETURN
880 IF S<.005 THEN 1160
890 S=2*A/(V+SQR(V*V+2*A*(G-Z*K/M)))
900 GOSUB 1010
910 GOSUB 820
920 GOTO 880
930 W=(1-M*G/(Z*K))/2
940 S=M*V/(Z*K*(W+SQR(W*W+V/Z)))+.05
950 GOSUB 1010
960 IF I<=0 THEN 880
970 GOSUB 820
980 IF J>=0 THEN 700
990 IF V<=0 THEN 700
1000 GOTO 930
1010 Q=S*K/M
1020 J=V+G*S+Z*(-Q-Q^2/2-Q^3/3-Q^4/4-Q^5/5)
1030 I=A-G*S*S/2-V*S+Z*S*(Q/2+Q^2/6+Q^3/12+Q^4/20+Q^5/30)
1040 RETURN
1050 IF Q2=0 THEN 1080
1060 PRINT TAB(Q1-INT(LOG(.5+ABS(Q2))/LOG(10)));
1070 GO TO 1090
1080 PRINT TAB(Q1);
1090 PRINT Q2;
1100 RETURN
1110 IF I1<>0 THEN 710
1120 I1=1
1130 PRINT "OUT OF FUEL AT"L"SECS"
1140 K=0
1150 GOTO 710
1160 PRINT "ON THE MOON AT"L"SECS"
1170 W=3600*V
1180 PRINT "IMPACT VELOCITY OF"W"M.P.H.  ("V*5280"F.P.S.)"
1190 IF ABS(M-N)>.01 THEN 1210
1200 N=M
1210 PRINT "FUEL LEFT"M-N"LBS."
1220 IF W>1 THEN 1250
1230 PRINT "PERFECT LANDING ! - (LUCKY)"
1240 GOTO 1370
1250 IF W>10 THEN 1280
1260 PRINT "GOOD LANDING - (COULD BE BETTER)"
1270 GOTO 1370
1280 IF W>25 THEN 1310
1290 PRINT "CONGRADULATIONS ON A POOR LANDING"
1300 GOTO 1370
1310 IF W>60 THEN 1340
1320 PRINT "CRAFT DAMAGE. GOOD LUCK!"
1330 GOTO 1370
1340 PRINT "SORRY, BUT THERE WERE NO SURVIVORS-YOU BLEW IT!"
1350 PRINT "IN FACT YOU BLASTED A NEW LUNAR CRATER"W*.277777;
1360 PRINT "FEET DEEP"
1370 PRINT
1380 PRINT
1390 PRINT
1400 PRINT "DO YOU WISH TO TRY AGAIN (Y OR N)?";
1410 INPUT $A\PRINT
1420 IF A=Y THEN 100\IF A<>N THEN 1400
1430 RESTORE\CHAIN "DEMON "
1440 END
40 END
 END
	S
1070 CHAIN "TICTAC"
1080 CHAIN "MONIM "
1090 CHAIN "BANDIT"
1100 CHAIN "PHOTO "
1110 CHAIN "BLKJAK"
1120 CHAIN "DOMINO"
1130 CHAIN "WEKDAY"
1140 CHAIN "BUZZWD"
1150 CHAIN "FOOTBL"
1160 CHAIN "HORSES"
1170 CHAIN "GUNNER"
1180 CHAIN "21INFO"
1190 CHAIN "ZOOP"
1200 CHAIN "BASBAL"
1210 CHAIN "BOUNCE"
1220 CHAIN "HMRABI"
1230 CHAIN "LUNAR "
1240 REM DATA
1250 DATA T,I,C,T,A,C,T,O,E,1,N,I,M,2
1260 DATA B,A,N,D,I,T,3
1270 DATA P,H,O,T,O,4
1280 DATA B,L,A,C,K,J,A,C,K,5
1290 DATA D,O,M,I,N,O,6
1300 DATA W,E,E,K,D,A,Y,7
1310 DATA B,U,Z,Z,W,O,R,D,8
1320 DATA F,O,O,T,B,A,L,L,9
1330 DATA H,O,R,S,E,S,10
1340 DATA G,U,N,N,E,R,11
1350 DATA B,L,A,C,K,J,A,C,K,R,U,L,E,S,12
1360 DATA Z,O,O,P,14
1370 DATA B,A,S,E,B,A,L,L,15
1380 DATA B,O,U,N,C,E,16
1390 DATA H,A,M,U,R,A,B,I,17
1400 DATA L,U,N,A,R,18
1410 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1
1420 END
,A,R,18
1400 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1
1410$(??2C>PRM4HH MM4HH MM4HH(MH; HH 6+HILJL;L;0F:0L-\HMD2D?(M34;8HCN0FIP;8CL4\BLO KDJLCDHH74ALP<	H<8N8=\3LG */$METQ	DRDPLLIH?D[?<CD?0-?PLE<XL0<WP0LO$?DZ!DPAD?$2?PLK<EH	(YDPHLN0?D]XDDSD?P.	PLA<BH-0QP$HN0?DM \S>GC"^
W<E<J9 H7H^=,6S?>PBM X<CZB-H(ZHCGJDLEELFH!H?3?X+1LCF4F+J;$SSTBB]BCJ^ I%?GYX?!JL ?SYC?5OD<<:=A>+>+?/"+"*]U=?+8L9MG=3?NEU:E"?/C?"+ALAKLB0 B>">&F;"?M/G	<%E[DDG$D?40:HV=$BC?K><(*DK=<(+	IJ<(+,K<<(K;HRAA<(*DK:<(*DIGXVHV.K9=HR]K8.]K7=H*+K6=HRIEK5.$;$=+HALXW$;$=+
ALXXHW=H+Q9FHW<X+Q8DHX<X+QXW*3:HWR-$>.-XX;XHVXVHX/J$SIN%B?(?,Z$0$6,8[JKJ9D=X/4KJ9!I^Y^	3I^/ZJX>(*LP$*QJX>(*O-&P +(<HO-O30?6?P[?%? RZ?.=6
?W?/>O=?/>K<
;
=/>$>$6*J8!XWNLRLXXIXXNIVXYLNHX> *%LNHW> *&:AHNXZHZIYYN.LPNPNPNPY*VHX8!\NHW8!\N"3RL*
\N; IVYVIVJ?>P.3$S4O/:E
$,<+G9XHU\Z;*DZK9\Z/XPHP$,<;ZHU\Z/LHV9HO88J8J8J
8HAAK7XV/U$BI"> +"/6%B?2?<?1?3&$6$>%B?7?&?;\-!HYBQ 
UP<<CAC<<L<=IXXNIVXYLNK?> *\LN8!H[> *]LN8!H\> *^LN8!H]> *
: HNIY.PNPNPNPY*EK?8!\NH[\NH\\NH]	>*X$;9F8F8FXZ$;HZ.+$;ID> .4ID$?,5%B?,B$0H
<(+H9H> +H$6,8$>,8$;$<,89F8F8FX"$;$=/JH"X"SJ/J:OY=+$$;OY> (9SY+Z9H<X8!$?SY/Y%B?+?-?;"$6$>$	,8XZ9HZIC>X,8HZY^-!%)X D38: X^$;$<*H:/?H1XZLZXZ,Z$>$)$/$?X^*CP : X^HVAA8!$?*C: H X X^H ?*VX $SPCH > *TS$>.SP
*TK>XV*T$?$>: X^*CP
+QS$;K=<(+K8A>(+LK<*1P
+QS$;K;>(+OK=*1;$K:XV*TK9+M$SROH >(/S*"$BK8<($>HRXX]X\IKX[%I/XH
> ,8/%INK0> /7K1/6?R6%MXTHU%MJ4KX=3!%?C?D?B&JH^?,($>$+*ZH"$,8IN$?$;H3> *WLZ> *WIE\ZPZ\Z$>X^,*$<+PH"XHK[>(*=H$,0<H+O$;LZ< +SINI> *3$;K?> ,8IN$?$;H3> *;$>,*$SS1$;$<*;X"$;H3> *;$>H"$,4*JK\\ZIN$?*XQV:$>*F8!LZKZ>(/>%$*FN92+??=3L3M?:(=\K?34[\X?&*<18?K9)VT>V3;D^
,*G?*9W7]AF2.0CEB%\$D	,:H9[7I*?\MO> PCPUH$9HX$>X*O$	*O$.IN8!$?:$;$>ID>(*1I	XWK?XIX
$7LI<(**PIPW*[LI8J8J8JX%BB%$/>LIXZ,Z$;H2< *5%B\$6*3IF<(+OK=<(+,8A> (9%B?,?1?.?;DQZ<H$?$6,8%B?7?,?;$+R%B?<FQZ$0%$6HV8!$?+S$7H4< +%%BH$	,8$-IN+FI%> (9%B?>J+ %B?+?.?2N+G%B?0?+?,L+S%B?1?0P+G?-F?"G%B???7?2 *K%B?7?2?,R$;K?> *"K?$?
>$;K?>(*]HVID>(+)HV$?*RK?$?K(
>*K$>$0%$6HVK?>(*OHV8!$?*K%B?:T$0$6,8: X
%BV$0%$7I
<(+FI > ,8%B?,?19/=%B?;?29/=%B?.X$0H
<(,89H> ,8X
%B?,?1A5$0%$6$>%B?-?,?;?0A?$0%$6,8*DK(
>$SUQI^9!I(>P/-;$S-1,%9J8J8JC?8AM BX?^%B?3\$+$>:H"$,8HZX$;H3> ,8$	,8<(,8\P$;K?>(*\$>* $	,8<(,8\$;K>> ,8W*C%B?,??\QQ	=;$YR$;IH<(QR> $>$)QR+H]9!X]H\8 <X8AX\H[\MH\\MH]\MQS+UQT<H/<	;"T/:SNK9XMIUYSW*-$;K?<(/WK8> ,8ID$?,5K2[P\M:A\MIZ>(/"	=MP?+HIQ> +H/"MS?<4>G^	
-?W?T%B?<^IVY*M)9F8F8DJRZQM)I+]);VI)XZ.SRXS R4S(S+LZ<(*18A[
PZLZ<(*;9 [ZK
<X/?SZ*8A$&Z: K
ZLZ8A+A:A$&+AI(ZI(K>Y(	=+BK
8A$&ZK
8!ZI)K<Y)Q**E;XI+])I+
;I^
:ID$?I+K9?-MHT> ,%	8	7)<\!P!Q+/ZLZ=H+.8D?H+A])+BLZZ+APZLZ+A: HZXZLZXP$S5L+B\AQ"<=V=UDO-CO3I-[)K?Y;	>0Z0Y*K0^>(+*O)<(+O=H+*9F8F8DAHJZZYK)XHLH*[* *9*3*;+U	=LH<(+XYK<	;HY	:LH<(*1XYK9	;HY	:K8*?YLHYLHY+	:+XYK7	=HY	;O)A,HXXYK6	;I;?H+DLY8AY	>K?Y;K)K5[)*F:+O	=LH8
*?XYK4XHY8F8DXYHY8DAHK3	;P+]/Y:	>	>-60?<D FN),VSWO(V>WZ?2LIH[X[LIXLIZH\XWH]XXX\X]K?XYH9HXJ8HZ8P<PVH\9HX\H]8HX]PY*PC."6H\XWH]XXHZ"6"6HYJHX8DV=X/>.H9DXH]8DX]H\8D=X/>X\.6H\<(H]<(H> +MX[/CH\8F>X/C"6: H[X[+MHXH]X]8DHWH\X\/VD(G2N	D[/+0 6!/HA+	\V,CU0	 ^F*$;)DMS*
;"Z%81&FGR[7?([3K)ZU[4$;K?> *K	>.$>X\X]X$;$=*WALXY	=8*OK<<(*&K;> *>K4> +7K3> +7K:ZU*OK)ZUK3> +7S3$;IH<(*;8A8A> $>H\Y[H]Y\HY]*L: [3*4;(VH3>(,8$>K3>(+VH\<(H]> +7HS38![3I[X\I\X]I]XK3K4[3IKX[%IK6XIK3?+&K38![3K5XIK3<(.9H[3<P+/	9+&PIPIPI+&Y^K\$SLIXS4?W?;XIX?]/?
><(*]Z*J*8!Z,O=K<9J8J8HK;J*Z+2I: J*Z*: J+Z+N*^+R,*R2AO=K<<(.A9D8!Z	2I$DD!.A2J	:H:A2J	9B]^+I2J	9IJ5
8: J6
7O68!J5
5J6
4KHZ..-K32J	9C]^+X:A2J	9D]^J<B*12J	9I$S.D,%DATA35TMSV%:?6?<SPIPSV%:?9PAL8SV%:?0B!=T=S<3ATQNB?D?
^<
SL;KU9F8F8F[VKVC?[UKVC>8D<(*WK=<(K<K;=(K:K9.2IOR2ASR< *C$S%N/82I
S2ASSST**$S4B/8KS8!KR> . KSC8[RKR9F8F8F8!Z;2I$E!R<R;R;*=KS8!KRZ;[SJ;>(. 2IOR
SSRSSR;+J2A. DF+^66:61+[/X0&:0!+ /W%:?;PAL8BNTM%:??;F/;$)/;$)/;$)/;$)/;$)/;<BZAE>.?!
?PT;N";K[$CHP"OUN?/\R.<(*/XJPZ(J4XJLJ=.OZ2Z3H9J2<P*R3*]8!J28!XJ3<(*WK]LJ:Z(*WK]L.O 40X>\?6??<HZ30Y+B0\>(/^J38J8J8JC
LJ3AAL.;<(/LK =HK!K[$C/LHR$CK"$C/UB DI0<
? ABJJ;J;J;HTH(HCJ;H(HMHTJ;J;J;HSH[HTHTH%HTHMHTHMHMHMHMHMHMHMHMHMHMJ;H(H6H+IBJ;3;F<:L-H7M2A?MZ3;M8CBNFLIP;CN4B7OK8JCSH7RAMP	?<N.=N3GG*8/MIEQE	RAPSI?2[?PCO?-\?PEX?0W?PLO?9Z!PAT?2Y?PKE?	Y*PRN?<]XPSQ?.T	PAB?-Q,PIN?,M PSG?2O
PTA?>GVPCH?.M.PTA?2M2HHAPHGQ MPJRFS K(3*I+J-3)=K(3*I+J-3)+A(3*>:LAJ?C>?FAN?!MAJ?!>.LAJ?C>?FAV?!I2?XAZ?W?E?!MAJ?!>"LAJ?C>?FAV?!I?!MAJ?!>^I?^EARTH CONTROL CALLING LUNAR LANDER. OUR IBM COMPUTER?^?!>ZI?^HAS LOST YOUR DESCENT PROGRAM. YOU ARE NOW UNDER MANUAL
^?!>VI?^CONTROL. USE ANY TIME INTERVAL YOU FEEL IS NECESSARY FOR?^?!>RI?^RETRO-ROCKET BURSTS. USE 0 OR ANY VALUE BETWEEN?^?!>NI?^8 AND 200 LBS./SEC. AS YOUR RETRO-ROCKET BURN RATE FOR?^?!>JI?^EACH BURN INTERVAL.?^?!>FI?!>BI?^WE	RE WITH YOU, FELLA!?^?!=>I?
=:I?!=6I?^    TIME    ALTITUDE   SPEED   FUEL WT  MOMENTUM  ?^?E?!=2I?^INTERVAL    RATE?^?!=.I?^    SEC    MILES FEET   FPS      LBS    RELATIVE?^?E?!=*I?^     SEC     LBS/SEC?^?!=&I?!="AB"?C:?!=ZAB*?C:?!=RAB2?CB6?!=FAB>?C>?!<>ACF?CCJ?!<2ACR?CCV?!<&AC^?CC
?!<ZAC*?CC.?!<NAC6?CC:?!<BADB?CB*?!;:EDJ?!;2AC6?CDR?!;*ADB?C*?XB2?W?V&?X"?XB2?W?W?!;&EDJ?!;"AC6?CD"?!;ZADB?C&?XD*?V?XB2?S*?XB2?W?V&?X"?XB2?W?W?W?W?!;REDJ?!;NAC6?CD6?!;FADB?C&?XD*?VB>?W?!;BEDJ?!:>AC6?CEF?!:6ADB?C&?XCF?SCR?W?!:2EDJ?!:.AC6?CEV?!:&ADB?C&?XCF?
B>?QE^?W?!:^EDJ?!:ZKB"?Z:?$E*?!:RI?!:NDE6?!:VI.?XE:?W?E?!:BFFB?TFF?!:JKFF?D:?$FJ?!92KFF?Z:?$FR?!9*KFF?DFZ?$FJ?!9"KFF?[F"?$FR?!96I?^NOT POSSIBLE?^?E?!9ZLF*?C>?FF.?!9NI?^.?^?E?!9JMF*?!9FFFF?!9BDE6?!9.K"?XCF?SCR?W?DGB?$GF?!86KFB?DGB?$C2?!82AGR?CFB?!8*K?XCR?U
R?VFF?W?SCF?[:?$GZ?!8"KFF?Z:?$GZ?!8^AGR?C?XCF?SCR?W?QFF?!8&EG&?!8VKAJ?[:?$G.?!8NKB>?[:?$G6?!8FKG>?D:?$HB?!8JEHF?!76DFR?!7:AB*?CB*?UGR?!72AFB?CFB?SGR?!7.ACF?CCF?SGR?VFF?!7*AB2?CAJ?!7&AB>?CG>?!7"G?!8RKGR?DH"?$H&?!7VAGR?CH.?VB2?Q?XB>?U^?XB>?VB>?UH.?VB2?V?XC^
SC*?VFF?QCF?W?W?W?!7NEG&?!7JEHF?!7FDG.?!7>AH>?C?X>?SCF?VC^?Q?XC*?VFF?W?W?QH.?!6>AGR?CCF?VB>?Q?XC*?VFF?V?XH>?U^?XH>?VH>?UB>?QC*?W?W?W?UIF?!66EG&?!62KAJ?[:?$G.?!6.EHF?!6*KG>?
:?$FR?!6&KB>?[:?$FR?!6"DHB?!8ZAI"?CGR?VFF?QCF?!6ZAG>?CB>?UC^?VGR?UC*?V?X?SI"?SI"?"H.?QH.?SI"?"I*?QI*?SI"?"I.?QI.?SI"?"C:?QC:?W?!6NAAJ?CB2?SC^?VGR?VGR?QH.?SB>?VGR?UC*?VGR?V?XI"?QH.?UI"?"H.?QI6?UI"?"I*?QI:?UI"?"I.?QI>?UI"?"C:?QJB?W?!5:G?!;6KDB?Z:?$JJ?!52I.?
C6?S&?XN?XJR?U"?XDB?W?W?QN?XAV?W?W?W?E?!5*DJZ?!56I.?XC6?W?E?!5&IDB?E?!5"G?!8:KB"?]:?$GJ?!5^AB"?C>?!5ZI?^OUT OF FUEL AT?^B*?^SECS?^?!5VAFF?C:?!5RDGJ?!7ZI?^ON THE MOON AT?^B*?^SECS?^?!5NAH>?CJ6?VB>?!5FI?^IMPACT VELOCITY OF?^H>?^M.P.H.  (?^B>?VD*?^F.P.S.)?^?
5BK"?XCF?SCR?W?BKB?$KF?!46ACR?CCF?!4:I?^FUEL LEFT?^CF?SCR?^LBS.?^?!42KH>?B>?$KR?!4*I?^PERFECT LANDING ! - (LUCKY)?^?!4&DK^?!4.KH>?BAV?$K"?!4ZI?^GOOD LANDING - (COUL$(??2C>PLHVX;DH LLL\	H\,LWAU(7L<]L= XD\=D<LA9<T=XVP$L<L1\DT;HNHDL><K$ CDPL"8ZD?D-H DP.L0L(L
X(HT0ZDJ 8J(LH=8LSXZZ 79LJ06HP\*HR(7H!D8LJ 6!XLJ07D(,*HKL>LO4KHZ(,L[8KH8OSDXD8 0L><\L6<?L\ZH0,YDE00H><(L<\JL8 JJ(8W <E<J9 ?8NKP]EP=^BMVDK?
?!W?<B\ S K.KBK SZLP<X$Q1C,;?1?3E00A0B4B"0D<A8D()=F(B;MT?WO+GQ"Q*?R?NN(PSPK<C^//$/X$SS2A$BBHQS%S+PTUV;?SEC?"+")RR?8<;V= O?$)&FE?A?X .ALAHUXIHZ9!I*>P/?%$\I%$HV<(*RHW\I*KHW\IHUXILI=*,8!XYHYI.XJLJXPPJHZ\JHY$<(*+HXXYHZ\YLIK>XY:AE5> *6K:$!HP$!LYXY,YK=*=;$H[$!*
LI$X^$
%PI%H^H$$!LIHV>(+O%+QH%$!Q4I4? +8H8$!H^\M8AHZ\M$!$!$!$!$!*=LI$X^: I4Y4I4?+1;$HMXMLM8!	<LIHV> )Z*B%+1$SNE<J*=R*<EQNTWHIX+K?Y/LIH.<(*
H/<(*WH0<(*$H,>(*.H+XI%H2$!*H3$!LIP+H-<(*W*K:LIP+H-*KL+H.<(- H/>(- H4$!- H7$!;$XYY)LIH6<(+BK>PY*=I)$!*09F8F8FY)*3I)$!-/LIK=>(+O: HIXI;$S+E: +MS+QH5$!%%+ /S%K
$! +Z0CLIH-<(/ H0> )Z- %H)XJH*8!IGLJ>(+4PJ+,LJH:$!PILI$H\$!- $?^DLI$Y0I08AH\$!I0HXXYHZ\YLIH=> )ZLI$Y1I1$!%2LIH>> )ZLIH?> )Z%I08AHXXYH,HZ\Y%2-AYBYC: HIXI\IIDXJINXLLI=H*9$\J*3YFIF8!IGXYLYAHIIY
M
Y
-
IF\J*3HYX*IK\J*3: HIXYLY=(+	I.Y^M^&9> 8QIL\JLY$HX8AXYLY<X: ?: +*:IF\JQC\L*3: ICYCHLXYLY> )Z: HLXL+EIC> +E/??^NKH$
HJYMINXLMM=H*K\L$ *RH>> )ZI&\L$ *EMM=)ZH><()ZIE8!IGXYLY8J8HAHIJY
M
Y
$ -
%	HLY!;$HLXLM!\L.&"&*RHYZ:IPXY"&J:\L*E%	HY\LYB*EMM?*;MMH>>(*;IQXY%	 IRQB$!YB*R: YB+%	HLXYLY< $!O?[\/\%	 *<HLY
M
< $!]
/ IC>(/>HLXYTY)Z/=LI$H]$!- \J2AO?8H9T
?2J$(GEG9F(IUIY>(+3IV>(*VIUIW>(*(IT>(* IUIX>(*YIV$!YVIT",.IT$!IV<()Z",.MUA\>(*[IV$!",.IT< $!*[Y^I]IUYOMOI^<(.,K:<(.,K9$!H9K?<(+Q8A>(+Q.,<H+W8+LY^H99%%I^X9PZK>[E/BH&[CH9K8X9.,Y^K>[CI^8!H2> )Z/BY^H99%%I^9P%%H&[E: I^XZ/ : IMYM/.IV< $!%+.O9LO31+7/2RV<H
3I3XMO?> PC: O>X<O=Y7H<K<XZHZ
>:AHZ9P%%- *X$70%%*IPX"H 8!L"?*"H \"%3PWHWA>> .%*I)X"L"XS.H->PIOJ9^:N:9H8!J8..]A2*UI4I
?H+C;ZP>(+GN;X-%$V;P!P.<: N;X.-?B B CPCACLB8?PCVB8B B B9B/B1B5B/B7B2B B B CPCACGCEB ^O"	IN$&: X-I\$&"9* *RHKBDLM\IS;+6/?]?=V=U<:>H*F2J&M??A\>(BIBIB$BMCUCNCCCHBMCLCECNCACMCEB CECDCUB3B5B.CSCVBMCSPSCICPB COCVCECRB CCCCCBB CACNCDB CTCHCICSB CPCACGCEBMCTCRCYB
B CPCOCRCTCLCACNCDB,B COCRCECGCOCNB.BMBA<A=A?A=A>A<BBA:A7A7BBBBBBBBBBBBBBBBBBA;BA8A; < ?-P <*? 9 < 9 9 9 9 ? B S(P& "5	X%P)P /.H.H ? ? ? ? ? ? ? < < 9"0 9 <XPHLLT (DC6B9EQE8I0EEB;B<DFE)B?C"C1TRQR EZR
GEGHGMG-G9I(UTUTH0H2H;IIPISI]UT&F>E<CA!D%BRO]K?$!LIH6> )ZK>Y//=LIHV> )Z- H,K<$!- K;$!I1$!%+.H^>(*0$SFOH^H($!LMY1HZ8AXYI1$"HY$!HY$"I18A$!;$HMXM.*H9&<(+MH	> )ZH9A,HXXYLY9 I7>X)ZH9H;X9/EI.[ O A,/Z: HIXI/ 2IO82AS8/%<X+32I
92AS9/+9!O:8 [9/+D=U<I<HD0RZ<GH<8!X<H[$!HM8!I3>(*L$S&NHZI"[SKS
?IKS9!I*>X*Z$S-2/>KS$"KR$!O=K<>P*]O=8 
;: I-XILI=H*:&K:>(*3PIPIPI*(LI$!LI$!LI$!*($!O=O;8!
9K8XJHXXILI\JP<+CHT> />M5?-6$DB??]/NO2$SCH: HLY
M
Y
M
ASY
LYAS8!I
?(/V;&HLXLLLYTLLYULLYV;&HLXL	7\L+W	8+2J]?=X8=W<AS9<=V$D?17PT;ND">K?$CHP"SZND?- RD.D<(*3XJTZ,J8XJLJ=.SZ6Z7H9J6<P*	R7*!8!J68!XJ7<(*[K>OK=Z,*[K>O.SV80X>\?6??Z70Y+E0\>(/<J78J8J8JC;OJ7C:O.><(/OK9=HK8K?$CQ;/O/OHR$CK7$C/Z+	66:61+$/!0&:0!+)/ 	3".K$>H/Z/9>GK^;^K8B
A? ?
<<H0B ?=2C>PO C(B"?*0FDH([KHZ8P9H>((DW(K $H. >H,.LZXXDRHW,(*DJ 99(2&8H(2$(DALDLK(H<LJH$HJ $BL64?%($L+LZD&0%HDH8L:0+L<49A?L305H4(+L%0$DB(0L08LHD <L,<(H$SH,!EHZDJ(AHC HZL3L!T+L0ZDPX+[(;LCLJHJ,BLG,
LS8;DH+(CX9L8 FLFLJIC??HH-<EJ0L??=^DC]>?U^?5?)BPRP%$<AO? B A>:KBTRHU\JHV\JHW\J9HJHQ>X%$,9;&HJXJHJXLLLXULLXVLLXW-FSU[N,B0B.?9CEB?WS/DQU.JOJB??>:I	S:P=R(L1XGSR<8<8CFV?	BMBJSQ[
Y&00<<;A:?A?!FLHX^H^C?XP9ZH^>X*PHP<(*XHRXKLKXIH^8F8FC>8DK=ZW<B;&HJXJHJ*OLK=+C"+8AHZX^H^9DH^HIXI.]9X]HU=(:H&<X(+XZHV=H(+9HPZ*8XZ9HZH]>X(+!F.+8 "+LKXSHZ$*XPHS8!"+HP*""] 92ILIXULIXVLI2AXW*"]HU2I\IHV\IHW\I2A!F*$%L?$%L>$%M\$%QCCPC[C%C	C)C+JVDMDD$COCZFBFDXEW/-G
?HPIY? *F%!Y?HH\J9HJHQ>X%$HIXH$A,(: HJXJHJXILI*N9PHV<(*
?H8A9A8DP> PH)?LHX];VH]XKTK*.TK<H,( 9	?$GL]2IHU\IHV\IHW\I2AI/H]XH*"LHXIPH$G4HC$HHV?H*M%]XPW<HPV%UHWPHPH\HHV\H)?HPK>[Z<BDQD?E(QAM.V(E-V!V"M%F>W-Q1$AI"?+(-8HHXIH\XH,II2$DI3$D/2+.%	+	=C-&RO/[GJ 9;&HPK?ZE<B<(,(K>=(*F:":H1K>=(*F:&9IX1,(":!FH1?*R,(LHX^H^8J8J8J"
H^"&*\$<(,(H.=HH0":.&U4O+WOO0FLFQW F\GWM/E2H/$D.:LHXBI<>(,(Q.,(I-Y.Q<,(%$2ILIXULIXVLI2AXW;&HIXI/J% <LTQ JPQL<F%]HWH1K=<()??+(":+
I2$D$DIX1+
%%-,D0HWA,%-/1]10(B?O?)2?4AFN.2NWXJNVXHNY> JZKD[DKD8A[TKTJ[Z2J2[R+TNX8!Y<.-=U=V<8<:FPD.Y+	H/I[HHHC0Y*$CK]0\"-0^.BP18Q"*40&*=[	<H$AI"H.>(*6K	^";AJ"C\J Z".-HR0!+U: I"Y"J!8AC\J Z!I"?H+TN!0&>H0"0Y/C0\K?> /CD
B0Z: 
>6A72S&+W-8:$EX??AAK	/*I\$$I"$$/.\J\J2AO?8H9T
?2J$(F=B==<D%$NBX]RBL]<(.BZM$EX?=.BHHX\: JOXH,(HPX9$G06&.HW>(HU=(-,H&? -,HVYF%]%
HV8!IF>(./-,GJO"9*!P+*1%U%U%U*PP-B%H-9!H.>P.9%:;XPHR?X*:R9.9Z9I[[2J99F8DZ9J98DATIW$&S2+M/IH	<(+.?H+,	=%UHYIM!>(+*H5%U%S+,I\$&X5/YHY9%R+,IQZ9IY[YI
SY
YR9+7/2RV?J"1;K?X3XXXNBI8!BXPNC>HPXPN9F8F-K=Z"<P*YLPXPRLPXYHPXKLKXZLKX[MQL?L>M\QCL+L2MOHYXUHZXVH[XW,3HU\PPPHV\PPPHW\P,3H(X3.$5	<	;$)PY>HXHX8DH[HWXW8DHZHVXV$4,3HP-<(*;K:[W<B,3N9AF:AHYHUXU/9<D%]%
-^$G5TC06-TB(6,(,H%]HW$D)?<L B<I AT<PQ	XN2NN.A?LD;H9!X8THW8!XW8THV8!XV.HV>(/?HZ>(,3"-<(.N=8!Z,J,K>?*"-?H/?,3"-?HK=K<Z(<BR,*(.NHY8!HU.-9HZ=H8P8HXZH[8HX[HX8HXX.2	;%]HW=H81Y*8J8HK[[V$G+(5TI*<(,(9HY*<P+Y$G5T$G(6X606-T+N<L8F<P<I8C<C<AP$CXWXV%
,(%!Y>/:<D%$BBBBB\GJ"2A7XL+;HV=H9P8HXVHW8HXWH8HX9PU8.;K
ZH[XSHW$*:HTXHVXSH[$*HX8DHT[+8D[,HZXSHW$*HX8DHTK+[+8DK,[,HVXSHZ$*K+XW8DHTK,XV$4XS*,3%U,3HZ> +J%$;(XZKFHY8!HU8AXUK?Z%	HZ>X8AX[XZS*%U/>[$;$[*HV?+%US*HZ?/Z$5S*8/Z<L8C<C< 9,(B/?6
RJ%N%OWJI=WF?0G8M?H;HX8!XXH[8 <X9AX[HZ8 <X9AXZ.Z&XTK?Z	9J&8HZ&HT<P*^9HS8HXTR	*VJ&8H9.P9H	Z	X"*4HW8DXWHV8DXVH[HWXS8DHVHZ<P*?XVHSXW:H"8DX"H8DXR	*.H"XWHV9FXTHXVXHT.($G(6H9< +[PJPJPJK>[
%  D<B C<F,(% 0B0ETOO LONG.0B<F/HU=H:H	XUHU?//$)+5%U: /:P?4$A;[^HV?H%%Z	HV<(HW<(H>(*!HV9D?H*^H9DXHW8DXWHV8DXVS^*OK^8!HUXUXR	.%U.<DHV<(-^?*0%$%U$G06HU9=H8P8H<X8AXUKZXVXW$G3[(6[K[: HUXUHU8!K[> *>HV8!K\> *>HW8!K]=8!8A?H*>-^XMHP> 2ILIXYLIXZLIX[2AO^[^XXX/^I\XU
$4/.:AG?> %$%!Y>/>.V WZZA<<??"(*[O?XH2ILJ2A\HW>*FK=XH2ILJ\H2AW<*NHH8!K;<(/:8!X62I\HP6*\2A/:R	$EX?>AA.	Z"=Z: ZA,("=JO9Z7R2I$E?>: XNK8ZA.-I+>(.=9JO7>X%$J7[L2I	6?>Y+.=RA<H"-2ILNXULNXVLNXW2A: HV>(%$$4,(RA<H"-2IHU\NHV\NHW\N2AQ+)?I(O5Y(,(/Z/9>GK%<9<J=T>+=SH=?=X
?=W=UI[$DKX]KMXF$CH,<(+HKN<(*[KL<(*I/<(*GI3\FPFP]*G%S*AKM9 HF>PPF: HF*F\FPF\FI3$DKMXFIX1.XUXVXWX]LFJ7<(+CI1= +EKO=H+E[Q$G[UKP>0P]PF*2:H].-KK$D*[C
ARJ0 IKAPDT[W58P<(/[8!X]$G<BP]+ /[9=H81Z8J8HK<[!K=B9J8H[;&K![!K=8 B[/&[X?8?	?[
	>> *(LFPF<(*K=<(*;8A< *QS
*B8 C<>(*A% 0DBAD DATA-RETYPE FROM ERROR.0B<F*LFK=>(*:LFK;>(+ELFPF< K:> *UK
> %U,(PF 9	>8!%6$G06CH6*,PF 9	>> +XLFPFK9<(+GK<> *U	>:%]HW8!+Z%]HWX]!FH]%6*0$G5T%]I\XU$G068UTA/
<^[\=U=T<;?>=RX-XK?ZJ$G
>XX!X HV?*M%UKKH/$DHV>(+
;VHU9H	>P*0;$X]I4XSHU=*"8!8AP]$*:HTP]8 X!H!%6HU? *08AP!*)%5K=XMIYX
 9H7XVH8XWIVXZX[I/%	8F8F\M;$HMXMP
*=!FIYX
PMLM< +RP
+K+XLMIW$DP P
+Q1IX$D1:A%6%5H8IW$DP +ZH!<(-08!XVXWIZ$DH2XU$4RJRJ*BH 96H K<HU? HV>(+/1S[4YS*M<DHV?H%%Z=$GZ:2?%]HWZ>%
$GR?A2?Z?3BJ706*4 6R?J.06*1[BH606*? 6HUOEJ>HUXUR=-^$G2?/E"?-^DS:LB?<Q/)/J,,CGU6+!AWET]O($G*?Z?3B[(K%[BK"06+
[BK\[BKYZ? 6/XZTT
N??[D$\?;[F,,T
N&TWSS?=\W8*<D>DXWXV%
-^J2%-8D"+J2"+//PO%&O=O]KI"1=<DHV?H%%Z^$G7?W>HV?H*R$G/>	?7?: XI/=PI*Z$GR
AR^-^%U-^AYH
-<DHV<(%$?H%%$G06W>HV<(-^?*7$G/> 606: Z^9 H6=H8PXW<P8 XV%
:AX6$G[37?(6W>06[0K-X6K*X6K	X6K$X6K!X6K^X6K[X6O?*Z
??"?? !??UOCG?>!K:I?>U][A?=	&G9?<R^D?9%$O]VK$L?U?%%?[3%BBBAYFO(X?<DHV? *HHV?-^%%[X$GF06%]%
$GP6A[F06SIHV?H*
$G06KX8 [X$G(6W?HV?H*+$G+IP606$G(6	?06X67>+L
>KO
>KR
>KU
>O?X6SX-^%U-^<D$GW?A*ACYH
-BYH
-?4S6/]?9,63O?=TY(++UDP<DK=]&K<Y*$G+2Y	;(WXVH8H9TXWHVY(HWY)XU$4K-]&H(X3-^L1XGI4>N&W0>GH1IC]!-*YBZ
X6SHOH<(*M8 H6SH> *A;(GHZWHJ[NI:XJ% 0B0DERROR ?? <F:AE9> *6HB[P(9F8F8F[L(KLI7
=S=R4* % 0DAT LINE ?><F% 0B<F$AI"?*9KIZM9?H<BOH?-8KNXJ,6YI+BZ-CHADSP+SSW]DAJAFNZ%LGQF$0T.3QDLGSWEWRZ<0AGICOO3REU7IN[JKP9O8<P+1SJ++8!O88![PKJS8/(Y90X>\?6??X2=?*<N6I(^6: ^7$AI"?*FLH[ZKZB89D>(*WKZ$H.>(H.KZX6RWR,*JJ9X92J&8H2J$(ADSK:<BJ$2J$(B6?=%$J+Z3&%\HD.:+<
9=A?35<4+*%$<B0Z0L>D<(,(?S)!+EZBJAZC(Z3!+5Z<P+V[;JCJ3JB+G
;S;>+RJC9F8F8FJ3/Z(KX=HS!?(/!+"+*+10I++0NZAJA/(0Y+10^+.J;[)Z8!JB*=$E?.X??2C>PO^XHH*&L9X7L5L4L2 1L4"H	LL:DZ\XDVPUDS$/L8?H0H]4R<PN0MK$JL,\H)P*H!XIXGELDB AH,^H(8<T[\D>TWTG =H >"B"B&*+MCS7CCOT7R2JOP7HKA"2&,3TSA* CI7PSU7PKT"M&J3DGC* CI7PSU7PKT"M&J7I+S6 WP7TSPR
M6IOI3Z> 3UOTN7T2J*I+MCP3PC/AGR"-612JRI+CCA+I" .6^7*7>I7SSE2 ?E3F> 3N> 7VKE3F?LW*M2MZJ3I	XO&,3TSA6 WP7TSP+R>I3S	H+FCT3B[U7FKE7SV P*M2I	CA*M2IOD7AB 3UOTH*M2IGT7DB 7UCTT7RH^H99 ?8NK8+>QP]&5EP=^<E<JH
JJIRVE	FDLAIME
G LBF:FCEG3<C<<<=<><?<9IYDABCDADGJ
 %?BBGBJBM

 !<C<1>??F? ?!?3?4?6?;?<QV6R;?)&)0I=H)066:T(61),-$0&:T(0!)2-$H;!$H:!$-6FE?A?X Y]NYXRI]9!IX>P*U2IMX<(*R]]QXQ]*K]]2I.IXYV2IMV>(*]QV*X2A;I]IV81I"IX>P*/$ZNO ROOM IN FILEIX8!I]IVY]IV8 IXYX2IMV]]: IVYV: I]Y]QX*92A.Y\Y[I\9HL
Y^2IM^2A<X+T8J8J8J7IC9H3Y^<P/EI[9D=X/*8DI[=X/*8DI^<X/*Y[Q\+HRFXQH]I8> /+$VIN8!K0?+:$RM-,W$[$T$P?.XQQ$]YQ2IL+2AK?<(*QK>> *"S2I\*2A,W"S/=YNL&\%:AD$\$	<H,XIO;XJIJIW9H8!YOHJK:?H*+$U	9*[2ILI2A\JQO*+HJ
;\J$QT?7AH$U$VYLK82I]
K7XIK6Y]L-JL.JL/J2A.S2A[	K	\IK	AB9D< 8H]]K	7ID< H5M]]]Q]2I/JL-K5>(/
$R=C/
!6!62I$RIS>(+2$RL<!6/	*918=O=B  TA"XTTIJ$AG040Z$]QT*GLIY^-^IS> $VH+Z:$!I\>(+;IK9!I[>XILH*Z:I[YK$!I[9!IK>(+F<P*4"*Y2IN:<(*4ABH>>(*/N:7IER:> *%2A.2AUI
8!J:$^H+[R2IOR^:R:SRQ
*>2A*AJ:YM"J:[RIMZ:IW8A9HIM$^U*;J:K?YLIW<(*A918HY
/UY
IW9HH+Y^2I<XM^I
<X+/9F8F8F]^2AQW/ IIYOH9!$QO+6/3$ZWHAT?<O?8A>(/>O=I%Y%
<
;W:*M$RHS
:L%>(,X$S,W

STOPPED BY OPERATOR

YPJ$2LZ)2AN
Y^0ZR
2AM^8J8J8J"<M^"<Q^0Y*)0^K9> *)!62AYP.
7<(*9IE< +H!6IP> *1.<=HK8K7!$.<!62I"
QNKM[V"
"
R\,YOLD DQNEW DLKEY M RUN C1MSG KRLISTR%OPR KO$$I"$$/.\J\J2AB
A===B=A<;<:M)<7O?ZF2I$PD?(I."U8!
?O?ZR2I$QD?(I.IK>XL2ILL> *Y2AHLIA8F8F8F4.U2J%BHK=Z/Z0K<Z12J$8A<BK;Z9J02J$8B+DJ9[A&1\ID/:,W$RKG,XFILE NOT SAVED
;XY$"$VY,W$&S2+M/IH	<(+.?H+,	=%UHYIM!>(+*H5%U%S+,I\$&X5/YHY9%R+,IQZ9IY[YI
SY
Y<4=O:/SC?=H80\H?>(0Y<H+&6:+GYWYSYRYTYUIEYM\(6Y*\6\YYIUK??H	>QU*O69+CH5$\;$IW9HH+Y
2IM
H=> *-: I
*$Q
H<]
2AI
H09DYWIR>(.IQ> *A$ZBAD CHARACTERT(*RQM*R$"0Z;XY$RR>$"0Y+N0ZH80\IY^0\!$!6YQ^*A$U
=:A\/<L$< /;;X\$$V\	H*+\;XY$"+]NOT RUN--ERRORS
LM\IS;+6/?G;<<7N?XIUII9X[)K)8D< *NIT?H*NH5$\?H: [(IFYMYOIY<(+
9D<X*\QO*W<(*-YYK(> +$IM8 IOYOQMIY9D<P*\> +%IO9H<(+AS)<H+,K*Y^M^<X*<8J8J8J7<(+%$\.S(+%IW> +$IU8TXIHI8DHIH)XIHII!?+$LI2I\+2ALI2I\,2AH1YW: YT.S(<H.H5*?QRQSH6*?P[Q8DK+YMIU9H>PH3IMYMIT> +$QTH5$\IW9H>X+9MM8J8H7I YXMM2918HYOIW9HH+Y]MX2I]]2AQXQ]QO*NMM2IWYW.[O012
456789ADGJMPSVY,BEHKNQTWZCFILORUX.[$?:]&!+(="\-)	*<;/>^=CASTA%A<%CEB]B3DKEBD\C\D.EKBKC/E\E.LETREADINPUTPRINTFORGOSUBGOTODIMCHAINENDWRITEDATARESTOREREMNEXTRETURNIFDEFSTOPRANDOM:$ZLINE NO. TOO BIG

------
: !6$RRQ.V--LINE NOT USED
$V	?H.\
$!I[YZH*\
$!IZ9!I[>X*6$ *.L
Z;:A2I$R!6,W
MORE CARDS?.4(STYS%"9&KWXI2I/Q=>DH.QHIXJHJKXXKH-QLK\JHJ8!HI> *[2A*JJP$&IN$&"	X/.I,X5I.$&P5**.	18=OB
A==<4>B>GEE
T	:A$RTYJVZZ(.AJUXIJWXJJXYOLJ\IQO*P.IT
T	=F?9

BATCH LOG   EDUSYSTEM-35



9F8FAJOH
HKL9J8J8HAJOI
IKJZ%SISK+CI.	=M+CKI[HSIKL
IKL	<P2A.1>.*%>T=I,[KK;[IKJZ%9/M%6IK+!%6K:H]II>(%<;&-?U"[7
9%;<H+2S7+.: [7+0H]	8%<+&S7<H/	8+2V0V<?9.V WZ=6=7YOIY9F8F2I;VAY> 9PIO8DYOIO9F8DIOYOIYC?9H<X8AIIO9HK>Y^M^<X*8J8J8J7<(+R$\;&IU> .H)8AYMMM<(.8!2IL+2AQM>(*;QMQM*.2IL,2AAB8!MMAB> *8IMXI: YT.<(/IQO9H<P+L>(/IQSH6*& 976543218"=	:0ZXWVUTS/Y?>,]-RPONMLKJI\;)*$!&IGF
DCBAH^+(<.[*;+.UKUFIZWUG=X"H]IF<(*%K??.%<I.0\K>>(0Y*P-,%6H]K=<(/<K;>(*,%*?"%5H6X5HY%4%6"%%)**H)<(*"8AX)%<* %<%6%5P3*3%%5/HYXXHWA,8!HXA,>(/:%2HX/9%": X0HR?H,ZH]K8<(+NK7>(/6;X*[%<P0+]HWXZ%	HPXLHQXMHRXNHZXO*IHW8!HZ>(+T%%)$*IHZY8 Z/5P\L\I >(/4L\XZ%</3[Z[&^AD6
/=TD,%Y?:$F=\==B>\>X*X6XYX3J%&XXH*?H/?H]IE<(*SID> *UPX%<P*H]II<(+K><(/=K<<(/;K:>(/9%/8%C+B".*UHXIK>(/7X]*&Z(H]K6< K5< K4< K3<(+K2?H+%%)%<..R...X HT>(H]K1?+ H 9D9DX"HT> H H"9DH]IBX %<%C+CH XZHXK0X L X , %%)+U%<HW+Y%%): X]/7HY%-A0XY-A
+=HB<B?+4<^[\&3&A?GY*L\2%": X0HR?*H%%)0P0*PP3H	?H*P%%53HQ?/?H]I8> /?%6H]?H/?H*> /?X,HZ%&%<H*:%": X0;ZP>(*6HZ<(P,H,X,%6*!H*I%X**CH,%&;X*<H,%&8A%5LHX,LHXZX6H,A=>(+MHYA,>(+^%%):HYA,<(+^8!HWA,>(+[HY	>XY	=IOI.HZXZH,A0>(+,HZAO>(+)%%))+,IOHZXZHYA>HZXY-	<I.0\K;>(
Y/1/: %=1,*R0&	[ZT	:A$RTYJVZZ(.AJUXIJWXJJXYOLJ\IQO*P.IT
T	=F?9

BATCH LOG   EDUSYSTEM-35



9F8FAJOH
HKL9J8J8HAJOI
IKJZ%SISK+CI.	=M+CKI[HSIKL
IKL	<P2A.1>.*%>T=I,[KK;[IKJZ%9/M%6IK+!%6K:H]II>(%<;&-?U"[7
9%;<H+2S7+.: [7+0H]	8%<+&S7<H/	8+2V0V<?9.V WZ=6=7

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