VOL.ANSG TIMEBOMB QUBIC  BTLSHIP 3 GYMSCOREP JV e VAR k ATH q( N*TREK 22 TRADER -* TRFIL  CREATE * RENAME % HEXCALC * . B 4 GEARY CHOPOFF IGINATED THE TIME BOMB PROGRAM  D WHILE THE IDEA OF TIME BOMB IS UNIQUELY MINE THIS VERSI IS &( A SPECIAL THANKS RICH KASHDAN 92 WHOSE HELP ASSISTANCE MADE THIS PROGRAM POSSIBLE < 9F MODIED UNDER NTHSTAR BASIC BY R HIPSCHMAN 'P TEL\ 415)7554341 DALY CITY) Z u w 91) @x " LET'S PLAY TIME BOMB"\\\\\\\ =y "GIVE ME A RANDOM NUMBER PLEASE --",R\RR)R))) } A$80) ! "DO YOU NEED INSTRUCTIONS", Q$  Q$"Y"    C2  S0  B300)1)2  D90)1)  "SHALL I GO FIRST", Q$  Q$"Y" T  C0  ( "HOW LONG WILL YOU HOLD THE BOMB",  T  T0 `  T T) TT) " T0 T1 ,  6 -@ "NOW I MUST HOLD THE BOMB FOR",T," SEC" J  T T60)1) ^ )h "I WILL HOLD THE BOMB FOR",T," SEC" r  | + "YOU MUST HOLD THE BOMB FOR",T," SEC"     CC1  C5 C1  C1   ; "YOU'RE GONNA HOLD THE BOMB FOR ALL OF",T," SEC!?!!!"  ! T30 "GOOD-BYE DUMMY !" < T2 "WHAT'S THE MATTTER PIMPLE FACE, YAH CHICKEN?" 0 T6 "YOU'RE A BRAVER NUT THAN I ! ! !"  N1 T  SS1  BB1  BD 0  %& I1 B1)4)C\ A$\\A$\ 0 : B1 b ; J 1 2000 < %D "SEC ",S," . . . . . . T I C K" N N X ,b I1 10\ ELIMINATE THIS LOOP ERS c 25I),"B O ", d J1 I e "O ", f g "M!!!!" h l C ,,, v  8 "YOU LOST TCH TCH SUCH A MESS ! ! !"     / "THE COMPUTER HAS BEEN BLOWN TO BYTES!!!"  / "A BILL OF $1,069,148.69 FOR IT'S REPAIR"  3 "WILL BE SENT TO YOU. I HOPE YOU CAN PAY IT!"    1 "BYE BYE POOR BABY NOW YOU MUST SLEEP" " "I DON'T WANNA PLAY ANYMORE" ) "AHHH GEE WISSS I HELD IT TOO LONG" / "WHEN GOD MADE FOOLS YOU WERE THE MOLD" A  "I DON'T BELEIVE I'VE EVER SEEN ANYONE SHAKE AS BAD AS YOU"  "YEP I SURE AM LUCKY !" -  "IT WON'T BE LONG YAH YAH YAH YAH YEAH" /* "YOU ARE THE LUCKIEST NUT I EVER SAW!!!!" <4 "IMAGINE THAT IT HASN'T BLOWN YOUR FACE AWAY YET!" 2> "WOWIE AM I EVER LUCKY ! I'M STILL HERE !" %H "WHO STARTED THIS GAME ANYWAY?" ?R " I THINK IT'S BROKEN IT'LL PROBABLY NEVER BLOW UP!" 6\ "TICK, TICK COME ON BOMB BLOW UP THE DUMMY!" -f "WHAT A LOVELY SOUND T I C K T I C K" 'p "YOU KNOW I AM GETTING NERVOUS !" "z "IS YOUR INSURANCE PAID UP?"  "YOUR TIME IS NEARLY UP" 3 "I LIKE THIS GAME! IT'S SUCH FUN TRA LA" * " BY THE LIGHT OF THE ONCOMING DOOM" E "HEY! WHEN YOU DIE AND YOUR TIME IS UP, DON'T MESS UP THE SKY" : "SEC BA BA BA B O O O B LOOK OUT ITS TICKING!!!" E "WHY MUST 'I' HOLD THIS BOMB? I THINK I'LL GIVE IT BACK TO YOU" : "SEC BA BA BA BOOOOOOOOOM!!!! HA HA FALSE ALARM!!" E "JUST THINK. IN A MATTER OF SECONDS YOU COULD REALLY BREAK UP" 0 " B O O O O B I WISH YOU WAS REALLY DEAD" G "WHEN I WAS JUST A BYTE THEY TOLD ME SOMEDAY I'D BE ALL BLOWN UP"  "IT'S A BREEZE!" , "GO ON AND KISS IT ALL GOOD-BYE!!!!" D "WHATEVER REMAINS OF YOU WILL BE SCRAPPED TOGETHER AND BURIED" D "AREN'T YOU EVER GONNA WISH ME LUCK ON PUSHING UP DAISY'S?" D "AND TO THINK THAT YOU WANT TO PLAY ASSURES ME YOU'RE CRAZY" 4 "GO ON FOOL HOLD IT AS LONG AS YOU LIKE!!" $ "AUAUAP WHO TOLD YOU?" 3. "IF I AM DAMAGED YOU ARE GONNA PAY FOR IT!!!" 58 "A FOOL PLODS ON WHERE BRAVE MEN FEAR TO TREAD" #B "VERY SOON A BLAST WILL COME" L  V ` "DO YOU WANT TO QUIT", j Q$ t Q$"BYPASS"  ~ Q$"Y"  6 " C O W A R D ! ! ! HA HA HA"  @ % 91),"IT'S VERY SIMPLE DOLT!" ( "OF COURSE A DUMMY LIKE YOU WOULD"  "ASK FOR INSTRUCTIONS." C "YOU PROBABLY NEEDED DIRECTIONS TO BREATH AND CHEW GUM" - "ALL RIGHT FOOL, YOU GET FIRST CHOICE." C "YOU CAN CHOOSE TO HOLD THE BOMB , AND FOR AS MANY SEC AS" C "YOUR COWARDLY HIDE CAN STAND , OR YOU CAN GIVE THAT "  "PLEASURE TO ME!" 0 "WHOEVER GOES FIRST, THE OTHER MUST HOLD " - "THE BOMB FOR THE SAME AMOUNT OF TIME." ( "THEN THE OTHER HAS THE OPTION OF" %  "HOLDING THE BOMB EVEN LONGER!"  "FUN EH PIMPLE BRAIN?" . "PRESS RETURN FOR MORE ABUSE",Q$\91) 3 "OF COURSE ONE MUST ALWAYS HOLD THE BOMB FOR" 3( "AS LONG AS THE OTHER HAS HELD IT DURING THE" 2 "OTHERS OPTION" C< "DON'T WORRY DORKEL,YOUR CLOGGED EXCUSE FOR A BRAIN " CF "WILL HAVE NO MORE THINGS TO PONDER IN A SHORT TIME HEH HEH" P "" 6n "THE BOMB WILL EXPLODE ANYTIME BETWEEN NOW AND " 8x "THIRTY SECONDS FROM NOW... I HOPE YOU GO FIRST!"  0 "EVERY THING HAS BEEN RESTORED TO NORMAL."  % "WOULD YOU LIKE TO PLAY AGAIN",  Q$  Q$"Y" @ ! "DUMMY'S NEVER LEARN ! ! !"   # "INPUT A ( 0,1,2,3, OR A 4 )"  U  U0  W4805U1)  V1 9   WW20 ." W,\ I1 V1)4)U\ A$\\" ",A$\ , V 6  @ S'@P(BYE BYE POOR BABY NOW YOU MUST SLEEPAKE AS BAD AS YOU SKYUP N ABAA0BBB7 QUBIC DEMSTRATI PROGRAM - VERSI 3 3471 ; PLAYS 3ENSIAL TICTACE, FIVE DFET STRATEGIES & "GAME OF QUBIC (3D TIC TAC TOE)" 5 A$72),B$72),Q16),R76,4),S64),T76),U5,3) 4 SZ)SRZ,1))SRZ,2))SRZ,3))SRZ,4)) - MZ)Z1106Z4.2)60Z16.05) $ GZ)TZ)5TZ)5)) . I1 16 0 QI) 2 I 4  8  B E1 G G30 L "YOUR FIRST NAME", V B$ +` "THIS IS THE GAME OF QUBIC, ",B$,"." "e "DO YOU WANT INSTRUCTIONS", j A$ t A$"Y"  y 5~ "THE GAME IS TIC-TAC-TOE IN A 4 X 4 X 4 CUBE." B "EACH MOVE IS INDICATED BY A THREE DIGIT NUMBER, WITH EACH" B "DIGIT BETWEEN 1 AND 4 INCLUSIVE. THE DIGITS INDICATE THE" 7 "LEVEL, ROW, AND COLUMN, OF THE OCCUPIED PLACE." @ "YOU WILL HAVE TO PICK A STRATEGY LEVEL BETWEEN 1 AND 5." , "1 IS THE EASIEST, 5 IS THE HARDEST."  < "WHEN IT IS YOUR MOVE, SHOULD I PRINT OUT THE BOARD",  C$  C$"Y"   A$"Y"  > "YOUR POSITIONS ARE INDICATED BY X'S AND MINE ARE O'S." " "WHAT STRATEGY LEVEL, ",B$,  L  L1)L1)     L6  !  "MUST BE BETWEEN 1 AND 5."    Q2 # Q02 ( R916 2 R76E100))1 < I1 64 > SI)0 @ TI)0 B I D I65 76 F TI)0 H I -P "LEVEL",L," DO YOU WANT TO GO FIRST", Z A$ d A$"Y" x n L2.5) ,f , x Q1    C$"Y"   6  "YOUR MOVE, ",B$,  F  F0   F999   6    E1F100)  E2F10)10E1  E3F100E110E2  E15   E25   E35   F111)F111)  ! "ILLEGAL MOVE, TRY AGAIN."    M16E14E2E320  SM)1 " ( "THAT SQUARE IS USED, TRY AGAIN."   " SM)1 , QQ2 6 @ J Q3 T L L3 f N L4 f T A0 Y B0 ^ F1 76 h TF)4 : (r "CONGRATULATIONS, ",B$,"! YOU", | G3G31  UL,3)UL,3)1 ; " WIN AS FOLLOWS:",MRF,1)),MRF,2)),MRF,3)),  MRF,4))  "FINAL POSITION IS:"  6  A1 5  B1 3  UA,B)0   B   F "SO FAR AT LEVEL ",A," YOU'VE WON ",UA,3)," I'VE WON ",UA,1),  UA,2)0   "AND WE'VE DRAWN",UA,2),   A ( B$,", DO YOU WANT TO PLAY AGAIN",  A$ & A$"Y"  0 : TF)15 N D AF N TF)3 b X BF b F l A0  v   Q02   "TOO BAD, ",B$,"."  "AS I SAID, ", & "I MOVE TO ",MRA,C))," AND",  FA  UL,1)UL,1)1  SRA,C))5    Q65 *  Q66   F1 64  SF)0   F  "I MOVE TO",MF)   "THE GAME IS A DRAW."  UL,2)UL,2)1   * L1 4 B0 p > AB H  0R "NICE TRY, ",B$," --I MOVE TO",MRA,C)) \ SRA,C))5 f  p L2 z Y5 1 4  F1 76  VSF)  V)2Y   V2Y 2  G1 4  SRF,G))0   SRF,G)).1  G  F   F1 76  TF).4  TF)Y.3  F  Y1 $  L3 \  $ Y . L4 \ 8 H1 69 4 ,B PTH))TH1))TH2))TH3)) L P4 V Q P9 V J.1 ` FH H3 j t F ~ J0 `  H  F1 16  SQF)).5  SQF))5  "I MOVE TO",MQF))   F  S0  F1 66Q)E))1 SS1  SS).5  F  "I LIKE",MS)  SS)5 (  2 G1 4 < SRF,G)).1 F SRF,G))5 P V5 Z G30 7d B$,", YOU BEAT ME BEFORE, BUT NO MORE! LOOK: ", n Q01 x - "LET'S SEE YOU GET OUT OF THIS ONE: ", - "YOU FOX! JUST IN THE NICK OF TIME,",  " I MOVE TO",MRF,G))   G J.1  KFF4)4)2)1  GK 5K 52K  SRF,G))J   "I TAKE",MRF,G))  SRF,G))5   G  t  C1 4 " SRA,C)).5 , C 6 J F1 13 4 T GF F48 16 ^ HG G3 h NSH))2) r N t ,v ,x t "X ", u | v ". ", w | x "O ", | H " ",  G   F    W1 76  TW)SW)  W   W1 64  SW)SW))  W  B 1,49,52,4,13,61,64,16,22,39,23,38,26,42,27,43,1,2,3,4,5,6,7 C 8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28 B& 29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48 C0 49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,1,17,33,49,2 C: 18,34,50,3,19,35,51,4,20,36,52,5,21,37,53,6,22,38,54,7,23,39 CD 55,8,24,40,56,9,25,41,57,10,26,42,58,11,27,43,59,12,28,44,60 BN 13,29,45,61,14,30,46,62,15,31,47,63,16,32,48,64,1,5,9,13,17 CX 21,25,29,33,37,41,45,49,53,57,61,2,6,10,14,18,22,26,30,34,38 Cb 42,46,50,54,58,62,3,7,11,15,19,23,27,31,35,39,43,47,51,55,59 >l 63,4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64,1,6,11 q 16,17 Cv 22,27,32,33,38,43,48,49,54,59,64,13,10,7,4,29,26,23,20,45,42 > 39,36,61,58,55,52,1,21,41,61,2,22,42,62,3,23,43,63,4,24 44,64 C 49,37,25,13,50,38,26,14,51,39,27,15,52,40,28,16,1,18,35,52,5 B 22,39,56,9,26,43,60,13,30,47,64,49,34,19,4,53,38,23,8,57,42 C 27,12,61,46,31,16,1,22,43,64,16,27,38,49,4,23,42,61,13,26,39 52  R0  GR) 0  AR   "I GO TO",MRA,C)) \  A0  R0  F1 76  GF) 0  AA1  F  A0 * F1 AE100))1 4 RR1 > GR) 0 4 H F R \ GR7)0 f a GR8)0 f R9R91 p R95775 z R7R976.01)1  R8R976R776  GR8) 0 f " R74.2)R84.2) f  GR7) 0  R9R977R8 p  F1 4  G1 4  RR7,F)RR8,G)  G  F f  SRR7,F)).5 f RR7  TR)10 $  RR8  FG $ H1 4 . SRR,H)).5 V 3 HF V 8 "I CLAIM",MRR,H)) B SRR,H))5 L  V H   MAT R  J 1 76  K 1 4  RJ,K)     MAT U 0  J 1 5  K 1 3  UJ,K) 0    ' pp|||p4}||||p<}:qqpvz|\} }T}}O(yXO}8XO|eXD}HYES L}HRUSSELL 6 MODIED IN NTHSTAR BASIC BY R HIPSCHMAN ( TEL\ 415)7554341 DALY CITY) , 91),27),"BATTLESHIP"\\\\\\\ + "HELP!! I NEED A RANDOM NUMBER. : ",R  RR)R)))  G3,9,9)  E5),Y5)  S5),S$80),Z$72),C$10)  91) d RR)0)R) #n "THE SHIP'S A BIT ROCKY SIR!" 2x "BETTER WAIT A MOMENT BEFORE YOU BOARD HER."   \" S P L I S H" $ P0\ \ INITIATE YOUR FLEET  \" S P L A S H" ! P1\ \ CLEAR YOUR SLATE  \" S W I S H L E" ' P2\ \ INITIATE ENEMY'S FLEET  \" G U R G L E" $ P3\ \ CLEAR ENEMY'S SLATE + , C91 C90\ BOARD (- P0 " Y O U R F L E E T" *. P1 " Y O U R S L A T E" ./ P3 " E N E M Y ' S S L A T E" 10 P2 " NAUGHTY YOU PEEKING LIKE THAT!" "1 Z$" . T A B C D * <0>" (3 " A B C D E F G H I J" 6 J 0 9 ; J," ", @ K 0 9 A P1 C,G,C,G B T CC GP,J,K)17 Z$GP,J,K)3)1,GP,J,K)33)), " . ", D T G GP,J,K)17 " . ", 9H GP,J,K)17 Z$GP,J,K)3)1,GP,J,K)33)), T K   J  S0 P1 C91   INSTRUCTIS  91),  \\ 8 " W E L C O M E T O B A T T L E S H I P !"  \\ F "YOU HAVE FIVE SHIPS(A TANKER,A CRUISER,A DESTROYER,AN AIRCRAFT" F "CARRIER,AND A BATTLESHIP)AND THE ENEMY'S FLEET HAS FIVE SHIPS." E "NEITHER KNOWS THE OTHERS POSITION BUT BOTH OF YOU WILL TRY TO" C "SINK THE OTHER'S FLEET. THE FIRST TO SUCCEED IN THIS IS THE" E "RULER OF THE HIGH SEA'S. YOU WILL START BY STATING A POSITION" C "THAT YOU WISH TO HIT(I.E. C3 ). YOU WILL BE TOLD IF A HIT" F "OR A MISS HAS OCCURED. IF YOU SINK A SHIP YOU WILL BE INFORMED" E "OF THE TYPE OF SHIP YOU SUNK. THEN THE ENEMY WILL TAKE A SHOT" F "AT SINKING YOU. EACH WILL ALTERNATE TILL ONE OF THE FLEETS HAS"  "BEEN SUNK." & #' "PRESS RETURN TO CONTINUE",Q$ :) "IF YOU WANT TO SEE THE ENEMY'S SLATE ENTER AN 'E'." 3+ "IF YOU WANT TO SEE YOUR SLATE ENTER AN 'M'." 3- "IF YOU WANT TO SEE YOUR FLEET ENTER AN 'F'." .0 \" G O O D S H O O T I N G ! ! !" : \\ #? "PRESS RETURN TO CONTINUE",Q$ A \\\ D X GET A CODINATE b  l \" E R R O R ! ! !" q C91 9v \"ENTER THE LETTER AND THE NUMBER AND HIT RETURN."  \"NOW SIR, WHAT IS YOUR",  " COORDINATE",  C$  F0 " C$"M"  P1\F1\, # C$"E"  P3\F1\ , " C$"F"  P0\F1\,  F1  # C$"CHEAT"  P2\ , 4 C$)2 C$2,2))48 C$2,2))57 l  RC$2,2))  CC$1,1))65  C$C$2,2)  R0 R9 l  R0 R9 l  C0 C9 l  G1,R,C)6   \" E R R O R ! ! !" 3 \"THAT LOCATION HAS ALREADY BEEN TRIED SIR!"  \   ) "OH LORD! IT'S ANOTHER MISS SIR."\  "MISS",M," SIR."\ . "OH WHERE THE BLAZES CAN THEY BE SIR?"\ * "NICE TRY SIR. STILL IT'S A MISS."\ 2 "...ANOTHER MISS SIR. THAT'S NUMBER",M,"!"\  "....MISS",M," SIR."\ 3 "DAMN! DAMN! DAMN! WE'VE MISSED AGAIN SIR."\ # "....YET ANOTHER MISS SIR."\ 7 "...MISS...MISS...MISS! SIR! WHERE ARE THEY!!!"\ + "THE BASTARDS ARE WELL HIDDEN SIR!"\   SET UP E ROM BOARD  J0 9  K 0 9 ! GP,J,K)0 \ CLEAR THE AREA  K\ J    / J 1 5 \ FIVE SHIPS BE PUT BOARD $ C1R2) . R10 8 C10 R11 B C2R10SJ)C1) L R2R10SJ)R1) V K 0 SJ)1 %` GP,R2R1K,C2C1K)0 $ $j \ FINISH CHECKING IT IS CLEAR t K 0 SJ)1 ~ GP,R2R1K,C2C1K)J  K  J   INITIALISE THE SHIPS 0 "TANKER"\S1)3\ THIS IS IT'S NAME GTH  "AIRCRAFT CARRIER"\S2)5  "BATTLESHIP"\S3)4  "CRUISER"\S4)3  "DESTROYER"\S5)2  R310\C310  Y0\E0\S0\M0 $  J1 5\EJ)SJ)\YJ)SJ)\    MAIN GAME IS HERE 91) + \\"DO YOU HAVE YOUR SEA LEG'S SIR", Q$  \  Q$1,1)"N"   P0 , 4 \\"PRESS RETURN TO SEE YOUR SLATE",Q$\91)  P1 ,  \  S0  S0 C91 SS1 ) "READY TO BLAST SIR! WHAT IS YOUR",  X  ' G1,R,C)6\ SET UP RECD A MISS  G2,R,C)0 & TG2,R,C) 0 G2,R,C)7\ IT'S A HIT : G1,R,C)7 D ET)ET)1 I YY1 N ET)0 X ] J1 6 e K175\ g " B O O M",10), i K150\ k l \\"THAT'S HIT",Y," SIR." w {   \\\" SIR! THEIR ", . \ I1 T\ S$\\S$," HAS BEEN SUNK!!" % J 1 1000\\ TIME AY LOOP 91) & \"SO FAR THE ENEMY HAS SUNK..."   F0  J 1 5  YJ)0  F1 " AND ",  F1 + " OUR ",\\ I1 J\ S$\\S$,"..."  & F0 "NONE OF OUR SHIPS SIR!"  F0  J13000\ 2 \\\"A N D W E ' V E S U N K . . . . " \\  J 1 5  EJ)0 H  F1 " AND ",  F1 - " THEIR ",\\ I1 J\ S$\\S$,"..." H 7R F0 " NONE OF THEIR SHIPS HOW COULD YOU SIR!" z \  C91  J12000\  91)," S P L A S H ", MM1 3 M1 " TOO BAD SIR. IT'S A TOTAL MISS." 4 S2 M2 "...A TERRIBLE WAY TO START SIR." 9 M2 S2 "...I'M AFRAID YOU MISSED AGAIN SIR."  M2 '  J1 2000\   Y16   E16 X    "YOU DID IT SIR !!!"\\ $h "YOU SUNK THE ENTIRE FLEET!!!" r \\ %| "SHALL WE DO IT AGAIN SIR? ",Q$  Q$1,1)"Y" n   \  R310 H52 @  R310 H52   R310 (#  H50  RR10)\CR10)  G0,R,C)5   RC) 1)1   R4R\C4C ) "THE ENEMY FIRES ON OUR LOCATION ",  C65),R48)," SIR."\  G0,R,C)0 p  WG0,R,C)  EE1  G0,R,C)7  G3,R,C)7  YW)YW)1 , "THEY'VE HIT OUR ",\\ I1 W\ S$\  S$," SIR!"  R3R\C3C  H5H51  C90   J1 2000\  YW)0  J1 500\  \\\ , "IN FACT SIR THE ENEMY HAS SUNK OUR ",  \ I1 W\ S$\\S$,"!"  J1 1000\  R310\C310 o 1p "THEY MISSED US SIR. " z G0,R,C)6  G3,R,C)6  C90 W  J1 2000  W X ENEMY WINS )b "THE ENEMY HAS SUNK OUR LAST SHIP!" !l "WE'VE LOST THE FLEET SIR." v "ANOTHER BATTLE SIR?",Q$  Q$1,1)"Y" n ? @ PICK A DIRECTI J R50\C50\T50\F50 T PR4) ^ P0 R51 h P1 R51 r P2 C51 | P3 C51  R3R59 R3R50 @  C3C59 C3C50 @  G0,R3R5,C3C5)5 J  RR3R5\CC3C5  (# SEARCH DESTROY A HIT 2# T5T51 <# RT5)R3\CT5)C3 A# G0,R3,C3)6 % F# R3R59 R3R50 % P# C3C59 C3C50 % Z# G0,R3R5,C3C5)5 % d# R3R3R5\C3C3C5 i# RR3\CC3 n#  % GET A NEW DIRECTI &% F5F51 0% F51 % :% R5R51\C5C51 D% R3R4\C3C4 N% <# % R310\C310 %  ' ENSIGN'S ARKS MISSES =' 100))1 ,,,,,,,,, O6rVG{A/ 1 1 0 GYMNASTICS SCING PROGRAM 1( 2 1d N$18),M$360),M5$18),S$4),T$80),T5$4) n P20),A20),S4),G4,5) x 63 & "Athlete's File? ",Z$ \ #1,Z$ $ "Varsity File? ",Z$ \ #2,Z$ + "Junior Varsity File? ",Z$ \ #3,Z$ \\ ; "Program Part? 1-Names 2-Print 3-Tally 4-Score ",X ! XX1) \ X1 X5  X ,,, , 9 Read the Jth record from file #F 0 #F%51J100),N,N$,S$,S1),S2),S3),S4) & N$N$" " \ S$S$" "  TS1)S2)S3)S4)  8 Write the Nth record into file #F 2 #F%51N100),N,N$,S$,S1),S2),S3),S4),  8X Print out a 'standard' scoring line b TS1)S2)S3)S4) >l %3I,N," ",N$," ",S$,%6F2," ",S1),S2),S3),S4),%9F2,T v 0 0 0 PART 1 Enter Names 0 0  $ . "File(1-3) ? ",F 8 'L "New names-1 Corrections-2 ",Q V Q0 ` Q1 Q2 j Q1 j S1)0\S2)0\S3)0\S4)0 ,t "Number Name.............. School" ~ 1 N\NN)  N0 8 0 7), \ 1 N$ \ N$N$" " " 30), \ S$ \ S$S$" "  Q1   #F%51N100),N,N$,S$,  ~    ~  0 0 0 PART 2 Listings 0 0    44 \"Individuals-1 or Teams-2 ? ",T \ T0 > T1 \ T2 4 \ F1 3H "Range of Records? ",Q1,Q2 \ Q2Q1100 H 4R \"School code? (ie Bey) ",T5$\T5$T5$" " W T5$"0 " 4 \ T5$" " 4 f JQ1 \ LQ2 \ R1 \ >p "Num Name School Bars Beam Floor Vault", z " Total" > "=== ================== ====== ==== ===== ===== =====",  " ====="    S$T5$   W14\GW,R)SW)\W  X  N$18,18)"*"   RR1 \ R5   JJ1 \ JL  . 30),"===== ===== ===== ===== ====="  J14  K14  LK15 $ GJ,K)GJ,L) 8 $. DGJ,K)\GJ,K)GJ,L)\GJ,L)D 8 L B K L J V J14\TJ)0\J ` J14 j K13 t TJ)TJ)GJ,K) ~ K  K15\GJ,K)0\K  J  TT1)T2)T3)T4) ; 17),"Team Totals:",%6F2,T1),T2),T3),T4)," ",T   \"File? (1-3) ",F\ > "Input the number of the athlete. Use a '0' to exit."\ > "Num Name School UBars Beam Floor Vault",  " Total" > "=== ================== ====== ===== ==== ===== =====",  " ====="  1 J \ J0 4   :2 " ",N$," ",S$,%7F2,S1),%6F2,S2),S3),S4),%9F2,T < 5 Update the TEAM file ! Q1200 F3 F2 \ J100    S$T5$ T  K14 \ SK)TK) \ K "  , F1 \ R !T JJ1 \ F)2  , 0 0 0 PART 3 Enter Scores 0 0   F1  3 "Event? Bars-1 Beam-2 Floor-3 Vault-4 ",A & A0 0 AA) \ A1 A4  : 1"Athlete's Number? ",J D J0  N " Score? ",Y X Y0 Y9.95 N b Y1005Y20) N l  v SA)Y X  : 6 0 0 0 PART 4 List Scores by Event 0 0    "File? (1-3) ",F  " 1"Event? (1-6) ",E \ EE) ) E0 \ E7  \E1E7   W120 \ PW)0 \ W 0" " Record Range? ",J,L \ LJ100 " ,  6 E6 T @ X J  T E5 PT PSE) ^ PP20)  /h P20)P \ T$77)S$ \ M$343)N$ \ A20)N r K19 1 1 | PK)PK1)   Y18K1)1 \ Z4K1)1 3 M5$M$Y) \ M$Y,Y17)M$Y18) \ M$Y18)M5$ 0 T5$T$Z) \ T$Z,Z3)T$Z4) \ T$Z4)T5$ $ DPK) \ PK)PK1) \ PK1)D $ DAK) \ AK)AK1) \ AK1)D  K  JJ1 \ E6 J,  F)2   JL ,  E6  &0 \\"The top 20 scores in the ", : E D,N,X,b,l D "uneven bars",\v N "beam",\v X "floor exercises",\v b "vaulting",\v l "All-around", v " competition are:"   J120  K18J1)1 \ L4J1)1 6 %3I,AJ)," ",M$K,K17)," ",T$L,L3),%7F2,PJ)  J10 Z$  J   6$  #1 \ #2  "Again? ",Z$ \ Z$Z$" "  Z$1,1)"Y"  }qCArmijo HS AJ PBBBBCAtwater HS AT @BBBeB CBeyer HS (Mod)B UBpBBB0CCordova HS (RCo)C @CDavis HS (Yolo)DV vPAAAAPCDel Oro HS (Sac)DO `CEncina HS (Sac)EN BUBuB@BpCFairfield HS F $%B$`B" B#5BCGrace Davis (Mod)GD # B"B#uB$BCElk Grove HS EG CElCamino HS (Sac)EC CKennedy HS (Sac)K #B%B%B#UB CLindhurst HS L UBB0BUB0CManteca HS MA UBBeBB@CMarysville HS MY "B"B!B#EBPCMerced HS MR "@B$uB#`B"B`CMesa Verde HS(Sac)MV B@BBBpCMira Loma HS (Sac)ML CModesto HS MO CNapa HS N " B#eB$B$BCOakdale HS OK $B%B$@B$BCOakmont HS (Sac)OM 0B%BPBB CPlacer HS (Aub)PU #B#UB%B#eB0CRoseville HS R @CSacramento HS SA PCSan Juan (Sac)SJ vPAApPAfA`CSonora HS SO pCTracy HS TR CTurlock HS TU CVintage HS (Napa)V EBBBpB CArmijo HS AJ #B"%B"B$eBCAtwater HS AT PABUBEB CBeyer HS (Mod)B PB#@B"B"eB0CCordova HS (RCo)C IPA@CDavis HS (Yolo)DV PAAPB5BPCDel Oro HS (Sac)DO EAyAaPAdA`CEncina HS (Sac)EN BBBBpCFairfield HS F CPABAYPAIPACGrace Davis (Mod)GD B B EB" BCElk Grove HS EG cPAhAyPAXPACElCamino HS (Sac)EC 5A0A`AgACKennedy HS (Sac)K B"`B!B!`B CLindhurst HS L 5BBBB0CManteca HS MA BUB 5B!B@CMarysville HS MY QASPAXPA`PAPCMerced HS MR pPA0BuB@B`CMesa Verde HS(Sac)MV B BB"PBpCMira Loma HS (Sac)ML VPAtArPAgACModesto HS MO B! B!B#EBCNapa HS N BeB%B %BCOakdale HS OK B eBpB$0BCOakmont HS (Sac)OM BACPA@PAePA CPlacer HS (Aub)PU PBPB%BpB0CRoseville HS R BpBBB@CSacramento HS SA PAUPAxPA@APCSan Juan (Sac)SJ `CSonora HS SO  B%BB"5BpCTracy HS TR WPAXPAYPArPACTurlock HS TU  B BB"PBCVintage HS (Napa)V  CPeterson Julie *DV vPAAAACPolutan Virginia GD tAvAqAvA CDriscoll Deanie N PAwAtAPA0CBleekman Kirsten OM PAAAA@CFollert Cheryl OK APAPAAPCGeorge Karoline N pPApPAxPAPA`CVanduzen Rennee K AAtAPApCDean Jill B gAxAxPAxPACCoffman Patty F AxPArPAACPisarek Kay PU AAAPACMartin Debbie MY uArPAiAuACEspinoza Arlene EN iAqPAPAwPA CMarquis Ann Marie OK AdPAyPAyPA0CCiccarelli Leslie GD vPAtAAA@CKing Norma L AxAtPAxAPCWest Brenda MR vPAyPAtPAA`CMcElroy Sue *EN PAtAAPApCBetti Abby K vPAPAPAvPACThorsen Debby GD xPAvPAsPAwACJohnson Khris F ArPAqAtPACWilkenson Debby MY vPAwPAhPAACPinto Gina MA PArAArA CDavis Trina MV PAtAPAxA0CKaneno Lori K tPAvAAvA@CHixsom Cheryl MR rAPAyAvPAPCCliff Sue V xPAxAsAxPA`CGrundler Valorie *MY xAxAtAxPApCHardman Kelly F gPAAwPAhPACGomes Laura *MA AiAVPAiPACIkeda Dorothy PU vAhPAaPArACGregory Darlene OK sPAPAArPACSwitzer Nancy *F tPAPArAyA CNunn Patty PU rAiPAPAyA0CMarsh Tonya AT vAArAA@CDunlap Millie AJ sPAuAtAyAPCDavid Kathy GD SPArPAAA`CPearson Kristen *K PAAPAvPApCAlaimo Teresa N iAPAAxACBerlinger Maxine *GD wAuPAqAPACMoses Misse SJ CColovich Alicia MR rPAuPAPAsACHouse Karla *MV cPAAArA CHennessy Kathy *PU gPAyAPAvA0CPhipps Deanna *AT hAiAxPAtPA@CButler Cheryl *L SPArPAxPAwPAPCPearson Beth *N eAsAAwPA`CGonsalves Jean *B xPAyAAsApCDouglas Dena OK yArPAuAtPACFitzgerald Teri *AJ PAsAvPAbACMcKinney Chrissy *OM qPAPArAtPACKing Britta *OK PAAuPAACHoover Vicki *V vArAwPAxPA CVanderwall Sue *SJ vPAApPAfA0CWeer Laura *MR uAPAuPA@C  PC  `C  pC  C  C  C  C   C  0C  @C  PC  `C  pC  C  C  C  C   C  0C  @C  PC  `C  pC  C  C  C  C   C  0C  @C  PC  `C  pC  C  C  C  C   C  0C  @C  PC  `C  pC  C  C   CKrosoveck Diane K GAwPArApPA CReginato Dina AJ AwAxPAPA CCoey Kathy B WAxPAPAuA 0CBoss Tammy K 8AePAsPAwA @CMiller Kim AJ xPAxPAxAvPA PCThompson Monica OK bPAtPAtAPA `CTuggle Jaylene MO YPAPAvPAPA pCBurris Laurie DO EAyApAsA CVanderwegen Betty EN aAPAyPAPA CVaughn Linda TU GPAqPAPAxA!CRussell Trina MO 0PArAPApPA!CVanDewark Jill K PPApAbAgPA! CRuffino Cheryl *AJ wAgArPAPA!0CO'Brien Sharon GD fPAAVPAsA!@CGust Dana OK iPAPAiAPA!PCWimer Kris DV IPA`AgPAwPA!`CWeese Jeanie N QPAYPAvPAXPA!pCWright Carolyn SO EAPARAiPA!CPacheco Marlene GD RPAVPAwAsPA!CWhatanobe Linda SA APA"CWilson Melody *EG cPAhAyPAXPA"CJohns Dana MA bApAiPAyPA" CHorrell Shelly MR HPAeAdAgPA"0CTaylor Dusty L IPAbAVAsPA"@CFohe Lisa *OK FPAPPATAtA"PCBujalski Peggy MV QPAePAcPAtPA"`CBatey Debby B aAeAaPABPA"pCRucoba Laura *SJ "CCampbell Susie MO 4AYPAaA`PA"CWilson Tawny K CAxPAdPACA#CStretch Cathrine MV WPAqPAdPAuA#CWalk Sabra TU PAQAUPAwPA# CEscalante Lupe L 3PAiPASA@PA#0CPree Loretta *MR 3PAhAcPAfPA#@CKendall Lolly PU SPApAcAuA#PCHaskin Cheryl B IPAtAVAhA#`CSmith Maureen N 9PAqPAXAqPA#pCMitchell Cheryl SO 8AiAWPAvA#CMuguel Judy *SA BAUPAxPA@A#CWatson Lori MA TPADArPArA$CChovanec Theresa R CPAIAgAHPA$CEmard Jan N EPAUPAXAgPA$ CPontious Given SO EPAIARAxA$0CMahamy Sharon R CPAVAFPApPA$@CFisher Suzanne *MO EPAXASPAPA$PCYamada Janet *K CPA`PAXPAhPA$`CCorotto Ellen *N DAHAVPAcPA$pCChambers Bobbette*MY QASPAXPA`PA$CPoole Linda *MA CAaPAaPAgPA$CBurkett Kathy MV 1AqAbPAuPA%CHart Jan PU QPAEAIPArA%CLowe Sandy GD 6AXAgPAuPA% CWilliams Dellia DO APAaPAdA%0CBarbe Susie GD (ASPA`ArA%@CPapadopulos Julie*L @PA6PAqPAtPA%PCChristopherson K *F CPABAYPAIPA%`CGirolami Cathy *GD 9AdAFPAgA%pCRaines Kathy *DV 2A6AWPAVA%CSchefflin Julie ML VPAtArPAgA%CKornfeind Janelle*OM BACPA@PAePA&CWilliams Melodie *SO QPAsPAbAiPA&CMorrow Willie *EC 5A0A`AgA& CHudson Cheryl *B gAPAPAPA&0CSchlitz Colleen *TU DPAIPAcAiPA&@CAllen Cona *ML &PCMcNutt Carrie R 1PArA`AAPA&`CMayhew Diane *MV APAHApAhPA&pCDearn Susan AT EArAdAtPA&CBell Lisa *R 3PAHPATAIA&CPilling Rikki *V 'CJoseph Toni *TR WPAXPAYPArPA'CDuarte Roxanne *DO ' CJohnson Lisa *EN GPA`A`AhPA'0CGately Mary C IPA'@CKeys Carman *PU 'PCSercu Paula *N '`CNelson Rose *C 'pCFassler Jan *AT PPAiAaPA`A 132 *"THIS PROGRAM NEEDS 16K RAM TO RUN!!" R1R1)  R10)\R10) R1\ /dA$20),Z$72),Q$72),R$72),S$72),O3$64) #nG1$150),G2$26),G3$3),G4$3) O1$40),C$10),A1$8),T$6) !D$97),Z9$1),Q9$42),C1$7) #X$2),X0$5),P1$20),N3),D8) G8,8),C9,2),K5,3),Z8,8) Z9$" "\I172 Z$I,I)Z9$\Q$I,I)Z9$ R$I,I)Z9$\S$I,I)Z9$  )DD)KI,1)S1)2KI,2)S2)2) =O3$" ----- ----- ----- ----- ----- ----- ----- -----" 3C1$3,3)210)\C1$4,4)197)\C1$5,5)196) #C1$1,1)170)\C1$2,2)170) #C1$6,6)170)\C1$7,7)170) A1$"NSLPTSDC" kD$"WARP ENGINESS.R. SENSORSL.R. SENSORSPHASER CNTRLPHOTON TUBESDAMAGE CNTRLSHIELD CNTRLCOMPUTER " G4$"III" 4Q9$"REGULUS SAGITTARIUS ARCTURUS POLLUX SPICA " ^G1$"ANTARES SIRIUS RIGEL DENEB PROCYON CAPELLA VEGA BETELGEUSE CANOPUS ALDEBARAN ALTAIR " G1$G1$Q9$ T0)2020)100  T0T 0T930\D00\E05000\EE0\P10\P0P\S9200\S0 Q10)81) Q20)81) S10)81) S20)81) +C3,1)1\C2,1)1\C4,1)1\C4,2)1 )&C5,2)1\C6,2)1\C1,2)1\C2,2)1 '0C6,1)1\C7,1)1\C8,1)1\C8,2)1 :C9,2)1 I18\DI)0\ B90\K90\K30\B30 4I18\J18 \R10).55 pK30\ K30)51)\K9K9K3  R10).9 B30\ B31\B9B91 S3R10)81) GI,J)K3100B310S3 $ZI,J)0 8 B LK7K9 VX$""\X0$" IS " tB90 ~B91 G6,3)200 G6,3)G6,3)100 K9K91 G6,3)G6,3)10 B91 X$"S" X0$" ARE " ""YOUR ORDERS ARE AS FOLLOWS:" 3"DESTROY ",K9," KLINGONS IN ",T9," STARDATES." 0"THERE",X0$,B9," STARBASE",X$," FOR R+R..." .(Z4Q1\Z5Q2\K30\B30\S30\G50\D4.50) nQ11@ xQ18@ Q21@ Q28@ F# TT0 3"YOU ARE LOCATED IN QUADRANT ",G2$," ",G3$,"."  -"NOW ENTERING ",G2$," ",G3$," QUADRANT." XGQ1,Q2).01 K3X) B3XK3)10) !S3GQ1,Q2)GQ1,Q2).1)10 K306 %" COMBAT AREA CONDITION RED" "S2006 %," SHIELDS DANGEROUSLY DEPLETED" 6I15\R113\KI,R1)0\\ ^Q$Z$\R$Z$\S$Z$1,48) A$"<#>" Z1S1\Z2S2 ! I1K3 ! A$"+++" Z1R1\Z2R2 ! KI,1)R1 KI,2)R2 KI,3)S9  I1B3 &! 0A$">!<" :Z1R1\Z2R2 N! XB4Z1\B5Z2 l vI1S3 ! A$" * " Z1R1\Z2R2 !   E7SE\E710 E10  D7)0  C$" DOCKED" E5000\P10\  24) ."YOU HAVE STRANDED YOUR SHIP IN SPACE..." t  "COMMAND:",A$\A$""  A$1,1)"X"~ I18 *A$1,1)A1$I,I)p 4I2\ >A$)2\ HA$2,2)"R"\ RI6 \a &aI,,,,\,,:,z p *z"NAV SRS LRS PHA TOR SHE DAM COM XXX" *"PLEASE ENTER ONE OF THESE COMMANDS."  "COURSE (1-9):",C1 C11C19  L "WARP FACTOR:",W1 Q W10W18  V D1)0 ` W1.2 j "WARP ENGINES DAMAGED..." t "MAXIMUM WARP FACTOR .2" ~ L  NW18.5)  EN0 $ "ENERGY AVAILABLE INSUFFICIENT"  "FOR WARP FACTOR ",%#,W1  SNE  D7)0 "SHIELDS OPERATIONAL WITH "  S," UNITS AVAILABLE."    KLINGS MOVE FIRE  I1K3 ( KI,3)0 2 A$" " < Z1KI,1)\Z2KI,2) P ! Z ! d KI,1)Z1\KI,2)Z2\A$"+++"  !   p  D10\D6W1 W11  D61  I18  DI)0@  DI)DI)D6  DI)0@ D11  D11  "DAMAGE CONTROL REPORT:"  QWAK " R1I , V" 6 " REPAIR COMPLETE" @ J T 0).2 ^ R10)81) h 0).6 r DR1)DR1)0)31) | "DAMAGE CONTROL REPORT:"  V"  DR1)0 * " DAMAGED! BATTLE FACTOR:",DR1)\ ! " EFICCENCY REDUCED..."\  DR1)DR1)0)31)   "DAMAGE CONTROL REPORT:"  V" # " STATE OF REPAIR *IMPROVED*." A$" "  Z1S1)\Z2S2)  ! -& X1CC1,1)CC11,1)CC1,1))C1C1)) 0 XS1\YS2 -D X2CC1,2)CC11,2)CC1,2))C1C1)) N Q4Q1\Q5Q2 b I1N l S1S1X1\S2S2X2  S11  S19  S21  S29  S8S1)24S2)326  S872  Q$S8,S82)" "   S8144  R$S872,S870)" "  S$S8144,S8142)" "  S1S1X1\S2S2X2 5 "WARP DRIVE SHUT-DOWN AT SECTOR ",%#,S1),S2)  "DUE TO BAD NAVIGATION..."  *  * A$"<#>" 4 Z1S1)\Z2S2) H ! R F \ T81 f W11z p T8.110W1) z TTT8  TT0T9L DOCKED?    SIDE GALAXY  X8Q1XNX1  Y8Q2YNX2 Q1X8) Q2Y8)  S1XQ18)  S2YQ28) S10 Q1Q11  S18 S20$ Q2Q21 S28 $X50 .Q11V 8X51 BQ11 LS11 VQ18~ `X51 jQ18 tS18 ~Q21 X51 Q21 S21 Q28 X51 Q28 S21 X50 ("PLEASE TRY TO KEEP THE ENTERPRISE" "INSIDE THE GALAXY..." &"CURRENT LOCATION: SECTOR ",S1,S2 "OF QUADRANT ",Q1,Q2," ."  TT0T9L 8Q1Q28Q4Q5* TT1 (F 2( < FEEN10 PE0 Z"ENERGY TAKEN FROM SHIELDS" _"TO COMPLETE MANEUVER..." dSSE nE0 xS0 S0   D3)0 "LONG RANGE SENSORS OUT..."  *"LONG RANGE SCAN FOR QUADRANT ",Q1,Q2 %O1$"..........................." O1$ IQ11Q11 I113 NI1)0   JQ21Q21 I1T "I8T ,J1T 6J8T @NJQ22)GI,J) JZI,J)GI,J) T ^%7I,N1)),N2)),N3)) hO1$    K30 %"NO KLINGONS IN QUADRANT:",Q1,Q2  D4)0 "PHASERS INOPERATIVE..."  D8)0 +"COMPUTER FAILURE HAMPERS ACCURACY..." ""PHASERS LOCKED ON TARGET..." "ENERGY AVAILABLE:",E !"NUMBER OF UNITS TO FIRE:",X &X0XE  0EEX :p ND7)0b XXX0) bH1XK3) lI15 vKI,3)0> HH1D0))0)2)) H.15KI,3) -"SENSORS SHOW KLINGON AT ",KI,1),KI,2) $"UNAFFECTED BY PHASER SALVO..." > KI,3)KI,3)H /H," UNIT HIT ON KLINGON AT ",KI,1),KI,2) /"SENSORS SHOW ",KI,3)," UNITS REMAINING." KI,3)0 > "***KLINGON DESTROYED***" 0K3K31\K9K91\A$" "\Z1KI,1)\Z2KI,2)  ! *GQ1,Q2)K3100B310S3 4K90 > H R PHON RPEDO \D5)0z !f"PHOTON TUBES INOPERABLE..." p zP0 #"PHOTON TORPEDOES EXPENDED..."  "TORPEDO COURSE (1-9):",C1 C11C19  -X1CC1,1)CC11,1)CC1,1))C1C1)) -X2CC1,2)CC11,2)CC1,2))C1C1)) EE2\XS1\YS2\PP1 ."TORPEDO TRACK:" 8XXX1\YYX2 LX3X.5)\Y3Y.5) `X31r jX39r tY31r ~Y39r " ",%2I,X3,Y3 A$" "\Z1X\Z2Y  ~" Z308 A$"+++"\Z1X\Z2Y ~" Z30Z "***KLINGON DESTROYED***" K3K31\K9K91 K90 I15 (X3KI,1)< 2Y3KI,2)F < FKI,3)0 P6 ZA$" * "\Z1X\Z2Y x~" Z30 3"STAR AT ",X3,Y3," ABSORBED PHOTON TORPEDO..." | A$">!<"\Z1X\Z2Y ~" Z30 !"*** STARBASE DESTROYED ***" B3B31\B9B91 B90, "******QWAK******" "YOU HAVE JUST DESTROYED" "YOUR LAST STARBASE..." ~ ,D00 6A$" "\Z1X\Z2Y T! ^GQ1,Q2)K3100B310S2 h| r"TORPEDO MISSED..." |p   SHIELD ROL D7)0 #"SHIELD CONTROL INOPERABLE..."  "ENERGY AVAILABLE:",ES #"NUMBER OF UNITS TO SHIELD:",X X0 SX "SHIELD UNCHANGED..."  ESX0 EESX SX  0 DAMAGE :D6)0 !D" DAMAGE CONTROL DAMAGED..." ND00 XD30 bI18 lDI)0 vD3D31  D30 D3D3D4 D31 D3.9 #"ESTIMATED TIME TO REPAIR:",D3 "AUTHORIZED (Y OR N):",A$ A$"Y" I18 DI)0 DI)0  TTD3.1 #" DEVICE STATE OF REPAIR" *R118 4V" >%#,DR1) H RN \ KLINGS pK30B zD00 ,"STAR BASE SHIELDS PROTECT ENTERPRISE." B I15 KI,3)08 HKI,3)D0))20))) SSH ;H," UNIT HIT ON ENTERPRISE FROM SECTOR ",KI,1),KI,2) S0` ("SHIELDS DOWN TO ",%#,S," UNITS..." H208 0).68 HS.028 D2HS.50) R10)81) DR1)DR1)D2 "DAMAGE CONTROL REPORTS:" $V" )DR1)03 *." DAMAGED! BATTLE FACTOR:",DR1)\8 3" EFICCENCY REDUCED..." 8 B .L"THE KLINGONS HAVE DEVELOPED AN ULTIMATE" 1N"WEAPOND SINCE THE START OF YOUR MISSION..." P"TARGET: USS ENTERPRISE..." VR118000\ `24) +j"THE ENTERPRISE HAS BEEN DESTROYED..." t"IT IS STARDATE ",%#,T ~"OUT OF ",K7," KLINGONS" "YOU DESTROYED ",K7K9  !"**ALL KLINGONS DESTROYED**" 7"YOUR EFFICIENCY RATING IS ",%#,K7TT0))1000) /"TO CONTINUE, TYPE Y :",Z9$\Z9$"Y"    IS11S11 (JS21S21 2I.5)1 <I.5)8 FJ.5)1 PJ.5)8 ZA$">!<"\Z1I\Z2J x~" Z31   D00  !D01\C$" DOCKED"\E5000\P10 ""SHIELDS DROPPED FOR DOCKING" S0 @ K30" EE0.16 C$" GREEN" @ "C$C1$ ,@ 6C$"YELLOW" @D2)0^ $J"** SHORT RANGE SENSORS OUT **" Tf +^O1$"---------------------------------" hO1$  " ", I1 223 Q$I,I2)," ",  #" KLINGONS ",K9)\" ", I25463 Q$I,I2)," ",  " STARDATE ", %#,T " ", I49703  Q$I,I2)," ", & 0" CONDITION ",C$ NI1223 XR$I,I2)," ", b #l" QUADRANT ",%5I,Q1),Q2) vI25463 R$I,I2)," ",  #" SECTOR ",%5I,S1),S2) " ", I49703 R$I,I2)," ",  " ENERGY ",%5I,E I 1223 S$I,I2)," ",  " PHOTON TORPEDOES ",%3I,P I25463 4S$I,I2)," ", > H" SHIELDS ",%6I,S \O1$ f p LIB COMPUTER zD8)0 "COMPUTER DISABLED..."  "READY:",A A0A5 H81 A0t A,,4!,,   H80\G51  "0 GALACTIC RECORD" $"1 STATUS REPORT" ."2 TORPEDO DATA" 8"3 STARBASE DATA" B"4 FIRE CONTROL" L"5 REIGON MAP" V j 8t" 1 2 3 4 5 6 7 8" O3$ I18 %2I,I, H80< J18 N$"" IQ1 JQ2 $" ",160),%3I,ZI,J)),\( %6I,ZI,J)), ( 2 <Z4I\Z51 PF# ZJ015.5G2$)) dM91J0\" ",\ nG2$, xZ55 F# J039.5G2$)) J0),G2$, \O3$    "STATUS REPORT:" X$"" K91 X$"S" K9," KLINGON",X$," LEFT..." V5T0T9)T +"YOU HAVE ",%#,V5," STARDATES LEFT..." "X$"" ,B91h 6X$"S" @B90h "J"YOUR STUPIDITY HAS LEFT YOU" T"WITHOUT ANY STARBASES!!!" ^: :h"THERE EXISTS ",B9," STARBASE",X$," IN THE GALAXY..." r: | H80 I15 KI,3)0 ! W1KI,1)\XKI,2) C1S1\AS2  5"YOU ARE AT SECTOR ",%#,S1,S2," QUADRANT ",Q1,Q2 "START (X,Y):",C1,A "END (X,Y):",W1,X  XXA & AC1W1 0 X0 : A0 D X0X N A0 X C11 b A)X) #g V5C1A)X))A))A)) l "DIRECTION :",%#,V5 v ! $ "DIRECTION :",%#,C1A)X))  ! A0 X0  C15  b  C13   C17  A)X)! 2 "DIRECTION :",%#,C1X)A))X))X))  ! $!"DIRECTION :",%#,C1X)A))  !"DISTANCE :",X2A2) !H81  ! *! 4!B30R! />!"THERE IS NO STARBASE IN THIS QUADRANT..." H! #R!"FROM ENTERPRISE TO STARBASE:" \!W1B4 f!XB5 p! z! ! !R10)81) !R20)81) !A$" "\Z1R1\Z2R2 !~" !Z30! ! ! !S8Z1.5)24Z2.5)326 !S872" !Q$S8,S82)A$ "L" "S81448" "S8S872 $"R$S8,S82)A$ ."L" 8"S8S8144 B"S$S8,S82)A$ L" V" `"S8R11211 j"D$S8,S811), t" ~" "Z1Z1.5) "Z2Z2.5) "S8Z124Z2326 "Z30 "S872" "Q$S8,S82)A$ (# "Z31 "(# "S8144 # "S8S872 "R$S8,S82)A$(# "Z31 #(# #S8S8144 #S$S8,S82)A$ (# #Z31 (# 2# F#L22 P#Z55d# Z#L21 d#L32Z41)L2 n#I31 x#I01 #L1G1$) #G1$L,L)" "# #I3L3# #I0L1 #I3I31 # #G2$G1$I0,L1) #G51 #L3Z5 #Z54# #L3Z54 #G3$"IV" #L34 $G3$G4$1,L3) $QWACK $ "$  AUOW HH ä**G ɯ ~*#*> *> *!*0 <* ?)]T))_* /*!. *_m**w #X*x X*+>_*X*>*Wz“**.+".zwzWҝ*# x…*13!v," !Z".!,*13*>-*S**!9.*ù*!.6#*6#*6!.~ p,+ #~ +,+**6 #F#~*x1*<*O!.>" !.@~ >+Ö+. [+h+#E+! .+~ h+[+U+^#V#N#F}W|g}o|+z.W}*1+!L.*)*ڴ+|ʴ+Һ+!^.+!.@~ ++!o.*ù*!.,~+O+#+!.+".y2.z,yO ,#+~++. -,w#,4,6 #-,*.M ))):.D,xos#r#s#r#6W," ҹ*! .+*( !.*13ù* CREATE UTILITY FOR NORTHSTAR DOS TO CREATE A FILE IN THE FIRST FREE SPACE ON THE DISK, TYPE IN THE FILENAME, OPTIONALLY FOLLOWED BY A UNIT SPECIFICATION (,X). THE PROGRAM WILL ASK FOR THE SIZE (DECIMAL). TO EXIT TO DOS, JUST HIT A RETURN. TO SUPRESS THIS MESSAGE, STORE A ZERO OVER THE FIRST BYTE IN THIS STRING ALREADY EXISTS DISK IS WRITE LOCKED FILENAME ERROR SIZE OF FILE - INVALID SIZE DIRECTORY FULL NO SPACE DISK NOT READY ,.T 100H CRLF: PUSH PSW MVI A,CR CALL COUT MVI A,LF CALL COUT POP PTEMS? ",S9\S94S913. 0`"LENGTH OF GAME IN YEARS? ",X\X1X25` jY9Y1X) +"MAX CARGO TONNAGE? ",W\W25W55 ;"MINIMUM DISTANCE BETWEEN STARS? ",D9\D910D925 2"HOW MANY BIDS PER ROUND? ",K9\K91K95 4 "WHAT IS THE PROFIT MARGIN? ",X9\X91X95  2X918X9) !FS11,1)0\S12,1)0\S7,1)15 dH1\S12 x S13  S14  S15S9 &Q1S13S11)3)\Q11Q13 Q1,, \ \    S11S9 J16 SJ,S1)0  S11 I1 @ I4140))5 "J2S11 ,IS8,J) 6 '@S8,S1)I\S9,S1)270\S10,S1)Y11 ^ hT11\L1 *r"CAPTAINS, NAME YOUR SHIPS PLEASE..." |I1T9P9 P11P9 rT1,T1)0\T2,T1)0\T6,T1)0\T3,T1)15\T4,T1)10\T5,T1)10\T7,T1)25\T9,T1)D1\T10,T1)Y1\T11,T1)5000 3"CAPTAIN ",P1," WHAT IS SHIP # ",I," CALLED ", T$L,L5)\T1T11\LL6 \ 0B11P9 #:B1,B1)0\B2,B1)D1\B3,B1)Y1 D bb 3X0).5)100\Y500)\X)25)Y25) F1\ F0\S7,S1)0  E100\> S7,S1)5  E50\>  S7,S1)10 * >X0).5)E\Y0)E2\F1 \ fF0> p H,,, ZX\XY\YZ\ YY\ ZX\XY\YZ J1S11 * XS11,J))2YS12,J))2)D9$  F0    $ +8 S11,S1)X)\S12,S1)Y)\H1H3)H B b R0~ d  f  h T21T9 j T2T1t l LT21)61 6n T$L,L5)," IS ENROUTE TO ",S$T8,T2),T8,T2)3) t x LT11)61 Bz " AND ",T$L,L5)," IS ABOUT TO LEAVE ",S$T8,T1),T8,T1)3) |  ~   F  S11\T11\L11  I11T9P9 P11P9 A "CAPTAIN ",P1," WHICH STAR WILL ",T$L1,L15)," TRAVEL TO ", (  2 L1L16\T1T11 F P d DT9,1)\YT10,1)\T11 I29  T10,I)0  T10,I)Y  T10,I)Y  T9,I)D  T9,I)D0).5  DT9,I)\YT10,I)\T1I  Y1YT  D11\Y1Y\T2T1  F  Y12071  d  T1T2  Y1Y9T " d %, "NEW GAME? ",A$\A$1,1)"N"L 6 v T D1D\MD11)30)\L3M1  "*****************" " "* ",C$L,L2),D130M,",",Y1 % LT11)61\S1T8,T1)\MS8,S1) / "* ",T$L,L5)," HAS LANDED ON ",S$M,M3)  T12,T1)1 , , , / "3 WEEKS LATE... HYPERDRIVE BROKE DOWN..."   : "2 WEEKS LATE... SPACE STORMS HAMPERED NAVIGATION..."   4 "1 WEEK LATE... THE COMPUTER MADE A MISTAKE..."  "$ ON BOARD ",N$," NET WT" f %$C12F0,T11,T1),%6I,T1,T1)),T2,T1)),T3,T1)),T4,T1)),T5,T1)),T6,T1)),T7,T1)) :  D "WE ARE BUYING:" X J11 b I116 l SI1,S1)0TI1,T1).5 8v 5),N$J1,J15)," WE NEED ",SI1,S1))," UNITS." & 5),"HOW MANY ARE YOU SELLING ",   X0  XTI1,T1) < 5),"YOU ONLY HAVE ",TI1,T1)," UNITS IN YOUR HOLD..." 5),   X2SI1,S1)))  X2SI1,S1)) ' 5),"WE'LL BID ON ",X," UNITS..." K11K9  K1K9  5),"OUR FINAL OFFER:",    5),"WE OFFER ",  Y2L11)103 9 %$C12F0,100.009PI1)X.5)," WHAT DO YOU BID ", " | ",Y "" YPI1)X10YPI1)X10* $ 5),"PLEASE TRY AGAIN..." & * YPI1)Xf 4 Y1ZX))PI1)XR > PI1).8PI1).2YX H "R 5),"WE'LL PASS THIS ONE..." \ f 5),"WE'LL BUY!" Xp TI1,T1)TI1,T1)X\T7,T1)T7,T1)XI15)\T11,T1)T11,T1)Y\SI1,S1)SI1,S1)X J1J16   "WE ARE SELLING:"  J11 I116  GI1)0SI1,S1)1x  I14T7,T1)Wx 6 5),N$J1,J15)," WE HAVE ",SI1,S1))," UNITS" "HOW MANY ARE YOU BUYING ",   X0x I14XT7,T1)WL ;5),"YOU HAVE ",T7,T1)," TONS ABOARD, SO ",X," TONS" 0$5),"PUTS YOU OVER THE ",W," TON LIMIT..." B LXSI1,S1)t 1V5),"WE NLY HAVE ",SI1,S1))," UNITS..." `5), j tK11K9 ~K1K9 5),"OUR FINAL OFFER: ",  5),"WE WANT ABOUT ", $%$C12F0,100.011PI1)X.5), K" YOUR OFFER ",Y\YPI1)X10YPI1)X10"PLEASE TRY AGAIN..."  YPI1)X Y1ZX))PI1)X PI1).8PI1).2YX  5),"THAT'S TOO LOW..." x YT11,T1)F F 5),"YOU BID ",%$C12F0,Y," BUT YOU HAVE ONLY ",%$C12F0,T11,T1)  'S7,S1)10T11,T1)B1,B1)Y (5), 2 <YT11,T1) AF F5),"SOLD!" XPTI1,T1)TI1,T1)X\T7,T1)T7,T1)XI15)\SI1,S1)SI1,S1)X\T11,T1)T11,T1)Y xJ1J16    &S7,S1)10TI1,T1)B1,B1)0  '"WHAT IS YOUR NEXT PORT OF CALL ",  J0 I16 SI,S1)0 SI,S1)GI)d JJ1  "J1d , 6S7,S1)S7,S1)G9 $@G0S7,S1)\G05G010G015| J Td =^"STAR SYSTEM ",S$S8,S1),S8,S1)3)," IS NOW A CLASS ", hD$," SYSTEM..." |S915d J0 I1S9 JJS7,I)  JS910d  S9S91\S1S9  b S9,S1)D1\S10,S1)Y1 J16 SJ,S1)0  d /"A NEW STAR SYSTEM HAS BEEN DISCOVERED..." *&"IT'S NAME IS ",S$S8,S1),S8,S1)3) 0 :d D X bX0).5)100 lY500) vX)25)Y25)b F1  F0b S7,S1)0  H4, ,, ZX\XY\YZ\4 YY\4  ZX\XY\YZ 4J1S11 *>XS11,J))2YS12,J))2)D9\ HF0 R \ +fS11,S1)X)\S12,S1)Y)\H1H3)H p "",A$\A$"" A$)4 I1S9 $JS8,I)\A$1,4)S$J,J3)  A$"SAVE" r A$"MAP" S2S1\ S1S2\ A$"REPORT" <  &A$," IS NOT A STAR NAME...",\ -"WHAT IS YOUR NEXT PORT OF CALL :",\ T8,T1)I\IS1. 2"CHOOSE A DIFFERENT STAR SYSTEM TO VISIT...", $ 6.D2S11,S1)S11,I))2S12,S1)S12,I))2)R9 8D2D2) B0)Q2) LI10)3) VI,t,` 1`"YOUR SHIP DOES NOT PASS INSPECTION..."\ ,t"THE CREWMEN DEMAND A VACATION..."\ 1"YOU WERE THROWN IN JAIL FOR DRUNKENNESS..." I," WEEK DELAY..." D2D27I 'T9,T1)T9,T1)D2\T9,T1)360 +T9,T1)T9,T1)360\T10,T1)T10,T1)1 MT9,T1)1)30)\L3M1 N"THE E.T.A. AT ",S$J,J3)," IS ",C$L,L2)," ",T9,T1)30M,",",T10,T1) I0)3)1)0)Q2)) (T9,T1)T9,T1)7I\T9,T1)360( +T9,T1)T9,T1)360\T10,T1)T10,T1)1 (T12,T1)I 2 < Fd #P"JAN 1, ",Y1," YEARLY REPORT" 620),"CURRENT PRICES" h"NAME CLASS",N$ |S11S9  I16 PI)SI,S1))PI)   S$S8,S1),S8,S1)3), AD$," ",%6I,P1)),P2)),P3)),P4)),P5)),P6))  )\" + MEANS SELLING - MEANS BUYING" 20),"CAPTAINS"\ B&"NUMBER $ ON SHIPS $ IN BANK CARGOES TOTALS" :B11P9 D N XP11P9 b\M10\M20 lI10T9P91 vM1M1T11,P9I1P1) K16 M2M2TK,P9I1P1)QK)   M3M2M1B1,P1) 8%4I,P1," ",%$C12F0,M1," ",B1,P1)," ",M2," ",M3    !R11S7,S1)5)S7,S1)10) 'D212Y1S10,S1))D1S9,S1))30 I16 1 GI)1S7,S1)15)MI,R1)S7,S1)CI,R1)) GI)).01*  PI)0\R j*GI))GI)12))SI,S1)D2GI))))SI,S1)GI))GI)12))SI,S1)SI,S1)D2GI))) 34PI)QI)1SI,S1))SI,S1)GI)X9)))) HPI)100PI)100.5) R \S9,S1)D1 fS10,S1)Y1 p zBANK ;"DO YOU WISH TO VISIT THE LOCAL BANK :",A$\A$"Y"    D5),"YOU HAVE ",%$C12F0,B1,B1)100.5)100)," IN THE BANK" A5),"AND ",%$C12F0,T11,T1)100.5)100)," ONBOARD SHIP" B1,B1)0. .5),"HOW MUCH DO YOU WISH TO WITHDRAW ", )Z\ZB1,B1)"TOO MUCH..."\ Z0. +B1,B1)B1,B1)Z\T11,T1)T11,T1)Z\ -.5),"HOW MUCH DO YOU WISH TO DEPOSIT ", $8Z\Z0`\"TRY AGAIN..."\. `ZT11,T1)~ Fj"YOU HAVE ",%$C12F0,T11,T1)100.5)100)," ONBQARD SHIP"\. )~T11,T1)T11,T1)Z\B1,B1)B1,B1)Z   B1 B B1T1 I1S9P9 B1P9 B1B1P9    BANK 9B1,B1)B1,B1)1.05Y1B3,B1)D1B2,B1))360)) B2,B1)D1\B3,B1)Y1    X\X)XX0)P 525),"TYPE 0 (ZERO) IF YOU WANT TO PASS..."\ P Z d" HEY YOU... HU-MAN:"\ S7,S1)51,,, D$" I"\ D$" II"\ D$" III"\ D$" IV"\ S116\I1 ,^ 6I40)145) @J2S11 JIS8,J)6 T ^S8,S1)1 h r"FILE NAME :",A$\#0,A$ -|#0,T$,W,D9,K9,X9,D1,Y1,P9,T9,S9,Y9,T1,S1 J1S9\I194 )#0,SI,J),SI1,J),SI2,J),SI3,J) \ J1T9\I194 )#0,TI,J),TI1,J),TI2,J),TI3,J) \ I1P9 #0,B1,I),B2,I),B3,I)  #0  v   L115151 \L10z @fL$"1----1----1----1----1----*SOL-1----1----1----1----1 " p @zL$" HTHRINTNESSUS 5B B0AB C pD A AA DAA$EIA0330A`ff`ABAA pD0330A"tA`feAIBA pD5&B0330A"tA`feA!BA pD@B) ""AA@y@DD9APAABA pDBB ""AA@y@DD9APABA pD$3PcA%'wvA%'wvABEBA pD@A"B0330A"tA`feAPAA pD8B0A&ff0@33 @@A` AS32p@PAB C pDp"PcA%'wvA%'wvAB)BA pD"0A@A ApAABA C pDPF0ABBB%BPApC pDPD AA pDA pD 132 ;S12,15),T12,12),B3,12),M6,3),C6,3),P6),Q6),G6) 3 T$72),C$36),S$60),N$36),A$6),D$5),L$58) 3ZX)YX).5YX))X2SI1,S1))))K1 YX)XSI1,S1))) -(C$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" E-S$"$SOLYORKBOYDIVANREEFHOOKSTANTASKSINKSANDQUINGAOLKIRKKRISFATE" ?2Q1)5000\Q2)3500\Q3)4000\Q4)4500\Q5)3000\Q6)3000 77N$" UR MET HE MED SOFT GEMS " C<R927\D915\Q.1\K93\W30\X936\G91.25\D11\Y12070\R0\YY1 AI16\J13\MI,J)\\ KI16\J13\CI,J)\\ =P.1,.2,.1,0,.1,.1,0,.1,.1,.1,.1,0,.1,.2,.1,.1,.1,0 J1S9\I194 )R#0,SI,J),SI1,J),SI2,J),SI3,J) \\ fJ1T9\I194 )p#0,TI,J),TI1,J),TI2,J),TI3,J) z\ I1P9 #0,B1,I),B2,I),B3,I)  #0 R1 b ,"HOW MANY PLAYERS? ",P9\P92P912 1"HOW MANY SHIPS PER PLAYER? ",X\XP912 T9P9X 1."HOW MANY STAR SYSTEMS? ",S9\S94S913. 0`"LENGTH OF GAME IN YEARS? ",X\X1X25` jY9Y1X) +"MAX CARGO TONNAGE? ",W\W25W55 ;"MINIMUM DISTANCE BETWEEN STARS? ",D9\D910D925 2"HOW MANY BIDS PER ROUND? ",K9\K91K95 4 "WHAT IS THE PROFIT MARGIN? ",X9\X91X95  2X918X9) !FS11,1)0\S12,1)0\S7,1)15 dH1\S12 x S13  S14  S15S9 &Q1S13S11)3)\Q11Q13 Q1,, \ \    S11S9 J16 SJ,S1)0  S11 I1 @ I4140))5 "J2S11 ,IS8,J) 6 '@S8,S1)I\S9,S1)270\S10,S1)Y11 ^ hT11\L1 *r"CAPTAINS, NAME YOUR SHIPS PLEASE..." |I1T9P9 P11P9 rT1,T1)0\T2,T1)0\T6,T1)0\T3,T1)15\T4,T1)10\T5,T1)10\T7,T1)25\T9,T1)D1\T10,T1)Y1\T11,T1)5000 3"CAPTAIN ",P1," WHAT IS SHIP # ",I," CALLED ", T$L,L5)\T1T11\LL6 \ 0B11P9 #:B1,B1)0\B2,B1)D1\B3,B1)Y1 D bb 3X0).5)100\Y500)\X)25)Y25) F1\ F0\S7,S1)0  E100\> S7,S1)5  E50\>  S7,S1)10 * >X0).5)E\Y0)E2\F1 \ fF0> p H,,, ZX\XY\YZ\ YY\ ZX\XY\YZ J1S11 * XS11,J))2YS12,J))2)D9$  F0    $ +8 S11,S1)X)\S12,S1)Y)\H1H3)H B b R0~ d  f  h T21T9 j T2T1t l LT21)61 6n T$L,L5)," IS ENROUTE TO ",S$T8,T2),T8,T2)3) t x LT11)61 Bz " AND ",T$L,L5)," IS ABOUT TO LEAVE ",S$T8,T1),T8,T1)3) |  ~   F  S11\T11\L11  I11T9P9 P11P9 A "CAPTAIN ",P1," WHICH STAR WILL ",T$L1,L15)," TRAVEL TO ", (  2 L1L16\T1T11 F P d DT9,1)\YT10,1)\T11 I29  T10,I)0  T10,I)Y  T10,I)Y  T9,I)D  T9,I)D0).5  DT9,I)\YT10,I)\T1I  Y1YT  D11\Y1Y\T2T1  F  Y12071  d  T1T2  Y1Y9T " d %, "NEW GAME? ",A$\A$1,1)"N"L 6 v T D1D\MD11)30)\L3M1  "*****************" " "* ",C$L,L2),D130M,",",Y1 % LT11)61\S1T8,T1)\MS8,S1) / "* ",T$L,L5)," HAS LANDED ON ",S$M,M3)  T12,T1)1 , , , / "3 WEEKS LATE... HYPERDRIVE BROKE DOWN..."   : "2 WEEKS LATE... SPACE STORMS HAMPERED NAVIGATION..."   4 "1 WEEK LATE... THE COMPUTER MADE A MISTAKE..."  "$ ON BOARD ",N$," NET WT" f %$C12F0,T11,T1),%6I,T1,T1)),T2,T1)),T3,T1)),T4,T1)),T5,T1)),T6,T1)),T7,T1)) :  D "WE ARE BUYING:" X J11 b I116 l SI1,S1)0TI1,T1).5 8v 5),N$J1,J15)," WE NEED ",SI1,S1))," UNITS." & 5),"HOW MANY ARE YOU SELLING ",   X0  XTI1,T1) < 5),"YOU ONLY HAVE ",TI1,T1)," UNITS IN YOUR HOLD..." 5),   X2SI1,S1)))  X2SI1,S1)) ' 5),"WE'LL BID ON ",X," UNITS..." K11K9  K1K9  5),"OUR FINAL OFFER:",    5),"WE OFFER ",  Y2L11)103 9 %$C12F0,100.009PI1)X.5)," WHAT DO YOU BID ", " | ",Y "" YPI1)X10YPI1)X10* $ 5),"PLEASE TRY AGAIN..." & * YPI1)Xf 4 Y1ZX))PI1)XR > PI1).8PI1).2YX H "R 5),"WE'LL PASS THIS ONE..." \ f 5),"WE'LL BUY!" Xp TI1,T1)TI1,T1)X\T7,T1)T7,T1)XI15)\T11,T1)T11,T1)Y\SI1,S1)SI1,S1)X J1J16   "WE ARE SELLING:"  J11 I116  GI1)0SI1,S1)1x  I14T7,T1)Wx 6 5),N$J1,J15)," WE HAVE ",SI1,S1))," UNITS" "HOW MANY ARE YOU BUYING ",   X0x I14XT7,T1)WL ;5),"YOU HAVE ",T7,T1)," TONS ABOARD, SO ",X," TONS" 0$5),"PUTS YOU OVER THE ",W," TON LIMIT..." B LXSI1,S1)t 1V5),"WE NLY HAVE ",SI1,S1))," UNITS..." `5), j tK11K9 ~K1K9 5),"OUR FINAL OFFER: ",  5),"WE WANT ABOUT ", $%$C12F0,100.011PI1)X.5), K" YOUR OFFER ",Y\YPI1)X10YPI1)X10"PLEASE TRY AGAIN..."  YPI1)X Y1ZX))PI1)X PI1).8PI1).2YX  5),"THAT'S TOO LOW..." x YT11,T1)F F 5),"YOU BID ",%$C12F0,Y," BUT YOU HAVE ONLY ",%$C12F0,T11,T1)  'S7,S1)10T11,T1)B1,B1)Y (5), 2 <YT11,T1) AF F5),"SOLD!" XPTI1,T1)TI1,T1)X\T7,T1)T7,T1)XI15)\SI1,S1)SI1,S1)X\T11,T1)T11,T1)Y xJ1J16    &S7,S1)10TI1,T1)B1,B1)0  '"WHAT IS YOUR NEXT PORT OF CALL ",  J0 I16 SI,S1)0 SI,S1)GI)d JJ1  "J1d , 6S7,S1)S7,S1)G9 $@G0S7,S1)\G05G010G015| J Td =^"STAR SYSTEM ",S$S8,S1),S8,S1)3)," IS NOW A CLASS ", hD$," SYSTEM..." |S915d J0 I1S9 JJS7,I)  JS910d  S9S91\S1S9  b S9,S1)D1\S10,S1)Y1 J16 SJ,S1)0  d /"A NEW STAR SYSTEM HAS BEEN DISCOVERED..." *&"IT'S NAME IS ",S$S8,S1),S8,S1)3) 0 :d D X bX0).5)100 lY500) vX)25)Y25)b F1  F0b S7,S1)0  H4, ,, ZX\XY\YZ\4 YY\4  ZX\XY\YZ 4J1S11 *>XS11,J))2YS12,J))2)D9\ HF0 R \ +fS11,S1)X)\S12,S1)Y)\H1H3)H p "",A$\A$"" A$)4 I1S9 $JS8,I)\A$1,4)S$J,J3)  A$"SAVE" r A$"MAP" S2S1\ S1S2\ A$"REPORT" <  &A$," IS NOT A STAR NAME...",\ -"WHAT IS YOUR NEXT PORT OF CALL :",\ T8,T1)I\IS1. 2"CHOOSE A DIFFERENT STAR SYSTEM TO VISIT...", $ 6.D2S11,S1)S11,I))2S12,S1)S12,I))2)R9 8D2D2) B0)Q2) LI10)3) VI,t,` 1`"YOUR SHIP DOES NOT PASS INSPECTION..."\ ,t"THE CREWMEN DEMAND A VACATION..."\ 1"YOU WERE THROWN IN JAIL FOR DRUNKENNESS..." I," WEEK DELAY..." D2D27I 'T9,T1)T9,T1)D2\T9,T1)360 +T9,T1)T9,T1)360\T10,T1)T10,T1)1 MT9,T1)1)30)\L3M1 N"THE E.T.A. AT ",S$J,J3)," IS ",C$L,L2)," ",T9,T1)30M,",",T10,T1) I0)3)1)0)Q2)) (T9,T1)T9,T1)7I\T9,T1)360( +T9,T1)T9,T1)360\T10,T1)T10,T1)1 (T12,T1)I 2 < Fd #P"JAN 1, ",Y1," YEARLY REPORT" 620),"CURRENT PRICES" h"NAME CLASS",N$ |S11S9  I16 PI)SI,S1))PI)   S$S8,S1),S8,S1)3), AD$," ",%6I,P1)),P2)),P3)),P4)),P5)),P6))  )\" + MEANS SELLING - MEANS BUYING" 20),"CAPTAINS"\ B&"NUMBER $ ON SHIPS $ IN BANK CARGOES TOTALS" :B11P9 D N XP11P9 b\M10\M20 lI10T9P91 vM1M1T11,P9I1P1) K16 M2M2TK,P9I1P1)QK)   M3M2M1B1,P1) 8%4I,P1," ",%$C12F0,M1," ",B1,P1)," ",M2," ",M3    !R11S7,S1)5)S7,S1)10) 'D212Y1S10,S1))D1S9,S1))30 I16 1 GI)1S7,S1)15)MI,R1)S7,S1)CI,R1)) GI)).01*  PI)0\R j*GI))GI)12))SI,S1)D2GI))))SI,S1)GI))GI)12))SI,S1)SI,S1)D2GI))) 34PI)QI)1SI,S1))SI,S1)GI)X9)))) HPI)100PI)100.5) R \S9,S1)D1 fS10,S1)Y1 p zBANK ;"DO YOU WISH TO VISIT THE LOCAL BANK :",A$\A$"Y"    D5),"YOU HAVE ",%$C12F0,B1,B1)100.5)100)," IN THE BANK" A5),"AND ",%$C12F0,T11,T1)100.5)100)," ONBOARD SHIP" B1,B1)0. .5),"HOW MUCH DO YOU WISH TO WITHDRAW ", )Z\ZB1,B1)"TOO MUCH..."\ Z0. +B1,B1)B1,B1)Z\T11,T1)T11,T1)Z\ -.5),"HOW MUCH DO YOU WISH TO DEPOSIT ", $8Z\Z0`\"TRY AGAIN..."\. `ZT11,T1)~ Fj"YOU HAVE ",%$C12F0,T11,T1)100.5)100)," ONBQARD SHIP"\. )~T11,T1)T11,T1)Z\B1,B1)B1,B1)Z   B1 B B1T1 I1S9P9 B1P9 B1B1P9    BANK 9B1,B1)B1,B1)1.05Y1B3,B1)D1B2,B1))360)) B2,B1)D1\B3,B1)Y1    X\X)XX0)P 525),"TYPE 0 (ZERO) IF YOU WANT TO PASS..."\ P Z d" HEY YOU... HU-MAN:"\ S7,S1)51,,, D$" I"\ D$" II"\ D$" III"\ D$" IV"\ S116\I1 ,^ 6I40)145) @J2S11 JIS8,J)6 T ^S8,S1)1 h r"FILE NAME :",A$\#0,A$ -|#0,T$,W,D9,K9,X9,D1,Y1,P9,T9,S9,Y9,T1,S1 J1S9\I194 )#0,SI,J),SI1,J),SI2,J),SI3,J) \ J1T9\I194 )#0,TI,J),TI1,J),TI2,J),TI3,J) \ I1P9 #0,B1,I),B2,I),B3,I)  #0  v   L115151 \L10z @fL$"1----1----1----1----1----*SOL-1----1----1----1----1 " p @zL$" " L1)3L1)3) L$26,26)"1"  L$26,26)"-" YL1103 Y0L11)103 S12S9 S12,S1)Y0S12,S1)Y X126S11,S1)2) L$X1,X1)"*" 'L$X11,X14)S$S8,S1),S8,S1)3)  I55261 L$I,I)" "  L$1,I)  $\  $ByAFDD9ADffcAyA #d AME BY T. WARSHAUER 21378 4 PROGRAM AME FILES IN NTHSTAR DOS DIRECRY 2, FILE "DIRECTRY" THE DIRECRY) MUST BE E 3  INITIALIZE STRING SPACE  23) 6X 14),"* RENAME - FILE RENAMING PROGRAM *"\\  A15),O$8),N$8),T$8)   O$" "  N$" "  T$" " L GET FILE  "DRIVE NUMBER? ",D$  "OLD FILE NAME? ",O$ x O$O$T$  "NEW FILE NAME? ",N$ @ N$N$T$  #0,"DIRECTRY,"D$ / START ING THRU DIRECRY FIND OLD FILE l I0 62 2 #0%I16,&A0),&A1),&A2),&A3),&A4),&A5) /4 #0,&A6),&A7),&A8),&A9),&A10),&A11) % #0,&A12),&A13),&A14),&A15)  A0))" " /` T$A0))A1))A2))A3))A4)) " T$T$A5))A6))A7)) ( O$T$ T  I # "FILE ",O$," NOT FOUND"\ h T "FILE FOUND" ! CVERT NEW FILE NAME II  J1  K0 7  AK)N$J,J)) H JJ1 AK),  K !t NOW NEW DIRECRY ENTRY 4 #0%I16,&A0),&A1),&A2),&A3),&A4),&A5), 1< #0,&A6),&A7),&A8),&A9),&A10),&A11), ' #0,&A12),&A13),&A14),&A15),  #0 h BeBBsBgBIB2B2BBEBABB2( A$63),H$16)\H$"0123456789ABCDEF" @" ADDS OR SUBTRACTS 2 #S IN HEX OR DEC. END HEX WITH 'H'." "'RETURN' EXITS PGM." ,(" INTEGERS BETWEEN + & - 65535 ONLY."\ -21":",A$\H0\N10\N20\LA$)\PL\P0 (<CA$P,P))\C48C57F\KP\P FC72\PP1\P0<\ 2PPP1\P0Z\CA$P,P))\C48C57ZP ZN1A$P1,K))\P0 (dCA$P,P))\C48C57n\MP\x -nC72\C45N1N1\PP1\P0d 2xPP1\P0\CA$P,P))\C48C57x N2A$P1,M))\P0 0CA$P,P))\C45N2N2\PP1\P0 \N1X\P0d \N2X\P0 +NN1N2\\" =",N0," = ",R$"H"\2 /NN1\H0\" = ",\H0R$"H"N\2 0N)NN)65535(\SN)\S0NN65536 *TN4096)\N0N\NN4096T\UN256) NN256U\VN16)\WN16V 8R$H$T1,T1)H$U1,U1)H$V1,V1)H$W1,W1)\ X0\Y1\H1 PP1\P0\CA$P,P)) C47C58C64C71\ )CC48\C9CC7\XXCY\Y16Y\ Y8Z