BY MIKE FLAVEL7 REVISED FROM APPLE VERSIONv C²0:D²0:A²0:ASSETS²0:B²0:BEGINC²10000:BUY²0:WAS²0:BROKER²0¸CASH²10000:CHANGE²0:DAY²0:FEES²0:FLAG²0:INCOME²0:KEY²0:LAST²0ïMARKET²«1:MOTH²0:PRICE²0:SELL²0:SHARES²0:QUARTER²0. (SKS²12:IME²1000:WEEK²0:YEAR²1979:AVERAGE²0:E²0:F²0:G²0:H²0] 2†NAME$(SKS),DAY$(5),MOTH$(12),TABLE(SKS,5)Œ <DISK$²"":A$²"":CHANGE$²"":CHECK$²"":IN$²""Ù FNAME$(1)²"ALCOA ALUMINUM":NAME$(2)²"COMMODORE":NAME$(3)²"CBS INDUSTRIES"' PNAME$(4)²"EXXON OIL":NAME$(5)²"GENERAL MOTORS":NAME$(6)²"HONEYWELL CORP."w ZNAME$(7)²"IBM CORPORATION":NAME$(8)²"INTEL CORP.":NAME$(9)²"LOCKHEED CORP."Å dNAME$(10)²"MOTOROLA":NAME$(11)²"STANDARD OIL":NAME$(12)²"3-M CORPORATION"ë nA²1¤SKS:B²1¤4:TABLE(A,B)²0:‚B,A x™"“********************":= y™£10)"** MARKET CRASH **"z ‚™£10)"** BY MIKE FLAVEL **":™£10);"********************"½ ŒA²1¤SKS:PRICE²µ(»(1)¬100ª1)ª20:WAS²WASªPRICE:TABLE(A,1)²PRICEæ –CHANGE²µ(»(1)¬5)«2:TABLE(A,5)²CHANGE  ‚A:WAS²µ(WAS­SKS¬100)­100:AVERAGE²WASL ªMOTH$(1)²"JANUARY":MOTH$(2)²"FEBRUARY":MOTH$(3)²"MARCH"€ ´MOTH$(4)²"APRIL":MOTH$(5)²"MAY":MOTH$(6)²"JUNE"» ¾MOTH$(7)²"JULY":MOTH$(8)²"AUGUST":MOTH$(9)²"SEPTEMBER"ý ÈMOTH$(10)²"OCTOBER":MOTH$(11)²"NOVEMBER":MOTH$(12)²"DECEMBER"K ÒDAY$(1)²"MONDAY":DAY$(2)²"TUESDAY":DAY$(3)²"WEDNESDAY":DAY$(4)²"THURSDAY"` ×DAY$(5)²"FRIDAY"Š ÜWEEK²0:DAY²0:MOTH²1:LAST²31:QUARTER²0à æ™"“DO YOU WANT INSTRUCTIONS?":2620:‹KEY²206§650á ð™"“";£10)"INSTRUCTIONS’"/ú™" THIS IS A SIMULATION OF THE OPERATIONS OF THE STOCK MARKET.THERE ARE";d™" 12 COMPANY STOCKS AVAILABLE FOR TRADE"µ™"PROVIDING YOU HAVE THE MONEY, THERE IS A BROKERS FEE OF 6% OR $50.00 PER";÷™"STOCK. TRANSACTIONS ARE COLLECTED AT THE END OF EACH WEEK""™"HERE ARE THE KEY FUNCTIONS:"c,™"(S) SELL STOCK":™"(B) BUY STOCK":™"(RETURN) PASS":™"(E) END GAME"²6™"WHEN BUYING OR SELLING STOCK ENTER AT LEAST THE FIRST THREE INITIALS "Ë@™"OF THE STOCK NAME"ìJ™"PRESS ANY KEY TO CONTINUE"T2620:‹KEY²195§2560 Š¼ MAIN PROGRAM&Æ8300Ð1300:Ú1750Dä1910]î‹KEY²194°KEY²211§780oø‹KEY²197§2360x‰700‚ 1970•‹KEY²194§2070¨ ‹KEY²211§2210²*1910»4‰750Î> DATA FIGURESÿHMARKET²MARKETªµ(»(1)¬3)«1:‹MARKEY±2§MARKEY²2R‹MARKET³«3§MARKET²«37\‹»(1)±.92§MARKET²«1¬MARKETgfFLAG²0:WEEK²WEEKª1:DAY²DAYª1:‹DAY³²LAST§910’pDAY²DAY«LAST:MOTH²MOTHª1:‹MOTH±12§2890¸zQUARTER²QUARTERª1:‹QUARTER³±3§910Ì„QUARTER²0:1670ÝŽ‹WEEK³²5§950˜™"“":LAST²28:‹MOTH²4°MOTH²6°MOTH²9°MOTH²11§LAST²30T¢‹MOTH²1°MOTH²3°MOTH²5°MOTH²7°MOTH²8°MOTH²10°MOTH²12§LAST²31r¬FLAG²1:WEEK²0:A$²"":‰1200¶1630:‹MOTH²1¯DAY²1§1060©À‹ MOTH²2¯DAY²12§‰1070ÂÊ‹MOTH²2¯DAY²19§‰1080ÛÔ‹MOTH²5¯DAY²28§‰1090óÞ‹MOTH²7¯DAY²4§‰1100 è‹MOTH²9¯DAY²3§‰1110$ò‹MOTH²10¯DAY²8§‰1120>ü‹MOTH²11¯DAY²12§‰1130X‹MOTH²11¯DAY²22§‰1140r‹MOTH²12¯DAY²25§‰1150|‰1190›$A$²"“NEW YEAR'S DAY":‰1160¾.A$²"“LINCOLN'S BIRTHDAY":‰1160ä8A$²"“WASHINGTON'S BIRTHDAY":‰1160BA$²"“MEMORIAL DAY":‰1160"LA$²"“INDEPENDENCE DAY":‰1160<VA$²"“LABOR DAY":‰1160Y`A$²"“COLUMBUS DAY":‰1160vjA$²"“VETERANS DAY":‰1160—tA$²"“THANKSGIVING DAY":‰1160«~A$²"“CHRISTMAS"Àˆ™A$:A²1¤1000:‚A󒙣9)"STOCK MARKET CLOSED...":A²1¤1000:‚A:™"“"üœ‰870¦1420:‹FLAG²0§Ž?°™£3)"WEEKEND":™£9)"STOCK MARKET CLOSED..."aº™:™:1470:DAY²DAYª1:™"“":‰870gĀ΋CASH±²0¯WEEK±1§1260 Ø‹Ã(A$)±1¯WEEK²2¯CASH³0§1260¹â‹CASH³0¯WEEK³±1§2720âìFLAG²0:B²1¤SKS:‹TABLE(B,1)±0§FLAG²Böö‚B:‹FLAG²0§2850FLAG²0:‹CASH³²0¯ASSETS³²0§2780 Ž4 MARKET FIGURES^ASSETS²0:A²1¤SKS:‹TABLE(A,1)³²0§1400(CHANGE²TABLE(A,5)ªµ(»(1)¬3)«1:‹»(1)±.85§1360¦2‹CHANGE±2§CHANGE²2¿<‹CHANGE³«2§CHANGE²«2ÉF‰1370ëPCHANGE²TABLE(A,5)ªµ(»(1)¬5)«2 Z‹»(1)±.9§CHANGE²«1¬CHANGEQdTABLE(A,5)²CHANGE:CHANGE²CHANGEªMARKET:TABLE(A,1)²TABLE(A,1)ªCHANGEii‹TABLE(A,1)³²0§1410 nTABLE(A,2)²CHANGE:TABLE(A,4)²TABLE(A,3)¬TABLE(A,1)ÈxASSETS²ASSETSªTABLE(A,4):‚A:1220:Žé‚B²1¤5:TABLE(A,B)²0:‚B:‰1400ýŒ FIRST OR WEEK–‹WEEK³±1¯¨(WEEK²2¯Ã(A$)±1)§ŽQ BEGINC²0:ASSETS²0:B²1¤SKS:‹TABLE(B,1)³²0§1460nªASSETS²ASSETSªTABLE(B,4)´‚B:BEGINC²CASHªASSETS:1220:Ž£¾ WEEKEND DATA¾ÈINCOME²0:™"“":A²1¤SKSèÒINCOME²INCOMEª(TABLE(A,1)¬TABLE(A,3))Ü‚A:™£3)"TOTAL INCOME FOR THE WEEK: ":™W晣5)"CASH AT WEEKEND:";£27)"$";CASH:™£5)"CURRENT PAPER WORTH:";l뙣27);"$";INCOME§ð™£27);"---------":™£5);"TOTAL:";£27);"$";CASHªINCOME:™ìú™£5);"TOTAL ASSETS + CASH":™£5);"AT BEGINNING OF WEEK:";£27)"$"; ÿ™BEGINC:™£27)"---------"L™£5)"GROSS WEEK'S INCOME:";£27);"$";(CASHªINCOME)«BEGINC:™£5);t ™"LESS BROKER'S FEES";£27);"$";FEES»™:™:™£5);"NET WEEK'S INCOME:";£27);"$";((CASHªINCOME)«BEGINC)«FEESÞ™:CASH²CASH«FEES:‹CASH±²0§1570+™"YOU HAVE UNTIL MONDAY TO BREAK":™"EVEN, OR ELSE!!! (CASH: $";CASH;")"I"BEGINC²CASHªINCOME:FEES²0x,™"PRESS ANY KEY TO CONTINUE...":2620:Ž6 ASSET PRINTOUTÄ@ASSETS²0:B²1¤SKS:TABLE(B,4)²TABLE(B,1)¬TABLE(B,3)äEASSETS²ASSETSªTABLE(B,4):‚B&J™"CASH: $";CASH;£23);"ASSETS: $";ASSETS.T™:ŽB^ DATA PRINTOUTHhRr4500˜s™"" £3);" "Ùt™"" £3);"DATE:";DAY$(WEEK);",";MOTH$(MOTH);" ";DAY;",";YEARô|1220:™£40):LTH²¸(0):Ž † DIVIDENDS PAID'CASH²CASHªµ(ASSETS¬.08):Ž<š STOCK PRINTOUTj¤CHANGE$²Ä(TABLE(A,2)):‹TABLE(A,1)³²0§1730–®‹TABLE(A,2)±0§CHANGE$²"+"ªÄ(TABLE(A,2))Ò¸™NAME$(A);£16);TABLE(A,1);£21);CHANGE$;£25);TABLE(A,3);í½™£30);TABLE(A,4):‰1740™"*** ";NAME$(A);" IS BAKNRUPT...";£40)ÌŽ2Ö PRINTOUT ALLMàWAS²AVERAGE:AVERAGE²0:ê™"STOCK NAME";£15);"CLOSE";£21);"CHG";£25);"OWNED";" WORTH"§ôA²1¤40:™"=";:‚A:™»þA²1¤SKS: 1690ÝAVERAGE²AVERAGEªTABLE(A,1):‚AôA²1¤40:™"=";:‚A:™AVERAGE²µ((AVERAGE­SKS)¬100)­100B&™"AVERAGE: $";AVERAGE;"/SHARE";£20);l0CHANGE²µ((AVERAGE¬100)«(WAS¬100))­100€:‹CHANGE³±0§1870™D™"(NO CHANGE)":‰1900¬N‹CHANGE±0§1890ÎX™"(DOWN ";¶(CHANGE);")":‰1900çb™"(UP";¶(CHANGE);")"ílŽùmCHECK²1 vDATA INPUT € OPTION INPUT9 ŠX²1784ª40¤2023:—X,32:‚:j Ž1590:™"(B)-BUY";£20);z ™"(S)-SELL)Ä ”™"(E)-STOP";£20);"(RETURN)-PASS":™"WHICH FUNCTION DO YOU WANT?":2620ë ž‹KEY²194°KEY²211°KEY²197°KEY²141§Ž!¨‰1930:™"WHAT????’":B²1¤1000:‚:‰1930'!² STOCK INPUTC!¼X²1784«40¤2023:—X,32:‚u!Å…"INPUT STOCK NAME: ";IN$™!ÆFLAG²0:CHECK$²È(IN$,3):A²1¤SKSº!ЋCHECK$²È(NAME$(A),3)§FLAG²AÏ!Ú‚A:‹FLAG³±0§2050ê!ä™IN$;"???":B²1¤1000:‚'"î™"THERE IS NO STOCK BY THAT NAME!!!":B²1¤(1.5¬1000):‚:Žc"ø™NAME$(FLAG); "IS BANKRUPT!!!":B²1¤(2¬1000):‚:FLAG²0:Ž~"‹TABLE(FLAG,1)³²0§2040„" Ž”" BUY STOCKª" A²FLAG:‹FLAG³²0§Ž»"* GOSUB1770:#4™"HOW MANY SHARES DO YOU ":…"WANT TO BUY?";BUY#5‹BUY²0§2200+#6X²1784¤2023:—X,32:‚;#>‹BUY³0§2190i#HSHARES²TABLE(A,1)¬BUY:‹CASH«SHARES³0§2180ª#RTABLE(A,4)²TABLE(A,4)ªSHARES:TABLE(A,3)²TABLE(A,3)ªBUY:1770Ó#\BROKER²µ(SHARES¬.06):‹BROKER³50§2160î#fFEES²FEESªBROKER:‰2170ÿ#pFEES²FEESª50%$zCASH²CASH«SHARES:Ž:PRI-GOSUB1690Z$„™"NOT ENOUGH MONEY!!!";:B²1¤(1.5¬1000):‚:‰2090—$Ž™"SAY WHAT??? TRY THAT AGAIN!!!":B²1¤(1.5¬TIME):‚:‰2090¯$˜Ž:GOSUB1690:RETURNÀ$¢ SELL STOCKÓ$¬A²FLAG:‹A³²0§Žâ$¶GOSUB1690%À™"HOW MANY SHARES DO YOU":…"WANT TO SELL ";SELL2%ÁX²1824«40¤2023:—X,32:‚C%Å‹SELL²0§2330]%Ê‹SELL±TABLE(A,3)§2340n%Ô‹SELL³0§2350®%ÞTABLE(A,3)²TABLE(A,3)«SELL:TABLE(A,4)²TABLE(A,3)¬TABLE(A,1)Ì%èCASH²CASHªTABLE(A,1)¬SELLï%òBROKER²µ((TABLE(A,1)¬SELL)¬.0)&ü‹BROKER³50§2320& FEES²FEESªBROKER:‰2330/& FEES²FEESª50A& 4000:1770:Ž€&$ ™"??? YOU DON'T HAVE THAT MANY!!!":B²1¤(1.5¬1000):‚:‰2230¾&. ™"SAY WHAT ??? TRY THAT AGAIN!!!":B²1¤(1.5¬1000):‚:‰2230Ñ&8 VARIABLE ENDâ&B ™"“END"ø&ˆ ™"GAME END":™:™:™'’ ‰2920H'< ***KEYBOARD INPUT***\'F ¡A$:‹A$²""§2630k'P KEY²Æ(A$):…'Q ‹KEY²66§KEY²194:‰2646Ÿ'R ‹KEY²83§KEY²211:‰2646¹'S ‹KEY²69§KEY²197:‰2646Ô'T ‹KEY²133§KEY²141:‰2646ä'U KEY²KEYª128ö'V ‹KEY±127§2660(Z ‰2640(d Ž(n *** B=66$(x *** S=833(‚ *** E=69C(Œ RETURN= 13M(– ENDZ(  BROKERª(ª ™"YOUR BROKER HAS TAKEN LEGAL ACTION AGAINST YOUR PERSONAL ASSETS"¹(¯ ™"DUE TO";ô(´ ™"YOUR DEFAULTING ON YOUR CONTRACT. YOU ARE BANKRUPT"ú(Ò € )Ü PLAYER BROKEY)æ ™"DO TO YOUR LOW IQ AND STUPIDITY YOU HAVE MANAGED TO BECOME BANKRUPT."_)ð €r)" MARKEY CRASH½), ™"“THE STOCK MARKET HAS CRASHED. ALL THE COMPANIES ARE NOW BANKRUPT!!"Ñ)6 ‹CASH±1000§2890ð)@ ™"YOU LOST YOUR SHORTS!!!"*J A²1¤(3¬1000):‚A:™"“":‰2440*T YEAR END=*^ 1670:™"“";£15)"YEAR END"g*h ASSETS²0:A²1¤SKS:‹TABLE(A,1)³²0§2940‘*r ASSETS²ASSETSª(TABLE(A,1)¬TABLE(A,3))˜*| ‚A×*† ™£7)"TOTAL CASH:";£27);"$";CASH:™£7)"ASSETS PAPER VALUE:";ý*‹ ™£27);"$";ASSETS:™£27)"---------"&+ ™"TOTAL WORTH:";£27);"$";CASHªASSETSd+š ™£7)"SUBRTRACT":™£7)"START.CAPITAL:";£27);"$10000":™£27);u+Ÿ ™"---------"«+¤ ™£7);"GROSS INCOME:";£27);"$";(CASHªASSETS)«10000Ó+© ™£7);"LESS ASSETS:";£27);"$";ASSETS,® ™£27)"---------":™£7);"NET RECOGNIZED":™£7)"INCOME";CASH«10000Q,¸ ™:INCOME²CASH«10000:PERCENT²µ((INCOME­10000)¬10000)­10“, ™£5)"YEAR'S RESULTS:":™"THE YEARS TRANSACTIONS NETTED":™£5);¨,Ì ‹PERCENT±²0§3040Ï,Ö ™"A ";PERCENT;"% DECREASE ";:‰3050ð,à ™"A ";PERCENT;"% INCREASE ";-ê ™"IN CASH , WITH A"=-ô PERCENT²µ((((ASSETSªCASH)«10000)­10000)¬1000)­10R-þ ‹PERCENT±²0§3090{- ™£5);¶(PERCENT);"% DECREASE ";:‰3100›- ™£5);PERCENT;"% INCREASE ";¯- ™"IN NET WORTH"µ-& €Ì-  ERASE SUBROUTINEÚ-ª™"";æ-´X²1¤13ÿ-¾™£24);" ".È‚:Ž.” ERASE SUBROUTINE,.ž™"";8.¨X²1¤13Z.²™£17);" "b.¼‚:Ž