NSSE8  OTHELLO  Z-RULES  ZOO %  HAMURABI/ GUNNERINC GUNNER E  ICBM O  ICBMINSTY HMRABINS^ TRK16REMc TREK16K i STARTRK1m  STARTRK5y   OTHELLO 6 PLAYS THE GAME "OTHELLO" WITH TWO STRATEGIES\ / 1. TAKE THE MAXIMUM NUMBER OF PIECES (( 2. ADD A BUS SIDE POSITI 62 BOARD IS THE ARRAY A, BOUNDED BY 0'S BLANKS) < A 0 EMPTY SQUARE 1F A B BLACK SQUARE X ERNALLY 1) 1P A W WHITE SQUARE O ERNALLY 1) /Z I J ALWAYS USED ROWCOLUMN INDICES /d I4 J4 SRE INCENTS THE 8 NEIGHBS 1n C$ D$ SRE CHARACTERS AH,X,.,O PUT %x A9,9),I48),J48),C$8),D$3)  INITIAL GREETING  "GREETINGS FROM OTHELLO" , "DO YOU WANT INSTRUCTIONS (Y OR N) ", X$  X$ "N"   X$ "Y"  5 "OTHELLO IS PLAYED ON AN 8 X 8 CHECKER BOARD," 1 "ROWS NUMBERED 1 TO 8 AND COLUMNS A TO H." 7 "THE INITIAL CONFIGURATION IS ALL BLANK, EXCEPT" 4 "FOR THE CENTER FOUR SQUARES, WHICH FORM THE"  "PATTERN"  " O X"  " X O"  7 "TRY TO PLACE YOUR PIECE SO THAT IT 'OUTFLANKS'" 2" "MINE, CREATING A HORIZONTAL, VERTICAL, OR" 6, "DIAGONAL RUN OF MY PIECES BOUNDED AT EACH END" 76 "BY AT LEAST ONE OF YOURS. THIS WILL 'FLIP' MY" )@ "PIECES, TURNING THEM INTO YOURS." 2J "NOTE: YOU MUST CAPTURE AT LEAST ONE OF MY" 5T "PIECES IN THIS WAY IF IT IS AT ALL POSSIBLE." 8^ "IF IT IS NOT POSSIBLE, YOU FORFEIT YOUR TURN BY" .h "ENTERING 0,0 FOR YOUR (ROW,COL) MOVE." r | INITIALIZE 8 "SHOULD I WAIT BEFORE MAKING MY MOVES (Y OR N) ",  F2 0  X$  X$ "N"   X$ "Y"   F2 1 2 "OK. TYPING ANY CHARACTER WILL LET ME GO." 2 "SHOULD I PLAY MY BEST STRATEGY (Y OR N) ",  S2 0  X$  X$ "N"   X$ "Y"   S2 2  B 1  W 1  D$B 2) "X" & D$0 2) "." 0 D$W 2) "O" : K 1 8 D I4K) N K X 0, 1,1,1,0,1,1,1 b K 1 8 l J4K) v K  1,1,0,1,1,1,0,1  K 1 8  C$K)  K & "A","B","C","D","E","F","G","H"  SET UP A NEW GAME  I0 9  J0 9  AI,J) 0  J  I  A4,4) W  A5,5) W  A4,5) B   A5,4) B  C1 2  H1 2 * N1 4 4 Z 0 > HUMAN'S CHOICES %H "DO YOU WANT TO HAVE X OR O ", R C W \ H B f X$ p X$ "X"  z X$ "O" f  C B  H W + "DO YOU WANT TO GO FIRST (Y OR N) ",  X$  X$ "N"   X$ "Y"   INITIAL BOARD      COMPUTER'S MOVE  F2 0   X$  B1 1  I3 J3 0  T1 C  T2 H $ SCAN BLANK SQUARE . I 1 8 8 J 1 8 B AI,J) 0 d L FOUND A BLANK SQUARE -V DOES IT HAVE AN OPPENT AS A NEIGHB? ` < j F1 0 d %t FOUND AN OPPENT AS A NEIGHB +~ HOW MANY OF HIS PIECES CAN WE FLIP?  D'T DO IT NOW)  U 1   % EXTRA POS BOUNDARY POSITI  S1 0 d " I 1) I 8) 0   S1 S1 S2 " J 1) J 8) 0   S1 S1 S2 2 IS THIS BETTER THAN THE BEST FOUND SO FAR?  S1 B1 d  S1 B1 <  A TIE, ROM DECISI 2  THE TWO EXECULE STATEMENTS CAN BE ETED . A VERSI OF BASIC WITH ROM NUMBERS  R0) ( R 0.5 d 2 YES < B1 S1 F I3 I P J3 J Z OF SCAN LOOP d J n I x COULD WE DO ANYTHING?  B1 0   NO " "I HAVE TO FORFEIT MY MOVE"  Z 1   Z 1    MAKE THE MOVE  Z 0  "I WILL MOVE TO ",  I3,  ", ",  C$J3,J3)  I I3  J J3  U 1   " C1 C1 S1 1 , H1 H1 S1 6 N1 N1 1 @ "THAT GIVES ME ", J S1, T " OF YOUR PIECES" ^ BOARD h  r TEST OF GAME | H1 0   N1 64   HUMAN'S MOVE  T1 H  T2 C ! "YOUR MOVE -- (ROW,COL) ",  I, X$  I 0   I 8   I 0  / "ARE YOU FORFEITING YOUR TURN (Y OR N) "  X$  X$ "Y"   Z 1   Z 1    J 1 8 & C$J,J) X$ N 0 J :  D CHECK BLANK N AI,J) 0 v 2X "SORRY, THAT SQUARE IS OCCUPIED; TRY AGAIN" b  l CHECK LEGAL NEIGHB v <  F1 1  5 "SORRY, YOU ARE NOT NEXT TO ONE OF MY PIECES;"  "TRY AGAIN"    CHECK LEGAL  U 1    S1 0  3 "SORRY, THAT DOESN'T FLANK A ROW; TRY AGAIN"   + EVERYTHING LEGAL, MAKE HUMAN'S MOVE  Z 0  "THAT GIVES YOU ",  S1,   " OF MY PIECES"  U 1   * H1 H1 S1 1 4 C1 C1 S1 > N1 N1 1 H BOARD R  \ TEST OF GAME f C1 0  p N1 64  z   OF GAME WRAPUP   "YOU HAVE ",  H1,  " PIECES AND I HAVE ",  C1,  " PIECES -- ",  H1 C1   H1 C1   "SORRY, I WON THAT ONE."    "A TIE !!"   "YOU WON !"  C1 C1 H1  C1 0 . $ C1 C1 . C1 64 C1) N1 8 "THAT WAS A ", B C1 11 L C1 25 V C1 39 ` C1 53 ~ j "PERFECT GAME." t ~ "WALKAWAY."  "FIGHT."  "HOT GAME !"  "SQUEAKER !!"  4 "DO YOU WANT TO PLAY ANOTHER GAME (Y OR N) ", X$  X$ "Y"   X$ "N"  "THANKS FOR PLAYING."   & SUBRINE TESTPROPERNEIGHB  ASSUMES\ $( I,J LOCATES A BLANK SQUARE /2 YOU HOPE SEE AN ADJACENT T2 T1) < I1 1 1 F J1 1 1 P AII1,JJ1) T2 Z J1 d I1 n NO T2 FOUND, FAILURE x F1 0   SUCCESS F1 1   SUBRINE SCEUPDATE  ASSUMES\ 2 I,J) IS A TENTATIVE PLACE A PIECE T1. 2 WANT S OF T2 T1, TERMINATED BY A T1. 1 U IS TRUE 1), MARK THOSE S AS T1'S. + SUM OF ALL S T2'S LY) IN S1. 1 MAIN PROGRAMAINS TH FOLLOWING ARRAYS & I4 0 1 1 1 0 1 1 1 & J4 1 1 0 1 1 1 0 1  S10  K1 8  I5I4K) " J5J4K) , I6II5 6 J6JJ5 @ S30 J AI6,J6) T2 T LOOP THROUGH THE ^ S3S31 h I6I6I5 r J6J6J5 | AI6,J6) T1  AI6,J6) 0 ^ S1S1S3  U1  UPDATE BOARD I6I J6J  K10 S3  AI6,J6)T1 I6I6I5 J6J6J5 K1  K   SUBRINE BOARD  "& " A B C D E F G H" 0 I1 8 : I, D J1 8 N " ", X D$AI,J)2,AI,J)2), b J l v I     64  A1 55\"*",\ A\ @ "* RULES FOR A DAY AT THE ZOO *" ( A1 55\"*",\ A\ 2 :< "THIS GAME SIMULATES A TRIP TO THE ZOO TO FEED THE" F "ANIMALS."\ 9P "THE FEEDERS CHOOSE THE NUMBER OF ANIMALS TO FEED" $Z "AT THE START OF THE GAME."\ "THE LAST ROLL MUST BE 'RIGHT ON' OR ELSE YOU ARE TOLD" ; "NOT TO FEED THE ANIMALS, THIS CONTINUES UNTIL YOU "  "MAKE YOUR POINT."\ + "HOPE YOU HAVE FUN AT THE ZOO !!!"\ $" "ARE YOU READY TO PLAY ? ",Z$ ' "ZOO" , VB T THE ZOO !!!"\ $ "ARE YOU READY TO PLAY ? ",Z$  N AT THE ZOO !!!"\ $ "ARE YOU READY TO PLAY ? ",Z$  [ 64 / WRITTEN BY JANE McGREW, OCT. 4, 1977 ( Z160321)1000)\ ROM SEED ( %#3I 2 X1 60\":",\ X G< \ "* A DAY AT THE ZOO *" F X1 60\":",\ X P (Z " *****"\ &d "HOW MANY ANIMALS TO FEED ? ",L n \ (x "FEEDER #1, PLEASE SIGN IN ! ",A$  3 "YOU TOO, #2 (YOU HAVE TO TRY HARDER) ! ",B$  & "**** ",A$, ", ROLL THE DICE ",  A  A999   / "**** HI, ",B$," TOSS THOSE IVORIES ! ",  A  A999  r   \P1P1N 8 P1L ">>>>>>>>>>> DO NOT FEED THE ANIMALS !"  P1L P1P1N 9" P1L1 7),"''''PENALTY - 4 ANIMALS GOT SICK" , P1L1 P1L5 6 P1L  @ N12 P10 J N12 ^ T N2 D^ 10), "GO HOME AND CHANGE YOUR JEANS, YOU SPILLED YOUR COKE!" h r  | \P2P2N 8 P2L ">>>>>>>>>>> DO NOT FEED THE ANIMALS !"  P2L P2P2N 9 P2L1 7),"''''PENALTY - 4 ANIMALS GOT SICK"  P2L1 P2L5  P2L   N12 P20  N12   N2 B 10),"GO HOME, YOU FED TOO MANY PEANUTS TO THE ELEPHANTS!"   P1P2 :  P2P1  . 7),">>>>> THE NEW ZOO KEEPER IS, ",A$   N 0 \ 7),">>>>> THE NEW ZOO KEEPER IS, ",B$ & 0 N 7: 7),">>>> CONGRATULATIONS !!! ",A$," AND ",B$\ :D 7)," >>>>>>>>>>>>>>>>>>>>> IT'S A TIE !!!!"\ (N "*=========== SCORE ===========*" X /b A$,8)," = ",\ P1,\ " ",\ S1 P1 l "*",\ v . B$,8)," = ",\ P2,\ " ",\ S1 P2  "0",\ S  \  X1 60\":",\ X   \ z ) C60)1)\ ROLL DICE C & D  D60)1)  NCD 0 ":::::::YOU ROLLED: ",%,C," + ",D," = ", : N ,, ,, ,*,4,>,R,\,f,p   ( "SNAKES EYES! JUMP THE SNAKE PIT" . 29)," FEED 2 SNAKES AND ROLL AGAIN"\ -  "NOT 1, NOT 2, BUT 3 LITTLE DEERS!!"\ % "ONE JUMP FOR EACH MONKEY !"\ .  "FEED 1 GIRAFFE FOR EACH STAR ***** "\ -* "ONE LEOPARD FOR EVERY SPOT, ......"\ *4 "FEED 7 RABBITS (28 LUCKY FEET) "\ (> "YOU '8' IT ALL ? DON'T KID ME, " &H 40),"YOU FED 8 PIGEONS !!!"\ *R "4 LIONS & 5 TIGERS, FEED ALL 9 "\ \ "TEN PIGS IN THE PEN ?"\ *f "ELEVEN BABY CHICKENS NEED FOOD."\ "p "BOXCARS ! START OVER ! "\ z "ANOTHER GAME ? ",Y$  \  Y$1,1)"Y" d  2 PROGRAM FROM PERSAL COMPUTING JANFEB 1977 - MODIED BY JAMES L. TATE NSTAR BASIC  VERSI 6 RELEASE 3. 4( "TRY YOUR HAND AT GOVERNING ANCIENT SUMERIA" 22 "SUCCESSFULLY FOR A 10-YR TERM OF OFFICE."\ "< "HIT RETURN TO CONTINUE",Z$ F D10\ P10 *P Z0\P95\ S2800\ H3000\ EHS Z Y3\ AHY\ I5\ Q1 d D0 6n \ "HAMURABI: I BEG TO REPORT TO YOU,"\ ZZ1 Ax "IN YEAR",Z,",",D," PEOPLE STARVED,",I," CAME TO THE CITY." PPI  Q0  PP2) 8 "A HORRIBLE PLAGUE STRUCK! HALF THE PEOPLE DIED."  "POPULATION IS NOW",P,\ % "THE CITY NOW OWNS",A," ACRES." , "YOU HARVESTED",Y," BUSHELS PER ACRE."  "RATS ATE",E," BUSHELS." - "YOU NOW HAVE",S," BUSHELS IN STORE."\  Z11   C100))\ YC17 1 "LAND IS TRADING AT",Y," BUSHELS PER ACRE." * "HOW MANY ACRES DO YOU WISH TO BUY",  Q\ Q0   YQS ,  z " , Q0 J 6 AAQ\ SSYQ\ C0 @  +J "HOW MANY ACRES DO YOU WISH TO SELL", T Q\ Q0  ^ QA | h  r J | AAQ\ SSYQ\ C0  9 "HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE",  Q  Q0  5 TRYING USE ME GRAIN THAN IN THE SILOS ?  QS   z    SSQ\ C1\ 6 "HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED",  D\ D0   D0  2 TRYING PLANT ME ACRES THAN YOU OWN ?  DA 0     & ENOUGH GRAIN SEED ? 0 D2)S X : z D  )N ENOUGH PEOPLE T THE CROPS ? X D10P  9b "BUT YOU HAVE ONLY",P," PEOPLE TO TEND THE FIELDS." l "NOW THEN," v   SSD2)   ! A BOUNTYFULL HARVEST  YC\ HDY\ E0    C2)C2  $ THE RATS ARE NING WILD  ESC)  SSEH    'S HAVE SOME BABIES  IC20AS)P1001) , HOW MANY PEOPLE HAD FULL TUMMIES?  CQ20) (  HRS, A 15% CHANCE OF PLAGUE  Q1020).3))   PC d (* STARVE ENOUGH IMPEACHMENT ? 4 DPC\ D.45P R > P1Z1)P1D100P)Z H PC\ D1D1D\ n /R \"YOU STARVED",D,"PEOPLE IN ONE YEAR!!!" ;\ "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" +P39H\" ---",\R H" ",%1I,K2,B2,S2, RX\ \Y\z\n pB8B2\K8K2\ zB2B8\K2K8\ \"--OUT OF ",C$,"--" K1," KLINGONS LEFT"\ #BS\L\Q9Q0\\QQ9,C940 NS2\V1\L2\ 0NK2\V3\L4\\K5300\Y5I8)\X5I8Y5 )NB2\V2\L3\\Y6I8)\X6I8Y6 C$"GREEN"\K20C$"RED!"\ * "STARDATE:",3278T,", CONDITION: ",C$ /"QUADRANT",X1,",",Y1," - SECTOR",X2,",",Y2 PSS0)\SS0,4\P0 $\"COLLISION WITH A ", ,.P1"STAR"P2"STARBASE""KLINGON" 8P3K1K11\ LK063\BK,0\K\ N0\K1N (I640).01)\PBI)\PVL BI,PV\K\ E1500\E25\ &xY0E064)\X0E064Y0\Y1Y08) $}X1X08)\Y2Y08Y1\X2X08X1 /Q0X18Y1\S0X28Y2\RX5X2)Y5Y2)\ C9QQ9)\C940C9C940 :S2C910C910)\K2C920)\B2C9S220K2))10\ @J1N\C$,\J\C$1,1)\ E10 C$"ENERGY"\ 6l"KLINGON DESTROYED"\K1K11\K20\QQ0,QQ0)20 qSX58Y5,0 vK10\"MISSION DONE"\ C$"+---"\N8\@ Y701\X07 1P3SX8Y)1\X0"!"," ",\D$P,P2), X\"!" Y\@\  "STARTREK" "HELP!!"\\"R--REPORT" 7"S--SHORT SCAN"\"L--LONG SCAN"\"G--GALACTIC MAP" )"W--WARP"\"P--PHASOR"\"T--TORPEDO" n a$ ETa0`E * >++< and stars by *. L--LONG RANGE SENSOR SCAN--Displays a 3x3 array of "nearest neighbor" quadrants with the Enter- prise's quadrant in the center. The scan is coded in the form: KBS, where K is the number of Klingons, B is the number of starbases, and S is the number of stars in the quadrant. G--GALATIC MAP--Displays an 8x8 map of all quadrants. Quadrants which have previously been scaned will be displayed with the same information as a long range scan would show. W--WARP--Used to move the Enterprise. Computer will request the number of sectors you wish to move, both horizontally and vertically. A positive horizontal move is to the right and a positive vertical move is up. These two vectors must be separated by a comma. P--PHASOR FIRE--The computer informs you as to how much total energy you have left, and then waits for you to indicate how much of that energy you want to fire at the enemy. The closer you are, the more effect your phasers have on the Klingons, and conversely! T--TORPEDO FIRE--The on-board computer automatically fires the photon torpedo. Again, the closer you are the better your chances of hitting the Klingon. H--HELP--Will print an abriviated list of these commands. you are the better your chances of hitting the Klingon. H--HELP-8bkL>qba@* 3~3 commands. tt2<2@ THIS PROGRAM ASSUMES THE PRESENCE OF RANSEED SEE NSSE2) 3 IN THE SYSTEM INITIALIZING THE FUNCTI. 9 THE PARAMETERS CHANGE OTHER VIDEO SETUPS ARE /( Y EEN BUFFER IGIN, L S PER EEN, 92 C CHARACTERS PER L C MUST BE EVEN EGERS), 5< P0 CODE NBLANK EEN POSITIS THE CODE 9F CLEARING EEN 160) UG A NSTARD DRIVER. )P "PRESS `RETURN' TO START" \ "",Z$ Z Z10720)65536 \ Z Z) *d Y IS START OF VIDEO BUFFER AT E000H n Y 57344