1.01 T !
  2.01 T !
  3.01 T !
  4.01 T "                      XXXX",!
  5.01 T "                     X    XX",!
  6.01 T "                    X  ***  X                XXXXX",!
  7.01 T "                   X  *****  X            XXX     XX",!
  8.01 T "                XXXX ******* XXX      XXXX          XX",!
  9.01 T "              XX   X ******  XXXXXXXXX                XX XXX",!
 10.01 T "            XX      X ****  X                           X** X",! 
 11.01 T "           X        XX    XX     X                      X***X",! 
 12.01 T "          X         //XXXX       X                      XXXX",!
 13.01 T "         X         //   X                             XX",!
 14.01 T "        X         //    X          XXXXXXXXXXXXXXXXXX/",!
 15.01 T "        X     XXX//    X          X",! 
 16.01 T "        X    X   X     X         X",!
 17.01 T "        X    X    X    X        X",! 
 18.01 T "         X   X    X    X        X                    XX",! 
 19.01 T "         X    X   X    X        X                 XXX  XX",! 
 20.01 T "          X    XXX      X        X               X  X X  X",!
 21.01 T "          X             X         X              XX X  XXXX",! 
 22.01 T "           X             X         XXXXXXXX\     XX   XX  X",! 
 23.01 T "            XX            XX              X     X    X  XX",!
 24.01 T "              XX            XXXX   XXXXXX/     X     XXXX",! 
 25.01 T "                XXX             XX***         X     X",! 
 26.01 T "                   XXXXXXXXXXXXX *   *       X     X",!
 27.01 T "                                *---* X     X     X",! 
 28.01 T "                               *-* *   XXX X     X",!
 29.01 T "                               *- *       XXX   X",! 
 30.01 T "                              *- *X          XXX",!
 31.01 T "                              *- *X  X          XXX",! 
 32.01 T "                             *- *X    X            XX",! 
 33.01 T "                             *- *XX    X             X",!
 34.01 T "                            *  *X* X    X             X",! 
 35.01 T "                            *  *X * X    X             X",!
 36.01 T "                           *  * X**  X   XXXX          X",!
 37.01 T "                           *  * X**  XX     X          X",!
 38.01 T "                          *  ** X** X     XX          X",! 
 39.01 T "                          *  **  X*  XXX   X         X",!
 40.01 T "                         *  **    XX   XXXX       XXX",! 
 41.01 T "                        *  * *      XXXX      X     X",! 
 42.01 T "                       *   * *          X     X     X",! 
 43.01 T "         =======*******   * *           X     X      XXXXXXXX\",!
 44.01 T "                *         * *      /XXXXX      XXXXXXXX\      )",! 
 45.01 T "           =====**********  *     X                     )  \  )",! 
 46.01 T "             ====*         *     X               \  \   )XXXXX",!
 47.01 T "        =========**********       XXXXXXXXXXXXXXXXXXXXXX",!
 48.01 T 
 49.01 T !
50.01 T  "                  CURSE YOU, RED BARON!!",!
 51.01 T !
 52.01 QUIT
C: HANGMAN GAME.
E A
S A=FAND[@1777,FITR[FCLK[]]];F Y=1,A;X FRAN[]
02.15 S A=FITR(FABS(FRAN())*212+1)
02.20 S Y=FCHR(-1);I (160-Y)2.2,2.25,2.2
02.25 S B=B+1; I (B-A)2.2
02.27 S C=C+1
02.30 S D(C)=FCHR(-1)
02.35 I (D(C)-160)2.37,2.55
02.37 I (D(C)-187)2.4,2.55
02.40 I (D(C)-141)2.45,2.3
2.47L C I;O K
02.45 I (D(C)-138)2.27,2.3,2.27
2.55S C=C-1;O T;L C I
2.56S Z=FAND[FCHR(-1),@177]
2.58 I (Z-@15)2.65,2.65,2.56
C: READ ALL CHARS IN LINE UP TO CR TO FLUSH LIB INPUT.
02.65 F Z=1,C;S E(Z)=173
02.80 T "THE WORD HAS ", %3,C," LETTERS."!!!
02.85 S G=0

03.10 S G=G+1
03.15 T !, "WHAT IS GUESS #",G," ? "!
03.20 S H=FCHR(-1);I (H-141)3.25,10.1
03.25 S Z=FCHR(-1);IF (Z-141)3.3,3.4
03.30 I (Z-223)3.4,3.2
03.40 I (218-H)3.45;I (193-H)3.5,3.5
03.45 T !"**ILLEGAL INPUT"!!;G 3.15
03.50 T !;S I=0
03.55 F Z=1,C;D 5
03.57 I (K-C)3.6,3.83,3.6
03.60 I (I-2)3.65,3.7
03.65 I (I)3.65,3.75,4.1
03.70 T "YOU HAVE ALREADY GUESSED THAT LETTER.."!;G 3.15
03.75 T " WRONG!"!;S J=J+1;S T(J)=H;I (J-7)4.1,4.1
03.80 T !!" YOU HAVE HUNG YOUR MAN!  "!
03.81 T "THE WORD WAS:  ";D 8;T !!!;G 10.1
03.83 I (-J) 3.86;T !!"FNTASTIC!! NOT ONE WRONG.  "
03.84 T "YOU HAVE EASILY SAVED"!;G 3.87
03.86 T !!"CONGRATULATIONS!!  YOU HAVE GUESSED THE WORD AND SAVED"!
03.87 T "YOUR MAN FROM THE GALLOWS."!
03.88 T "AS YOU KNOW THE WORD WAS:  ";D 8
03.90 T !!!;G 10.1

04.10 T !"  ";D 6
04.15 I (J),4.25;T "      WRONG GUESSES:  ";D 7;G 3.1
04.25 T "      NO WRONG GUESSES",!;G 3.1

05.10 I (H-D(Z))5.15,5.2
05.15 R
05.20 I (E(Z)-D(Z))5.25,5.3,5.25
05.25 S E(Z)=D(Z);S I=1;S K=K+1
05.26 R
05.30 S I=2;R

06.10 F Z=1,C;S Y=FCHR(E(Z))
06.15 R

07.10 F Z=1,J;S Y=FCHR(160);S Y=FCHR(T(Z))
07.15 R

08.10 F Z=1,C;S Y=FCHR(D(Z))
08.15 R

10.10 O T;E A
O T;T !
T "THIS PROGRAM PLAYS THE GAME OF HANGMAN ON AN ORDINARY"!
T "TELETYPE.  IT WILL CHOOSE A WORD AUTOMATICALLY AND AT "!
T "RANDOM AND ASK YOU TO GUESS LETTERS.  YOU GET ONLY 7 WRONG"!
T "GUESSES AND THEN YOUR MAN IS HUNG.  NO PICTURE IS DRAWN BY"!
T "THIS PROGRAM."!!!
T "PLEASE WAIT WHILE THE COMPUTER DECIDES ON A WORD..."!!
G
 FINK HELLO WHAT WHERE WHY HOW GNOME TAPE GLUE TABLE FEATHER RED GREEN;
 TOWN ACID POISON ELIXIR WATER COFFEE JUNK DAM SIN LIFE WAR DEATH;
 PARASITE WORM AMOEBA PLASTIC METAL WOOD FURNITURE POWER RIGHT WRONG;
 EXPRESSION RELINQUISH MULTIPLIER IMMOBILE EXTINCTION ALCOHOL CYMBAL;
 KNOCK PHOBIA ANXIETY CALL SIX BLIGHT VEHICLE GYMNASIUM POLICY HISTORY;
 WHITE BLACK SKIRMISH GOURMET REQUEST GUERRILLA MAFIA YOUNG NEWS;
 CLOUDY ACTION FUND MAYOR MEDICARE ELITE CURB SIMILAR PROTESTER JOKE;
 MAINTENANCE DEPOSIT NEGOTIABLE INSIPID MONEY ECONOMIC CLASSROOM;
 RESULT DIRECTOR POSSIBILITY COMPOSED POTENTIAL ZERO WELCOME;
 SECURITY DISAPPEARANCE PROGRAM GOVERNOR JOINT PERCENTAGE PASSAGE;
 COMMENDABLE SUPERSONIC PITCHER DECLARATION EDUCATION EMPHASIS;
 FILCH GUARANTOR ELEEMOSYNARY IDIOT WISDOM UTILITY POSTPONE RUBBISH;
 JURY DAIRY GRASS MOLD SUBORDINATE ADAGE CREATE FIERY CAPTIOUS;
 VECTOR AXIAL TENSOR INTEGRAL FUNCTION GUN INCHOATE INCOHERENT SECRET;
 WORD MAGIC FICTION AUDIO ILLEGITIMATE SON OF MAGGOT THIS NOT REALLY;
 ADVISABLE CELERITY COLLOQUIAL GRAMMAR;
 ADMINISTRATION YESTERDAY COLLECTIONS APATHETIC PROTOZOA GYPSY AXE;
 WHAT WHY HOW FINAL MERCENARY PECUNIARY FINANCE CARROT WANDERLUST;
 HEAD TORSO FOOT BLUE THEIST HUMAN COLONY HOME;
 WITHDRAW PATHWAY JEWEL RING ASPIRIN EPITOME CLEVER ALGEBRA;
 GEOMETRY ANALYSIS MATRIX LINEAR YOU LEAVE PLEASE USE FINISH;
 COMMAND INDICATE MACHINE USE LOAD START UNIFORM RENEW HEAVY;
 SPECTRUM COLOR CHARM STRANGE DOCTOR NURSE PET ROCK VERB BORING;
 FIELD STREAM HORSE PIG COW OWL PORCH AUTOMOBILE TRANSISTOR;
 TAXI PHYSICIAN OPERATOR TUBE UNSYMPATHETIC HELP HELP                
C: GAME OF NIM
E A
1.1O T
1.2O T;E;F P=1,3;S N(P)=FITR(FABS(10*FRAN()))+6
2.1T %3.0,!"INITIAL CONFIGURATION"!!
2.2F P=1,3;T !"PILE ",P,":",N(P)
2.3A !!"PILE, NO. TAKEN?",P,N;I(-N)2.4;O T;Q
2.4I(N-N(P))2.5,2.5;T !"ILLEGAL MOVE"!!;G 2.3
2.5S N(P)=N(P)-N;I(-N(1)-N(2)-N(3))2.6;T !"YOU WIN!"!;O T;Q
2.6F P=1,3;S X=N(P);F C=1,4;S Y=FITR(X/2);S B(P,5-C)=X-2*Y;S X=Y
2.7F C=1,4;S X=B(1,C)+B(2,C)+B(3,C);S S(C)=X-2*FITR(X/2)
2.8I(-S(1)-S(2)-S(3)-S(4))3.1;S P=0
2.9S P=P+1;I(N(P))2.9,2.9;S N=FITR(N(P)*FABS(FRAN())+1);G 3.4
3.1S C=0
3.2S C=C+1;I(S(C))3.2,3.2;S P=0
3.3S P=P+1;I(B(P,C))3.3,3.3;S N=0;F C=C,4;D 4
3.4T !!"MY MOVE:",P,",",N,!!;S N(P)=N(P)-N
3.5I(-N(1)-N(2)-N(3))3.6;T !"I WIN!"!;O T;Q
3.6T !"NEW CONFIGURATION"!!;G 2.2
4.1I(S(C))4.3,4.3;S X=FITR(2^(4-C)+.01);I(-B(P,C))4.2;S N=N-X;R
4.2S N=N+X
4.3R
O T;T !!!"THIS PROGRAM PLAYS 3 PILE NIM"!
T "RANDOM INITIAL NUMBERS IN EACH PILE"!
T "PLAYER REMOVES ANY NUMBER OF OBJECTS FROM ANY PILE"!
T "PLAYER WHO REMOVES LAST REMAINING OBJECT WINS"!!
G 1.2

C: BARON GAME
E A
01.01 O T
01.05 O T;L C I;T %6.0

1.06S P=95;S S=2800;S H=3000;S E=200;S Y=3;S A=1000;S I=5;S Q=1
1.07S D=0
02.20 S T=T+1;T !!"YEAR ",T;D 6;T !!"LAST YEAR"!D," STARVED,
02.25 T !I," ARRIVED,";S P=P+I;;I (-Q)2.3
02.27 S P=FITR(P/2);T !"**PLAGUE**"!
02.30 T !"POPULATION IS"P,!!"THE CITY OWNS
02.35 T A," ACRES."!!;I (H-1)2.5;T "WE HARVESTED
02.40 D 3.2
02.50 T !" RATS ATE"E," BUSHELS,YOU HAVE
02.60 T !S," BUSHELS IN STORE."!
02.70 I(250-P)9.2

03.10 D 6;S Y=FITR(8*FRAN())+17;T "LAND IS TRADING AT
03.20 T Y," BUSHELS PER ACRE;";S C=1
03.30 D 4.3;A " BUY?"Q;I (-Q)3.4,3.8;D 7.2;G 3.3
03.40 I (Y*Q-S)3.9,3.6;D 4.6;T !"YOU MAY BUY ONLY
03.45 T S/Y-1,!;G 3.3
03.50 D 4.5;D 4.3;G 3.8
03.60 D 3.9; G 4.8
03.70 S A=A+Q;S S=S-Y*Q;S C=0
03.80 A !"SELL?"Q;I (Q)3.85,3.9;S Q=-Q;I (A+Q)3.5;G 3.9
03.85 D 7.2;D 4.3;G 3.8
03.90 S A=A+Q;S S=S-Y*Q;S C=0

04.10 T !"BUSHELS TO USE
04.11 A " AS FOOD?"Q;I (Q)4.12,9.1;I (Q-S)4.2,4.7;D 4.6;G 4.1
04.12 D 7.2;G 4.1
04.20 S S=S-Q;S C=1
04.30 A !"ACRES TO
04.35 A " PLANT WITH SEED?"D
04.40 I (D)4.42;I (A-D)4.45;I (FITR(D/2)-S-1)4.65;D 4.6;G 4.3
04.42 D 7.2;G 4.3
04.45 D 4.5;G 4.3
04.50 D 7;T A, " ACRES."!
04.60 D 7;D 2.6
04.65 I (D-10*P-1)4.9;D 7;T P," PEOPLE."!;G 4.3
04.70 D 4.2
04.80 D 6;T "NO GRAIN LEFT AS SEED!!"!;S D=0
04.90 F C=1,1500;
04.95 O T

05.10 S I=FSQT(Q/(20*P));S S=S-FITR(D/2);S Y=FITR(FABS(FRAN())*4.5*I)+1
05.20 S H=D*Y;D 8;S E=0;I (FITR(C/2)-C/2)5.3;S E=FABS(S/C)
05.30 S S=S-E+H;D 8;S I=FITR(C*I*(20*A+S)/(P+40)/100+1);S C=FITR(Q/20)
05.40 S D=0;I(P-C)5.5;S D=P-C;S P=C
05.50 S Q=FITR(4500*FABS(FRAN())/(20*D+E+150));G 2.2

06.10 T !!"LORD BARON:  "

07.10 D 6;T "BUT YOU HAVE ONLY";R
07.20 T "PLEASE, ";D 6;T "I AM IN NO MOOD FOR JESTING."!;R

08.10 S C=FITR(5*FABS(FRAN()))+1

09.10 T !"REVOLUTION!!!"!!!;O T;Q
09.20 I(5000-A)9.5;T !!"YOU ARE PROMOTED TO PRIME MINISTER OF "
09.30 I(2500-A)9.4;T "BIRTH CONTROL!"!;O T;E A
09.40 T "AGRICULTURE!"!;O T;E A
09.50 T "WOW! FRL. SCHULZ AGAIN!!"!;O T;E A
O T;T !!
T "THIS PROGRAM ALLOWS YOU TO BE THE BARON OF A SMALL TOWN"!
T "WHERE EVERYONE IS DEPENDENT ON YOU.  HOW YOU MANAGE YOUR"!
T "LAND WILL DEPEND ON HOW YOU ANSWER THE QUESTIONS IN THE"!
T "PROGRAM, AND ON THOSE ANSWERS WILL DEPEND YOUR FATE AS WELL."!
T "** YOU CAN ONLY PLANT 10 ACRES PER PERSON"!
T "** YOU MUST HAVE AT LEAST ONE BUSHEL FOR FOOD."!
T "** TO PREVENT STARVATION, EACH PERSON NEEDS 20 BUSHELS."!
T "** YOU CAN ONLY PLANT 2 ACRES PER BUSHEL"!
T "** YOU ARE PROMOTED WHEN YOU GET A POPULATION GREATER THAN 250."!
S P=95;S S=2800;S H=3000;S E=200;S Y=3;S A=1000;S I=5;S Q=1;S D=0
G 1.05

C: TOWERS OF HANOI GAME
E A
01.01 O T
01.29 E;O T;T !!
01.30 A "NO. OF DISKS? "!,N
01.40 F I=1,N;S SS(I)=I
01.50 S SO=1;S SI=3
01.60 S NO=N;S NI=N;S I=0
01.70 A "PRINT OR PLOT? "!,MOVE
01.80 I (FABS(MO-0PRINT)) ,1.85;D 23
01.85 A "AUTO OR MANUAL? "!,A
01.90 I (FABS(A-0MANUAL)),5.1;D 2;T !!"DONE !",!!;O T;Q

02.20 I [SS<(SO-1)*N+NO-1>]ER,2.95
02.30 S I=I+1;S NO(I)=NO;S SO(I)=SO;S SI(I)=SI
02.50 S SI=6-SO-SI;S NO=NO-1;D 3;S TE(I)=NI;D 2
02.60 S SI=SI(I);S NO=NO+1;D 3;D 6
02.70 S SO=6-SO-SI;S NO=TE(I);D 3;D 2
02.80 S SI=SI(I);S SO=SO(I);S NO=NO(I);S I=I-1
02.90 R
02.95 D 3;D 6;R

03.10 S NI=N
03.20 I [SS((SI-1)*N+NI)]ER,3.3;S NI=NI-1;G 3.2
03.30 R

05.10 A "OUT-DISC: "!,NO,"TOWER: "!,SO
05.20 A "IN-DISC: "!,NI,"TOWER: "!,SI;D 6
05.30 S A=0
05.40 F I=1,N*2;S A=A+SS(I)
05.50 I (-A) 5.1;T !"WELL DONE!"!;O T;Q

06.10 S DO=(SO-1)*N+NO
06.20 S DI=(SI-1)*N+NI
06.30 S SS(DI)=SS(DO)
06.40 S SS(DO)=0
06.50 I (FABS(MO-0PRINT))ER,6.7;D 23;R
06.70 T !%2,"OUT-DISC: ",NO," TOWER: ",SO,!
06.80 T "IN-DISC: ",NI," TOWER: ",SI,!!

23.10 F J=1,N;T !;F K=0,70;D 23.3
23.20 T !!!!;R
23.30 I [K-15+SS(J)*2]23.6;I (-K+15+SS(J)*2)23.6;T "#
23.60 I (K-35+SS(J+N)*2) 23.7;I (-K+35+SS(J+N)*2) 23.7;T "#
23.70 I (K-55+SS(J+N+N)*2) 23.8;I (-K+55+SS(J+N+N)*2)23.77;T "#
23.77 S K=100;R
23.80 T " "
O T;T !!
T "THIS PROGRAM WORKS WITH THE TOWERS OF HANOI PROBLEM."!
T "YOU ARE GIVEN THREE TOWERS WITH VARIOUS SIZED DISCS ON"!
T "ONE OF THEM.  THE OBJECT IS TO PLACE ALL THE DISCS ON"!
T "ANOTHER TOWER ONE AT A TIME, WITH THE STIPULATION THAT A"!
T "LARGER DISC MAY NEVER BE ON TOP OF A SMALLER ONE.  THIS"!
T "PROGRAM IS GOOD FOR ANY NUMBER OF DISCS AND CAN BE RUN"!
T "EITHER IN MANUAL (YOU TELL IT WHERE TO MOVE) OR AUTOMATIC"!
T "MODE.  IT WILL ALSO EXPLAIN ITS MOVES OR DRAW THEM FOR YOU,"!
T "DEPENDING ON HOW YOU ANSWER THE 'PRINT OR PLOT' QUESTION."!
T "** OUT DISC IS THE DISC (1 ON TOP) THAT YOU WANT TO MOVE"!
T "** IN DISC IS THE POSITION (1 ON TOP) WHERE YOU MOVE TO"!
T "** OUT TOWER IS THE TOWER (1 ON LEFT) FROM WHICH YOU MOVE"!
T "** IN TOWER IS THE TOWER (3 ON RIGHT) YOU MOVE TO"!
T "THIS PROGRAM ASSUMES NO CHEATING, AND DOES NOT CHECK FOR IT."!!!!
G 1.29

C: LUNAR LANDER
E A
O T
T "CONTROL CALLING LUNAR MODULE. MANUAL CONTROL IS NECESSARY."!
T "YOU MAY SET FUEL USE TO 0 OR ANY VALUE BETW. 8 AND 200",!
T "EVERY 10 SECS. YOU HAVE 16500 LB. FUEL. FREE-FALL IMPACT"!
T "IS 120 SEC. CAPSULE WEIGHT 32500 LB."!
T "1ST RADAR CHECK COMING UP..."!"COMMENCE LANDING PROCEDURE"!
1.1O K;O T;T !"TYPE CR TO BEGIN, 1 TO QUIT"
1.2A P;I(P-1)1.3;T !"CONTROL OUT"!;O T;Q
1.3O T;T !"TIME,SECS   ALTITUDE,MILES+FEET   VELOCITY,MPH   FUEL,LBS"
1.35T "   FUEL RATE"!
1.4S L=0;S A=120;S V=1;S M=33000;S N=16500;S G=.001;S Z=1.8
2.1T "    ",%3,L,"       ",FITR(A),"  ",%4,5280*(A-FITR(A)),"  "
2.2T %6.02,"       ",3600*V,"     ",%6.01,M-N,"      ";A "K",K
2.3T !
2.7S T=10;T %7.02;I (K)2.72;I (200-K)2.72;I (K-8)2.71,3.1,3.1
2.71I (K-0)2.72,3.1,2.72
2.72T "NOT POSSIBLE";F X=1,50;T " "
2.73T "K";A K;G 2.7
3.1I ((M-N)-.001)4.1;I (T-.001)2.1;S S=T
3.4I ((N+S*K)-M)3.5,3.5;S S=(M-N)/K
3.5D 9;I (I)7.1,7.1;I (V) 3.8,3.8;I (J)8.1
3.8D 6;G 3.1
4.1T "FUEL OUT AT ",L," SECS"!
4.4S S=(-V+FSQT(V*V+2*A*G))/G;S V=V+G*S;S L=L+S
5.1T "ON THE MOON AT ",L," SECS"!;S W=3600*V
5.2T "IMPACT VELOCITY OF ",W," MPH "!,"FUEL LEFT:"
5.3T M-N," LBS"!;I (-W+1)5.5,5.5
5.4T "PERFECT LANDING! (LUCKY)"!;G 5.9
5.5I (-W+10)5.6,5.6;T "GOOD LANDING"!;G 5.9
5.6I (-W+25)5.7,5.7;T "POOR LANDING, BUT YOU'LL LIVE"!;G 5.9
5.7I (-W+60)5.8,5.8;T "CRAFT DAMAGE. HIKE BACK."!;G 5.9
5.8T "SORRY, BUT THERE WERE NO SURVIVORS. IN FACT, YOU"!
5.9T "BLASTED A NEW LUNAR CRATER ",W*.277," FEET DEEP"!
5.91G1.1
6.1S L=L+S;S T=T-S;S M=M-S*K;S A=I;S V=J
7.1I (S-.005)5.1;S S=2*A/(V+FSQT(V*V+2*A*(G-Z*K/M)))
7.3D 9;D 6;G 7.1
8.1S W=(1-M*G/(Z*K))/2;S S=M*V/(Z*K*(W+FSQT(W*W+V/Z)))+.05;D 9
8.3I (I)7.1,7.1;D 6;I (-J)3.1,3.1;I (V)3.1,3.1,8.1
9.1S Q=S*K/M;S J=V+G*S-Z*(Q*(1+Q*(.5+Q*(1/3+Q*(.25+Q/5)))))
9.4S I=A-G*S*S/2-V*S+Z*S*(Q/2)*(1+Q*(1/3+Q*(1/6+Q*(1/10+Q/15))))
G

C: GAME OF LIFE
E A
O G
1.1O K;O V;T !,"GAME OF LIFE",!;E
1.3O T;T !;A "ACROSS"V,"DOWN"H
1.4S K=FITR((FRAN()+1)*.5*H*V)+1
1.5F C=1,K;S A(FITR((FRAN()+1)*.5*H)+1,FITR((FRAN()+1)*.5*V)+1)=1
1.7O V;T "INIT.PATN.";S G=0
1.8D 2;S G=G+1;T "   ",%3.0,?G?,!
1.9A "TYPE CR TO CONTINUE, 1 TO QUIT",K;I(K-1)4.1;O T;Q
2.1F I=1,H;T !;F J=1,V;D 3
3.1I(A(I,J))3.2,3.2;T "*";R
3.2T "-";R
4.1F K=1,H;F C=1,V;D 5
4.2F I=1,H;F J=1,V;D 8
4.3G 1.8
5.1S S=0;F I=K-1,K+1;F J=C-1,C+1;D 7
5.2I(A(K,C))6.1,6.1,6.5
6.1I(S-3)6.3,6.2,6.3
6.2S A(K,C)=-1
6.3R
6.5I(S-3)6.8,6.7,6.6
6.6I(S-4)6.7,6.7,6.8
6.7S A(K,C)=2
6.8R
7.1I(I-1)7.3;I(H-I)7.3;I(J-1)7.3;I(V-J)7.3
7.2I(A(I,J))7.3,7.3;S S=S+1
7.3R
8.1I(A(I,J))8.2,8.3,8.4
8.2S A(I,J)=1
8.3R
8.4S A(I,J)=A(I,J)-1;R
F I=1,FX(0,24724,77);X FRAN()
G

C: GAME OF LIFE
E A
O G
1.1O KV;T !"GAME OF LIFE"!;E
1.3O T;T !;A "ACROSS"V,"DOWN"H
1.4S K=FITR((FRAN()+1)*.5*H*V)+1
1.5F C=1,K;S A(FITR((FRAN()+1)*.5*H)+1,FITR((FRAN()+1)*.5*V)+1)=1
1.7O V;T "INIT.PATN.";S G=0
1.8D 2;S G=G+1;T "   ",%3.0,?G?,?  N?,!;I(-N)1.9;T "DEAD!"!;O T;Q
1.9A "TYPE CR TO CONTINUE, 1 TO QUIT",Q;I(Q-1)4.1;O T;Q
2.1S N=0;F I=1,H;T !;F J=1,V;D 3
3.1I(A(I,J))3.2,3.2;T "*";S N=N+1;R
3.2T "-";R
4.1F K=1,H;F C=1,V;D 5
4.2F I=1,H;F J=1,V;D 8
4.3G 1.8
5.1S S=0;F I=K-1,K+1;F J=C-1,C+1;D 7
5.2I(A(K,C))6.1,6.1,6.5
6.1I(S-3)6.3,6.2,6.3
6.2S A(K,C)=-1
6.3R
6.5I(S-3)6.8,6.7,6.6
6.6I(S-4)6.7,6.7,6.8
6.7S A(K,C)=2
6.8R
7.1I(I-1)7.3;I(H-I)7.3;I(J-1)7.3;I(V-J)7.3
7.2I(A(I,J))7.3,7.3;S S=S+1
7.3R
8.1I(A(I,J))8.2,8.3,8.4
8.2S A(I,J)=1
8.3R
8.4S A(I,J)=A(I,J)-1;R
G

C: CALENDER PROGRAM
E A
1.1O T;T !"TODAY'S DATE (MO,DA,YR)?",%4.0
1.2A M1,D1,Y1;I (100-Y1)1.3;S Y1=Y1+1900
1.3T !!"DATE OF INTEREST (MO,DA,YR)?";A M;I (-M)1.4;O T;Q
1.4A D,Y;I (100-Y)1.5;S Y=Y+1900
1.5I (1581-Y)1.6;T !"TOO EARLY!"!;G 1.3
1.6S I1=FITR((Y-1500)/100);S A=I1*5+(I1+3)/4
1.7S I2=FITR(A-7*FITR(A/7));S Y2=FITR(Y/100)
1.8S Y3=FITR(Y-Y2*100);S A=Y3/4+Y3+D+T(M)+I2
1.9S B=FITR(A-7*FITR(A/7))+1;I (M-2)2.1,2.1,2.7
2.1I (Y3)2.2,2.6,2.2
2.2S T1=FITR(Y-4*FITR(Y/4));I (T1)2.7,2.3,2.7
2.3I (B)2.5,2.4,2.5
2.4S B=6
2.5S B=B-1;G 2.7
2.6S A=I1-1;S T1=FITR(A-4*FITR(A/4));I (T1)2.7,2.3,2.7
2.7I (B)2.9,2.8,2.9
2.8S B=7
2.9S Q1=(Y1*12+M1)*31+D1;S Q=(Y*12+M)*31+D
3.1T !!,M,"/",D,"/",Y
3.2I (Q1-Q)3.4,3.3;T " WAS A ";G 3.5
3.3T " IS A ";G 3.5
3.4T " WILL BE A "
3.5I (B-2)4.1,4.2,3.6
3.6I (B-4)4.3,4.4,3.7
3.7I (B-6)4.5,4.6,4.7
4.1T "SUNDAY";G 4.8
4.2T "MONDAY";G 4.8
4.3T "TUESDAY";G 4.8
4.4T "WEDNESDAY";G 4.8
4.5T "THURSDAY";G 4.8
4.6T "FRIDAY";I (-FABS(D-13))4.8;T " THE THIRTEENTH!";G 4.8
4.7T "SATURDAY"
4.8T !!;I (Q1-Q)4.9,1.3,4.9
4.9S I5=Y1-Y;S I6=M1-M;S I7=D1-D
5.1I (-I7)5.2,5.2;S I6=I6-1;S I7=I7+30
5.2I (-I6)5.25,5.25;S I5=I5-1;S I6=I6+12
5.25I (I5)1.3,5.3,5.3
5.3T !"YOUR AGE (IF BIRTHDAY) IS ",I5," YEARS,",I6," MONTHS,",I7," DAYS"!!
5.4I (I7+I6)5.6,5.5,5.6
5.5T !"**HAPPY BIRTHDAY**"!
5.6S E=Y+65;I (E-Y1)5.7;T "YOU MAY RETIRE";G 5.8
5.7T "YOU SHOULD HAVE RETIRED"
5.8T " IN",E,!;G 1.3
S T(1)=0
S T(2)=3
S T(3)=3
S T(4)=6
S T(5)=1
S T(6)=4
S T(7)=6
S T(8)=2
S T(9)=5
S T(10)=0
S T(11)=3
S T(12)=5
G

C: CRAP GAME
E A
O T
T !"CRAP GAME"!"WITH THE COMPUTER AS YOUR OPPONENT. THE RULES ARE SIMPLE:"!
T "  A 7 OR 11 ON THE 1ST ROLL WINS"!
T " A 2,3,OR 12 ON 1ST ROLL LOSES. ANY OTHER NUMBER ROLLED BECOMES"!
T "  YOUR 'POINT'. YOU CONTINUE TO ROLL. IF YOU GET YOUR POINT,"!
T "  YOU WIN. IF YOU ROLL A 7 YOU LOSE. THE DICE CHANGE HANDS WHEN THIS"!
T "  HAPPENS."!!
1.1O T;T !"TYPE CR TO BEGIN,1 TO QUIT";A P;I (P-1)1.11;O T;Q
1.11O T;T !"WHAT NUMBER BETWEEN 1 AND 711 IS LUCKY FOR YOU TODAY?"
1.12A N;T !;F I=1,N;S X=FRAN(QQ)
1.14S X=FABS(X);S Z=5*FITR(10+11*FABS(FRAN(QQ)))
1.16T !"YOU HAVE ",Z," DOLLARS"!
1.18I (N-2*FITR(N/2))2.2,2.7,2.2
2.2S W=-1;T "I'LL ROLL FIRST"!;G 3.1
2.7S W=1;T "YOU ROLL 1ST"!
3.1S Q=0
3.2T "HOW MUCH DO YOU BET?($)";A B;T !"OK..."!;S B=FITR(B)
4.01I (B)4.1,10.8,4.1
4.1I (B-Z-0)4.4,4.4;T "CAN'T BET MORE THAN YOU HAVE"!;G 3.2
4.4S D1=FITR(1+6*FABS(FRAN(QQ)));S D2=FITR(1+6*FABS(FRAN(QQ)));S Q=Q+1
4.7S S=D1+D2;I (W)4.9,4.9,5.1
4.9T " I ROLL ",D1," AND " ,D2,"  ";G 5.2
5.1T " YOU ROLL ",D1," AND ",D2,"  "
5.2I (Q-1)8.4,5.3,8.4
5.3I ((S-2)*(S-3)*(S-12))5.4,6.2,5.4
5.4I ((S-7)*(S-11))5.5,6.9,5.5
5.5I (W)5.6,5.6,5.8
5.6T "SO MY POINT IS ",S;G 5.9
5.8T "SO YOUR POINT IS ",S
5.9T "..LET'S ROLL 'EM AGAIN.."!;S P=S;G 4.4
6.2T "  AND CRAP OUT "!;S C=1;I (W)6.5,6.5,6.7
6.5S Z=Z+B;G 7.5
6.7S Z=Z-B;G 7.5
6.9T " AND PASS.."!;S C=1;I (W)7.2,7.2,7.4
7.2S Z=Z-B;G 7.5
7.4S Z=Z+B
7.5T !;I (Z-1)10.4,7.7,7.7
7.7T "YOU HAVE ",Z," DOLLARS LEFT"!;I (C)7.9,7.9,8.1
7.9T "CHANGE DICE NOW.."!
8.1S Q=0;G 3.2
8.4I (S-7)9.2,8.5,9.2
8.5T " AND LOSE"!;S C=-1;I (W)8.8,8.8,9.01
8.8S Z=Z+B;G 7.5
9.01S Z=Z-B;G 7.5
9.2I (S-P)9.3,9.5,9.3
9.3T "ROLL AGAIN.."!;G 4.4
9.5I (W)9.6,9.6,10.01
9.6T "AND MAKE MY POINT"!;S C=1;S Z=Z-B;G 7.5
10.01T "AND MAKE YOUR POINT "!;S C=1;S Z=Z+B;G 7.5
10.4T !"YOU'RE BROKE. SORRY.."!;G1.1
10.8T "THANKS FOR THE GAME. CONGRATULATIONS ON WINNING"!!;G1.1
G

C: KING PIN GAME
E A

1.1C:KING PIN GAME
2.1E;S K=FITR(FABS(FRAN())*64)+1
2.2T !!"        1 2 3 4 5 6 7 8";S S=0;F I=1,8;T !"    "%1,I;F J=1,8;D 3
2.3S T=0;S E=FITR(FABS(FRAN())*9)
2.4I(FABS(E-4)),2.5;S I=FITR(E/3)+FITR((K-1)/8);I(8-I)2.5;I(I-1)2.5
2.45S J=K-8*FITR((K-1)/8)+E-3*FITR(E/3)-1;I(8-J)2.5;I(J-1)2.5
2.47S S=8*(I-1)+J;D 4;I(O),2.6
2.5S T=T+1;I(8-T)6.5;S E=E+1;I(E-8)2.4;S E=0;G 2.4
2.6S K=S;I(15-N)6.1;T !!%2,16-N," PAWNS LEFT"
2.7A !"YOUR MOVE?"!,I,J;I(8-I)6.4;I(8-J)6.4;I(I-1)7.2;I(J-1)7.2
2.8S S=8*(I-1)+J;I(S-K)2.9,6.2
2.9D 4;I(-O)6.3;S N=N+1;S P(N)=S;O T;G 2.2
3.1S S=S+1;I(S-K)3.2,3.4
3.2D 4;I(O),3.3;T " P";R
3.3T " 0";R
3.4T " K";R
4.1S O=0;I(N),4.2;F C=1,N;D 5
4.2R
5.1I(S-P(C))5.3,5.2,5.3
5.2S O=1
5.3R
6.1T !"NO PAWNS LEFT";G 7.1
6.2T !"YOU LANDED ON KING!";G 7.1
6.3T !"PAWN THERE ALREADY";G 2.7
6.4T !"ILLEGAL MOVE!";G 2.7
6.5T !"YOU WIN"
7.1A !!"PLAY AGAIN?"!,K;I(K-0YES)7.2,1.1
7.2O T;Q
T !!!!" /=/ KING PIN /=/"!!!!
T " YOU HAVE 16 PAWNS. I HAVE ONE KING."!!
T " BEFORE EVERY MOVE I WILL SHOW YOU WHERE THE KING WAS."!!
T " TO MAKE A MOVE, PLACE A PAWN ON THE BOARD BY TYPING IT'S"!
T " COORDINATES SEPERATED BY COMMA AND FOLLOWED BY <CR>."!
T " YOU CANNOT MOVE THE PAWN AGAIN."!!
T " YOU LOSE IF:"!!
T " 1. YOU RUN OUT OF PAWNS."!
T " 2. YOU LAND ON THE KING. (WHICH IS A STUPID MISTAKE)"!!
T " YOU WIN IF YOU SURROUND THE KING SO IT CANNOT MOVE."!
G 2.1


C:RSX FOCAL-11 V11-01B 



  1.10 C: CLEAR/DUMP GLOBAL COMMON MEMORY

  1.15 A "CLR OR DMP GLOBAL COMMON?",&A

  1.20 I (&A-0CLR)4.1,1.3,4.1

  1.30 C: CLEAR GLOBAL COMMON (140000-141440 OCTAL)

  1.40 S &A=@140000;S &B=@141440;F &C=&A,&B;X FX(-2,&C,0)

  1.50 Q



  4.10 C: DUMP VARIABLES IN GLOBAL COMMON

  4.15 S &A=@140000;S &B=@141440;S &C=FADR(0,&D)

  4.20 F &E=1,100;D 5

  4.30 Q



  5.10 C: GET A VARIABLE AND DUMP IF APPROPRIATE TO DO SO.

  5.15 S &F=(&E-1)*8+&A;C: ADDRESS OF VRBL (4 WORDS=8 BYTES)

  5.17 I (FX(2,&F))5.2,5.18,5.2

  5.18 R

  5.20 S &G=FX(1,&F);S &G=FAND(&G,@177);S &H=&F+1

  5.25 X FCHR(&G);S &G=FX(1,&H);S &G=FAND(&G,@177);X FCHR(&G)

  5.30 S &F=&F+2;S &G=FX(2,&F);T "( ",%6.0,&G," )= ",%8.04

  5.40 S &J=&C

  5.50 F &I=1,2;S &F=&F+2;S &H=FX(2,&F);X FX(-2,&J,&H);S &J=&J+2

  5.60 T &D,!

  5.70 R



C:RSX FOCAL-11 V11-01B 

  51.10 C: CLEAR/DUMP GLOBAL COMMON MEMORY
  51.15 A "CLR OR DMP GLOBAL COMMON?",&A
  51.20 I (&A-0CLR)54.1,51.3,54.1
  51.30 C: CLEAR GLOBAL COMMON (140000-141440 OCTAL)
  51.40 S &A=@140000;S &B=@141440;F &C=&A,&B;X FX(-2,&C,0)
  51.50 Q

  54.10 C: DUMP VARIABLES IN GLOBAL COMMON
  54.15 S &A=@140000;S &B=@141440;S &C=FADR(0,&D)
  54.20 F &E=1,100;D 55
  54.30 Q

  55.10 C: GET A VARIABLE AND DUMP IF APPROPRIATE TO DO SO.
  55.15 S &F=(&E-1)*8+&A;C: ADDRESS OF VRBL (4 WORDS=8 BYTES)
  55.17 I (FX(2,&F))55.2,55.18,55.2
  55.18 R
  55.20 S &G=FX(1,&F);S &Z=&G;S &G=FAND(&G,@177);S &H=&F+1
  55.23 T "VALUE OF VARIABLE "
  55.25 X FCHR(&G);S &G=FX(1,&H);S &Y=&G;S &G=FAND(&G,@177);X FCHR(&G)
  55.27 I (&Z)55.3;I (-&Y)55.3;S &F=&F+2;T " = ",%8.04;G 55.4
  55.30 I (&Y)55.38;S &F=&F+2;S &G=FX(1,&F);T %4.0,"(",&G,","
  55.32 S &F=&F+1;S &G=FX(1,&F);T &G,")= ";S &F=&F-1;T %8.04;G 55.4
  55.38 S &F=&F+2;S &G=FX(2,&F);T "(",%6.0,&G,")= ",%8.04
  55.40 S &J=&C
  55.50 F &I=1,2;S &F=&F+2;S &H=FX(2,&F);X FX(-2,&J,&H);S &J=&J+2
  55.60 T &D,!
  55.70 R
T !,"*"