L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`$0 8 P# o ΅ڥυ e epݕ` 4LˎL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` ͏%ֈ`ʤZA^ܙ ݙ0  m7; xx ԅբ H 0  $ ( x$0  xx 0$FԨֹ)U h)װ H 듥֐ι L؆l`w0P`fLPεϵxϱHȱ΅hΈ` J  P` Y $0`  RE WERE ";TT;" DRAWS":::TZTYĺ:"I'M SORRY BUT THE TAXMAN GOT YOU"q4TYTZĺ:"YOU HAVE BEATEN THE TAXMAN"H20:19:"END":P0012:N$;" YOUR TOTAL IS ";Y::"THE TAXMAN HAS ";Z::"THE GAME IS A TIE ":TTTT1::"DO YOU WANT TO PLAY AGAIN ";N$;" ? ";:Z$:Z$"Y"1002000F34,0::6:N$;", YOU HAVE WON ";TY;" TIMES"::"THE TAXMAN HAS WON ";TZ;" TIMES"::"AND THE"SCORE":17:"-----"::::" YOU ";Y::" TAXMAN ";Z::::"CONGRATULATION - YOU WIN ";::" ";N$:TYTY1::"DO YOU WANT TO PLAY AGAIN ? ";:Z$:Z$"Y"Ĺ34,0::1002000.34,0::12:"DO YOU WANT TO PLAY AGAIN ? ";:Z$:Z$"Y"ė:100L20S ARE REMAINING, ";N$::"MY TOTAL IS ";Z:*:ZY900H9YZ1200>::17:"SCORE":17:"-----"::::"TAXMAN ";Z::" YOU ";Y::"THE TAXMAN WINS ":20:"DO YOU WANT TO PLAY AGAIN ? ";:Z$:TZTZ1:Z$"Y"Ĺ34,0::100z2000::17:------":15:"TAXMAN ";Z:15:" YOU ";Y:34,13:M0810\IN41:J2I2:L(J)0700qIJ(IJ)700:::270:::"THE ";A$;" GETS "::I1N:L(I)0780I;" ";:ZZI+ :34,0:::"":2:"BECAUSE NO FACTORS OF ANY NUMBEROUR TOTAL IS ";Y::"THE ";A$;" GETS ";::I1M:T(I);" ";:ZZT(I):0::"THE TAXMAN'S TOTAL IS ";Z:::"HIT SPACE BAR TO UPDATE THE LIST ";:Z$:34,0::3:"THE NEW LIST IS : ":::M0:I1N:L(I)0630bI;" ";:M19v:::"SCORE UPDATE --- ^K1390h:14:"THERE ARE NO FACTORS OF ";K:"FOR THE TAXMAN, ";N$::"ARE YOU TRYING TO SHORTCHANGE ME ?":D12000:::270M0:I1K2:L(I)0460KI(KI)460MM1:T(M)I:L(I)0:M0360EL(K)0:YYK::14:N$;", Y PLAY AGAIN , ";N$;" ?";:Z$:Z$"N"2000: 34,0::100B : 14:"WHAT NUMBER DO YOU TAKE ";N$;" ";:A$:K(A$):K(K)270 ,K11070 6KN340 @:16:N$;", ";;K;" IS NOT ON THE LIST":"PICK ANOTHER NUMBER":270 TL(K)0320zN1N50Ģ6:958:9:"NUMBERS BETWEEN 1 AND 50 ONLY":"OR A -1 TO EXIT GAME":110 |N(N)::3:N$", THE LIST IS :":::I1N:I;" ";:L(I)I::34,10::N1270) :::"VERY GENEROUS OF YOU TO FORFEIT TO THE TAXMAN, ";N$::20:"DO YOU WANT TOOF THE NUMBERS YOU AND THE TAXMAN GET. TO QUIT TYPE IN A -1":::"HIT THE SPACE BAR TO BEGIN, ";N$;" ";:Z$ (L(50),T(10): dY0:Z0:: n3:"TYPE IN HOW MANY NUMBERS YOU WOULD LIKE IN THE LIST (MAXIMUM 50)."::"? ";A$:N(A$):N12000V HE TAXMAN MUST GET SOMETHING EVERY TIME SO YOU CAN ONLY PICK A NUMBER THAT HAS FACTORS LEFT.":22:"HIT THE SPACE BAR TO CONTINUE ";:Z$p :3:"WHEN NONE OF THE REMAINING NUMBERS HAS ANY FACTORS, THE TAXMAN GETS THEM."::"THE SCORES ARE THE SUMS AL ORDER. (YOU CHOOSE HOW MANY WITH A MAXIMUM OF 50)" :"YOU TAKE A NUMBER FROM THE LIST - THE TAXMAN GETS ALL THE FACTORS OF YOUR NUMBER THAT ARE STILL LEFT."::"YOUR NUMBER AND ALL ITS FACTORS ARE THEN DELETED FROM THE LIST." :"T 34,0::A$"TAXMAN":B$"HI, I'M THE TAXMAN":3:20(B$)2:B$;""::"WHAT IS YOUR NAME ? ";N$:::" WOULD YOU LIKE INSTRUCTIONS (Y/N) ?";:Z$:Z$"Y"408 :2:14::"INSTRUCTIONS":::"WE WILL START WITH A LIST OF WHOLE NUM- BERS IN NUMERIC     ōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿ$:GRc*1DNSjwŠԿſΠԿſſԠӮӠþϠΠϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠł T`  `ѥ΅ ΅ҥυө 0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `O ɏ5OPLɏ Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ ` uHɃLh` L``F`$ ܪȱ Lܤ`Ś25 a0 LJLJKH۰hЅѠȱ0@ȱHШhh0J L赟0LՓ0ܤ } ɑL赟L0ܤ } ɑL ` ` [ S oP YVPL6 ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` ăL: i@ &N&O ϕLz JKLυML LMJυKLˎ qL ȩ` 6 6P`JLKMLxL L6 L[L JLKMMLILLILLLLy 2L,PQ܅x݅yLÈ آ8ЕNЕKʵ˕{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ă ărLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 䎴xPiڄeΕPeϕxPȵxڰL# N ONi)OO줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wLh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQĠ 5EMҠL Šō?FِLÈϚΠ ăκ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @G>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ăܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oW DELETIONS FROM/W THE CATAGORY TOTALS5W0JW1 APPLE T.A.R.T.^W2 SOFTWARE BANKeW3 vW4 ENTERED BYW5 WILLIAM DAVISW6 ANDW7 ELUISE MARVINW8W9 AUGUST 19,1979 FOR A BEDSIDE LAMP"=V "A CENTURY LATER THE NIGHT IS PAST"UV MORE OR DIFFERENTkV DATA STATEMENTSV MAY EASILY BEV ENTEREDV V THE DIMENSIONSV IN LINES 135-139V MUST BE CHANGEDV TO REFLECT ANYW ADDITIONS OR ENSE"4U "MY ATTENTION HAS RECENTLY BEEN FOCUSED"^U "GIRL LOCUSTS DON'T MAKE ANY NOISE"U "WHOSE FLAVOR REEKS OF RANCID BUTTER"U "FIVE STORIES TALL THIS MANTRAP STANDS"U "THEY PASS UNWARY THROUGH ITS PORTALS"V "YOU SEARCH IN VAIN +T "THEIR TOES AND YOURS ARE FAR APART"UT "YOUR WOOLLEN SOCKS CANNOT BE WORN"T "AND WHILE HIS SOCKS ARE HUNG TO DRY"T "AND YET THE IDIOTS KEEP ON LIVING"T "IN WOE AND PAIN THROUGH LIFE THEY GO"U "TO CONFIRM THROUGH SACRIFICE INT "LUCKY ARE THEY WHO RETAIN SOME FRIENDS"WS "THIS IS THE DAY THAT WON'T GET DARK"S "NEVER AGAIN SHALL WE GET TO BED"S "DUSK IS AN EXILE, NIGHT HAS FLED"S "MIDNIGHT LIES WITH THE BURIED CZARS"T "YOU BUY THEM THUS BECAUSE YOU THINK" "EXPERIENCE! IDIOTS DO NOT HEED IT!"OR "I'D TRADE MY LAKE OF EXPERIENCE"yR "FOR JUST ONE DROP OF COMMON SENSE"R "SHE STRUNG HIM UP ON THE NEAREST TREE"R "THE COATS DISPLAY NO WASPISH WAIST"R "TO SURVIVE A DAY OF MEDIUM LENGTH"+S'S LITTLE SUCKERS CHIRP LIKE BIRDS"NQg "WHILE SPENDING THEIR ALL ON LOSING"{Ql "PEOPLE WHOSE INSTINCTS INSTRUCT THEM"Qq "WILL NEVER LEARN BY SUFFERING ONCE"Qv "BUT EVER AND EVER PLAY THE DUNCE"Q{ "EXPERIENCE! WISE MEN DO NOT NEED IT!"'RDLY WAIT TO GET BACK AT THE FIRE"LPI "WHO SAYS THAT HE CAN DRINK OR NOT?"qPN "THE NATION BANKRUPT BY A WAR"PS "THINKS TO RECOUP WITH JUST ONE MORE"PX "THE WRETCHED GOLFER, DIVOT-BOUND"P] "PERSISTS IN DREAMS OF A PERFECT ROUND"#Qb "LIFE "EXPERIENCE IS A FUTILE TEACHER"IO+ "EXPERIENCE IS A PROSY PREACHER"oO0 "DEPEND, MY BOY, ON EXPERIENCE"O5 "MEN STAND IN LINE TO GAMBLE AGAIN"O: "FOR STERILE WEARIENCE AND DREARIENCE"O? "THE BURNT CHILD, URGED BY RANKLING IRE"!PD "HART IS HARROWING, BROWBEATING AND CRUEL"MN  "IS ANOTHER MAN'S REMINISCENCES"{N "DID YOU READ THIS RIGHTLY OR WRONGLY?"N "ORIGINS OF AMERICAN PLACE NAMES"N "EXPERIENCE IS A FRUIT TREE FRUITLESS"N! "EXPERIENCE IS A SHOE-TREE BOOTLESS""O& DRY OUTER COVERING OF FRUITS"MM "A COLLECTION OF WATERY FLUID IN A HOLE"sM "THE SLAIN NINE-HEADED SERPENT"M "ANY ONE OF A NUMBER OF THINGS"M "HE RECENTLY PUBLICLY APOLOGIZED FOR IT"M "A QUARTER-HORSE IS THREE-QUARTERS MULE"&N "I(L "THE BLOWFISH NIBBLE AT YOUR TOES"UL "ALL LADIES THINK THEY WEIGH TOO MUCH"yL "WHEN HIS FACE IS APOPLECTIC"L "BUT JOY IN HEAPING MEASURE COMES"L "WHOSE SOUPS ARE SOUNDLY PEPPERED"L "A SHIVER GOES RIPPLING UP MY BACK"M "THEPE"+K "AND I HOPE TO DO SO NEVER AGAIN"TK "BEING A FATHER IS QUITE A BOTHER"~K "AND THEN ONE MORN A CHILD IS BORN"K "THE FRIENDLY EMBERS WARMER GLEAM"K "MUTTERING SPELLS LIKE AN ANGRY DRUID"K "AND WHEN THEIR ORGY AT LAST ABATES"J "THEY SCATTER ADJECTIVES HITHER AND YON"\J "PRAISE THE SPELLS AND BLESS THE CHARMS"J "APRIL SOFT IN FLOWERED LANGUOR"J "AND OFTEN TRAMPLED ON HIS OWN SHADDER"J "GO SOAK YOUR HEAD IN BOILING ADS"K "I ROAM WHERE MAGIC CASEMENTS ODINING ROOM IN ALABAMA"DIw "I AM ABOUT TO VOLUNTEER A DEFINITION"sI| "SWANS HAVE CYGNETS, SEALS HAVE PUPPIES"I "BUT GUPPIES JUST HAVE LITTLE GUPPIES"I "A MAN WHO CAN'T SLEEP WITH THE WINDOW"I "AND IF YOU WANT TO NAME YOUR OWN RATION"-HT "RISE IN YOUR GOWN OF SHINING BLACK"KHY "AND IT ALSO BAGGED BEHIND"vH^ "HOW FAST HE GOES - HOW MANY WHEELS"Hc "HARK TO THE WHIMPER OF THE SEAGULL"Hh "OR ELSE THE OTHER WAY AROUND"Hm "I HOPE THAT IN MY ELDERING AGE"Ir "IN A HOTEL "THIS WAS MADE POSSIBLE BY A GRANT"SG; "THAT HAS BEEN MANKIND'S MAJOR QUESTION"~G@ "HE OPENED THE DOOR AND LED THE WAY"GE "THE STRANGE CASE OF THE MISSING DOVE"GJ "WITHDRAW, MY DEAR, WHILE YOU CAN"GO "GET UP, I TELL YOU, GIRL, GET UP!")D?"'F "A DIVERSE AND UNIQUE CORNER"NF "SUCH A VARIED EXPANSE OF SPACE"zF" "THE PACIFIC HAS WITHSTOOD EXPLORERS"F' "SUCH AN EXPANSE OF TIME AND DISTANCE"F, "DID PETER PIPER PICK A PECK OF APPLES?"F1 "WHERE IS HE? - I DON'T KNOW"$G6FALL".E "THE RIGHT IDEA AT THE WRONG TIME"\E "WHY DID THE CHICKEN CROSS THE TRACKS?"E "AND MAGGOTS CREEP ABOUT HER EVES"E  "HER HAIR LAY SILKEN AND SHINY BRIGHT"E "DENIED THEIR RIGHTS BY THE GOVERNMENT"F "HOW CAN IT LAST UNSPOILE+D "NO MAN SHALL MARK THE DAY SHE DIES"UD "WHO GROANS BENEATH THE PUNIC DIRT"D "AND STRANGLES IN A STRING OF CURSES"D "HER LIVING MOUTH SHALL SPEAK NO TRUTH"D "AND MAGGOTS CRAWL ABOUT HER EYES"E "HIS RIGHTOUSNESS CAUSED HIS DOWN"THE STYLE WAS SO PECULIARLY MY OWN"OC "WHO GROANS BENEATH THE PUNIC CURSE"}C "AND STRANGLES IN THE STRINGS OF PURSE"C "BEFORE SHE MENDS MUST SICKEN WORSE"C "HER LIVING MOUTH WILL BREED BLUE FLIES"D "AND MAGGOTS CREEP ABOUT HER EYES"CCESS" BB EXPERTBNB "I THOUGHT THAT THAT MOVIE WAS TERRIBLE"}B "THE SUBJECT OF EVERY VARIETY OF MISERY"B "BOTH ARE EXAGGERATED BY POSTERITY"B "THE MOST PRECARIOUS HEARSAYS"B "I MEAN AN EXTREMELY REMOTE POSTERITY"$C ANY FOOD LEFT FOR ME?"7A "THEY MUST HAVE MORE ROOM"[A "THE CHILDREN HAVE MANY PETS"{A "THE PHONE KEEPS RINGING"A "ELEPHANTS DO NOT FEAR MICE"A "HE HAS 3 NIGHT CLASSES"A  "THE SAND WAS PURE AND WHITE"B "THEIR VACATION WAS A SUSHE HAD AN OPERATION RECENTLY"@@ "THE WEDDING WAS POSTPONED"c@ "BLUE IS THE FAVORITE COLOR"@ "THE WEDDING WAS CALLED OFF"@ "HOW MUCH FARM LAND IS LEFT?"@ "POLLUTION CONTROL IS DIFFICULT"@ "A TORNADO TOUCHED DOWN HERE"A "IS "I DIDN'T GET THE RIGHT CHANGE"G? "WHICH ISLAND WILL YOU VISIT?"j? "WHEN WILL IT STOP RAINING?"? "SOME BIRDS MIGRATE EACH YEAR"? "SHE HAD LOTS OF SHOPPING TO DO"? "STARS COME OUT AT NIGHT"? "THE WATERS ARE CALM AGAIN"@ "OR ME"%> "CAN YOU FIND MY WATCH?"H> "SHE WAS A POOR HOUSEKEEPER"l> "LIONS ARE VERY LAZY ANIMALS"> "THE LABEL FELL OFF THE CAN"> "CAN SHE FIND MY WATCH?"> "THEY GOT A BAD SUNBURN TODAY"> "THE MUSEUM WAS ROBBED LAST NIGHT""?ING RIGHT"3=a "THERE IS SNOW ON THE MOUNTAINTOP"R=f "WE HAVE TO GO HOME NOW"v=k "THE WOOD HAS TERMITES IN IT"=p "THIS DOLL WILL BREAK EASILY"=u "HE HAS TO WEAR GLASSES NOW"=z "HE MUST DO HIS HOMEWORK NOW"> "THE WATER IS TOO COLD FE TO TRY?",<> "WE HAVE 2 CATS AND 5 FISH"R6l "THEY HAVE TOO MANY PETS"_6q "WHY DON'T YOU WAIT HERE?"6v "LONG DISTANCE PHONE CALLS"6{ "HOW MANY OF THESE DO YOU HAVE?"6 "ISN'T THIS SEASONING TOO HOT?"6 "MY FAVORITE SHOWS ON TV"7 "WHEN DO YO%5D "I THINK THE INVOICE IS WRONG"J5I "DOES YOUR TV SET STILL WORK?"p5N "HAVE YOU LEARNED SPANISH YET?"5S "THERE'S A HAUNTED HOUSE THERE"5X "HAS YOUR LETTER BEEN RECEIVED?"5] "THE LITTLE GIRL WAS PRETTY"5b "A NIGHT AT THE THEATRE" "WHERE DID YOU PUT THE BOOK?"D4& "THAT STORY WAS VERY AMUSING"n4+ "THIS IS A SET OF VALUABLE CRYSTAL"40 "HE MAKES JEWELRY OF CORAL"45 "ALL THE WALLS WERE PAINTED"4: "SHE CROCHETS AFGHANS ALL DAY"5? "HAS THE SHIPMENT OF PAPER COME?" "SELF-LOVE AND THE LOVE OF GOD"I3 "A REASON TO ABSTAIN FROM TRYING"l3 "MY PLANE LEAVES ANY MINUTE"3 "MY TRAIN IS OVER AN HOUR LATE"3 "WHY DID THE MAILMAN COME LATE?"3 "IT'S TOO LATE TO GO NOW"3 "WHY NOT STAY OVER TONIGHT?" 4! FATHER?"12 "I DON'T UNDERSTAND WHAT HE SAID"W2 "IT WAS A FULL MOON LAST NIGHT"}2 "WHAT ARE WE HAVING FOR LUNCH?"2 "THE ONLY SATISFACTORY ANSWER"2 "LEARNING DEMANDS PRACTICE AND CONCERN"2 "SO SURROUNDED BY FALSE CONCEPTIONS"!3 1 ADVANCED1 71 "DID YOU ENJOY SCHOOL TODAY?"X1 "I HAD A MAGNIFICENT TIME"z1 "REMEMBER TO BUY SOME MILK"1 "LET'S GO OUT FOR A BEER"1 "IT REALLY WAS A GREAT SHOW"1 "I CAN'T FIND MY BLACK SOCKS" 2 "WHY DID GEORGE KILL HIS0 "SHE HAD TWO DOGS"50 "JOHN TAKES MARY OUT"N0 "A FURNITURE SALE"j0 "SHE LOST HER GLOVES"0 "THE CLOCK STRIKES 5"0 "DO MICE LIKE CHEESE?"0 "SHE WAS DAY-DREAMING"0# "THE CLOCK STRIKES 2"0( "TRIMMED WITH SILVER"0 FRAME IS CRACKED"./ "NATIVES SELL CRAFTS"H/ "THE EDGE OF SPACE"_/ "FILLED THE SKY"x/ "A VERY OLD STORY"/ "FLEETS OF WAR SHIPS"/ "A VERY OLD MANSION"/ "A DOG'S RED COLLAR"/ "CAN YOU SEE THEM?"0 "THREE SHADES OF RED" "THE DOOR IS OPEN"-. "MARY EARNS MONEY"C. "SINGING ALONG"]. "TEACH LITTLE KIDS"w. "THE BRIDGE IS OUT". "SIGNS OF SPRING". "THE LIGHT IS BRIGHT". "HOLIDAY MEALS". "MAGAZINES TO READ". "SHE HAD 5 KITTENS"/ "THEMALL WOODEN BOX"+-o "BILL TAKES LESSONS"F-t "CHILDREN IN SCHOOL"a-y "JIM LEARNS DANCING"{-~ "WELL-DRESSED LADY"- "COURTROOM BATTLE"- "TOO MANY CHILDREN"- "RIBBONS WITH LACE"- "FENCE BY THE ROAD"- "LETTERS TO WRITE". "A SHOTGUN WEDDING"+,= "FOUR YARDS LONG"E,B "JIM CARRIES ROCKS"^,G "LEARNING TO SWIM"x,L "THE NIGHT IS DARK",Q "JANE RIDES TO WORK",V "TOO MANY CHAIRS",[ "HORSES TO RIDE",` "TIED UP WITH STRING",e "UP THE STAIRCASE"-j "S"FAMOUS ARTISTS GROUP"2+ "A HEAVY WINTER COAT"J+ "HORSES FOR SALE"b+ "WASH THE DISHES"|+ "WALK IN THE WOODS"+ "THE LION PACES"+$ "THE FIRE CRACKLES"+) "THE LATEST STYLE"+. "EMPTY PACKING BOXES"+3 "RAINBOW COLORS",8 SHION"#* "JOHN AND JANE TRAVEL">* "BILL WEARS GLASSES"Z* "JANE TYPES A LETTER"u* "THE HOLIDAY SEASON"* "AN INSECT BITE"* "ICE CREAM IS COLD"* "UNDER THE ROOFTOPS"* "A FLOCK OF PIGEONS"* "A BALANCED CHECKBOOK"+ N THE RAIN"() "HEAVY TELEPHONE BOOK"E) "THE PHONE IS RINGING"a) "SHE SPILLED PERFUME"z) "A FLOCK OF SHEEP") "TINY SPECKS OF PAINT") "THE ENGLISH TEACHER") "HE MAILS THE LETTERS") "JANE FEEDS THE CAT"* "THE LATEST FA "A BOTTLE OF PERFUME"4( "THE PAINTING IS GOOD"L( "LET THE CAT OUT"h( "ANIMALS IN THE WILD"( "A MUSEUM EXHIBIT"( "MARY VISITS A FRIEND"( "LOOK UNDER THE BED"( "LIVE LONG AND WELL"( "WINE AND CHEESE PARTY" ) "RIDE IINT IS DRY"$'M "THE MEAL IS OVER">'R "SOFT AS A FEATHER"\'W "THE LAMPSHADE IS BENT"u'\ "THE MAIL IS LATE"'a "COLOR TELEVISION SHOW"'f "BABY TAKES A NAP"'k "SATURDAY AT THE PARK"'p "WRITE HIM A NOTE"'u "MARY VISITS JANE"(zTHE DOG HAS FLEAS".&  "I CAN READ QUICKLY"L&% "JOHN READS MAGAZINES"h&* "THE PAGE IS BLURRED"&/ "JANE COOKS DINNER"&4 "HE'S TIRED AFTER WORK"&9 "THE ASHTRAY IS FULL"&> "LOOK AT THE MOUSE"&C "ANIMALS IN THE ZOO" 'H "THE PA WATER IS COLD"+% "LOOK IN THE CLOSET"I% "TRAFFIC IS HEAVY NOW"f% "THE STORE IS CLOSED"% "BILL READ THE BOOK"% "BILL LEADS THE BAND"%  "AN IMPRESSIVE BUILDING"% "HIS CUP IS EMPTY"% "LOOK FOR THE RAINBOW"& "AY"$ "BOB GOT A RIDE"3$ "VERY GOOD ADVICE"K$ "BOB KILLED MARY"Q$d$ INTERMEDIATEj$$ "WE ATE DINNER LATE"$ "WE HATED HER DINNER"$ "SHE LOVED HIS SUIT"$ "LET'S GO HOME EARLY"$ "HERE COMES THE DOG"% "THE "COME DOWN HERE"'#| "HE WAS ABUSED"=# "COME UPSTAIRS"T# "SHE HAD ACCESS"i# "ANN WAS DEAD"# "SHE HAD SUCCESS"# "ANNE WAS PRETTY"# "IT IS MAY"# "JOHN KNEW MARY"# "IT IS MY OWN"# "JILL KISSED JACK"$ "ON HIS W "ABANDON SHIP"'"E "JILL IS PRETTY"@"J "ABANDON ALL HOPE"U"O "JILL IS PINK"k"T "IT WAS ABLAZE""Y "ANN CAME HOME""^ "THEY WENT ABOARD""c "VERY POOR ADVICE""h "THEY WENT ABROAD""m "ANNE CAME HOME""r "HE WAS ABUSIVE"#wES"!  "UP THE HILL".! "A TASTY ORANGE"B! "TO THE MILL"\! "HIS YELLOW STREAK"s! "JOHN FELL DOWN"!" "MONEY IS GREEN"!' "BILL CAME LATE"!, "I AM BLUE"!1 "MARY WAS LATE"!6 "SHE SPOKE QUICKLY"!; "MARY HAD A DATE""@ AGAIN"  "THE GREEN GRASS"7  "HE WALKED SOUTH"L  "THE BLUE SKY"d  "HE WALKED NORTH"{  "THE WHITE SNOW"  "I LOST TRACK"  "DEEP BLACK NIGHT"  "I LOST MY WAY"  "THE BROWN DIRT"  "A GOOD ORANGE"! "HOT RED FLAM "A WHITE SWEATER"' "A YOUNG PONY"< "A BLACK CROW"O "IT IS JUST"d "MY BROWN COW"{ "IT WAS JUSTICE" "HER RED SCARF" "HE WALKED AWAY" "OUR ORANGE RUG" "HE TRIED TO WALK" "A YELLOW SKIRT"  "HE WALKED FAMILY"_ "GO DOWNTOWN"4d "HIS RIGHT WRIST"Ii "TRY IT AGAIN"^n "HER LEFT ARM"ts "TRY IT MY WAY"x "YOUR RIGHT HAND"} "HIS RING FINGER" "MY LEFT LEG" "HER LIMP DRESS" "HE WAS CRUEL" "A DULL SUMMER" ONCE"# "IN THEIR WAY"/( "AT MY WATCH"D- "ON THEIR WAY"Z2 "HE WAS HUNGRY"o7 "BEGIN AT ONE"< "SHE IS TIRED"A "AT MY WALLS"F "THE FOOTBALL GAME"K "HE WAS HARRIED"P "I AM FINE"U "I AM FIRST"Z "YOUR WHOLE" "ONE YEAR TO GO"+ "ON THE WAY"C "DO YOU KNOW HIM"V "I KNOW YOU"k "SIX RAW EGGS" "AN OLD LADY" "SIX RED HENS"  "A PURPLE FINCH" "SIXTEEN YEARS" "THE TENNIS MATCH" "SIXTEEN ACRES" "BEGIN AT"I KNOW THEM"" "A RED TURTLE"7 "A YOUNG GIRL"O "HIS BACK POCKET"h "HER TENNIS DRESS"} "ONE YEAR AGO" "TEN YEARS YOUNGER" "LAST MONTH" "HIS BACK ACHES" "A YELLOW TIE" "ONE YEAR BEFORE" "OF HIS HAT "DURING THE DAY&t "AT THE TIME"<y "NOT THIS TIME"Q~ "IN THE HOUSE"h "TEN DAYS OLDER" "TEN YEARS OLDER" "GO WITH HER" "EXCUSE ME" "COME WITH US" "COME WITH ME" "GO WITH HIM" "THE LAST DAY"  999","6606","3555";8 "7447","2233","8000","4568","3883"k= "60415","436759","10390","91321","19234"B "78132","01654","12065","46751","9183G "98456","46753","98546","89545","38954"LV BEGINNING DATA`j "IN THE NIGHT"o88888","999999","555555"A "5647","5712","8381","9821","7547"n  "76544","8574","87234","36535","26543"$ "8465","8769","9062","2116","8790") "6546","8423","1011","1023","1017". "1019","9909","9969","9960","9099"3 "9009","9999","6"/ "13579","97531","24680","08642","75756"Z "8417","6521","33225","9384","1430" "11111","22222","33333","44444","55555" "47653","89456","46757","49855","75652" "66666","77777","88888","99999","00000" "111111","444444","8675","76407","62345","4675"I "12345","23456","34567","45678","56789"w "01256","02375","01235","87965","34675" "67890","78901","89012","90123","01234" "09876","98765","87654","76543","65432" "54321","43210","32109","21098","109876:10,"--------------------"810:10T"--------------------"Z`s PROGRAM DATAy WARM UP DATA "67354","23655","84561","48796","74865" "63045","7698","87256","14346","6532" "28566","37N KEY TO CONTINUE";#5I1750:I+6C$48950D:I1750:IM<420V?490\} INITIAL TIME DETERMINATIONSP1SP600SP2SP500SP3SP400SP4SP300SP5SP200  SET UP SCREENED MORE PRACTICE."N/SCST6SCST4ĺ"YOU SHOULD TRY SOMETHING EASIER."0SCST4ĺ"THAT WAS WAY BEYOND YOU. WHY NOT TRY SOMETHING A LOT EASIER."1::"DO YOU WANT TO TRY AGAIN? ";2TR$:(TR$,1)"Y"30034::"TYPE THE RETUR$'(ST$,1)"Y"553 (5647)SC((10RAT)ST)T*::"YOUR SCORE IS ";SCZ+,SCST10ĺ"THAT'S PERFECT. TRY SOMETHING HARDER NEXT TIME!"-SCST10SCST8ĺ"THAT'S VERY GOOD!".SCST8SCST6ĺ"YOU DID ALL RIGHT. BUT YOU NEA SLIGHTLY SHORTER LENGTH OF TIME":SPSP10:RARA1KSP20SP20W!TT1:":"YOU HAVE GOTTEN ";RA;" CORRECT OUT OF ";T;"."#T10T20T30T40T50549$564%I120:SOUND(S)(S)(S):I&::"DO YOU WANT TO STOP? ";ST 5  "WHAT WAS IT?"*:A$2:AA$P$540["THAT'S NOT RIGHT":"IT WAS ",P$::"THE NEXT ONE WILL BE DISPLAYED FOR A LITTLE LONGER"SPSP10545:"THAT'S RIGHT"%:"THE NEXT ONE WILL BE DISPLAYED FOR 8)PP$(7):PP$(7)PP$(6):PP$(6)PP$(5)kPP$(5)PP$(4):PP$(4)PP$(3):PP$(3)PP$(2):PP$(2)PP$(1):PP$(1)P$qw BASIC PROCEDURE900950420I1750:I8:(20((P$)2))SP0SP0P$I0SPI1)):P$I$(P)X110+P$PP$(X)4357X:450EPL4444`P(AD(1)):P$AD$(P)lX110P$PP$(X)440X:450PL5450P(EX(1)):P$EX$(P)X110P$PP$(X)445X%PP$(10)PP$(9):PP$(9)PP$(8):PP$( STPLSP 470 .  SELECT PHRASE4 B PL1429a PL1P(W(1)):P$W$(P)m X110 P$PP$(X)425 X:450 PL2434 PL2P(B(1)):P$B$(P) X110 P$PP$(X)430 X:450 PL3439 P(IN(:"1. WARM-UP 1. VERY SLOW"M "2. BEGINNER 2. SLOW"u "3. INTERMEDIATE 3. MEDIUM" "4. ADVANCED 4. FAST" "5. EXPERT 5. VERY FAST"  "PHRASE LENGTH ";PL "DISPLAY SPEED ";SP Y:"A PHRASE WILL BE DISPLAYED FOR A SHORT"Y ^"PERIOD OF TIME, AND YOU WILL TRY TO"i c"READ IT." h:"TYPE WHAT YOU SEE AND YOU WILL BE TOLD" m"IF YOU WERE RIGHT." r:"YOU HAVE A CHOICE OF PHRASE LENGTHS" w"AND DISPLAY TIMES."' |X X1IN I$(X)" X. X1AD: AD$(X)A XM X1EXY EX$(X)` "Xg , z - INTRODUCTION . 6 J"THIS PROGRAM IS DESIGNED TO IMPROVE" O"YOUR READING HABITS, AND AT THE" T"SAME TIME, YOUR READING SPEED.".936 12 14( ("SPEED READING"8 2I1750:I> nS x INITIALIZATIONY c W120m B120x IN120 AD120 EX120 W$(W) B$(B) I$(IN) AD$(AD) EX$(EX) X1W W$(X) X X1B B$(X) O SPEED READING0 BY ELUISE MARVIN H AND WILLIAM DAVISZ AUGUST 1979`f THIS PROGRAM MAY BE  COPIED AND GIVEN AWAY BUT MAY NOT BE USED FOR ANY COMMERCIAL PURPOSES.  S16336                                (16)16!7,136-(6,217:26,2113G<13,217TF7,1321aP19,266nZ6,2123|d18,2221n18,21x10 `饠êŦƥ堠ѥԀհť՞ŠÊĨȘƸ+QQàҠ蟠ՙ蠌â蠹鰠ѠMŠ𻩠éȰ堤ȠzȥŃ蠠栠Ϡ砠Ū𠠺蠉ʱ̠ŲŅӬƠŠ蠠ƠϠ堠𠁠Ʌ΁ӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠ٠ӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠ӍԍĠΠ͠ԠŠҠƠŠǠӍӠ٠٠ϠŠčӠōHLY PAYMENT (PMT) = $ ";I(PMT)Ep0"SUM OF PAYMENTS = $ ";I(NPMT)K0Q0N1"ENTER ANNUAL INTEREST RATE (PERCENT)";:IIK II0II100ĺ"";:4100Z hIIII1200` v . PRINT OUT STUFF| . /"PRESENT VALUE (PV) = $ ";I(PV) D/"ANNUAL INTEREST RATE = ";II1200;" %" /"NUMBER OF PAYMENTS (N) = ";I(N) 0"MONT GET PV+ L"ENTER PRINCIPLE (PV)";:PVB VPV0ĺ"";:1100H T  GET N| 4"ENTER NUMBER OF PAYMENTS (N)";:N >N0ĺ"";:2100  GET PMT  "ENTER PAYMENT (PMT)";:PMT & PMT0ĺ"";:3100  GET INTEREST RATE. MULATED INTEREST PAID BY":"PAYMENTS ";C;" THRU ";K;" = $ ";I(ICK)L 820U 500[ % *"FOR REMAINING BALANCE AFTER PAYMENT K,":"ENTER K";:K 4PK(PMTII)(1(1II)(KN)) >"REMAINING PRINCIPLE":"AFTER PAYMENT ";K;" = $ ";I(PK) p X4000:1000:30005 bN(((1IIPVPMT))(1II))E l12000:100N 500 "FOR ACCUMULATED INTEREST PAID BY":"PAYMENTS C THRU K, ENTER C,K";:C,K CKĺ"";:710  JC1 ICKPMT(KJ((1II)(KN))II(1(1II)(JK)))C "ACCU" "CHOOSE DESIRED UNKNOWN:";:AZ A1A5ĺ"ONLY TYPE A NUMBER BETWEEN 1 AND 5":200u ,A400,500,600,700,800 112000 6100 4000:2000:3000 PVPMT((1(1II)N)II)  4000:1000:2000 PMTPV(II(1(1II)N))  S 939: CLEAR SCREEN5I(X)(X100.5)100`"DIRECT REDUCTION LOAN CALCULATIONS."d:"1 PRESENT VALUE (PV)":"2 PAYMENT (PMT)":"3 NUMBER OF PAYMENTS (N)"f"4 ACCUMULATED INTEREST (I(C-K))":"5 REMAINING BALANCE (PV(K))"n   67,136&(6,217326,2113@<13,217MF7,1321ZP19,266gZ6,2123ud18,2221n18,21x  GXB2:PP3n3:IGX10GX102:I,P10GX,P:J1(1)55:KK(16336)::16336,0::I12500::1023200 e(XB2)3210+ iX3X276115 l0:I125:BXX3(1)6:BYYY(BX)(1)3:BX,BY:K(16336):16336,0::IX3X3:YY(I)YY(I)3: sP1P1:P19955 x24:25);:"ANG,BG?";AN,BG:BGBG10:ANAN180:PP3:PYP5:56GXB1:PP2:220I0- =II.1:XBGI(ANPI):P199XXB1U ?K(16336):16336,0:P199XB2X AYBGI(ANPI)16I2:XXWINDI2:P199YBGI((ANPI))16I2 D0:PX,PY:X3X276PY0115 FYY(X)PY100 H3:X,PY:PXX:PYPY:61 d(XB1),P2B13,P25:B13,P25:B13,P2:B13,P25:B13,P2B13,P25:2:B23,P3B23,P35:B23,P35:B23,P3:B23,P35:B23,P3B23,P35:P199120 724:"ANG,BG?";AN,BG:BGBG10 8P199PXB1 9PP2:P199PXB2 ;21:17)"WIND:";(WIND)::I113152:HX(((I112)4.5180)PI)HG:YY(I)HXP:I,HXPI,159::WIND((1)10):(1)10050WINDWIND /3:112,10152,10:WIND0ē112,10125,5 121:17)"WIND:";(WIND):WIND0ē152,10139,5 3B1(1)20505WIND:B2(1)20200WIND5:B13HERE (CR)= CARRIAGE RETURN":24:12)"*** STAND BY ***";:I110000::YY(280):P199:PI3.141592654180 :936:P1P1:1:P(1)20139:P2(1)20139:P3(1)20139:I1140:I,P2I,159:YY(I)P2:l I140279:I,P3I,159:YY(I)P3::HG(1)5025o:936:5:7)"*** ARTILLERY SIMULATOR ***":12:"YOUR MISSION IS TO BLOW UP THE OTHER ":"GUY BEFORE HE DOES THE SAME TO YOU."::"YOU INPUT THE DATA IN THIS FORMAT:"::"ANGLE TO FIRE, (COMMA) NO# BAGS POWDER"j :"EXAMPLE: 45,8.6 (CR)"::"W   10,27 11,28! 12,29, 13,307 14,31B 15,32N 3,616[ 17,203e 21,4o 22,5y 23,6 7,1724 18,2223 23,2522 21,26 20,27 19,28 18,29 17,30 16,31   1510,239)(9,13237210,1315E<14,1716SF18,2117aP22,2318oZ18,2119}d14,1720n10,1321x115,73,61410,1339,48,57,67,17618,22723,258 9,26 S RESUMED.":E(2)11505.Q3Q1505"STRIKE SETTLED. NORMAL PRODUCTION RESUMED.":"NEW VARIABLE COST=$";U;"/UNIT, DUE TO INCREASED WAGE"::E(2)0:::"COMPANY ";1;" HAS BEEN THE VICTIM OF EMBEZZLEMENT BY THE"S. NEGOTIATIONS HAVE BEEN STARTED, BUT HOPE OF ":"A SETTLEMENT LOOKS DIM."::`E(1)11450qQQ121450E(1)2:"THE WAGE-PRICE FREEZE HAS ENDED.":E(2)11475Q2Q1475 E(5)0:"TRANSPORTATION STRIKE SETTLED. NORMAL DELIVERIEE UNITS."::_"A TRANSPORTATION STRIKE HAS OCCURED, AND YOU ARE UNABLE TO":"MOVE YOUR GOODS TO THE DISTRIBUTORS. NEGOTIATIONS HAVE":"BEGUN, BUT HOPE OF A SETTLEMENT LOOKS DIM."::Nx"THERE HAS BEEN A STRIKE AND YOUR PRODUCTION HAS BEEN":"HALTEDLEMENT BY THE":"VICE-PRESIDENT OF THE COMPANY. YOU CASH ON HAND IS NOW $";C(I):: F"COMPANY ";J;" HAS SUFFERED FIRE DAMAGE IN ITS WAREHOUSE":"ALL UNITS WERE DESTROYED. YOUR INSURANCE WILL REINBURSE YOU":"IN THE AMOUNT OF $";(UI(J).75);" FOR THESCT -VARIABLE PRODUCTION COST NOW=$";U;"/UNIT":1425"THE PRESIDENT HAS JUST IMPOSED A WAGE-PRICE FREEZE ON THE ECONOMY,":"AND YOU MAY NOT RAISE THE PRICE OF YOUR PRODUCT OVER THE NEXT 2 QUARTERS."::S-"COMPANY ";I;" HAS BEEN THE VICTIM OF EMBEZZQ:1080E(1)11230+QW421230FW4Q:1375:E(5)1:Q2Qb((Q1)4)4Q11425pQ11425E(1)11425(1).251280Q612801400:E(2)1:U(U(1.1.1(1))):Q3Q:14253U(U(1.05.1(1))):"NEW LABOR CONTRA=1230BE(1)010704G1300:E(1)1:Q10:1070T[I((1)1.5):QW221075eeC(I)01075xjC(I)2001145oC(I).75C(I):1150yC(I)C(I)200~1325:W2Q:1075J((1)1.5):QW3210601350:C(J)C(J)UI(J).75:I(J)0:W32)1015M2:1020M1FG4(P(3M)P(M))P(3M):G4G11055VG4G21040` G4G2G5D(3M)((G4G1)(G2G1))G3:D(3M)D(3M)G5:D(M)D(M)G5$Q61230)(1).11090.(1).111153(1).111658(1).11200);UI(J)C(J):: 50: 2: .001: .05: 5000,5000: 100,100i 250: 20: .05: .2,.4,.4: 12000: 1.57);"**********************************":"COMPANY ";J;" YOU HAVE GONE BANKRUPCY.":7);"**********************************":P417:P(1)P()0:8553MV(1)A(1)A2:V(2)A(2)A2:V(2)A(2)A2PWD1(K2K2(KA2))K4:Xa:k"QUARTER ";Q::" MARKET CASH NUMBER ASSETS":"PROFIT SHARE ON HAND SOLD INVENT.":;UI(J)C(J)B(J);8);W(J);14);C(J);21);T(J);26);I(J);35FL(J)UA(J):E(2)1760-I(J)I(J)L(J)P"UNIT PRICE=$";A:E(1)1800aAP(J)800 :PRITN"YOU MAY NOT RAISE PRICES DURING THE WAGE-PRICE FREEZE."::760 P(J)A:A200760*P(J)0760/J:A2A(1)A(2):A20845>V(1)0:V(2WANT TO PLAY AGAIN (Y/N) ";H$:H$"N"6706::135<h:J12:::"COMPANY ";J:E(2)1715"NO PRODUCTION POSSIBLE DUE TO STRIKE. ":730"PRODUCTION LEVEL ";L(J):L(J)0715"ADVERTISING REVENUE ";A(J):A(J)0730C(J)C(J)B(J)05805:975:(DB(J)M1620GIB(J)C(3J)UI(3J)620NP417::14);"***************************":"COMPANY ";J;" YOU HAVE REACHED ".001M1;" MILLION AND WON.":14);"***************************":lJ::P417410){:"DO YOU )I(J)T(J)(T(J)):C(J)C(J)T(J)P(J):I(J)I(J)T(J):J:J12:C(J)C(J)RI(J)UK3C(J)((C(J)))(C(J)2)2:C(J)(C(J)):E(2)0530W(J)0:540T(1)T(2)0520W(J)(10000T(J)(T(1)T(2)))100 J:J12:900:B(J)C(J)UI(J):OLLARS BELOW ARE IN THOUSANDS "::J12:E(J)0:Ju hP40:875:J12:W(J)0:D(J)0:T(J)0:B(J)UI(J)C(J):900:J QC1:1060:675:865:J12:D(J)(1E(2)).5(K22V(J)D1)(P(J)50)N:J:1000 J12:D(J)I(J)475 T(J)D(J):480T(JTION COST=$";U;"/UNIT.":"WITH NO ADVERTISING AND SELLING PRICE OF $50/UNIT " ""A COMPANY WILL SELL ";K2500;" UNITS (PRINTED AS ";K22;")":"WAREHOUSE CHARGE FOR INVENTORY ="R100;"%":"INTEREST CHARGE ON BORROWED MONEY =";K3100;"%"2 #"UNITS AND DING?(B/C)";A$::A$"B"270 J12:"COMPANY ";J;" ENTER PREVIOUS CASH ON HAND, PREVIOUS INVENTORY ";:C(J),I(J)::J:"ENTER VARIABLE PRODUCTION COST ";U:"ENTER QUARTER NUMBER ";QM :"FIXED PRODUCTION COST=$";F1000;"/ QUARTER.":"VARIABLE PRODUCATED BY BRAND ADVERTISING. THE QUANTITY EACH COMPANY SELLS IS DEPENDENT UPON PRICE AND ADVERTISING" "BUDGET. THIS PROGRAM ENDS WHEN ONE COMPANY GOES BANKRUPT OR REACHES ":.001M1;" MILLION":: "ARE YOU BEGINNING THE GAME OR CONTINU2),V(2),W(2),B(2),E(2) "DO YOU WANT INSTRUCTION?(Y/N)";H$:K2,N,K,K3,C(1),C(2),I(1),I(2),F,U,R,G1,G2,G3,M1,K4:Q0:W20:W40:W30:H$"N"200k I15:"":I:"MARKET SIMULATES THE COMPETITION BETWEEN COMPANIES SELLING A PRODUCT DIFFERENTIw 936:S16336::X118:Y1X:SOUND(S)(S)(S)(S):(X3):Y:"KUNIHIRO TANAKA":Y,X:X1811:Y18X1 SOUND(S)(S):(X3):Y:"ROSEMARY TANAKA":Y,X::936:I15:(135):I:R(X).01(100X.5):C(2),I(2),T(2),A(2),L(2),D(2),P(            )I,Y(1)I) R2NP:X(R)I,Y(R)I:R0 37 I= , ERTICAL FACTOR% xX(1)2I,Y(1)2I1 R2NPI X(R)2I,Y(R)2IP R AN ENTRY S LOOP IS USED TO HOLD THE FIGURE ON THE SCREEN FOR A SMALL AMOUNT OF TIME. S1 ACCERELATES THE MOTION158 S1=S1+15 S1S115 SS1450:S 0 X(1?  NP5X(NP),Y(NP)'I1NP6(X(I),Y(I)=2I[< 0,0,60,0,60,60,0,60,0,0aFhZ3d THIS EXAMPLE MOVESA FIGURE FROMTOP LEFT TO BOTTOM RIGHT SCRE EN.nI150 s I IS USED AS THE HORIZONTIAL TRASLATION FACTOR AND I AS THE V ::"END OF PROGRAM"& 6 I13000:< C 5g "YOU ATTEMPTED ";N;" PROBLEMS" "YOU HAD ";R;" PROBLEMS RIGHT" "YOU MISSED ";NR;" PROBLEMS" :"YOU GRADE IS ";(RN100.5);" %" C * (";B;" + ";C;") =";:X Fe PXA(BC)ĺ"CONGRATULATIONS! YOUR ANSWER IS CORRECT!":RR1:120 Z"WHOOPS---THAT'S NOT RIGHTT!" d"THE ANSWER IS ";A(BC) e"SINCE (";B;" + ";C;") = ";BC fA;" * ";BC;" = ";A(BC) xKK1 KN405:5; "DRILL ON CALCULATING A*(B+C)"A K ::q"HOW MANY PROBLEMS DO YOU WISH";xNK0 R0(:-"TYPE IN 3 NUMBERS A, B, C."0" EXAMPLE: 3,6,2"2A,B,C<:"WHAT IS THE VALUE OF" AA;"     ESS SPACE TO CONTINUE, ESC TO END...";J5ZFIN$:IN$" "(IN$)2718010_5dF(IN$)2731111e5nF5yI12000:::10:"WOULD YOU LIKE TO PLAY AGAIN ";5yIN$:IN$"Y"1505y(994)(1001)192Č9765y:::15,54:13946,96:13947,0:4?+4hBSC5ıa4iB10:7,929:30,319:9,1432:33,3414:14,25354mB5,88:9,8:8,1310:11,13:13,17124rBRPT154|B138244B7:138274B138244B9:138274BRPT4B138244B5:138274B&5PF24:" PR173:13923,162:}3>13924,48:13925,133:13926,36:13927,173:13928,163:13929,54:13930,133:13931,37:13932,165:13933,48:3>13934,41:13935,15:13936,141:13937,164:13938,54:13939,165:13940,48:13941,41:13942,240:13943,141:4>13944,165:139499,161:13900,54:13901,145:13902,40:13903,200:2>13904,192:13905,40:13906,144:13907,213:13908,160:13909,0:13910,104:13911,105:13912,0:13913,197:3>13914,34:13915,144:13916,196:13917,32:13918,193:13919,251:13920,133:13921,40:13922,:13876,41:13877,240:13878,24:13879,109:13880,160:13881,54:13882,145:13883,40:1>13884,177:13885,40:13886,41:13887,240:13888,205:13889,165:13890,54:13891,208:13892,10:13893,177:12>13894,40:13895,41:13896,15:13897,24:13898,109:138:13853,133:z0>13854,36:13855,133:13856,37:13857,72:13858,32:13859,193:13860,251:13861,133:13862,40:13863,164:0>13864,36:13865,177:13866,40:13867,41:13868,15:13869,205:13870,164:13871,54:13872,208:13873,10:U1>13874,177:13875,409,41:13830,15:13831,141:13832,160:13833,54:/>13834,165:13835,48:13836,41:13837,240:13838,141:13839,161:13840,54:13841,165:13842,36:13843,141: 0>13844,162:13845,54:13846,165:13847,37:13848,141:13849,163:13850,54:13851,169:13852,0;I,J:J015320#.;SC10154008.;I,J:J015340L.(13824,76:13825,108:13826,54:13827,165:13828,48:1382SC7Ė15:" HOT AND DRY ";7-P;SC10Ė17:" CLOUDY ";a-R;SC5Ė14:" THUNDERSTORMS! ";:17000g-`;~-j;A$:A$"*"15210-t;SC215300-~;I,J:J015500-;K1J:768,I:769,10:770-;LKJ:::15230-;I,J:J015300-;SC715400.Ġ0J,6;6,102:4,143:7,124:22,304:20,365:23,336:::17000:15170W,8;SC7Ġ9,:;3,51:2,62:I36:1,7I::2,67:3,58,B;22:8:" LEMONSVILLE WEATHER REPORT ":,G;22:8:" LEMONSVILLE WEATHER REPORT ":,L;SC2Ė18:" SUNNY ";-N;+8:(7):"...READY TO BEGIN? ";A$;+8(A$,1)"N"13000A+8X+: WEATHER DISPLAY`+::{+;SC:I025:0,39I:I+;12:I2639:0,39I:I+;8:I2432:15,25I:I+.;13:I17232:22,23I:I+/;SC2SC715160+0;SC10Ġ15,5;SC5*@8I1N::@*J8"PLAYER NO. ";I;", HOW MUCH MONEY (ASSETS)":W*T8"DID YOU HAVE? ";l*^8"";A$:A(A$):*h8A2ĺ"O.K. - WE'LL START YOU OUT WITH $2.00":A2:14490*r8A40ĺ"JUST TO BE FAIR, LET'S MAKE THAT $10.00":A10*8A(I)(A100.5)100:$BER IT WAS? ";/)F7"";A$:A(A$)::A014200p)P7A$(A$,1):A$"Y"ĺ"GOOD! WHAT DAY WAS IT? ";:II1:14150)Z7A$"N"I014300)d7(7);"YES OR NO? ";:II1:14150)x7A1A99A(A)14300)7DA)7"OKAY - WE'LL START WITH DAY NO. ";D1: MONEY THAN YOU HAVE! ":%(318000-(3:F(6 CONTINUE OLD GAME[(7936:(7);:I0(7"HI AGAIN! WELCOME BACK TO LEMONSVILLE! ":((7"LET'S CONTINUE YOUR LAST GAME FROM WHERE"(27"YOU LEFT IT LAST TIME. DO YOU REMEMBER ")<7"WHAT DAY NUMNCOME FROM SALES AND YOUR EXPENSES.":V'3"THE NUMBER OF GLASSES YOU SELL EACH DAY "'3"DEPENDS ON THE PRICE YOU CHARGE, AND ON "'3"THE NUMBER OF ADVERTISING SIGNS YOU USE.":'3"KEEP TRACK OF YOUR ASSETS, BECAUSE YOU "(3"CAN'T SPEND MORE TO MAKE LEMONADE IS TWO CENTS "Q&3"A GLASS (THIS MAY CHANGE IN THE FUTURE).":\&318000b&3&3"YOUR EXPENSES ARE THE SUM OF THE COST OF"&3"THE LEMONADE AND THE COST OF THE SIGNS. ":&3"YOUR PROFITS ARE THE DIFFERENCE BETWEEN "&'3"THE IING)"]%T3"2. HOW MANY ADVERTISING SIGNS TO MAKE (THE SIGNS COST FIFTEEN CENTS EACH) "%^3"3. WHAT PRICE TO CHARGE FOR EACH GLASS ":%h3"YOU WILL BEGIN WITH $2.00 CASH (ASSETS)."%r3"BECAUSE YOUR MOTHER GAVE YOU SOME SUGAR,"&|3"YOUR COST => ";N$+$/N(N$):N1N30ĺ(7);:122201$/E$2 NEW BUSINESSK$,3{$63"TO MANAGE YOUR LEMONADE STAND, YOU WILL "$@3"NEED TO MAKE THESE DECISIONS EVERY DAY: ":%J3"1. HOW MANY GLASSES OF LEMONADE TO MAKE (ONLY ONE BATCH IS MADE EACH MORN YOU"7#/"MAKE THE MOST MONEY, YOU'RE THE WINNER!!":g#/"ARE YOU STARTING A NEW GAME? (YES OR NO)"#/21:958:"TYPE YOUR ANSWER AND HIT RETURN ==> ";A$#/A$(A$,1):A$"Y"A$"N"ĺ(7);:12200$/23:958:"HOW MANY PEOPLE WILL BE PLAYING =YOU ARE IN CHARGE OF"E"b/"RUNNING YOUR OWN LEMONADE STAND. YOU CAN"u"l/"COMPETE WITH AS MANY OTHER PEOPLE AS YOU""v/"WISH, BUT HOW MUCH PROFIT YOU MAKE IS UP""/"TO YOU (THE OTHER STANDS' SALES WILL NOT"#/"AFFECT YOUR BUSINESS IN ANY WAY). IF55,152,40,171,80,192,40,228,255,1,40,0,160,192,255,192,40,171,80,152,40,128,255,0,0`!- MUSICp!-I,J:J0ı!-768,I:769,J:770!-11710!. TITLE PAGE!D/::(7);!N/"HI! WELCOME TO LEMONSVILLE, CALIFORNIA!":"X/"IN THIS SMALL TOWN, L;LL;,;L;LL;,;;;LL;,,,,,*J - 96,16,85,4,128,4,96,4,76,4,128,4,96,16,0,0 - 114,120,144,60,114,255,1,120,128,120,144,60,128,120,114,60,144,120,171,255,228,255,0,0 - 152,180,152,120,152,60,144,120,152,60,171,120,192,60,152,255,0,0S!(- 0,160,128,212%,32,0:33,40:34,20:35,23:22<,I14000::I(0)B,N, DATA, 96,180,128,60,114,60,128,120,144,60,152,60,128,255,128,60,114,60,85,120,96,60,102,60,114,120,102,60,96,255,0,0 - ,,,,,,L;LL;,L;LL;,;;LL;;,L;LL;,L;;;;,,,;L;;;;,;L;LL;,;5,1958,I3971:15:18,37I:12:I39ď18,36I1OB,15:I30ď18,36I10L,12:I29ď18,37I11:32,I11:11:I12::A$:A$;V,J14II:::I11000:`,13:14,3612:I36201:8,16Ij,J150::768,I312:769,12:770::12:14,19;L;LL;LLLLLLLL";A+"LLLLLLLLLLLL;LL;LL;;;;L;LL;L;LL;LLLLLLLL";r+"LLLLLLLLLLLL;LL;LL;LL;L;LL;L;LL;LLLLLLLL";,"LLLLLLLL;;;;;LL;LL;;;;L;LL;L;;;;LLLLLLLL";,23:" COPYRIGHT 1979 APPLE COMPUTER INC."$,11700:I12000:.,33,1:34,9:3L;L;LL;L;LL;L;LLL";D+";;;;L;;;;L;LLL;L;;;;L;LL;L;;;;L;;;;L;;;;";L+11}+"LLLLLLLL;;;;;LL;LLLLLLLLLLLLLLL;LLLLLLLL";+"LLLLLLLL;LLLLLL;LLLLLLLLLLLLLLL;LLLLLLLL";+"LLLLLLLL;LLLLL;;;L;;;;L;;;;L;;;;LLLLLLLL";+"LLLLLLLL;;;;;LL;LLLLL;L;LLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";Op+";LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";z+";LLLL;;;;L;;;;;L;;;;L;;;;L;;;;L;;;;L;;;;";+";LLLL;LL;L;L;L;L;LL;L;LL;LLLL;L;LL;L;LL;";+";LLLL;;;;L;L;L;L;LL;L;LL;L;;;;L;LL;L;;;;";+";LLLL;LLLL;L;L;L;LL;L;L71,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202~'782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0'* INTRODUCTION\+:::12:I039:0,39I::2f+";LLLLLLLLLLL::" ";L(I);7);"GLASSES MADE":hSTIE:4000:" ";S(I);7);"SIGNS MADE";25);"EXPENSES ";STI$::STIP1:4000:16);"PROFIT ";STI$:STIA(I):4000:16);"ASSETS ";STI$18000 :' INITIALIZE'0:0Wt'770,173:7(STI)&STI(STI)STI$STI$".0"MSTI(STI10.5)10STI$STI$"0"S`6:34,5" DAY ";D;30);"STAND ";I::" ";N2;7);"GLASSES SOLD":STIP(I)100:4000:STI$;7);"PER GLASS";STIM:4000:27);"INCOME ";STI$"NDS WERE BEING SET UP."E8 "UNFORTUNATELY, EVERYTHING WAS RUINED!!"YB J1N:G(J)0:cL 1185q` X41805zj X41~ "A HEAT WAVE IS PREDICTED FOR TODAY!" R12 805  STI => DOLLARS.CENTSSTI(STI100.5)100STI$"$"z"#Xñ        Ġٮʰ!  ڠʠ ʲ   ǠՠĠǠ QΠ ӠƠɠ ̠ůɠ Ҡà ̠Ӡ2ŠŠƠΠԠӠŠ ɠ̩ϠŠӠ̠Ԡ Ǡ ٠Ҡ Ӡ ԠΠΠӠ٠Š«éŠ DM(DU)DUDUDM-DU.003ī2100;XX$(XX)A R==========="34,R78TCTDĺ"WRONG/DO AGAIN":>23:"IF YOU WANT YOUR REWARD PRESS ANY KEY AND RETURN KEY":A$:D$(4)D$;"RUN MM"XX$(XX)".00"40304XX$(XX)"0">4030XX(XX)ī2000DU10XXR$uRR$"Y"3402vTDTD(DR$):TCTC(CR$)<w34,RE|330b(23):K038:" ";:K:k(R)23);"-----------------"XXTD4000TD$XX$XXTC4000TC$XX$31(TD$));TD$;40(TC$));TC$ 23);"======ECT?":RR$: RR$"Y"260>TITLE$(I)"FINISHED"ī250DU"TITLE1I1h,TITLE$(TITLE)s6TITLE{@R7JRR1ORI6390TR:15:" ";AN$hR:23:" ";DR$:rR:32:" ";CR$:t(23):"ARE THE LAST ENTRIES CORRECT?":R34,7T1B);BUSNAME$)T2B);BSFM$9T3B);DAY$?t"ACC. TITLE"15)"ACC#"25);"DEBIT";34)"CREDIT"24)"XXXX.XX";33)"XXXX.XX"II1(8I):"WHAT IS ACC. TITLE #"I;:TITLE$(I)  (22):"IS THE LAST TITLE ENTERED CORRA$ {: |TITLE$(50)M }"WHAT IS THE NAME OF THE BUSINESS?":BUSNAME$ "WHAT IS THE NAME OF THE BUSINESS FORM?":BSFM$ "WHAT IS THE DATE?":DAY$ T1B((40(BUSNAME$))2) T2B((40(BSFM$))2) T3B((40(DAY$))2)  r" WHOLE PROBLEM."::L s"4. TO START OVER FOLLOW THIS PROCEDURE:"{ t" PRESS RESET KEY, TYPE THE WORD HOME," u" RETURN, TYPE RUN 120, RETURN.":: v"5. USE RETURN KEY AFTER EACH RESPONSE.": y z"PRESS ANY KEY TO CONTINUE":(17):"NOTES" k l:N m"1. DO NOT USE A COMMA IN THIS PROGRAM."::y n"2. WHEN YOU HAVE ALL ACCOUNT TITLES" o" ENTERED, TYPE THE WORD 'FINISHED'.":: p"3. IF THE PROBLEM DOES NOT BALANCE," q" YOU WILL HAVE TO REENTER THE"OTALS THE SAME?" F:Z P"IF YOUR TOTALS ARE THE SAME, YOUR WORK SHOULD BE CORRECT."b Z: d"IF YOUR TOTALS ARE NOT THE SAME, FIND YOUR ERROR AND DO THE PROBLEM AGAIN." e: f"PRESS ANY KEY TO CONTINUE":A$ g: h(3): i jLANCE HEADING. THE HEADING CONSISTS OF THREE LINES: NAME OF BUSINESS, THE WORDS TRIAL BALANCE, AND DATE."w : ("ENTER ON THE TRIAL BALANCE EACH ACCOUNT IN THE LEDGER, EACH ACCOUNT NUMBER, AND EACH ACCOUNT BALANCE." 2: <"ARE THE TWO TC 93610(9):?(10):"********************"E g (10):"** TRIAL BALANCE **"m  (10):"** BY **" (10):"** TODD/IVERSON **"(10):"********************"255936o "TYPE IN TRIAL BA  "";"RUN MENU" n" :::O " NEBRASKA DEPARTMENT OF EDUCATION"| " DIVISION OF VOCATIONAL EDUCATION" " 301 CENTENNAIL MALL SOUTH" " LINCOLN NEBRASKA" ,************" ?200' AI13000:I- C9 F:::C H:: K"THESE PUBLIC DOMAIN PROGRAMS HAVE BEEN MADE AVAILABLE THROUGH"; L:" VEMSEN ": P"THIS DISTRIBUTION DOES NOT IMPLY THE INDORSEMENT OF THESE PROGRAMS." ZI14000: d2 " ";::"GREETINGS":F18)"FROM THE"LT:y9)"**************************"9)"* VOCATIONAL EDUCATION *"(9)"* MICROCOMPUTER SOFTWARE *"29)"* EXCHANGE NETWORK *" <9)"**************  ı-rrq 8ı-rrq8rf UVWghghY_L]UVW`IJ-r$|Y|`IJ-r$~`IJ-r$X q IJ-rq'q8IJ-rrq8IJ-rrq8rij-rrq8ij-rr ij-rq f q UVW ghgh Y f  ghgh ׳q׳ _]UVW`ı-r$Y`ı-r$`ı-r$ q ı-rq'q 8rr IJ-rq f q UVW ghgh Y f  ghgh  ײqײ _ UVW `ij-r$  Y* `ij-r%a(ϠˠΠԠ) a() a() _, qij-r' q8rr ı-rqf q UVWghghYf "g hg h,_UVW`IJ-r$ Y)`IJ-r%a(ϠˠΠԠϮ)a()a() _, qIJ-r' q8IJ-rrq8IJ-ӀŠՀŠ)E@_,$a(ӭՠΠ)E@-a()E()E()E()E()E()E()E()E()E()GUVW`ı-r$Y)`ı-r%a(ϠˠΠԠŮ)a()a()$_, qı-r'q 8ı-rrq 8ı-$`ײ׳$_`ײ׳$`ײ׳$_`ײ׳$`ײ׳$_a()E()E()]a(סϠҠϠĬՠŠԠΠŠ͠ҠƠ)FE(ӠĠ)E@E()a()E()E()E()6*a(ǠǠˠΠҠŠӠϭϡ)4cc>_`ײ׳$`ײ׳$_`ײ׳$`ײ׳$_`ײ׳$`ײ׳$_`ײ׳ǿ)cc ha()_,!a(Ϡ׀ſҭ)GTв`в$`в$`в$p+a(ӀԠ)FвE(ـՀՀӀԠŠǡ)c a()_`ı-r$ _X`IJ-r$ b_`ij-r$ _i a()E(ΠϠҠŠŠ)a(ΠРƠҠŮ)UVWpYUVW(cYײq׳qq_X&,a(͠ȠԿҭ)E@G6Tб@`б$J`б$T`б$ '^a(Ԡ)FбE(ŠՠӀŠـŠΠҠŭ)R@Sca(ӠƠɠӠŠҠ)a(ҮŠԠӠϠŠ̠)[a(ŠӠ͠ԠϠԠ)a(ՠ٠ŠŠӠΠ٠ҠՠȬ)GSa(ԠҠŠΠŠԠŮ)a(ñq8r ı-rqñY<KM6oa()'oa(ӠƠ)2o a(ԠŠҠî)1a()c-a(ɠŬi"]Ӏ͠Ġـ]̠]Ӏԭ]Š]]M6KM6(Oı4 rDIJ4 rDij4 r 2N@" rdUVW!nı-rqIJ-rqij-rqY]ڀUVW    EED READING,TAXMAN,TOWERS OF HANOI,TRIAL BALANCE/DI E (NN1:A$(N)` 2A$(N)"9"NN1:1010h <40p  9 15::"DISC MENU":: " ";0;". EXIT" X1N:X10ĺ" "; X;". ";A$(X): 23::" CHOOSE PROGRAM BY NUMBER...";CHOICE $& A$(80):D$"",D$;"NOMON C,I,O": ADVERTISING,ARTILLERY SIMULATOR,CHECKS,DIRECT REDUCTION ON LOANS, EVALUATE A*(B+C)FINANCIAL PROGRAMS,FUTURE VALUE OF AN INVEST,GAS MILEAGE, HAMMURABI (SIMUL),HOME MORTGAGES,INITIAL INVESTMENT4 SP ZATION SCHEDULE":K$"S":L$(0)"YEARS":L$(1)"QUARTERS":L$(2)"MONTHS":L$(3)"WEEKS":L$(4)"DAYS"L'20000:" THIS PROGRAM CALCULATES ";A$;", ";C$(0);",":C$(2);", INTEREST RATE (APR), ";I$::C$(0);K$;", BALLOON ";C$(0);K$;", AND "::J$;K$;" FOR ";B$(0),P(2),M(2):B$(0)"LOAN":B$(1)"LEASE":B$(2)"SAVINGS":C$(0)"PAYMENT":C$(1)C$(0):C$(2)"DEPOSIT":D$(0)"YEARLY":D$(1)"QUARTERLY":D$(2)"MONTHLY":D$(3)"WEEKLY":D$(4)"DAILY"`'I$"NUMBER OF":A$"AMOUNT":F$" ":G$"APPLE COMPUTER INC":H$"":J$"AMORTI):V(Z)100N(Z)GG:%;7:R21700h@:"COMPOUNDED ";D$(G);:B2ĺ" OVER ";(M100)100;F$;L$(G);^::"BASED ON ";O;" DAYS PER ACCOUNTING YEAR":15000:"# "L$(G);:Z02:V(Z)M(Z)::7:1600'B$(2),C$(2),D$(4),V(2),N(2),C(2),D(2),L$(45R2V(0)(DC)(WM)W:V(1)(CD)(WM)W:1570N(((DMP)C)(WT)W)GG:1:V(0)N:N((CDM)(WT)W)GG:3:V(1)N"MDPCV(2)1:1593,R2V(2)((CP)D)(WM)W:15936N(((CP)(DM))(WT)W)GG:5:V(2)N9Z02:N(Z)V(ZB4V(1)0V(1)W:1440+V(1)0V(1)0tCC(2):DD(2):MM(2):1100:V(2)CX3X5X2:B4V(2)0V(2)W:1445V(2)0V(2)0Z02:P(Z)V(Z):7:"APR %";:B0āZ02:V(Z)F100:N(Z)N::1595MDPCV(0)W:V(1)W:1570D(0)C(0))(X5):V(1)W:V(2)W7PZ02:M(Z)V(Z):ExR21500r:"BALLOON";:B0āZ02:V(Z)P::1450DD(0):CC(0):MM(0):1100:V(0)(CX3)X2:B4V(0)0V(0)W:1430V(0)0V(0)0CC(1):DD(1):MM(1):1100:V(1)(CX3X5)X2:D)(NPD)))(X5):V(1)(((CND(X5))(PND(X5))))(X5):V(2)(((CP)N)(D(X5))W)(X5):Z02:V(Z)(V(Z))::Z02:M(Z)V(Z):(ND1:7:B014002R214007D(0)C(0)1345<V(2)(C(2)D(2))(X5):V(0)W:V(1)W:1360 AV(0)((0)(R1)((CX4)X1.005)(R2)CX2:V(1)(R1)((CX4)(X1X5).005)(R2):V(2)(R1)((CP)X2(X1X5).005)(R2)(CP)X27:Z02:D(Z)V(Z):::"# PMTS";:R2V(0)1:V(1)1:V(2)1:1320B2āZ02:V(Z)M:M(Z)M::1320V(0)(((NCN)M)N:X2(WN)M:X3DX1:X4PX2:X5WN:UV:A$;:B3āZ02:V(Z)C::1130`V(0)(R1)(X3X4)(R2)DX2:V(1)(R1)(X3X5X4)(R2):V(2)(R1)(X3X5X2P)(R2)DX2j7:Z02:C(Z)V(Z):::"PMT/DEP";:BWāZ02:V(Z)D::1220~V2:S2QQ115020z a:11)G$:6)B$(A);F$;"AMORTIZATION SCHEDULE":15:"PMT# INTEREST PRINCIPAL BALANCE":15: dQ0:" ? ";S$:S(S$):SPPSOOĺH$:Q1: n 20000:" ";13)B$(0);23)B$(1);32)B$(2):15:1100:1110.LB0X1(W(W(A0)BA(A1)(P(A)IN)(A2)P(A):BA(A0)0(A1)(BAPR)(A2)(BAP(A)):93X \95 ]"BLN";:V(0)IN:V(1)PR:V(2)BA:7:T3T3IN:T4T4PR:ZW:82 ^LL15(BBM(A)7LL17)ı _"HIT 'RTN' TO CONTINUE, ANY KEY TO EXIT";:S$::LL0:S((S$)13)BBM(A)80 Kw P15:XXXXW:"YR";:TT5:ND1:VXX:10:ND0:V(0)T1:V(1)T2:V(2)BA:7:T3T3T1:T4T4T2:T10:T20 R"CUM";:V(0)T3:V(1)T4:7:LLLL4:15:94:QQ195 UBBM(A)91 Z43P [QQ1:P(A).005IN(A0)0(A1)N(A)BA(A2)0:PR U038:"-";:::/ (QQ0:ZZAA:97:459 +ZZGG -DD1ZZ:INN(A)(BA(BB0)(A1)BA(A2)D(A)):PRD(A)(A2)IN:BABA(A2)PR(A2)(INPR):BBBB1:JJWVBB:NDW:TT4:10:ND0:V(0)IN:V(1)PR:V(2)BA:7:LLLLW:94 FT1T1IN:T2T2PR:1İ10:V(Z)((V(Z).005)100)100:Z::ND0:H TT6)"NO ANS";:::f V1E8V$"*.**":KK2:13 V.005V$".00":KK1:13 V$(V.005):KK1(V$):(V$,KK,1)"."Ă TTKK23ND)(V$,KK23ND);:(V$)KK2ĺ(".00",KK(V$)2);  W1:10000LDTN(CP(WN)M)(W(WN)M):DDT.001NNDDT:1RDT(N(CP(WN)M))((W(WN)M)(WN)):DTD.001NNDDT:3DT(CP)N((WN)(MW)(WN)):DTD.001NNDTD:5- Z02:TT11Z17:VV(Z):V          j`$t`$~`?$`$`$`ײ׳$@+a(ӀϠҠـՀŠ)FE(րӀ)E@cc_,Ua(ՠĠԠŠԠΠŠ͠)a(ҠƠӠŬɠԠ)a(ԠҠ)hgh*i jki jki jkghg hUVWf*i 8ı-rrj 8ı-rrk.i 8ı-rrj 8ı-rrkYf g hg h _,L] Vq``$ghghY ׳q׳_L XLf  ]qbUVWlg hghqghvY*ij kij kijk$+lmnghghgh*ijkijkijkgf UVW!gh8rgh8rY ײqײ_Lp]uUVW`ij-r$dYd`ij-r$if`ij-r$ iq nij-rq'xq8ij-rrq8ij-rr}q8rf UVWRUN MENU"GGR!:T10:T20:T30:T40:BA0:BB0:IN0:LL0:XX0:Q0:BA(A2)C(A)(A2)0:40!>:"SORRY, YOU'VE PICKED A NONSENSE SCHEDULE":"PLEASE CHOOSE AGAIN.":KK11500::"":15020! N:" BASIC FINANCE I-----------COPYRIGHT 1978":10)G$: "0u:(4);"";:PP1:OO3:100:AS1:Q15030 ::" WOULD YOU LIKE:":" 1 A COMPLETE ";J$;", OR":" 2 A ";D$(0);" SUMMARY ONLY":" WHICH";:PP1:OO2:100:JJS:Q15060 :" FIRST SUBTOTAL AFTER ";C$(0);" NO.";:PP0:OO5000:100:AAS:Q115080!:AAGGAA0AA:" 1 ANOTHER PROBLEM":" 2 ANOTHER SCHEDULE":" 3 BACK TO THE FIRST PAGE":" 4 QUIT":" WHICH";:PP1:OO4:100:Q15020:S10100,15027,1000,30000:R216070 :::J$;" FOR:":" 1 ";B$(0):" 2 ";B$(1);", OR"::" 3 ";B$(2);" ACCOUNT"::"WHICH84KL7:')MHOIO4JO12K7LF*M(M):TMGG:NFGG:1000[::R15010,15015:"ANOTHER ";J$;" (Y/N) ";:"? ";E$:(E$,1)"Y"15030:15020:"LIKE AN ";J$;" (Y/N) ";:E$:(E$,1)"Y"15030:"MORE (Y/N) ?";E$:(E$,1)"N"Ā{::100:CS:Q10550!h)R2107000m)B410700]|)" ENTER BALLOON ";A$;:100:PS:Q10620)G110710,10720,10730,10740,10750:10760)MHI4J12K7OLO:)MH4IJ3KO28L4O:)MH12I3JK84OL12O: )MHO7IO28JO:PP1:OO2:100:RS:Q104651(:::B110520D(R10495,10492("ENTER ";C$(0);"/";C$(2);F$;A$;:PP0:OO1E8:100:DS:Q10492(10520(" ENTER ";D$(G);F$;A$;:PP0:OO1E8:100:DS:Q10495)B3106006)" ENTER TOTAL ";A$;:PP0:OO1E8(G2)12(G3)O7(G4)O:KL0G310465(" HOW MANY ";L$(4);" IN YOUR ":"ACCOUNTING YEAR";:PP0:OO365:100:OS:Q10420(:" WILL YOU BE MAKING:":" 1 ";D$(G);F$;C$(0);"S/";C$(2);"S, OR":" 2 A SINGLE ";C$(0);"/";C$(2);" ONLY...":" WHICH";:OO10E4:100:QKS:I$;F$;L$(4);:OO1E6:100Bs(QLS:10390Mx(10340X(:" "(" WITH INTEREST TO BE COMPOUNDED:":" 1 ";D$(0):" 2 ";D$(1):" 3 ";D$(2):" 4 ";D$(3):" 5 ";D$(4):" WHICH";:PP1:OO5:100:GS1:Q10400-(GG(G0)(G1)4210390d(" TERM OF THE ACCOUNT:":" YOU MAY ENTER ANY COMBINATION OF ";L$(0)",":L$(1);", ";L$(2);", ";L$(3);", OR ";L$(4);"."/n(PP0:OO400::I$;F$;L$(0);:Q0:100:QHS:I$;F$;L$(1);:100:QIS:I$;F$;L$(2);:OO1200:100:QJS:I$;F$;L$(3); ";A$;" OR,":" 5 BALLOON ";C$(0)a'" WHICH (ENTER BY NUMBER PLEASE)";:PP1:OO5:100:Q10140'BS1::10)G$:" OK..NOW I NEED TO KNOW THE FOLLOWING: ":B010310'"ANNUAL INTEREST RATE (APR) IN %";:PP.005:OO1000:100:FS100:Q10220F(B);"S, ";B$(1);K$:"AND ";B$(2);"S ACCOUNTS.":" HIT RETURN WHEN READY...";E$!t'20000:O365:LL0:BB0:Q0:P0::"YOU MAY CALCULATE ANY OF THE FOLLOWING:":" 1 INTEREST RATE (APR)":" 2 ";C$(0);"/";C$(2);F$;A$:" 3 ";I$;F$;C$(0);"S/";C$(2);"S":" 4 TOTAL11104z+90+34,8::"(EFFECTIVE INTEREST RATE ON INVESTMENTS)":"ENTER INITIAL INVESTMENT..........$";P::"TOTAL VALUE AFTER (X) # OF YEARS $ ";T::"ENTER NUMBER OF YEARS.............#";Y:N+9900:100:7)"ANNUAL INTEREST RATE = ";((TP)AL VALUE AT MATURITY.....";T::"ENTER NUMBER OF YEARS.............";Y::"COMPOUNDING PERIODS PER YEAR ?....";N:p+I2N((TP)(1(NY))1)100::9900:100:"THE NOMINAL INTEREST RATE= ";I2;" %":255::9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"Y" YEARS...........#";Y::9900'100:10);"SALVAGE VALUE = $";(100P(1I5100)Y.5)100:255::9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"10222'10200'90[+\+34,10:::t`+:"ENTER PRINCIPAL AMT OF INVESTMENT ";P::"ENTER TOT100h'12);"DEPRECIATION= $";(D100.5)100:255::9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"90s'10100'34,8::11);"*** SALVAGE VALUE ***":::"ENTER ORIGINAL PRICE.........$";P::"ENTER DEPRECIATION RATE......%";I5::"ENTER NUMBER;A$:A$"Y"10004-'90~t':9000:7);"((( DEPRECIATION AMOUNT )))"::9000::"ENTER ORIGINAL PRICE..............$";P:'"WHATS THE DEPRECIATION RATE.......%";I5::I5I5100:"ENTER NUMBER OF YEARS.............#";Y::DPI5(1I5)(Y1):9900: THE ORIGINAL VALUE.........$";P::"ENTER THE RESALE PRICE...........$";T::"DEPRECIATE OVER HOW MANY YEARS...#";Y:D100(1(TP)(1Y))::9900:100:" THE DEPRECIATION RATE IS = ";(1000D.5)1000;"%"''255::9900:"WANT ANOTHER RUN (Y/N) ? "0:11);"((( AMORTIZATION )))"::9000:::6);"1. MORTGAGE AMORTIZATION TABLE":6);"2. RETURN TO MENU...":::"WHICH (1-2) ? ";A$:A$"1"15100A$"2"90(#I139:"*";:I:"*":&I139:"-";:I:"-":'34,10:::'"ENTERl:9000:13);"((( DEPOSITS )))"::9000:::"  1. FUTURE VALUE OF REGULAR DEPOSITS":29);"(ANNUITY)":" 2. REGULAR DEPOSITS":::" 3. RETURN TO MENU..."::::"WHICH (1-3) ? ";A$:A$"1"14100A$"2"14200A$"3"90Sp:900 AN INVESTMENT"::" 3. REGULAR WITHDRAWALS FROM INVESTMENT"::" 4. MINIMUM INVESTMENT FOR WITHDRAWAL"::" 5. RETURN TO MENU..."::"WHICH (1-5) ? ";A$:A$"1"13100A$"2"13200A$"3"13300A$"4"13400A$"5"904082 RETURN TO MENU"::; "WHICH (1-6) ? ";A$:A$"1"12100M A$"2"12200_ A$"3"12300q A$"4"12400 A$"5"12500 A$"6"90 3033 :9000:16);"INVESTMENTS"::9000:::" 1. INITIAL INVESTMENT":" 2. FUTURE VALUE OF5"90 >2030^ :9000:15);"((( LOANS )))"::9000:::7);"1. PRINCIPAL ON A LOAN": 7);"2. REGULAR PAYMENT ON A LOAN"::7);"3. LAST PAYMENT ON A LOAN"::7);"4. REMAINING BALANCE ON A LOAN"::7);"5. TERM OF A LOAN": 7);"6.ESTMENTS": "2. EFFECTIVE INTEREST RATES ON ''"::"3. EARNED INTEREST TABLE"::"4. ANNUAL INTEREST RATE ON A LOAN"::"5. RETURN TO MENU":: "WHICH (1-5) ? ";A$:A$"1"11100 6A$"2"11200 8A$"3"11300 :A$"4"11420 ;A$"AMOUNT"::10);"3. SALVAGE VALUE"::10);"4. RETURN TO MENU"::::o "WHICH (1-4) ? ";A$:A$"1"10000 A$"2"10100 A$"3"10200 A$"4"90 1030 :9000:13);"((( INTEREST )))"::9000:::"1. NOMINAL INTEREST RATE ON INVION" 0 "WHICH (A-F) ? ";A$:A$"A"1000A A$"B"2000R A$"C"3000c A$"D"4050t A$"E"5000 A$"F"6000 140 :9000:11);"((( DEPRECIATION )))"::9000:::10);"1. DEPRECIATION RATE":H 10);"2. DEPRECIATION $0::20000!UA$(5):I(5)Z::9000:7);"BUSINESS ( FINANCIAL ) SERIES"::9000:" MENU... (A) DEPRECIATION"::" (B) INTEREST" t:13);"(C) LOANS"::13);"(D) INVESTMENTS"::13);"(E) DEPOSITS"::13);"(F) AMORTIZAT               ENTER ANNUAL INTEREST RATE.......%";I5::"NUMBER OF PAYMENTS/YEAR..........#";N::Y((1(P(I5100))(NR))((1I5100N)N)):9900&010);"!!! TERM= ";(Y10.5)10;" YEARS !!!"::9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"90&112500]',307);"REMAINING BALANCE= $";(B0100.5)100::9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"90l%012400%0:9000:10);"((( TERM OF A LOAN )))"::9000::"ENTER REGULAR PAYMENT AMOUNT.... $";R:&0"ENTER PRINCIPAL AMOUNT...........$";P::".....$";P$0:"NUMBER OF PAYMENTS PER/YEAR......#";N::"ENTER ANNUAL INTEREST RATE.......%";I5::I5I5100:"ENTER LAST PAYMENT MADE...":"PAYMENT # ";N1$0"YEAR....# ";Y:B0P:J11N(Y1)N1:I1((B0I5N)100.5)100:ARI1:B0B0A:J1:9900a%A:J1:9900:11);"LAST PAYMENT= $";((RB0)100.5)100r#<0:9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"90}#H012300 $p0:9000:8);"REMAINING BALANCE ON A LOAN"::9000:"ENTER REGULAR PAYMENT AMOUNT.....$";R::"ENTER PRINCIPAL AMOUNT......PAYMENT AMOUNT..$";R::"ENTER PRINCIPAL AMOUNT........$";P"0:"ENTER THE TERM IN YEARS.......#";Y::"ENTER ANNUAL INTEREST RATE....%";I5::I5I5100:"NUMBER OF PAYMENTS PER/YEAR...#";N:;#,0B0P:J11NY:I1((B0I5N)100.5)100:ARI1:B0B0YEAR.......#";N::R((I5100)PN)(11((I5100)N1)(NY)):9900:8);"REGULAR PAYMENT= $";(R100.5)100!/:9900::"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"90!/12200<" 0:9000:6);"((( LAST PAYMENT ON A LOAN )))"::9000::"ENTER REGULAR "WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"905 i/12100 /:9000:7);"REGULAR PAYMENT ON A LOAN"::9000::"WHAT IS TERM IN YEARS.........#";Y::"WHAT IS PRINCIPAL AMOUNT......$";Pn!/:"ENTER ANNUAL INTEREST RATE....%";I5::"NUMBER OF PAYMENTS/T..........$";R::"TERM IN YEARS...................#";YR/:"ENTER ANNUAL INTEREST RATE......%";I5::"ENTER NUMBER OF PAYMENTS/YEAR...#";N::PRN(11((I5100)N1)(NY))(I5100):9900:5);"!!! PRINCIPAL= $";(P100.5)100;" !!!"* _/:9900::11441,I5I5I3:11441,I5((((I51000)100.5))100)1000:9900:5);"ANNUAL INTEREST RATE= ";I5100;" %"::9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"90,114209D/:9000:8);"((( PRINCIPAL ON A LOAN )))"::9000:"REGULAR PAYMENT AMOUNENTER TERM IN YEARS.............#";Y,:"ENTER PRINCIPAL AMOUNT..........$";P::"NUMBER OF PAYMENTS PER YEAR.....#";N::I510:I20,R1(I5PN)(11((I5N1)(NY))):R1(R1100.5)100:I3(I5I2)2:I2I5:R1R11460,R1R11456,I5I5I3:I30:KK1)~,B0B2:J0J1N1Y11403=,J1:J0X11402I,:KK1Q,J0W,,::"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"90,:11300$,:9000:6);"ANNUAL INTEREST RATE ON A LOAN"::9000::"ENTER REGULAR PAYMENT AMOUNT....$";R::"k,N2N1J1N11374'l,B0B0R:N2N21gn,B2B0(1I5N):I1B2B0:I3I3I1:I2I2I1:P2P1J1N11380s,I2R(I2):B2R(B2):P2P21t,J0X11390v,J1NL1L211390 x,L1L11:R(X)(X100.5)100:" (";J0;")";9);R(B2);20);R(I3);30);R(I2)1011360\\,"DEPOSITS/WITHDRAWALS $";R;" ";N1;" TIMES/YEAR":9900:R(X)(X100.5)100`,"EFFECTIVE INTEREST RATE ";R(100((1I5N)N1));" % PER YEAR"::"YEAR BALANCE INTEREST ACC/INTEREST"f,h,L11:N21:P21:J11N:N2N111374H WHAT YEAR (1-30) ";Y::34,0::X(X):B0P:I10:I20bM,I30:K66:P14:J01(Y)1:J0X11368rR,K5511366S,K1K66::K1:K6:9000:7);"((( EARNED INTEREST TABLE )))"::9000:"PRINCIPAL = $";P;" AT ";I5100;" % FOR ";Y;" YEARS":9900 [,N100:"HOW MANY DEPOS/WITHDRAWALS PER YEAR ";N1::N10113277,"AMOUNT OF DEPOS/WITHDRAWAL.........$";R::N360:L2N1:11332?,"COMPOUNDING PERIODS PER YEAR.......#";N::N10:L246D,"STARTING WITH WHAT YEAR......(1-30) ";X::"STOP PRINTING WIT(1Y)1)100;" %":255::9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"11228Y+11200a+90$,:9000:7);"((( EARNED INTEREST TABLE )))"::9000:::"ENTER PRINCIPAL AMOUNT...........$";P::"NOMINAL INTEREST RATE............%";I5=/,:I5I5E66N13,2917:12,3018:9:11,3119:11,3120:9:11,3121:12,30226FN1:13,2923:13,2924:14,2825:14,2826:15,2727:2:16,26286TN16,2629:2:17,2030:22,2530:12:21,14:16,1814:24,26147bN22,13:23,12:24,11:21,15:21,16:14:5,8100))100::"PRESS (RETURN) TO CONTINUE..";A$::B5=J0Y15720`5"=I30:A20:J0:YJ0157205J=N1((Y(Y))12)12N:J0J01:151445h=9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"905w=151005 N:12:15,1915:14,2016:23,2715:22,2816:142A:J0X15570h4>>":"";""::"1. TO INPUT DATA FROM KEYBOARD"::"2. TO READ DATA FROM TAPE": ("3. TO REVIEW DATA STORED IN MEMORY"::"4. TO CALCULATE AVERAGES FOR DATA":" STORED."::"5. STORE DATA IN      'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0X~")XȔ) F*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` dq  u  mʥ` ȹ0 L uߙ`` ӎ$0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05  o ` l3 ΃3` 4J G 4&(JJJJ) ` ӏ F٩ $  ΃Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM ׁL6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ džة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P 䏕xL# 48` PxL PeHxeH˰iکeۅȱhڙ=i?BC , LʩM˩I6bVcWdXeYfZg[h\i]j^k_L L3L`) #L $  `  v mL;ʅ˅LM  m     ";M12;" YEAR OF YOUR LOAN."::"$";R1;" WAS YOUR ANUAL PAYMENT."::"$";R2;" WENT TO PAY THE INTEREST."::"$";R3;" WENT TO PAY THE PRINCIPAL.":"HIT RETURN TO CONTINUE.";:K$:936OST RATE IS ";I;" %"e :::"WANT TO DO ANOTHER":" ANSWER Y OR N ";:X$:34,0:255:X$"Y"100k "q , 1MC14ī370 6MC12ī320 7MC0:R10:R20:R30:R40 @MCMC1:R1R1P1:R2R2P2:R3R3P3:R4P:MC12ī399r:"IN THE CAN !! **":::K14 M:J$"D"MC12ĪMC14:300 "ORIGIONAL LOAN AMOUNT ";E:"TOTAL INTEREST PAID ";C:BBP:"TOTAL PAYMENTS MAID ";B:"TOTAL YEARS PAID ";D:"TOTAL MONTHS PAID ";A:"YOUR MONTHLY PAYMENT IS ";P1:I1ĪII100:"THE INTERE:P1P(I12)(1(1(1(I12))(L12))):P1(P1100.5)100:M1L12:P2PI12:P2(P2100.5)100:P3P1P2:P((PP3)100.5)100 J$"S"ī251 M;5)P1;12)P2;20)P3;31)P:300 AM0:BP1B:CP2C:J$"S"K0ĺ:"** I'M COMPUTING AS FAST AS I PRINT:":" ANSWER F OR S ";:G$:G$"S"ĩ100 :"DO YOU WANT A DETAIL & A SUMMARY LIST,":" OR JUST A SUMMARY LIST?":" ENTER D OR S ";:J$:936:J$"S"ī157 "PER";4)"PAYMENT";14)"INT";21);"PRIN RED.";31)"PRIN BAL." :34,2*****":::e x"HOW MUCH IS THE MORTGAGE ";:P::EP:"WHAT IS THE INTEREST RATE ";:I::I1ī150r II1005 "# OF YEARS TO PAY:":" ENTER I.E. .5 FOR HALF A YEAR;":" HOW MANY YEARS ";:L:DL::"DO YOU WANT FAST OR SLOW /d936:A0:B0:C0:D0:E0:F19:K0 lMC13:"***************************************** ** -MORTGAGE CALCULATION- ** ************************************     L   LϠ젃Š𠁠Ƞɠź̪ӯؠԉȠҠńϠ̠̠ΒȤŠ͠㠩υe h QQQQQ<JWdv&crK.М LHHH?!=>@AH IL=K>Lhhh`HHH ; ( L -hhh` : :  ,% f f4,$ ɀ@  RSQzmVVW` `DE]^ /].^ E̞`DE `HHH/.0+>0jj.9hhh`( 01 0㎓/%` f`RS`KȱL`KȭL`DERS ` ` I,`DE]ȹ]Ȍ  E`,0 /R.SDE$,/ ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)  o : L f f`   t+L:,     `H jjH9mmL[mmhh`  # L# # 3,0ޭR S   ` .H h. ` % fɽQ ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̅ $T+  # o? : L  hh` %)`ʽQ08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈQ`  UɽQ 莣Ȍ`8`  U$'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` RRSS`R S8`RSDE  `iiiQLk RLk H m hLk S%RQrU o00Щ莢ɽదɬUɽ̢ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : 7 , ͭ) ; # ͭ  ; ` o ɱɸ" L; )  o ɱɳ# L_ )`  o ɱɸ" L ) o ɱɳ# L ) ##` L N D   , b Y L> b @   Lvم380` X L !   - `" X    i( ! o , и` X$i( " X ,        .5)1005 :"MORE DATA?(1=YES, 0=NO)";:X:X1206:"INITIAL INVESTMENT":"TOTAL VALUE AFTER Y YEARS";:T:"NUMBER OF COMPOUNDING PERIODS PER YEAR";:N:"NUMBER OF YEARS, MONTHS";:Y0,M UY(12Y0M)12:"NOMINAL INTEREST RATE";:I:IIN100:PT(1I)(NY):"INITIAL INVESTMENT = $";(P100 860CL(15)0852'HL1R(3)7@ML21000L1R(3)6YOL25000L1R(3)5rQL2105L1R(2)5R:11::" ////// RAIN ////// ":S860TL1R(4)3W ** COMPUTE & PRINT YEARLY HARVEST **\AL1L3aBR(A2)f(L2100))500T ::" $$ RICE IMPORTS ARRIVE $$ ";::" ";A;" BUSHELS"a%N1N1As*L(15)0835/L1R(2)14N15000L1R(2)26N125000L1R(3)28N125104L1R(2)39:11::" ......DROUGHT..... ":>AR(N120)(N120)U::" ??? GRAFT ??? ";::19:A;" BUSHELS MISSING"bN1N1AtL(10)0785AR(L210)(L220)::"><><><EARTHQUAKE><><><";::" ";A;" ACRES LOST" L2L2AL(15)0810AR(100N3N3AL2L2B+N0N0N3N4N5;N012014` ** PRINT POPULATION CHANGES **:" POPULATION INCREASE........... +";N3" DEATHS FROM NATURAL CAUSES.... -";N4" DEATHS FROM STARVATION........ -";N5L(10)0760 KILLED":3:;A;" BUSHELS LOOTED ";C;" ACRES BURNED"GN4N4ATN1N1BaL2L2CsL(15)0705AR(20)10BR(N0250)50:7::" **** LAND ACQUISITION **** ":4:"GAINS: ";A;" PEOPLE ";B;" ACRES" OMPUTE RANDOM OCCURRENCES ***a]::" +++++ 'PLAGUE' +++++ ";::" ";A;" PERISHED!"nbN4N4AlL(10)0670qAR(N05)(N05)vBR(N120)(N120){CR(L250)::" <<< RAIDS BY 'MONGOLS'>>> ";::" ";A;"PLUS !! ";::" ";A;" NEWCOMERS"-!N50:&N3N3AC+590]0(L(5(N52)))0590w5AR((N5N1)(2N0))?::" << FOOD RIOTS >> ";::" ";A;" BUSHELS TAKEN"DN1N1ANL(10)0620SA(N03)R(N022)V *** C5 1000C:6:::" !!! RICE STORAGE EMPTY !!! ":q ** COMPUTE EFFECTS OF FOOD ALLOTMENT **|YY1N3R(N033)N4R(N042)N5N0(N210)N50560 N50590AR(3N52)#::" !! FOOD SUR&"YOU ONLY OWN ";L2;" ACRES!"/400E(2N0L3)0455x"YOUR POPULATION IS ONLY ";N0;" PEOPLE!"400AN13L3A0480"YOUR STORAGE IS ONLY ";N1;" BUSHELS!"4001000::500N1AN1047 hN2(N2) mN203000' rAN1N25 wA0390f |"YOUR STORAGE IS ONLY ";N1;" BUSHELS!"o 350y N1A N10490 1000::23 "HOW MANY ACRES TO BE PLANTED? ";L3 L3(L3) L303000 L30475 (L2L3)0440OU ONLY OWN ";L2;" ACRES!"& 62750 ;L2A@ @N1N1CL1Q E(BC)0335o J *** TEST FOR WIN *** O(L2N1L0)02000 TN10495 Y1000::23 [ ** READ AND VERIFY FOOD & SEED ALLOTMENTS ** ^"HOW MANY BUSHELS FOR FOOD? ";N2 01 "YOUR STORAGE IS ONLY ";N1;" BUSHELS!": 215D N1AQ L2L2B 1000::23:"PRICE OF LAND IS ";L1;" BUSHELS PER ACRE" "HOW MANY DO YOU WISH TO SELL? ";C C(C) C03000 "C0325 'AL2C ,A0315 1"Y** DISPLAY THE REPORT FIGURES IN WINDOW **] *** READ AND VERIFY LAND TRANSACTIONS *** e 23 :"PRICE OF LAND IS ";L1;" BUSHELS PER ACRE" "HOW MANY DO YOU WISH TO BUY? ";B B(B) B03000 B0270 AN1BL1 A026E5:225+ - ** RANDOMIZE FUNCTIONS **E 2R(Z1)((Z1)(1))\ <L(Z2)R(100)Z2 F *** SET INITIAL PARAMETERS *** PY0:L0106 ZL1R(3)3 dN0R(75)75 nL2R(250)250 xN1R(3000)2000 : L30:N20* 1000: o" " DYNASTY " ) F BY WEYMAN FONG ` APPLE CORE{ BOX 4816  S.F.CA 941011  DEC. 2, 1978    PAUSE5:200:5000: ** INTRO ** (PAUS           LLL˹Ɂ <ȱ<L4 0#( 8<  8  `<#`<ȑ<<ȑ<Ƚȑ<Ƚ< <   `LH =<` AMMURABI' ** COPIED & RE-PROGRAMMED FOR THE APPLE II - BY WEYMAN FONG FOR THE APPLE CORE ** 415-391-1915 ***NE MILLION !!"F#|23:5::" HIT ANY KEY TO BEGIN YOUR RULE ";:A$:L#p#' ** 'DYNASTY' IS A MODIFIED ADAPTATION OF A PROGRAM PUBLISHED IN 'PEOPLE'S COMPUTERS' MAGAZINE -SEP/OCT '78 ISSUE CALLED - KINGDOM,n$' * WHICH IS AN EXPANDED VERSION OF 'HS ARE REQUIRED FOR 1 ACRE"`"2:" * PRICE PER ACRE *":5:"RANGES BETWEEN 1 TO 9 BUSHELS PER""<:" * TO QUIT - TYPE IN A '-1' *""P:" TO BECOME 'EMPEROR OF ALL CHINA', YOUR"Z" TOTAL WEALTH (ACRES PLUS BUSHELS) MUST"#d" EQUAL OR EXCEED OLINES FOR GOVERNING YOUR PROVINCE ":A!" * FOOD ALLOTMENT *"!5:"EACH PERSON REQUIRES 10 BUSHELS OF":5:"RICE TO SUSTAIN LIFE"! :" * FARM LABOR *"!5:"EACH PERSON CAN ONLY PLANT 2 ACRES"!:" * SEED ALLOTMENT *""(5:"3 BUSHELAST, SUSTAINING & FEEDING YOUR"::" POPULATION. IF SUCCESSFUL, CHINA" :" WILL PROCLAIM YOU 'EMPEROR'.":::::10:" MAY BUDDHA BLESS YOU ": X0PAUSE1000::255  *** PRINT INSTRUCTIONS & GUIDELINES FOR GAME ***%!:::" GUIDEOUT TO RULE A PROVINCE"::" AND YOUR OBJECTIVE IS TO ACQUIRE":" WEALTH BY FARMING & TRADING YOUR"::" RESOURCES, ANTICIPATING GOOD AND":" BAD OCCURRENCES, PREDICTING MAR-"::" KET CONDITIONS AND LAST, BUT NOT"I :" LE----- *":" * *":" * * * * * *"J:s7:"'YOU ARE A GOVERNOR OF HUNAN":7:"PROVINCE IN CHINA DURING THE":7:"YUAN DYNASTY (1260 TO 1368)'":X0PAUSE500:100::::A" YOU ARE AB *":" *"q" * *":" * *":" * *"" * * * *":" *** ***":" * ";::1:"DYNASTY";::175:" *"B" * --::" EUNUCH! ":J22:6::" YOUR DYNASTY LASTED ";Y;" YEARS "::255q:8:" TRY AGAIN ? ( Y / N ) ";A$A$"Y"40A$"N"ĀHN1R(3000)2000 :2020$ *** PRINT INTRODUCTION ***4:" !":" 9::" * 'EMPEROR OF CHINA' * ":,2020TN01:1000:X0PAUSE1000:::1008:10:"YOU ARE THE SOLE SURVIVOR"::8:"OF HUNAN PROVINCE AND THE":8:"'EMPEROR' KUBLAI KHAN HAS":8:"ORDERED YOU BACK TO SERVE":12:"AS HIS ";*** 1000*X0PAUSE1000:::100v:8:"YOU HAVE, BY YOUR MATERIAL-"::8:"ISTIC MACHINATIONS, AMASSED":8:"SUCH WEALTH THAT THE NOBLES"::8:"IN THE GREAT CITY OF PEKING":9:"HAVE CHOSEN YOU TO BECOME"::18:"THE NEW"":N PROVINCE ";?10:" ACRES OF LAND OWNED ";m10:" BUSHELS IN STORAGE ";:$X039:"^";:X.83:" ";N0;" "B4:" ";L2;" "L5:" ";N1;" "V: *** MESSAGES FOR THE GOVERNOR ARVEST FOR YEAR ";Y;" ### ":Q" ";L1;" BUSHELS PER ACRE---";A;" BUSHELS"Z900 ** SUBROUTINE TO PRINT COMPUTED FIGURES IN REPORT WINDOW **34,6:111::" REPORT FOR YEAR ";Y;" ":X039:"^";:X10::" PEOPLE ICABuA0910Gz:7::" ### HARVEST FOR YEAR ";Y;" ### ":z|" ";L1;" BUSHELS PER ACRE----";A;" BUSHELS"~" LOSS TO RATS----------";B;" BUSHELS"" NET HARVEST-----------";C;" BUSHELS"N1N1C140:7::" ### H $u`$z`б $|` ı$`б$` $Pa(àšŬɬĠΠ)'a(ĠԠŠŠҡ)_/a(Ҡ٭ĠŠӠƠ)"a(ԠƠŠ)9_a(ΠĠҠҠŠƠҠŮ)``%q,aa(̠Ơ)FıE(Šġ)q:fa(ՠĠȠӠҠΠĠĠ)kbE(ӠҠή)cp`б!$5r`nLɺɠԠϠԠՠȮ)&Wa(ԠƠҠġ)Xca(ɠԡŠҡ)Y_+\a(Ҡ)FE(ϠՠԠϠſ)5]S(ŠǠϠϠάҠӠϠЮ)&@`@9()$6@^a(ΠҠ)FE(Ҡ͠ƠŬ)FбE()'bE(ӠƠή٠ή)[a(ɺˠή)!a(ՠ٠Š)FE(Ӯ)[oPa()FE()oPa()FE()oP a()FE() o[ `%[ ] ] [ q/?r![.Rca(.0ca(ՠĠ)FE(ŠΠŠҡ)I5a(ŠϠŠԠՠŠ)a(Ԡ٠ΠĠ),6a(ĠΠԠƠŠԠՠ)(7a(ϠΠĠ̠ˮ)9_-a(ɺˠάՠŠǠ `%qq8rq\\ `%q#q888 r rr q]Ӭq/?dr &`$(q` $0-)`%q`%qбqıd8r+qıqı_]ȠŠϠĠŠӿ` $Fa(Ԡՠ٠Š)FE(ŠϠĠŠӮˠ)_q8r\ ]̠qqq \  `8r$ ]ŠӠŠqc\P:a(נ٠ӠϠՠȠϠ)a(ȠĿ)GT`$`$R0]ǠϠԠŠӠΠՠο `$\_]ȠΠҠĿ`8r$\_'̠)GUT`$R V`$^W\X_T^qqqc\c+a(נ٠ӠϠՠȠϠ)S(ҠŠ)'`$R-]ǠϠŠŠΠΠՠ`$\_\_qq/? rq18a(ĠӠǠԠ)FE(ӠҠŮ)9cc:c*@a(נ٠ӠϠՠȠϠ٠)GAT`$RB`$JC\D_@J`$TKqqqL\N_+Ta(נ٠ӠϠՠȠϠ˺)Pa(ƠŠŠĮ)ca(ΠӠנ)Fc%a(Š٠נӠ)FE(Ӯ)c,a(ՠĠ)FE(ӠҠŮ)ca(ӠŠ)FE()c*a(ՠנŠ)FE(ӠΠ) c` $\6qqq q`$5cca(ɬɠǠϠԠϠլ)qJa(ΠҠ)FE()FE(ŠĬ)FE(ŠŠϠŠٮ) q\\`$q8r\Bca(ŠŠD-M6oa(ӠΠŠ)a(ӠƠĠ)a(Š).`;@r$+//oa()G4o5q;@r<@r9UVWq/?rYZıqбq#dqq_q q q eq/?rnq)#c(cN@"PrW)a(ӠƠΠ̠Ġ)a(ҠŠҮƠ̠Ҡ)\*a(ӠĠҠĠή)ca(ȠΠΠ͠ԠԠΠӮ)UVWY!+S(ŠŠҠź)&@,KM6d"e| ]ɠ] KM6'oP a(Ƞ͠͠ՠҠ )o /a(ԠéŠҬî) cP!a(٠ҠĠԠ) cP# a(Ԡ)*"cPa(ҠҠ͠Ơ          !!! OLLARS BELOW ARE IN THOUSANDS "::J12:E(J)0:Ju hP40:875:J12:W(J)0:D(J)0:T(J)0:B(J)UI(J)C(J):900:J QC1:1060:675:865:J12:D(J)(1E(2)).5(K22V(J)D1)(P(J)50)N:J:1000 J12:D(J)I(J)475 T(J)D(J):480T(JTION COST=$";U;"/UNIT.":"WITH NO ADVERTISING AND SELLING PRICE OF $50/UNIT " ""A COMPANY WILL SELL ";K2500;" UNITS (PRINTED AS ";K22;")":"WAREHOUSE CHARGE FOR INVENTORY ="R100;"%":"INTEREST CHARGE ON BORROWED MONEY =";K3100;"%"2 #"UNITS AND DING?(B/C)";A$::A$"B"270 J12:"COMPANY ";J;" ENTER PREVIOUS CASH ON HAND, PREVIOUS INVENTORY ";:C(J),I(J)::J:"ENTER VARIABLE PRODUCTION COST ";U:"ENTER QUARTER NUMBER ";QM :"FIXED PRODUCTION COST=$";F1000;"/ QUARTER.":"VARIABLE PRODUCATED BY BRAND ADVERTISING. THE QUANTITY EACH COMPANY SELLS IS DEPENDENT UPON PRICE AND ADVERTISING" "BUDGET. THIS PROGRAM ENDS WHEN ONE COMPANY GOES BANKRUPT OR REACHES ":.001M1;" MILLION":: "ARE YOU BEGINNING THE GAME OR CONTINU;" DISK AND PRESS RETURN";:" ";DK$-9363CPRESS RETURN";:" ";DK$X936^DK$t936z16368,0:K141340:KK176:KLKH330:NKDO16368,0:K141340]PKK176:KLKH330eQNKT20:N;" ":^:22:"DEFAULT = ";:((41)256(40)14),96:hMSSSırMDSDıw:(DK$,1)"D"ĺ#|"INSERT ";DK$16368,0::"DO YOU WISH TO MAKE ANOTHER COPY?";I$:(I$)0300U '(I$,1)"Y"160k ,(I$,1)"N"290s 1: 6:350:N;::1:I$;" SLOT: ";:L1:H7:330:A,N16: @350:N;::4:" DRIVE: ";:L1:H2:330:+JK(16384):K128330:"DUPLICATE":360: GET DUP DISKC 8:24::"WRITING";::" "\ 710: WRITE A HUNKr 8:24:" " (713)2190 (222)255ij 18::"****** UNABLE TO WRITE ******":290 18::"****** UNABLE TO READ ******"@ "19:: ERROR!+ 5:24:" ":(713)1290F FT255: NOT FIRST RDn DK$"DUPLICATE":360: GET DUP DISKx 275 8:24::"FORMATTING": "INIT XXX,S";SS;",D";SD;",V";(714):FT1 8:24:" " 216,0:222,0 256 DK$ "2 704:717,SS16:718,MS16:719,SD:720,MDG 17:34,16:936T :222,0 "-- PRESS 'RETURN' KEY TO BEGIN COPY --";:" ";I$ DK$" ORIGINAL":360: GET ORIG DISK 5:24::"READING": 707: READ A HUNK (713)2280:ON PROGRAM"::% Z704:CS(718)16A d715,(110)1:BUFSTART[ n716,(112)1:BUFEND I$" ORIGINAL":NCS:A718:310:MSN:N(720):320:MDN:A717 I$"DUPLICATE":NMS:310:SSN:N3MD:320:SDN FT0 5:24:" ":8:24:" 4% ************************C* DISK COPY *a* COPYRIGHT 1980 BY *(* APPLE COMPUTER INC. *2* *<************************F"BLOAD COPY.OBJ0": A$2C0 P:" APPLE DISKETTE DUPLICATI! ! ! !!!!!נԮէŠΠ)a(ǠԠҠӠ̠ՠ)+a(ԠǮȠԠҠҮ)_Q,a(ĠŠϠŠՠĠԠŠ)(a(ŠҠ̠ŠӮ)$a()a(ϠǠҠ׮)Qoa(ՠĠƠҠ̮)a(ՠŠĠϠ͠ҠǬ)a(ԠŠƠҠŮ)_Ra(ՠϠĠΠŠŮ))a(ŠŠǩĠՠ)0a(ԠҠĠŠҠӡ)_'a(ҠŠĠŠ)-a(ԠҬԠ٠ΧԠ)6a(ĠԠ̮)F88/? rrrE()805-"THE STREET CREWS BOUGHT ALL YOUR"L"LEMONADE AT LUNCHTIME!!"V1185k THUNDERSTORM!y X31:R30 SC5:15000:: "WEATHER REPORT: A SEVERE THUNDERSTORM"$ "HIT LEMONSVILLE EARLIER TODAY, JUST AS". "THE LEMONADE STA LIGHT RAIN,"5C"AND THE WEATHER IS COOLER TODAY."DHR11J100MRX11V\805dX21805"THE STREET DEPARTMENT IS WORKING TODAY.""THERE WILL BE NO TRAFFIC ON YOUR STREET."(1).52233R222250R1.1X21S RESUMED.":E(2)11505.Q3Q1505"STRIKE SETTLED. NORMAL PRODUCTION RESUMED.":"NEW VARIABLE COST=$";U;"/UNIT, DUE TO INCREASED WAGE"::E(2)0:::"COMPANY ";1;" HAS BEEN THE VICTIM OF EMBEZZLEMENT BY THE"S. NEGOTIATIONS HAVE BEEN STARTED, BUT HOPE OF ":"A SETTLEMENT LOOKS DIM."::`E(1)11450qQQ121450E(1)2:"THE WAGE-PRICE FREEZE HAS ENDED.":E(2)11475Q2Q1475 E(5)0:"TRANSPORTATION STRIKE SETTLED. NORMAL DELIVERIEE UNITS."::_"A TRANSPORTATION STRIKE HAS OCCURED, AND YOU ARE UNABLE TO":"MOVE YOUR GOODS TO THE DISTRIBUTORS. NEGOTIATIONS HAVE":"BEGUN, BUT HOPE OF A SETTLEMENT LOOKS DIM."::Nx"THERE HAS BEEN A STRIKE AND YOUR PRODUCTION HAS BEEN":"HALTEDLEMENT BY THE":"VICE-PRESIDENT OF THE COMPANY. YOU CASH ON HAND IS NOW $";C(I):: F"COMPANY ";J;" HAS SUFFERED FIRE DAMAGE IN ITS WAREHOUSE":"ALL UNITS WERE DESTROYED. YOUR INSURANCE WILL REINBURSE YOU":"IN THE AMOUNT OF $";(UI(J).75);" FOR THESCT -VARIABLE PRODUCTION COST NOW=$";U;"/UNIT":1425"THE PRESIDENT HAS JUST IMPOSED A WAGE-PRICE FREEZE ON THE ECONOMY,":"AND YOU MAY NOT RAISE THE PRICE OF YOUR PRODUCT OVER THE NEXT 2 QUARTERS."::S-"COMPANY ";I;" HAS BEEN THE VICTIM OF EMBEZZQ:1080E(1)11230+QW421230FW4Q:1375:E(5)1:Q2Qb((Q1)4)4Q11425pQ11425E(1)11425(1).251280Q612801400:E(2)1:U(U(1.1.1(1))):Q3Q:14253U(U(1.05.1(1))):"NEW LABOR CONTRA=1230BE(1)010704G1300:E(1)1:Q10:1070T[I((1)1.5):QW221075eeC(I)01075xjC(I)2001145oC(I).75C(I):1150yC(I)C(I)200~1325:W2Q:1075J((1)1.5):QW3210601350:C(J)C(J)UI(J).75:I(J)0:W32)1015M2:1020M1FG4(P(3M)P(M))P(3M):G4G11055VG4G21040` G4G2G5D(3M)((G4G1)(G2G1))G3:D(3M)D(3M)G5:D(M)D(M)G5$Q61230)(1).11090.(1).111153(1).111658(1).11200);UI(J)C(J):: 50: 2: .001: .05: 5000,5000: 100,100i 250: 20: .05: .2,.4,.4: 12000: 1.57);"**********************************":"COMPANY ";J;" YOU HAVE GONE BANKRUPCY.":7);"**********************************":P417:P(1)P()0:8553MV(1)A(1)A2:V(2)A(2)A2:V(2)A(2)A2PWD1(K2K2(KA2))K4:Xa:k"QUARTER ";Q::" MARKET CASH NUMBER ASSETS":"PROFIT SHARE ON HAND SOLD INVENT.":;UI(J)C(J)B(J);8);W(J);14);C(J);21);T(J);26);I(J);35FL(J)UA(J):E(2)1760-I(J)I(J)L(J)P"UNIT PRICE=$";A:E(1)1800aAP(J)800 :PRITN"YOU MAY NOT RAISE PRICES DURING THE WAGE-PRICE FREEZE."::760 P(J)A:A200760*P(J)0760/J:A2A(1)A(2):A20845>V(1)0:V(2WANT TO PLAY AGAIN (Y/N) ";H$:H$"N"6706::135<h:J12:::"COMPANY ";J:E(2)1715"NO PRODUCTION POSSIBLE DUE TO STRIKE. ":730"PRODUCTION LEVEL ";L(J):L(J)0715"ADVERTISING REVENUE ";A(J):A(J)0730C(J)C(J)B(J)05805:975:(DB(J)M1620GIB(J)C(3J)UI(3J)620NP417::14);"***************************":"COMPANY ";J;" YOU HAVE REACHED ".001M1;" MILLION AND WON.":14);"***************************":lJ::P417410){:"DO YOU )I(J)T(J)(T(J)):C(J)C(J)T(J)P(J):I(J)I(J)T(J):J:J12:C(J)C(J)RI(J)UK3C(J)((C(J)))(C(J)2)2:C(J)(C(J)):E(2)0530W(J)0:540T(1)T(2)0520W(J)(10000T(J)(T(1)T(2)))100 J:J12:900:B(J)C(J)UI(J):