FOCAL Lunar Lander or Star Trek

[billdeg]

Looking for a program listing code in Focal of Lunar Lander or some other interesting subjects like the obligatory Star Trek or some sort of text-based adventure. I have 300 or so blocks available on disk (RK05).

b

 

[RSX11M+]

Try ftp://ftp.pdp8.net/software/games/focal/

Actually... here it is:

W A
C-FOCAL,1969

01.04 T "CONTROL CALLING LUNAR MODULE.MANUAL CONTROL IS NECESSARY"!
01.06 T "YOU MAY RESET FUEL RATE K EACH 10 SECS TO 0 OR ANY VALUE"!
01.08 T "BETWEEN 8&200 LBS/SEC.YOU'VE 16000 LBS FUEL.ESTIMATED"!
01.11 T "FREE FALL IMPACT TIME-120 SECS.CAPSULE WEIGHT-32500 LBS"!
01.20 T "FIRST RADAR CHECK COMING UP"!!!
01.30 T "COMMENCE LANDING PROCEDURE"!"TIME,SECS   ALTITUDE,"
01.40 T "MILES+FEET   VELOCITY,MPH   FUEL,LBS   FUEL RATE"!

02.05 S L=0;S A=120;S V=1;S M=33000;S N=16500;S G=.001;S Z=1.8
02.10 T "    ",%3,L,"       ",FITR(A),"  ",%4,5280*(A-FITR(A))
02.20 T %6.02,"       ",3600*V,"    ",%6.01,M-N,"      K=";A K;S T=10
02.70 T %7.02;I (K)2.72;I (200-K)2.72;I (K-8)2.71,3.1,3.1
02.71 I (K-0)2.72,3.1,2.72
02.72 T "NOT POSSIBLE";F X=1,51;T "."
02.73 T "K=";A K;G 2.7

03.10 I ((M-N)-.001)4.1;I (T-.001)2.1;S S=T
03.40 I ((N+S*K)-M)3.5,3.5;S S=(M-N)/K
03.50 D 9;I (I)7.1,7.1;I (V)3.8,3.8;I (J)8.1
03.80 D 6;G 3.1

04.10 T "FUEL OUT AT",L," SECS"!
04.40 S S=(-V+FSQT(V*V+2*A*G))/G;S V=V+G*S;S L=L+S

05.10 T "ON THE MOON AT",L," SECS"!;S W=3600*V
05.20 T "IMPACT VELOCITY OF",W,"M.P.H."!,"FUEL LEFT:"
05.30 T M-N," LBS."!;I (-W+1)5.5,5.5
05.40 T "PERFECT LANDING !-(LUCKY)"!;G 5.9
05.50 I (-W+10)5.6,5.6;T "GOOD LANDING-(COULD BE BETTER)"!;G 5.90
05.60 I (-W+25)5.7,5.7;T "CONGRATULATIONS ON A POOR LANDING"!;G 5.9
05.70 I (-W+60)5.8,5.8;T "CRAFT DAMAGE.GOOD LUCK"!;G 5.9
05.80 T "SORRY,BUT THERE WERE NO SURVIVORS-YOU BLEW IT!"!"IN"
05.81 T "FACT YOU BLASTED A NEW LUNAR CRATER",W*.277777,"FT.DEEP.
05.90 T "CONTROL OUT";QUIT

06.10 S L=L+S;S T=T-S;S M=M-S*K;S A=I;S V=J

07.10 I (S-.005)5.1;S S=2*A/(V+FSQT(V*V+2*A*(G-Z*K/M)))
07.30 D 9;D 6;G 7.1

08.10 S W=(1-M*G/(Z*K))/2;S S=M*V/(Z*K*(W+FSQT(W*W+V/Z)))+.05;D 9
08.30 I (I)7.1,7.1;D 6;I (-J)3.1,3.1;I (V)3.1,3.1,8.1

09.10 S Q=S*K/M;S J=V+G*S+Z*(-Q-Q^2/2-Q^3/3-Q^4/4-Q^5/5)
09.40 S I=A-G*S*S/2-V*S+Z*S*(Q/2+Q^2/6+Q^3/12+Q^4/20+Q^5/30)
*

Actually, I'd love to have the one written for PRO-380 color graphics display if anyone knows where it is. ( I think it came with POS at some point )
...Of course, I'd probably need the sources to have any chance of running it today, as I have no PRO-380!

It may not be what you're looking for but... The best Star Trek of that era I'm aware of was M-TREK for RSX. A multiuser ship piloting game intended to be played simultaneously from multiple terminals on the same system. Not "Graphics" but not exactly "Text" either. It used VT100 escape codes (and VT100 "Advanced Video" option?) to dynamically place characters on the screen providing a moving pictorial view of a "universe" (LEDFOR) through which all ships traversed and interacted. It was primarily a war game, the object being to destroy other player's ships. Source code was Fortran (IV or 77?) Pretty sure it was in a DECUS distribution.

 

[billdeg]

Thanks. I have these files, but I was checking the collection of files I have - *.fc, not also *.fcl...thanks! I assume the .fcl files from the site are for the PDP 8 and not the 11. Easy enough to find out.

I spent a few hours Sunday messing with Focal. Here is a dump of my logs from the session, I put a copy of Lunar Lander on my site too.
http://vintagecomputer.net/browse_thread.cfm?id=524

 

[Qbus]

Wow, takes me back. I remember playing that old Star Trek game on an ASR-33 connected by fixed line modem to the University of Delaware’s PDP mainframe. It was just a text base only program that presented you with questions and you were prompted to type in a response, no graphics or anything like that. Fairly cetin it was run under Basic but so long ago can’t say. That was back about 1977 or 76 when I was in high school. If you get the program would be interested if you can post the code somewhere so people can copy and run it on their systems also.
Saw this video on YouTube of an 11/34 playing Space Invaders and would love to get a copy of that. Looks as if it may run under RT-11 directly.
Video Address:
http://www.youtube.com/watch?v=qjQUBDSnkmU

 

[billdeg]

I also went to U of Del...