Multiple names: +STOCK.C, STOCK.C

00000000: 01 08 16 08 01 00 8F 20  42 59 20 4D 49 4B 45 20  |....... BY MIKE |
00000010: 46 4C 41 56 45 4C 00 37  08 02 00 8F 20 52 45 56  |FLAVEL.7.... REV|
00000020: 49 53 45 44 20 46 52 4F  4D 20 41 50 50 4C 45 20  |ISED FROM APPLE |
00000030: 56 45 52 53 49 4F 4E 00  76 08 0A 00 43 B2 30 3A  |VERSION.v...C.0:|
00000040: 44 B2 30 3A 41 B2 30 3A  41 53 53 45 54 53 B2 30  |D.0:A.0:ASSETS.0|
00000050: 3A 42 B2 30 3A 42 45 47  49 4E 43 B2 31 30 30 30  |:B.0:BEGINC.1000|
00000060: 30 3A 42 55 59 B2 30 3A  57 41 53 B2 30 3A 42 52  |0:BUY.0:WAS.0:BR|
00000070: 4F 4B 45 52 B2 30 00 B8  08 14 00 43 41 53 48 B2  |OKER.0.....CASH.|
00000080: 31 30 30 30 30 3A 43 48  41 4E 47 45 B2 30 3A 44  |10000:CHANGE.0:D|
00000090: 41 59 B2 30 3A 46 45 45  53 B2 30 3A 46 4C 41 47  |AY.0:FEES.0:FLAG|
000000A0: B2 30 3A 49 4E 43 4F 4D  45 B2 30 3A 4B 45 59 B2  |.0:INCOME.0:KEY.|
000000B0: 30 3A 4C 41 53 54 B2 30  00 EF 08 1E 00 4D 41 52  |0:LAST.0.....MAR|
000000C0: 4B 45 54 B2 AB 31 3A 4D  4F 54 48 B2 30 3A 50 52  |KET..1:MOTH.0:PR|
000000D0: 49 43 45 B2 30 3A 53 45  4C 4C B2 30 3A 53 48 41  |ICE.0:SELL.0:SHA|
000000E0: 52 45 53 B2 30 3A 51 55  41 52 54 45 52 B2 30 00  |RES.0:QUARTER.0.|
000000F0: 2E 09 28 00 53 4B 53 B2  31 32 3A 49 4D 45 B2 31  |..(.SKS.12:IME.1|
00000100: 30 30 30 3A 57 45 45 4B  B2 30 3A 59 45 41 52 B2  |000:WEEK.0:YEAR.|
00000110: 31 39 37 39 3A 41 56 45  52 41 47 45 B2 30 3A 45  |1979:AVERAGE.0:E|
00000120: B2 30 3A 46 B2 30 3A 47  B2 30 3A 48 B2 30 00 5D  |.0:F.0:G.0:H.0.]|
00000130: 09 32 00 86 4E 41 4D 45  24 28 53 4B 53 29 2C 44  |.2..NAME$(SKS),D|
00000140: 41 59 24 28 35 29 2C 4D  4F 54 48 24 28 31 32 29  |AY$(5),MOTH$(12)|
00000150: 2C 54 41 42 4C 45 28 53  4B 53 2C 35 29 00 8C 09  |,TABLE(SKS,5)...|
00000160: 3C 00 44 49 53 4B 24 B2  22 22 3A 41 24 B2 22 22  |<.DISK$."":A$.""|
00000170: 3A 43 48 41 4E 47 45 24  B2 22 22 3A 43 48 45 43  |:CHANGE$."":CHEC|
00000180: 4B 24 B2 22 22 3A 49 4E  24 B2 22 22 00 D9 09 46  |K$."":IN$.""...F|
00000190: 00 4E 41 4D 45 24 28 31  29 B2 22 41 4C 43 4F 41  |.NAME$(1)."ALCOA|
000001A0: 20 41 4C 55 4D 49 4E 55  4D 22 3A 4E 41 4D 45 24  | ALUMINUM":NAME$|
000001B0: 28 32 29 B2 22 43 4F 4D  4D 4F 44 4F 52 45 22 3A  |(2)."COMMODORE":|
000001C0: 4E 41 4D 45 24 28 33 29  B2 22 43 42 53 20 49 4E  |NAME$(3)."CBS IN|
000001D0: 44 55 53 54 52 49 45 53  22 00 27 0A 50 00 4E 41  |DUSTRIES".'.P.NA|
000001E0: 4D 45 24 28 34 29 B2 22  45 58 58 4F 4E 20 4F 49  |ME$(4)."EXXON OI|
000001F0: 4C 22 3A 4E 41 4D 45 24  28 35 29 B2 22 47 45 4E  |L":NAME$(5)."GEN|
00000200: 45 52 41 4C 20 4D 4F 54  4F 52 53 22 3A 4E 41 4D  |ERAL MOTORS":NAM|
00000210: 45 24 28 36 29 B2 22 48  4F 4E 45 59 57 45 4C 4C  |E$(6)."HONEYWELL|
00000220: 20 43 4F 52 50 2E 22 00  77 0A 5A 00 4E 41 4D 45  | CORP.".w.Z.NAME|
00000230: 24 28 37 29 B2 22 49 42  4D 20 43 4F 52 50 4F 52  |$(7)."IBM CORPOR|
00000240: 41 54 49 4F 4E 22 3A 4E  41 4D 45 24 28 38 29 B2  |ATION":NAME$(8).|
00000250: 22 49 4E 54 45 4C 20 43  4F 52 50 2E 22 3A 4E 41  |"INTEL CORP.":NA|
00000260: 4D 45 24 28 39 29 B2 22  4C 4F 43 4B 48 45 45 44  |ME$(9)."LOCKHEED|
00000270: 20 43 4F 52 50 2E 22 00  C5 0A 64 00 4E 41 4D 45  | CORP."...d.NAME|
00000280: 24 28 31 30 29 B2 22 4D  4F 54 4F 52 4F 4C 41 22  |$(10)."MOTOROLA"|
00000290: 3A 4E 41 4D 45 24 28 31  31 29 B2 22 53 54 41 4E  |:NAME$(11)."STAN|
000002A0: 44 41 52 44 20 4F 49 4C  22 3A 4E 41 4D 45 24 28  |DARD OIL":NAME$(|
000002B0: 31 32 29 B2 22 33 2D 4D  20 43 4F 52 50 4F 52 41  |12)."3-M CORPORA|
000002C0: 54 49 4F 4E 22 00 EB 0A  6E 00 81 41 B2 31 A4 53  |TION"...n..A.1.S|
000002D0: 4B 53 3A 81 42 B2 31 A4  34 3A 54 41 42 4C 45 28  |KS:.B.1.4:TABLE(|
000002E0: 41 2C 42 29 B2 30 3A 82  42 2C 41 00 1D 0B 78 00  |A,B).0:.B,A...x.|
000002F0: 99 22 93 11 11 11 11 11  11 11 11 11 11 1D 1D 1D  |."..............|
00000300: 1D 1D 1D 1D 1D 1D 1D 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.......*********|
00000310: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 22 3A 00 3D 0B  |***********":.=.|
00000320: 79 00 99 A3 31 30 29 22  2A 2A 20 20 4D 41 52 4B  |y...10)"**  MARK|
00000330: 45 54 20 43 52 41 53 48  20 20 2A 2A 22 00 7A 0B  |ET CRASH  **".z.|
00000340: 82 00 99 A3 31 30 29 22  2A 2A 20 42 59 20 4D 49  |....10)"** BY MI|
00000350: 4B 45 20 46 4C 41 56 45  4C 20 2A 2A 22 3A 99 A3  |KE FLAVEL **":..|
00000360: 31 30 29 3B 22 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |10);"***********|
00000370: 2A 2A 2A 2A 2A 2A 2A 2A  2A 22 00 BD 0B 8C 00 81  |*********"......|
00000380: 41 B2 31 A4 53 4B 53 3A  50 52 49 43 45 B2 B5 28  |A.1.SKS:PRICE..(|
00000390: BB 28 31 29 AC 31 30 30  AA 31 29 AA 32 30 3A 57  |.(1).100.1).20:W|
000003A0: 41 53 B2 57 41 53 AA 50  52 49 43 45 3A 54 41 42  |AS.WAS.PRICE:TAB|
000003B0: 4C 45 28 41 2C 31 29 B2  50 52 49 43 45 00 E6 0B  |LE(A,1).PRICE...|
000003C0: 96 00 43 48 41 4E 47 45  B2 B5 28 BB 28 31 29 AC  |..CHANGE..(.(1).|
000003D0: 35 29 AB 32 3A 54 41 42  4C 45 28 41 2C 35 29 B2  |5).2:TABLE(A,5).|
000003E0: 43 48 41 4E 47 45 00 10  0C A0 00 82 41 3A 57 41  |CHANGE......A:WA|
000003F0: 53 B2 B5 28 57 41 53 AD  53 4B 53 AC 31 30 30 29  |S..(WAS.SKS.100)|
00000400: AD 31 30 30 3A 41 56 45  52 41 47 45 B2 57 41 53  |.100:AVERAGE.WAS|
00000410: 00 4C 0C AA 00 4D 4F 54  48 24 28 31 29 B2 22 4A  |.L...MOTH$(1)."J|
00000420: 41 4E 55 41 52 59 22 3A  4D 4F 54 48 24 28 32 29  |ANUARY":MOTH$(2)|
00000430: B2 22 46 45 42 52 55 41  52 59 22 3A 4D 4F 54 48  |."FEBRUARY":MOTH|
00000440: 24 28 33 29 B2 22 4D 41  52 43 48 22 00 80 0C B4  |$(3)."MARCH"....|
00000450: 00 4D 4F 54 48 24 28 34  29 B2 22 41 50 52 49 4C  |.MOTH$(4)."APRIL|
00000460: 22 3A 4D 4F 54 48 24 28  35 29 B2 22 4D 41 59 22  |":MOTH$(5)."MAY"|
00000470: 3A 4D 4F 54 48 24 28 36  29 B2 22 4A 55 4E 45 22  |:MOTH$(6)."JUNE"|
00000480: 00 BB 0C BE 00 4D 4F 54  48 24 28 37 29 B2 22 4A  |.....MOTH$(7)."J|
00000490: 55 4C 59 22 3A 4D 4F 54  48 24 28 38 29 B2 22 41  |ULY":MOTH$(8)."A|
000004A0: 55 47 55 53 54 22 3A 4D  4F 54 48 24 28 39 29 B2  |UGUST":MOTH$(9).|
000004B0: 22 53 45 50 54 45 4D 42  45 52 22 00 FD 0C C8 00  |"SEPTEMBER".....|
000004C0: 4D 4F 54 48 24 28 31 30  29 B2 22 4F 43 54 4F 42  |MOTH$(10)."OCTOB|
000004D0: 45 52 22 3A 4D 4F 54 48  24 28 31 31 29 B2 22 4E  |ER":MOTH$(11)."N|
000004E0: 4F 56 45 4D 42 45 52 22  3A 4D 4F 54 48 24 28 31  |OVEMBER":MOTH$(1|
000004F0: 32 29 B2 22 44 45 43 45  4D 42 45 52 22 00 4B 0D  |2)."DECEMBER".K.|
00000500: D2 00 44 41 59 24 28 31  29 B2 22 4D 4F 4E 44 41  |..DAY$(1)."MONDA|
00000510: 59 22 3A 44 41 59 24 28  32 29 B2 22 54 55 45 53  |Y":DAY$(2)."TUES|
00000520: 44 41 59 22 3A 44 41 59  24 28 33 29 B2 22 57 45  |DAY":DAY$(3)."WE|
00000530: 44 4E 45 53 44 41 59 22  3A 44 41 59 24 28 34 29  |DNESDAY":DAY$(4)|
00000540: B2 22 54 48 55 52 53 44  41 59 22 00 60 0D D7 00  |."THURSDAY".`...|
00000550: 44 41 59 24 28 35 29 B2  22 46 52 49 44 41 59 22  |DAY$(5)."FRIDAY"|
00000560: 00 8A 0D DC 00 57 45 45  4B B2 30 3A 44 41 59 B2  |.....WEEK.0:DAY.|
00000570: 30 3A 4D 4F 54 48 B2 31  3A 4C 41 53 54 B2 33 31  |0:MOTH.1:LAST.31|
00000580: 3A 51 55 41 52 54 45 52  B2 30 00 C3 0D E6 00 99  |:QUARTER.0......|
00000590: 22 93 11 11 1D 1D 44 4F  20 59 4F 55 20 57 41 4E  |".....DO YOU WAN|
000005A0: 54 20 49 4E 53 54 52 55  43 54 49 4F 4E 53 3F 22  |T INSTRUCTIONS?"|
000005B0: 3A 8D 32 36 32 30 3A 8B  4B 45 59 B2 32 30 36 A7  |:.2620:.KEY.206.|
000005C0: 36 35 30 00 E1 0D F0 00  99 22 93 22 3B A3 31 30  |650......".";.10|
000005D0: 29 22 12 49 4E 53 54 52  55 43 54 49 4F 4E 53 92  |)".INSTRUCTIONS.|
000005E0: 22 00 2F 0E FA 00 99 22  20 54 48 49 53 20 49 53  |"./...." THIS IS|
000005F0: 20 41 20 53 49 4D 55 4C  41 54 49 4F 4E 20 4F 46  | A SIMULATION OF|
00000600: 20 54 48 45 20 4F 50 45  52 41 54 49 4F 4E 53 20  | THE OPERATIONS |
00000610: 4F 46 20 54 48 45 20 53  54 4F 43 4B 20 4D 41 52  |OF THE STOCK MAR|
00000620: 4B 45 54 2E 54 48 45 52  45 20 41 52 45 22 3B 00  |KET.THERE ARE";.|
00000630: 64 0E 04 01 99 22 20 31  32 20 20 20 20 20 20 20  |d...." 12       |
00000640: 20 43 4F 4D 50 41 4E 59  20 53 54 4F 43 4B 53 20  | COMPANY STOCKS |
00000650: 41 56 41 49 4C 41 42 4C  45 20 46 4F 52 20 54 52  |AVAILABLE FOR TR|
00000660: 41 44 45 22 00 B5 0E 0E  01 99 22 50 52 4F 56 49  |ADE"......"PROVI|
00000670: 44 49 4E 47 20 59 4F 55  20 48 41 56 45 20 54 48  |DING YOU HAVE TH|
00000680: 45 20 4D 4F 4E 45 59 2C  20 54 48 45 52 45 20 49  |E MONEY, THERE I|
00000690: 53 20 41 20 42 52 4F 4B  45 52 53 20 46 45 45 20  |S A BROKERS FEE |
000006A0: 4F 46 20 36 25 20 4F 52  20 24 35 30 2E 30 30 20  |OF 6% OR $50.00 |
000006B0: 50 45 52 22 3B 00 F7 0E  18 01 99 22 53 54 4F 43  |PER";......"STOC|
000006C0: 4B 2E 20 20 54 52 41 4E  53 41 43 54 49 4F 4E 53  |K.  TRANSACTIONS|
000006D0: 20 41 52 45 20 43 4F 4C  4C 45 43 54 45 44 20 41  | ARE COLLECTED A|
000006E0: 54 20 54 48 45 20 45 4E  44 20 4F 46 20 45 41 43  |T THE END OF EAC|
000006F0: 48 20 57 45 45 4B 22 00  1B 0F 22 01 99 22 11 48  |H WEEK"..."..".H|
00000700: 45 52 45 20 41 52 45 20  54 48 45 20 4B 45 59 20  |ERE ARE THE KEY |
00000710: 46 55 4E 43 54 49 4F 4E  53 3A 22 00 63 0F 2C 01  |FUNCTIONS:".c.,.|
00000720: 99 22 28 53 29 20 53 45  4C 4C 20 53 54 4F 43 4B  |."(S) SELL STOCK|
00000730: 22 3A 99 22 28 42 29 20  42 55 59 20 53 54 4F 43  |":."(B) BUY STOC|
00000740: 4B 22 3A 99 22 28 52 45  54 55 52 4E 29 20 50 41  |K":."(RETURN) PA|
00000750: 53 53 22 3A 99 22 28 45  29 20 45 4E 44 20 47 41  |SS":."(E) END GA|
00000760: 4D 45 22 00 B2 0F 36 01  99 22 57 48 45 4E 20 42  |ME"...6.."WHEN B|
00000770: 55 59 49 4E 47 20 4F 52  20 53 45 4C 4C 49 4E 47  |UYING OR SELLING|
00000780: 20 53 54 4F 43 4B 20 45  4E 54 45 52 20 41 54 20  | STOCK ENTER AT |
00000790: 20 20 4C 45 41 53 54 20  54 48 45 20 46 49 52 53  |  LEAST THE FIRS|
000007A0: 54 20 54 48 52 45 45 20  49 4E 49 54 49 41 4C 53  |T THREE INITIALS|
000007B0: 20 22 00 CB 0F 40 01 99  22 4F 46 20 54 48 45 20  | "...@.."OF THE |
000007C0: 53 54 4F 43 4B 20 4E 41  4D 45 22 00 EC 0F 4A 01  |STOCK NAME"...J.|
000007D0: 99 22 50 52 45 53 53 20  41 4E 59 20 4B 45 59 20  |."PRESS ANY KEY |
000007E0: 54 4F 20 43 4F 4E 54 49  4E 55 45 22 00 04 10 54  |TO CONTINUE"...T|
000007F0: 01 8D 32 36 32 30 3A 8B  4B 45 59 B2 31 39 35 A7  |..2620:.KEY.195.|
00000800: 32 35 36 30 00 0A 10 8A  02 8F 00 1D 10 BC 02 8F  |2560............|
00000810: 20 4D 41 49 4E 20 50 52  4F 47 52 41 4D 00 26 10  | MAIN PROGRAM.&.|
00000820: C6 02 8D 38 33 30 00 30  10 D0 02 8D 31 33 30 30  |...830.0....1300|
00000830: 00 3A 10 DA 02 8D 31 37  35 30 00 44 10 E4 02 8D  |.:....1750.D....|
00000840: 31 39 31 30 00 5D 10 EE  02 8B 4B 45 59 B2 31 39  |1910.]....KEY.19|
00000850: 34 B0 4B 45 59 B2 32 31  31 A7 37 38 30 00 6F 10  |4.KEY.211.780.o.|
00000860: F8 02 8B 4B 45 59 B2 31  39 37 A7 32 33 36 30 00  |...KEY.197.2360.|
00000870: 78 10 02 03 89 37 30 30  00 82 10 0C 03 8D 31 39  |x....700......19|
00000880: 37 30 00 95 10 16 03 8B  4B 45 59 B2 31 39 34 A7  |70......KEY.194.|
00000890: 8D 32 30 37 30 00 A8 10  20 03 8B 4B 45 59 B2 32  |.2070... ..KEY.2|
000008A0: 31 31 A7 8D 32 32 31 30  00 B2 10 2A 03 8D 31 39  |11..2210...*..19|
000008B0: 31 30 00 BB 10 34 03 89  37 35 30 00 CE 10 3E 03  |10...4..750...>.|
000008C0: 8F 20 44 41 54 41 20 46  49 47 55 52 45 53 00 FF  |. DATA FIGURES..|
000008D0: 10 48 03 4D 41 52 4B 45  54 B2 4D 41 52 4B 45 54  |.H.MARKET.MARKET|
000008E0: AA B5 28 BB 28 31 29 AC  33 29 AB 31 3A 8B 4D 41  |..(.(1).3).1:.MA|
000008F0: 52 4B 45 59 B1 32 A7 4D  41 52 4B 45 59 B2 32 00  |RKEY.2.MARKEY.2.|
00000900: 18 11 52 03 8B 4D 41 52  4B 45 54 B3 AB 33 A7 4D  |..R..MARKET..3.M|
00000910: 41 52 4B 45 54 B2 AB 33  00 37 11 5C 03 8B BB 28  |ARKET..3.7.\...(|
00000920: 31 29 B1 2E 39 32 A7 4D  41 52 4B 45 54 B2 AB 31  |1)..92.MARKET..1|
00000930: AC 4D 41 52 4B 45 54 00  67 11 66 03 46 4C 41 47  |.MARKET.g.f.FLAG|
00000940: B2 30 3A 57 45 45 4B B2  57 45 45 4B AA 31 3A 44  |.0:WEEK.WEEK.1:D|
00000950: 41 59 B2 44 41 59 AA 31  3A 8B 44 41 59 B3 B2 4C  |AY.DAY.1:.DAY..L|
00000960: 41 53 54 A7 39 31 30 00  92 11 70 03 44 41 59 B2  |AST.910...p.DAY.|
00000970: 44 41 59 AB 4C 41 53 54  3A 4D 4F 54 48 B2 4D 4F  |DAY.LAST:MOTH.MO|
00000980: 54 48 AA 31 3A 8B 4D 4F  54 48 B1 31 32 A7 32 38  |TH.1:.MOTH.12.28|
00000990: 39 30 00 B8 11 7A 03 51  55 41 52 54 45 52 B2 51  |90...z.QUARTER.Q|
000009A0: 55 41 52 54 45 52 AA 31  3A 8B 51 55 41 52 54 45  |UARTER.1:.QUARTE|
000009B0: 52 B3 B1 33 A7 39 31 30  00 CC 11 84 03 51 55 41  |R..3.910.....QUA|
000009C0: 52 54 45 52 B2 30 3A 8D  31 36 37 30 00 DD 11 8E  |RTER.0:.1670....|
000009D0: 03 8B 57 45 45 4B B3 B2  35 A7 39 35 30 00 14 12  |..WEEK..5.950...|
000009E0: 98 03 99 22 93 22 3A 4C  41 53 54 B2 32 38 3A 8B  |...".":LAST.28:.|
000009F0: 4D 4F 54 48 B2 34 B0 4D  4F 54 48 B2 36 B0 4D 4F  |MOTH.4.MOTH.6.MO|
00000A00: 54 48 B2 39 B0 4D 4F 54  48 B2 31 31 A7 4C 41 53  |TH.9.MOTH.11.LAS|
00000A10: 54 B2 33 30 00 54 12 A2  03 8B 4D 4F 54 48 B2 31  |T.30.T....MOTH.1|
00000A20: B0 4D 4F 54 48 B2 33 B0  4D 4F 54 48 B2 35 B0 4D  |.MOTH.3.MOTH.5.M|
00000A30: 4F 54 48 B2 37 B0 4D 4F  54 48 B2 38 B0 4D 4F 54  |OTH.7.MOTH.8.MOT|
00000A40: 48 B2 31 30 B0 4D 4F 54  48 B2 31 32 A7 4C 41 53  |H.10.MOTH.12.LAS|
00000A50: 54 B2 33 31 00 72 12 AC  03 46 4C 41 47 B2 31 3A  |T.31.r...FLAG.1:|
00000A60: 57 45 45 4B B2 30 3A 41  24 B2 22 22 3A 89 31 32  |WEEK.0:A$."":.12|
00000A70: 30 30 00 8F 12 B6 03 8D  31 36 33 30 3A 8B 4D 4F  |00......1630:.MO|
00000A80: 54 48 B2 31 AF 44 41 59  B2 31 A7 31 30 36 30 00  |TH.1.DAY.1.1060.|
00000A90: A9 12 C0 03 8B 20 4D 4F  54 48 B2 32 AF 44 41 59  |..... MOTH.2.DAY|
00000AA0: B2 31 32 A7 89 31 30 37  30 00 C2 12 CA 03 8B 4D  |.12..1070......M|
00000AB0: 4F 54 48 B2 32 AF 44 41  59 B2 31 39 A7 89 31 30  |OTH.2.DAY.19..10|
00000AC0: 38 30 00 DB 12 D4 03 8B  4D 4F 54 48 B2 35 AF 44  |80......MOTH.5.D|
00000AD0: 41 59 B2 32 38 A7 89 31  30 39 30 00 F3 12 DE 03  |AY.28..1090.....|
00000AE0: 8B 4D 4F 54 48 B2 37 AF  44 41 59 B2 34 A7 89 31  |.MOTH.7.DAY.4..1|
00000AF0: 31 30 30 00 0B 13 E8 03  8B 4D 4F 54 48 B2 39 AF  |100......MOTH.9.|
00000B00: 44 41 59 B2 33 A7 89 31  31 31 30 00 24 13 F2 03  |DAY.3..1110.$...|
00000B10: 8B 4D 4F 54 48 B2 31 30  AF 44 41 59 B2 38 A7 89  |.MOTH.10.DAY.8..|
00000B20: 31 31 32 30 00 3E 13 FC  03 8B 4D 4F 54 48 B2 31  |1120.>....MOTH.1|
00000B30: 31 AF 44 41 59 B2 31 32  A7 89 31 31 33 30 00 58  |1.DAY.12..1130.X|
00000B40: 13 06 04 8B 4D 4F 54 48  B2 31 31 AF 44 41 59 B2  |....MOTH.11.DAY.|
00000B50: 32 32 A7 89 31 31 34 30  00 72 13 10 04 8B 4D 4F  |22..1140.r....MO|
00000B60: 54 48 B2 31 32 AF 44 41  59 B2 32 35 A7 89 31 31  |TH.12.DAY.25..11|
00000B70: 35 30 00 7C 13 1A 04 89  31 31 39 30 00 9B 13 24  |50.|....1190...$|
00000B80: 04 41 24 B2 22 93 4E 45  57 20 59 45 41 52 27 53  |.A$.".NEW YEAR'S|
00000B90: 20 44 41 59 22 3A 89 31  31 36 30 00 BE 13 2E 04  | DAY":.1160.....|
00000BA0: 41 24 B2 22 93 4C 49 4E  43 4F 4C 4E 27 53 20 42  |A$.".LINCOLN'S B|
00000BB0: 49 52 54 48 44 41 59 22  3A 89 31 31 36 30 00 E4  |IRTHDAY":.1160..|
00000BC0: 13 38 04 41 24 B2 22 93  57 41 53 48 49 4E 47 54  |.8.A$.".WASHINGT|
00000BD0: 4F 4E 27 53 20 42 49 52  54 48 44 41 59 22 3A 89  |ON'S BIRTHDAY":.|
00000BE0: 31 31 36 30 00 01 14 42  04 41 24 B2 22 93 4D 45  |1160...B.A$.".ME|
00000BF0: 4D 4F 52 49 41 4C 20 44  41 59 22 3A 89 31 31 36  |MORIAL DAY":.116|
00000C00: 30 00 22 14 4C 04 41 24  B2 22 93 49 4E 44 45 50  |0.".L.A$.".INDEP|
00000C10: 45 4E 44 45 4E 43 45 20  44 41 59 22 3A 89 31 31  |ENDENCE DAY":.11|
00000C20: 36 30 00 3C 14 56 04 41  24 B2 22 93 4C 41 42 4F  |60.<.V.A$.".LABO|
00000C30: 52 20 44 41 59 22 3A 89  31 31 36 30 00 59 14 60  |R DAY":.1160.Y.`|
00000C40: 04 41 24 B2 22 93 43 4F  4C 55 4D 42 55 53 20 44  |.A$.".COLUMBUS D|
00000C50: 41 59 22 3A 89 31 31 36  30 00 76 14 6A 04 41 24  |AY":.1160.v.j.A$|
00000C60: B2 22 93 56 45 54 45 52  41 4E 53 20 44 41 59 22  |.".VETERANS DAY"|
00000C70: 3A 89 31 31 36 30 00 97  14 74 04 41 24 B2 22 93  |:.1160...t.A$.".|
00000C80: 54 48 41 4E 4B 53 47 49  56 49 4E 47 20 44 41 59  |THANKSGIVING DAY|
00000C90: 22 3A 89 31 31 36 30 00  AB 14 7E 04 41 24 B2 22  |":.1160...~.A$."|
00000CA0: 93 43 48 52 49 53 54 4D  41 53 22 00 C0 14 88 04  |.CHRISTMAS".....|
00000CB0: 99 41 24 3A 81 41 B2 31  A4 31 30 30 30 3A 82 41  |.A$:.A.1.1000:.A|
00000CC0: 00 F3 14 92 04 99 A3 39  29 22 53 54 4F 43 4B 20  |.......9)"STOCK |
00000CD0: 4D 41 52 4B 45 54 20 43  4C 4F 53 45 44 2E 2E 2E  |MARKET CLOSED...|
00000CE0: 22 3A 81 41 B2 31 A4 31  30 30 30 3A 82 41 3A 99  |":.A.1.1000:.A:.|
00000CF0: 22 93 22 00 FC 14 9C 04  89 38 37 30 00 10 15 A6  |"."......870....|
00000D00: 04 8D 31 34 32 30 3A 8B  46 4C 41 47 B2 30 A7 8E  |..1420:.FLAG.0..|
00000D10: 00 3F 15 B0 04 99 A3 33  29 22 57 45 45 4B 45 4E  |.?.....3)"WEEKEN|
00000D20: 44 22 3A 99 A3 39 29 22  53 54 4F 43 4B 20 4D 41  |D":..9)"STOCK MA|
00000D30: 52 4B 45 54 20 43 4C 4F  53 45 44 2E 2E 2E 22 00  |RKET CLOSED...".|
00000D40: 61 15 BA 04 99 3A 99 3A  8D 31 34 37 30 3A 44 41  |a....:.:.1470:DA|
00000D50: 59 B2 44 41 59 AA 31 3A  99 22 93 22 3A 89 38 37  |Y.DAY.1:.".":.87|
00000D60: 30 00 67 15 C4 04 8F 00  80 15 CE 04 8B 43 41 53  |0.g..........CAS|
00000D70: 48 B1 B2 30 AF 57 45 45  4B B1 31 A7 31 32 36 30  |H..0.WEEK.1.1260|
00000D80: 00 A0 15 D8 04 8B C3 28  41 24 29 B1 31 AF 57 45  |.......(A$).1.WE|
00000D90: 45 4B B2 32 AF 43 41 53  48 B3 30 A7 31 32 36 30  |EK.2.CASH.0.1260|
00000DA0: 00 B9 15 E2 04 8B 43 41  53 48 B3 30 AF 57 45 45  |......CASH.0.WEE|
00000DB0: 4B B3 B1 31 A7 32 37 32  30 00 E2 15 EC 04 46 4C  |K..1.2720.....FL|
00000DC0: 41 47 B2 30 3A 81 42 B2  31 A4 53 4B 53 3A 8B 54  |AG.0:.B.1.SKS:.T|
00000DD0: 41 42 4C 45 28 42 2C 31  29 B1 30 A7 46 4C 41 47  |ABLE(B,1).0.FLAG|
00000DE0: B2 42 00 F6 15 F6 04 82  42 3A 8B 46 4C 41 47 B2  |.B......B:.FLAG.|
00000DF0: 30 A7 32 38 35 30 00 19  16 00 05 46 4C 41 47 B2  |0.2850.....FLAG.|
00000E00: 30 3A 8B 43 41 53 48 B3  B2 30 AF 41 53 53 45 54  |0:.CASH..0.ASSET|
00000E10: 53 B3 B2 30 A7 32 37 38  30 00 1F 16 0A 05 8E 00  |S..0.2780.......|
00000E20: 34 16 14 05 8F 20 4D 41  52 4B 45 54 20 46 49 47  |4.... MARKET FIG|
00000E30: 55 52 45 53 00 5E 16 1E  05 41 53 53 45 54 53 B2  |URES.^...ASSETS.|
00000E40: 30 3A 81 41 B2 31 A4 53  4B 53 3A 8B 54 41 42 4C  |0:.A.1.SKS:.TABL|
00000E50: 45 28 41 2C 31 29 B3 B2  30 A7 31 34 30 30 00 8F  |E(A,1)..0.1400..|
00000E60: 16 28 05 43 48 41 4E 47  45 B2 54 41 42 4C 45 28  |.(.CHANGE.TABLE(|
00000E70: 41 2C 35 29 AA B5 28 BB  28 31 29 AC 33 29 AB 31  |A,5)..(.(1).3).1|
00000E80: 3A 8B BB 28 31 29 B1 2E  38 35 A7 31 33 36 30 00  |:..(1)..85.1360.|
00000E90: A6 16 32 05 8B 43 48 41  4E 47 45 B1 32 A7 43 48  |..2..CHANGE.2.CH|
00000EA0: 41 4E 47 45 B2 32 00 BF  16 3C 05 8B 43 48 41 4E  |ANGE.2...<..CHAN|
00000EB0: 47 45 B3 AB 32 A7 43 48  41 4E 47 45 B2 AB 32 00  |GE..2.CHANGE..2.|
00000EC0: C9 16 46 05 89 31 33 37  30 00 EB 16 50 05 43 48  |..F..1370...P.CH|
00000ED0: 41 4E 47 45 B2 54 41 42  4C 45 28 41 2C 35 29 AA  |ANGE.TABLE(A,5).|
00000EE0: B5 28 BB 28 31 29 AC 35  29 AB 32 00 09 17 5A 05  |.(.(1).5).2...Z.|
00000EF0: 8B BB 28 31 29 B1 2E 39  A7 43 48 41 4E 47 45 B2  |..(1)..9.CHANGE.|
00000F00: AB 31 AC 43 48 41 4E 47  45 00 51 17 64 05 54 41  |.1.CHANGE.Q.d.TA|
00000F10: 42 4C 45 28 41 2C 35 29  B2 43 48 41 4E 47 45 3A  |BLE(A,5).CHANGE:|
00000F20: 43 48 41 4E 47 45 B2 43  48 41 4E 47 45 AA 4D 41  |CHANGE.CHANGE.MA|
00000F30: 52 4B 45 54 3A 54 41 42  4C 45 28 41 2C 31 29 B2  |RKET:TABLE(A,1).|
00000F40: 54 41 42 4C 45 28 41 2C  31 29 AA 43 48 41 4E 47  |TABLE(A,1).CHANG|
00000F50: 45 00 69 17 69 05 8B 54  41 42 4C 45 28 41 2C 31  |E.i.i..TABLE(A,1|
00000F60: 29 B3 B2 30 A7 31 34 31  30 00 A0 17 6E 05 54 41  |)..0.1410...n.TA|
00000F70: 42 4C 45 28 41 2C 32 29  B2 43 48 41 4E 47 45 3A  |BLE(A,2).CHANGE:|
00000F80: 54 41 42 4C 45 28 41 2C  34 29 B2 54 41 42 4C 45  |TABLE(A,4).TABLE|
00000F90: 28 41 2C 33 29 AC 54 41  42 4C 45 28 41 2C 31 29  |(A,3).TABLE(A,1)|
00000FA0: 00 C8 17 78 05 41 53 53  45 54 53 B2 41 53 53 45  |...x.ASSETS.ASSE|
00000FB0: 54 53 AA 54 41 42 4C 45  28 41 2C 34 29 3A 82 41  |TS.TABLE(A,4):.A|
00000FC0: 3A 8D 31 32 32 30 3A 8E  00 E9 17 82 05 81 42 B2  |:.1220:.......B.|
00000FD0: 31 A4 35 3A 54 41 42 4C  45 28 41 2C 42 29 B2 30  |1.5:TABLE(A,B).0|
00000FE0: 3A 82 42 3A 89 31 34 30  30 00 FD 17 8C 05 8F 20  |:.B:.1400...... |
00000FF0: 46 49 52 53 54 20 4F 52  20 57 45 45 4B 00 1E 18  |FIRST OR WEEK...|
00001000: 96 05 8B 57 45 45 4B B3  B1 31 AF A8 28 57 45 45  |...WEEK..1..(WEE|
00001010: 4B B2 32 AF C3 28 41 24  29 B1 31 29 A7 8E 00 51  |K.2..(A$).1)...Q|
00001020: 18 A0 05 42 45 47 49 4E  43 B2 30 3A 41 53 53 45  |...BEGINC.0:ASSE|
00001030: 54 53 B2 30 3A 81 42 B2  31 A4 53 4B 53 3A 8B 54  |TS.0:.B.1.SKS:.T|
00001040: 41 42 4C 45 28 42 2C 31  29 B3 B2 30 A7 31 34 36  |ABLE(B,1)..0.146|
00001050: 30 00 6E 18 AA 05 41 53  53 45 54 53 B2 41 53 53  |0.n...ASSETS.ASS|
00001060: 45 54 53 AA 54 41 42 4C  45 28 42 2C 34 29 00 90  |ETS.TABLE(B,4)..|
00001070: 18 B4 05 82 42 3A 42 45  47 49 4E 43 B2 43 41 53  |....B:BEGINC.CAS|
00001080: 48 AA 41 53 53 45 54 53  3A 8D 31 32 32 30 3A 8E  |H.ASSETS:.1220:.|
00001090: 00 A3 18 BE 05 8F 20 57  45 45 4B 45 4E 44 20 44  |...... WEEKEND D|
000010A0: 41 54 41 00 BE 18 C8 05  49 4E 43 4F 4D 45 B2 30  |ATA.....INCOME.0|
000010B0: 3A 99 22 93 22 3A 81 41  B2 31 A4 53 4B 53 00 E8  |:.".":.A.1.SKS..|
000010C0: 18 D2 05 49 4E 43 4F 4D  45 B2 49 4E 43 4F 4D 45  |...INCOME.INCOME|
000010D0: AA 28 54 41 42 4C 45 28  41 2C 31 29 AC 54 41 42  |.(TABLE(A,1).TAB|
000010E0: 4C 45 28 41 2C 33 29 29  00 13 19 DC 05 82 41 3A  |LE(A,3))......A:|
000010F0: 99 A3 33 29 22 54 4F 54  41 4C 20 49 4E 43 4F 4D  |..3)"TOTAL INCOM|
00001100: 45 20 46 4F 52 20 54 48  45 20 57 45 45 4B 3A 20  |E FOR THE WEEK: |
00001110: 22 3A 99 00 57 19 E6 05  99 A3 35 29 22 43 41 53  |":..W.....5)"CAS|
00001120: 48 20 41 54 20 57 45 45  4B 45 4E 44 3A 22 3B A3  |H AT WEEKEND:";.|
00001130: 32 37 29 22 24 22 3B 43  41 53 48 3A 99 A3 35 29  |27)"$";CASH:..5)|
00001140: 22 43 55 52 52 45 4E 54  20 50 41 50 45 52 20 57  |"CURRENT PAPER W|
00001150: 4F 52 54 48 3A 22 3B 00  6C 19 EB 05 99 A3 32 37  |ORTH:";.l.....27|
00001160: 29 3B 22 24 22 3B 49 4E  43 4F 4D 45 00 A7 19 F0  |);"$";INCOME....|
00001170: 05 99 A3 32 37 29 3B 22  2D 2D 2D 2D 2D 2D 2D 2D  |...27);"--------|
00001180: 2D 22 3A 99 A3 35 29 3B  22 54 4F 54 41 4C 3A 22  |-":..5);"TOTAL:"|
00001190: 3B A3 32 37 29 3B 22 24  22 3B 43 41 53 48 AA 49  |;.27);"$";CASH.I|
000011A0: 4E 43 4F 4D 45 3A 99 00  EC 19 FA 05 99 A3 35 29  |NCOME:........5)|
000011B0: 3B 22 54 4F 54 41 4C 20  41 53 53 45 54 53 20 2B  |;"TOTAL ASSETS +|
000011C0: 20 43 41 53 48 22 3A 99  A3 35 29 3B 22 41 54 20  | CASH":..5);"AT |
000011D0: 42 45 47 49 4E 4E 49 4E  47 20 4F 46 20 57 45 45  |BEGINNING OF WEE|
000011E0: 4B 3A 22 3B A3 32 37 29  22 24 22 3B 00 09 1A FF  |K:";.27)"$";....|
000011F0: 05 99 42 45 47 49 4E 43  3A 99 A3 32 37 29 22 2D  |..BEGINC:..27)"-|
00001200: 2D 2D 2D 2D 2D 2D 2D 2D  22 00 4C 1A 04 06 99 A3  |--------".L.....|
00001210: 35 29 22 47 52 4F 53 53  20 57 45 45 4B 27 53 20  |5)"GROSS WEEK'S |
00001220: 49 4E 43 4F 4D 45 3A 22  3B A3 32 37 29 3B 22 24  |INCOME:";.27);"$|
00001230: 22 3B 28 43 41 53 48 AA  49 4E 43 4F 4D 45 29 AB  |";(CASH.INCOME).|
00001240: 42 45 47 49 4E 43 3A 99  A3 35 29 3B 00 74 1A 09  |BEGINC:..5);.t..|
00001250: 06 99 22 4C 45 53 53 20  42 52 4F 4B 45 52 27 53  |.."LESS BROKER'S|
00001260: 20 46 45 45 53 22 3B A3  32 37 29 3B 22 24 22 3B  | FEES";.27);"$";|
00001270: 46 45 45 53 00 BB 1A 0E  06 99 3A 99 3A 99 A3 35  |FEES......:.:..5|
00001280: 29 3B 22 4E 45 54 20 57  45 45 4B 27 53 20 49 4E  |);"NET WEEK'S IN|
00001290: 43 4F 4D 45 3A 22 3B A3  32 37 29 3B 22 24 22 3B  |COME:";.27);"$";|
000012A0: 28 28 43 41 53 48 AA 49  4E 43 4F 4D 45 29 AB 42  |((CASH.INCOME).B|
000012B0: 45 47 49 4E 43 29 AB 46  45 45 53 00 DE 1A 13 06  |EGINC).FEES.....|
000012C0: 99 3A 43 41 53 48 B2 43  41 53 48 AB 46 45 45 53  |.:CASH.CASH.FEES|
000012D0: 3A 8B 43 41 53 48 B1 B2  30 A7 31 35 37 30 00 2B  |:.CASH..0.1570.+|
000012E0: 1B 18 06 99 22 59 4F 55  20 48 41 56 45 20 55 4E  |...."YOU HAVE UN|
000012F0: 54 49 4C 20 4D 4F 4E 44  41 59 20 54 4F 20 42 52  |TIL MONDAY TO BR|
00001300: 45 41 4B 22 3A 99 22 45  56 45 4E 2C 20 4F 52 20  |EAK":."EVEN, OR |
00001310: 45 4C 53 45 21 21 21 20  20 28 43 41 53 48 3A 20  |ELSE!!!  (CASH: |
00001320: 24 22 3B 43 41 53 48 3B  22 29 22 00 49 1B 22 06  |$";CASH;")".I.".|
00001330: 42 45 47 49 4E 43 B2 43  41 53 48 AA 49 4E 43 4F  |BEGINC.CASH.INCO|
00001340: 4D 45 3A 46 45 45 53 B2  30 00 78 1B 2C 06 99 22  |ME:FEES.0.x.,.."|
00001350: 11 11 11 50 52 45 53 53  20 41 4E 59 20 4B 45 59  |...PRESS ANY KEY|
00001360: 20 54 4F 20 43 4F 4E 54  49 4E 55 45 2E 2E 2E 22  | TO CONTINUE..."|
00001370: 3A 8D 32 36 32 30 3A 8E  00 8D 1B 36 06 8F 20 41  |:.2620:....6.. A|
00001380: 53 53 45 54 20 50 52 49  4E 54 4F 55 54 00 C4 1B  |SSET PRINTOUT...|
00001390: 40 06 41 53 53 45 54 53  B2 30 3A 81 42 B2 31 A4  |@.ASSETS.0:.B.1.|
000013A0: 53 4B 53 3A 54 41 42 4C  45 28 42 2C 34 29 B2 54  |SKS:TABLE(B,4).T|
000013B0: 41 42 4C 45 28 42 2C 31  29 AC 54 41 42 4C 45 28  |ABLE(B,1).TABLE(|
000013C0: 42 2C 33 29 00 E4 1B 45  06 41 53 53 45 54 53 B2  |B,3)...E.ASSETS.|
000013D0: 41 53 53 45 54 53 AA 54  41 42 4C 45 28 42 2C 34  |ASSETS.TABLE(B,4|
000013E0: 29 3A 82 42 00 26 1C 4A  06 99 22 13 11 11 11 11  |):.B.&.J..".....|
000013F0: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 1D 1D  |................|
00001400: 1D 43 41 53 48 3A 20 24  22 3B 43 41 53 48 3B A3  |.CASH: $";CASH;.|
00001410: 32 33 29 3B 22 41 53 53  45 54 53 3A 20 24 22 3B  |23);"ASSETS: $";|
00001420: 41 53 53 45 54 53 00 2E  1C 54 06 99 3A 8E 00 42  |ASSETS...T..:..B|
00001430: 1C 5E 06 8F 20 44 41 54  41 20 50 52 49 4E 54 4F  |.^.. DATA PRINTO|
00001440: 55 54 00 48 1C 68 06 8F  00 52 1C 72 06 8D 34 35  |UT.H.h...R.r..45|
00001450: 30 30 00 98 1C 73 06 99  22 13 22 20 A3 33 29 3B  |00...s.."." .3);|
00001460: 22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
00001470: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001480: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001490: 20 20 20 20 20 20 20 22  00 D9 1C 74 06 99 22 13  |       "...t..".|
000014A0: 22 20 A3 33 29 3B 22 44  41 54 45 3A 22 3B 44 41  |" .3);"DATE:";DA|
000014B0: 59 24 28 57 45 45 4B 29  3B 22 2C 22 3B 4D 4F 54  |Y$(WEEK);",";MOT|
000014C0: 48 24 28 4D 4F 54 48 29  3B 22 20 22 3B 44 41 59  |H$(MOTH);" ";DAY|
000014D0: 3B 22 2C 22 3B 59 45 41  52 00 F4 1C 7C 06 8D 31  |;",";YEAR...|..1|
000014E0: 32 32 30 3A 99 A3 34 30  29 3A 4C 54 48 B2 B8 28  |220:..40):LTH..(|
000014F0: 30 29 3A 8E 00 09 1D 86  06 8F 20 44 49 56 49 44  |0):....... DIVID|
00001500: 45 4E 44 53 20 50 41 49  44 00 27 1D 90 06 43 41  |ENDS PAID.'...CA|
00001510: 53 48 B2 43 41 53 48 AA  B5 28 41 53 53 45 54 53  |SH.CASH..(ASSETS|
00001520: AC 2E 30 38 29 3A 8E 00  3C 1D 9A 06 8F 20 53 54  |..08):..<.... ST|
00001530: 4F 43 4B 20 50 52 49 4E  54 4F 55 54 00 6A 1D A4  |OCK PRINTOUT.j..|
00001540: 06 43 48 41 4E 47 45 24  B2 C4 28 54 41 42 4C 45  |.CHANGE$..(TABLE|
00001550: 28 41 2C 32 29 29 3A 8B  54 41 42 4C 45 28 41 2C  |(A,2)):.TABLE(A,|
00001560: 31 29 B3 B2 30 A7 31 37  33 30 00 96 1D AE 06 8B  |1)..0.1730......|
00001570: 54 41 42 4C 45 28 41 2C  32 29 B1 30 A7 43 48 41  |TABLE(A,2).0.CHA|
00001580: 4E 47 45 24 B2 22 2B 22  AA C4 28 54 41 42 4C 45  |NGE$."+"..(TABLE|
00001590: 28 41 2C 32 29 29 00 D2  1D B8 06 99 4E 41 4D 45  |(A,2))......NAME|
000015A0: 24 28 41 29 3B A3 31 36  29 3B 54 41 42 4C 45 28  |$(A);.16);TABLE(|
000015B0: 41 2C 31 29 3B A3 32 31  29 3B 43 48 41 4E 47 45  |A,1);.21);CHANGE|
000015C0: 24 3B A3 32 35 29 3B 54  41 42 4C 45 28 41 2C 33  |$;.25);TABLE(A,3|
000015D0: 29 3B 00 ED 1D BD 06 99  A3 33 30 29 3B 54 41 42  |);.......30);TAB|
000015E0: 4C 45 28 41 2C 34 29 3A  89 31 37 34 30 00 19 1E  |LE(A,4):.1740...|
000015F0: C2 06 99 22 2A 2A 2A 20  22 3B 4E 41 4D 45 24 28  |..."*** ";NAME$(|
00001600: 41 29 3B 22 20 49 53 20  42 41 4B 4E 52 55 50 54  |A);" IS BAKNRUPT|
00001610: 2E 2E 2E 22 3B A3 34 30  29 00 1F 1E CC 06 8E 00  |...";.40).......|
00001620: 32 1E D6 06 8F 20 50 52  49 4E 54 4F 55 54 20 41  |2.... PRINTOUT A|
00001630: 4C 4C 00 4D 1E E0 06 57  41 53 B2 41 56 45 52 41  |LL.M...WAS.AVERA|
00001640: 47 45 3A 41 56 45 52 41  47 45 B2 30 3A 00 90 1E  |GE:AVERAGE.0:...|
00001650: EA 06 99 22 13 11 11 53  54 4F 43 4B 20 4E 41 4D  |..."...STOCK NAM|
00001660: 45 22 3B A3 31 35 29 3B  22 43 4C 4F 53 45 22 3B  |E";.15);"CLOSE";|
00001670: A3 32 31 29 3B 22 43 48  47 22 3B A3 32 35 29 3B  |.21);"CHG";.25);|
00001680: 22 4F 57 4E 45 44 22 3B  22 20 57 4F 52 54 48 22  |"OWNED";" WORTH"|
00001690: 00 A7 1E F4 06 81 41 B2  31 A4 34 30 3A 99 22 3D  |......A.1.40:."=|
000016A0: 22 3B 3A 82 41 3A 99 00  BB 1E FE 06 81 41 B2 31  |";:.A:.......A.1|
000016B0: A4 53 4B 53 3A 8D 20 31  36 39 30 00 DD 1E 08 07  |.SKS:. 1690.....|
000016C0: 41 56 45 52 41 47 45 B2  41 56 45 52 41 47 45 AA  |AVERAGE.AVERAGE.|
000016D0: 54 41 42 4C 45 28 41 2C  31 29 3A 82 41 00 F4 1E  |TABLE(A,1):.A...|
000016E0: 12 07 81 41 B2 31 A4 34  30 3A 99 22 3D 22 3B 3A  |...A.1.40:."=";:|
000016F0: 82 41 3A 99 00 19 1F 1C  07 41 56 45 52 41 47 45  |.A:......AVERAGE|
00001700: B2 B5 28 28 41 56 45 52  41 47 45 AD 53 4B 53 29  |..((AVERAGE.SKS)|
00001710: AC 31 30 30 29 AD 31 30  30 00 42 1F 26 07 99 22  |.100).100.B.&.."|
00001720: 41 56 45 52 41 47 45 3A  20 24 22 3B 41 56 45 52  |AVERAGE: $";AVER|
00001730: 41 47 45 3B 22 2F 53 48  41 52 45 22 3B A3 32 30  |AGE;"/SHARE";.20|
00001740: 29 3B 00 6C 1F 30 07 43  48 41 4E 47 45 B2 B5 28  |);.l.0.CHANGE..(|
00001750: 28 41 56 45 52 41 47 45  AC 31 30 30 29 AB 28 57  |(AVERAGE.100).(W|
00001760: 41 53 AC 31 30 30 29 29  AD 31 30 30 00 80 1F 3A  |AS.100)).100...:|
00001770: 07 8B 43 48 41 4E 47 45  B3 B1 30 A7 31 38 37 30  |..CHANGE..0.1870|
00001780: 00 99 1F 44 07 99 22 28  4E 4F 20 43 48 41 4E 47  |...D.."(NO CHANG|
00001790: 45 29 22 3A 89 31 39 30  30 00 AC 1F 4E 07 8B 43  |E)":.1900...N..C|
000017A0: 48 41 4E 47 45 B1 30 A7  31 38 39 30 00 CE 1F 58  |HANGE.0.1890...X|
000017B0: 07 99 22 28 44 4F 57 4E  20 22 3B B6 28 43 48 41  |.."(DOWN ";.(CHA|
000017C0: 4E 47 45 29 3B 22 29 22  3A 89 31 39 30 30 00 E7  |NGE);")":.1900..|
000017D0: 1F 62 07 99 22 28 55 50  22 3B B6 28 43 48 41 4E  |.b.."(UP";.(CHAN|
000017E0: 47 45 29 3B 22 29 22 00  ED 1F 6C 07 8E 00 F9 1F  |GE);")"...l.....|
000017F0: 6D 07 43 48 45 43 4B B2  31 00 09 20 76 07 8F 44  |m.CHECK.1.. v..D|
00001800: 41 54 41 20 49 4E 50 55  54 00 1C 20 80 07 8F 20  |ATA INPUT.. ... |
00001810: 4F 50 54 49 4F 4E 20 49  4E 50 55 54 00 39 20 8A  |OPTION INPUT.9 .|
00001820: 07 81 58 B2 31 37 38 34  AA 34 30 A4 32 30 32 33  |..X.1784.40.2023|
00001830: 3A 97 58 2C 33 32 3A 82  3A 00 6A 20 8E 07 8D 31  |:.X,32:.:.j ...1|
00001840: 35 39 30 3A 99 22 13 11  11 11 11 11 11 11 11 11  |590:."..........|
00001850: 11 11 11 11 11 11 11 11  11 11 11 11 28 42 29 2D  |............(B)-|
00001860: 42 55 59 22 3B A3 32 30  29 3B 00 7A 20 8F 07 99  |BUY";.20);.z ...|
00001870: 22 28 53 29 2D 53 45 4C  4C 29 00 C4 20 94 07 99  |"(S)-SELL).. ...|
00001880: 22 28 45 29 2D 53 54 4F  50 22 3B A3 32 30 29 3B  |"(E)-STOP";.20);|
00001890: 22 28 52 45 54 55 52 4E  29 2D 50 41 53 53 22 3A  |"(RETURN)-PASS":|
000018A0: 99 22 57 48 49 43 48 20  46 55 4E 43 54 49 4F 4E  |."WHICH FUNCTION|
000018B0: 20 44 4F 20 59 4F 55 20  57 41 4E 54 3F 22 3A 8D  | DO YOU WANT?":.|
000018C0: 32 36 32 30 00 EB 20 9E  07 8B 4B 45 59 B2 31 39  |2620.. ...KEY.19|
000018D0: 34 B0 4B 45 59 B2 32 31  31 B0 4B 45 59 B2 31 39  |4.KEY.211.KEY.19|
000018E0: 37 B0 4B 45 59 B2 31 34  31 A7 8E 00 15 21 A8 07  |7.KEY.141....!..|
000018F0: 89 31 39 33 30 3A 99 22  12 57 48 41 54 3F 3F 3F  |.1930:.".WHAT???|
00001900: 3F 92 22 3A 81 42 B2 31  A4 31 30 30 30 3A 82 3A  |?.":.B.1.1000:.:|
00001910: 89 31 39 33 30 00 27 21  B2 07 8F 20 53 54 4F 43  |.1930.'!... STOC|
00001920: 4B 20 49 4E 50 55 54 00  43 21 BC 07 81 58 B2 31  |K INPUT.C!...X.1|
00001930: 37 38 34 AB 34 30 A4 32  30 32 33 3A 97 58 2C 33  |784.40.2023:.X,3|
00001940: 32 3A 82 00 75 21 C5 07  85 22 13 11 11 11 11 11  |2:..u!..."......|
00001950: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 49 4E  |..............IN|
00001960: 50 55 54 20 53 54 4F 43  4B 20 4E 41 4D 45 3A 20  |PUT STOCK NAME: |
00001970: 22 3B 49 4E 24 00 99 21  C6 07 46 4C 41 47 B2 30  |";IN$..!..FLAG.0|
00001980: 3A 43 48 45 43 4B 24 B2  C8 28 49 4E 24 2C 33 29  |:CHECK$..(IN$,3)|
00001990: 3A 81 41 B2 31 A4 53 4B  53 00 BA 21 D0 07 8B 43  |:.A.1.SKS..!...C|
000019A0: 48 45 43 4B 24 B2 C8 28  4E 41 4D 45 24 28 41 29  |HECK$..(NAME$(A)|
000019B0: 2C 33 29 A7 46 4C 41 47  B2 41 00 CF 21 DA 07 82  |,3).FLAG.A..!...|
000019C0: 41 3A 8B 46 4C 41 47 B3  B1 30 A7 32 30 35 30 00  |A:.FLAG..0.2050.|
000019D0: EA 21 E4 07 99 49 4E 24  3B 22 3F 3F 3F 22 3A 81  |.!...IN$;"???":.|
000019E0: 42 B2 31 A4 31 30 30 30  3A 82 00 27 22 EE 07 99  |B.1.1000:..'"...|
000019F0: 22 54 48 45 52 45 20 49  53 20 4E 4F 20 53 54 4F  |"THERE IS NO STO|
00001A00: 43 4B 20 42 59 20 54 48  41 54 20 4E 41 4D 45 21  |CK BY THAT NAME!|
00001A10: 21 21 22 3A 81 42 B2 31  A4 28 31 2E 35 AC 31 30  |!!":.B.1.(1.5.10|
00001A20: 30 30 29 3A 82 3A 8E 00  63 22 F8 07 99 4E 41 4D  |00):.:..c"...NAM|
00001A30: 45 24 28 46 4C 41 47 29  3B 20 22 49 53 20 42 41  |E$(FLAG); "IS BA|
00001A40: 4E 4B 52 55 50 54 21 21  21 22 3A 81 42 B2 31 A4  |NKRUPT!!!":.B.1.|
00001A50: 28 32 AC 31 30 30 30 29  3A 82 3A 46 4C 41 47 B2  |(2.1000):.:FLAG.|
00001A60: 30 3A 8E 00 7E 22 02 08  8B 54 41 42 4C 45 28 46  |0:..~"...TABLE(F|
00001A70: 4C 41 47 2C 31 29 B3 B2  30 A7 32 30 34 30 00 84  |LAG,1)..0.2040..|
00001A80: 22 0C 08 8E 00 94 22 16  08 8F 20 42 55 59 20 53  |"....."... BUY S|
00001A90: 54 4F 43 4B 00 AA 22 20  08 41 B2 46 4C 41 47 3A  |TOCK.." .A.FLAG:|
00001AA0: 8B 46 4C 41 47 B3 B2 30  A7 8E 00 BB 22 2A 08 8F  |.FLAG..0...."*..|
00001AB0: 20 47 4F 53 55 42 31 37  37 30 3A 00 02 23 34 08  | GOSUB1770:..#4.|
00001AC0: 99 22 13 11 11 11 11 11  11 11 11 11 11 11 11 11  |."..............|
00001AD0: 11 11 11 11 11 11 48 4F  57 20 4D 41 4E 59 20 53  |......HOW MANY S|
00001AE0: 48 41 52 45 53 20 44 4F  20 59 4F 55 20 22 3A 85  |HARES DO YOU ":.|
00001AF0: 22 57 41 4E 54 20 54 4F  20 42 55 59 3F 22 3B 42  |"WANT TO BUY?";B|
00001B00: 55 59 00 12 23 35 08 8B  42 55 59 B2 30 A7 32 32  |UY..#5..BUY.0.22|
00001B10: 30 30 00 2B 23 36 08 81  58 B2 31 37 38 34 A4 32  |00.+#6..X.1784.2|
00001B20: 30 32 33 3A 97 58 2C 33  32 3A 82 00 3B 23 3E 08  |023:.X,32:..;#>.|
00001B30: 8B 42 55 59 B3 30 A7 32  31 39 30 00 69 23 48 08  |.BUY.0.2190.i#H.|
00001B40: 53 48 41 52 45 53 B2 54  41 42 4C 45 28 41 2C 31  |SHARES.TABLE(A,1|
00001B50: 29 AC 42 55 59 3A 8B 43  41 53 48 AB 53 48 41 52  |).BUY:.CASH.SHAR|
00001B60: 45 53 B3 30 A7 32 31 38  30 00 AA 23 52 08 54 41  |ES.0.2180..#R.TA|
00001B70: 42 4C 45 28 41 2C 34 29  B2 54 41 42 4C 45 28 41  |BLE(A,4).TABLE(A|
00001B80: 2C 34 29 AA 53 48 41 52  45 53 3A 54 41 42 4C 45  |,4).SHARES:TABLE|
00001B90: 28 41 2C 33 29 B2 54 41  42 4C 45 28 41 2C 33 29  |(A,3).TABLE(A,3)|
00001BA0: AA 42 55 59 3A 8D 31 37  37 30 00 D3 23 5C 08 42  |.BUY:.1770..#\.B|
00001BB0: 52 4F 4B 45 52 B2 B5 28  53 48 41 52 45 53 AC 2E  |ROKER..(SHARES..|
00001BC0: 30 36 29 3A 8B 42 52 4F  4B 45 52 B3 35 30 A7 32  |06):.BROKER.50.2|
00001BD0: 31 36 30 00 EE 23 66 08  46 45 45 53 B2 46 45 45  |160..#f.FEES.FEE|
00001BE0: 53 AA 42 52 4F 4B 45 52  3A 89 32 31 37 30 00 FF  |S.BROKER:.2170..|
00001BF0: 23 70 08 46 45 45 53 B2  46 45 45 53 AA 35 30 00  |#p.FEES.FEES.50.|
00001C00: 25 24 7A 08 43 41 53 48  B2 43 41 53 48 AB 53 48  |%$z.CASH.CASH.SH|
00001C10: 41 52 45 53 3A 8E 3A 8F  50 52 49 2D 47 4F 53 55  |ARES:.:.PRI-GOSU|
00001C20: 42 31 36 39 30 00 5A 24  84 08 99 22 11 4E 4F 54  |B1690.Z$...".NOT|
00001C30: 20 45 4E 4F 55 47 48 20  4D 4F 4E 45 59 21 21 21  | ENOUGH MONEY!!!|
00001C40: 22 3B 3A 81 42 B2 31 A4  28 31 2E 35 AC 31 30 30  |";:.B.1.(1.5.100|
00001C50: 30 29 3A 82 3A 89 32 30  39 30 00 97 24 8E 08 99  |0):.:.2090..$...|
00001C60: 22 53 41 59 20 57 48 41  54 3F 3F 3F 20 54 52 59  |"SAY WHAT??? TRY|
00001C70: 20 54 48 41 54 20 41 47  41 49 4E 21 21 21 22 3A  | THAT AGAIN!!!":|
00001C80: 81 42 B2 31 A4 28 31 2E  35 AC 54 49 4D 45 29 3A  |.B.1.(1.5.TIME):|
00001C90: 82 3A 89 32 30 39 30 00  AF 24 98 08 8E 3A 8F 47  |.:.2090..$...:.G|
00001CA0: 4F 53 55 42 31 36 39 30  3A 52 45 54 55 52 4E 00  |OSUB1690:RETURN.|
00001CB0: C0 24 A2 08 8F 20 53 45  4C 4C 20 53 54 4F 43 4B  |.$... SELL STOCK|
00001CC0: 00 D3 24 AC 08 41 B2 46  4C 41 47 3A 8B 41 B3 B2  |..$..A.FLAG:.A..|
00001CD0: 30 A7 8E 00 E2 24 B6 08  8F 47 4F 53 55 42 31 36  |0....$...GOSUB16|
00001CE0: 39 30 00 16 25 C0 08 99  22 48 4F 57 20 4D 41 4E  |90..%..."HOW MAN|
00001CF0: 59 20 53 48 41 52 45 53  20 44 4F 20 59 4F 55 22  |Y SHARES DO YOU"|
00001D00: 3A 85 22 57 41 4E 54 20  54 4F 20 53 45 4C 4C 20  |:."WANT TO SELL |
00001D10: 22 3B 53 45 4C 4C 00 32  25 C1 08 81 58 B2 31 38  |";SELL.2%...X.18|
00001D20: 32 34 AB 34 30 A4 32 30  32 33 3A 97 58 2C 33 32  |24.40.2023:.X,32|
00001D30: 3A 82 00 43 25 C5 08 8B  53 45 4C 4C B2 30 A7 32  |:..C%...SELL.0.2|
00001D40: 33 33 30 00 5D 25 CA 08  8B 53 45 4C 4C B1 54 41  |330.]%...SELL.TA|
00001D50: 42 4C 45 28 41 2C 33 29  A7 32 33 34 30 00 6E 25  |BLE(A,3).2340.n%|
00001D60: D4 08 8B 53 45 4C 4C B3  30 A7 32 33 35 30 00 AE  |...SELL.0.2350..|
00001D70: 25 DE 08 54 41 42 4C 45  28 41 2C 33 29 B2 54 41  |%..TABLE(A,3).TA|
00001D80: 42 4C 45 28 41 2C 33 29  AB 53 45 4C 4C 3A 54 41  |BLE(A,3).SELL:TA|
00001D90: 42 4C 45 28 41 2C 34 29  B2 54 41 42 4C 45 28 41  |BLE(A,4).TABLE(A|
00001DA0: 2C 33 29 AC 54 41 42 4C  45 28 41 2C 31 29 00 CC  |,3).TABLE(A,1)..|
00001DB0: 25 E8 08 43 41 53 48 B2  43 41 53 48 AA 54 41 42  |%..CASH.CASH.TAB|
00001DC0: 4C 45 28 41 2C 31 29 AC  53 45 4C 4C 00 EF 25 F2  |LE(A,1).SELL..%.|
00001DD0: 08 42 52 4F 4B 45 52 B2  B5 28 28 54 41 42 4C 45  |.BROKER..((TABLE|
00001DE0: 28 41 2C 31 29 AC 53 45  4C 4C 29 AC 2E 30 29 00  |(A,1).SELL)..0).|
00001DF0: 03 26 FC 08 8B 42 52 4F  4B 45 52 B3 35 30 A7 32  |.&...BROKER.50.2|
00001E00: 33 32 30 00 1E 26 06 09  46 45 45 53 B2 46 45 45  |320..&..FEES.FEE|
00001E10: 53 AA 42 52 4F 4B 45 52  3A 89 32 33 33 30 00 2F  |S.BROKER:.2330./|
00001E20: 26 10 09 46 45 45 53 B2  46 45 45 53 AA 35 30 00  |&..FEES.FEES.50.|
00001E30: 41 26 1A 09 8D 34 30 30  30 3A 8D 31 37 37 30 3A  |A&...4000:.1770:|
00001E40: 8E 00 80 26 24 09 99 22  3F 3F 3F 20 59 4F 55 20  |...&$.."??? YOU |
00001E50: 44 4F 4E 27 54 20 48 41  56 45 20 54 48 41 54 20  |DON'T HAVE THAT |
00001E60: 4D 41 4E 59 21 21 21 22  3A 81 42 B2 31 A4 28 31  |MANY!!!":.B.1.(1|
00001E70: 2E 35 AC 31 30 30 30 29  3A 82 3A 89 32 32 33 30  |.5.1000):.:.2230|
00001E80: 00 BE 26 2E 09 99 22 53  41 59 20 57 48 41 54 20  |..&..."SAY WHAT |
00001E90: 3F 3F 3F 20 54 52 59 20  54 48 41 54 20 41 47 41  |??? TRY THAT AGA|
00001EA0: 49 4E 21 21 21 22 3A 81  42 B2 31 A4 28 31 2E 35  |IN!!!":.B.1.(1.5|
00001EB0: AC 31 30 30 30 29 3A 82  3A 89 32 32 33 30 00 D1  |.1000):.:.2230..|
00001EC0: 26 38 09 8F 20 56 41 52  49 41 42 4C 45 20 45 4E  |&8.. VARIABLE EN|
00001ED0: 44 00 E2 26 42 09 99 22  93 11 11 11 11 11 45 4E  |D..&B.."......EN|
00001EE0: 44 22 00 F8 26 88 09 99  22 47 41 4D 45 20 45 4E  |D"..&..."GAME EN|
00001EF0: 44 22 3A 99 3A 99 3A 99  00 02 27 92 09 89 32 39  |D":.:.:...'...29|
00001F00: 32 30 00 48 27 3C 0A 8F  20 20 20 20 20 20 20 20  |20.H'<..        |
00001F10: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001F20: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001F30: 20 20 20 20 2A 2A 2A 4B  45 59 42 4F 41 52 44 20  |    ***KEYBOARD |
00001F40: 49 4E 50 55 54 2A 2A 2A  00 5C 27 46 0A A1 41 24  |INPUT***.\'F..A$|
00001F50: 3A 8B 41 24 B2 22 22 A7  32 36 33 30 00 6B 27 50  |:.A$."".2630.k'P|
00001F60: 0A 4B 45 59 B2 C6 28 41  24 29 3A 00 85 27 51 0A  |.KEY..(A$):..'Q.|
00001F70: 8B 4B 45 59 B2 36 36 A7  4B 45 59 B2 31 39 34 3A  |.KEY.66.KEY.194:|
00001F80: 89 32 36 34 36 00 9F 27  52 0A 8B 4B 45 59 B2 38  |.2646..'R..KEY.8|
00001F90: 33 A7 4B 45 59 B2 32 31  31 3A 89 32 36 34 36 00  |3.KEY.211:.2646.|
00001FA0: B9 27 53 0A 8B 4B 45 59  B2 36 39 A7 4B 45 59 B2  |.'S..KEY.69.KEY.|
00001FB0: 31 39 37 3A 89 32 36 34  36 00 D4 27 54 0A 8B 4B  |197:.2646..'T..K|
00001FC0: 45 59 B2 31 33 33 A7 4B  45 59 B2 31 34 31 3A 89  |EY.133.KEY.141:.|
00001FD0: 32 36 34 36 00 E4 27 55  0A 4B 45 59 B2 4B 45 59  |2646..'U.KEY.KEY|
00001FE0: AA 31 32 38 00 F6 27 56  0A 8B 4B 45 59 B1 31 32  |.128..'V..KEY.12|
00001FF0: 37 A7 32 36 36 30 00 00  28 5A 0A 89 32 36 34 30  |7.2660..(Z..2640|
00002000: 00 06 28 64 0A 8E 00 15  28 6E 0A 8F 20 2A 2A 2A  |..(d....(n.. ***|
00002010: 20 42 3D 36 36 00 24 28  78 0A 8F 20 2A 2A 2A 20  | B=66.$(x.. *** |
00002020: 53 3D 38 33 00 33 28 82  0A 8F 20 2A 2A 2A 20 45  |S=83.3(... *** E|
00002030: 3D 36 39 00 43 28 8C 0A  8F 52 45 54 55 52 4E 3D  |=69.C(...RETURN=|
00002040: 20 31 33 00 4D 28 96 0A  8F 20 45 4E 44 00 5A 28  | 13.M(... END.Z(|
00002050: A0 0A 8F 20 42 52 4F 4B  45 52 00 AA 28 AA 0A 99  |... BROKER..(...|
00002060: 22 11 11 11 11 59 4F 55  52 20 42 52 4F 4B 45 52  |"....YOUR BROKER|
00002070: 20 48 41 53 20 54 41 4B  45 4E 20 4C 45 47 41 4C  | HAS TAKEN LEGAL|
00002080: 20 41 43 54 49 4F 4E 20  20 20 20 20 20 41 47 41  | ACTION      AGA|
00002090: 49 4E 53 54 20 59 4F 55  52 20 50 45 52 53 4F 4E  |INST YOUR PERSON|
000020A0: 41 4C 20 41 53 53 45 54  53 22 00 B9 28 AF 0A 99  |AL ASSETS"..(...|
000020B0: 22 44 55 45 20 54 4F 22  3B 00 F4 28 B4 0A 99 22  |"DUE TO";..(..."|
000020C0: 59 4F 55 52 20 44 45 46  41 55 4C 54 49 4E 47 20  |YOUR DEFAULTING |
000020D0: 4F 4E 20 59 4F 55 52 20  43 4F 4E 54 52 41 43 54  |ON YOUR CONTRACT|
000020E0: 2E 20 20 59 4F 55 20 41  52 45 20 42 41 4E 4B 52  |.  YOU ARE BANKR|
000020F0: 55 50 54 22 00 FA 28 D2  0A 80 00 0D 29 DC 0A 8F  |UPT"..(.....)...|
00002100: 20 50 4C 41 59 45 52 20  42 52 4F 4B 45 00 59 29  | PLAYER BROKE.Y)|
00002110: E6 0A 99 22 44 4F 20 54  4F 20 59 4F 55 52 20 4C  |..."DO TO YOUR L|
00002120: 4F 57 20 49 51 20 41 4E  44 20 53 54 55 50 49 44  |OW IQ AND STUPID|
00002130: 49 54 59 20 59 4F 55 20  48 41 56 45 20 4D 41 4E  |ITY YOU HAVE MAN|
00002140: 41 47 45 44 20 54 4F 20  42 45 43 4F 4D 45 20 42  |AGED TO BECOME B|
00002150: 41 4E 4B 52 55 50 54 2E  22 00 5F 29 F0 0A 80 00  |ANKRUPT."._)....|
00002160: 72 29 22 0B 8F 20 4D 41  52 4B 45 59 20 43 52 41  |r)".. MARKEY CRA|
00002170: 53 48 00 BD 29 2C 0B 99  22 93 54 48 45 20 53 54  |SH..),..".THE ST|
00002180: 4F 43 4B 20 4D 41 52 4B  45 54 20 48 41 53 20 43  |OCK MARKET HAS C|
00002190: 52 41 53 48 45 44 2E 20  41 4C 4C 20 54 48 45 20  |RASHED. ALL THE |
000021A0: 43 4F 4D 50 41 4E 49 45  53 20 41 52 45 20 4E 4F  |COMPANIES ARE NO|
000021B0: 57 20 42 41 4E 4B 52 55  50 54 21 21 22 00 D1 29  |W BANKRUPT!!"..)|
000021C0: 36 0B 8B 43 41 53 48 B1  31 30 30 30 A7 32 38 39  |6..CASH.1000.289|
000021D0: 30 00 F0 29 40 0B 99 22  59 4F 55 20 4C 4F 53 54  |0..)@.."YOU LOST|
000021E0: 20 59 4F 55 52 20 53 48  4F 52 54 53 21 21 21 22  | YOUR SHORTS!!!"|
000021F0: 00 10 2A 4A 0B 81 41 B2  31 A4 28 33 AC 31 30 30  |..*J..A.1.(3.100|
00002200: 30 29 3A 82 41 3A 99 22  93 22 3A 89 32 34 34 30  |0):.A:.".":.2440|
00002210: 00 1F 2A 54 0B 8F 20 59  45 41 52 20 45 4E 44 00  |..*T.. YEAR END.|
00002220: 3D 2A 5E 0B 8D 31 36 37  30 3A 99 22 93 22 3B A3  |=*^..1670:.".";.|
00002230: 31 35 29 22 59 45 41 52  20 45 4E 44 22 00 67 2A  |15)"YEAR END".g*|
00002240: 68 0B 41 53 53 45 54 53  B2 30 3A 81 41 B2 31 A4  |h.ASSETS.0:.A.1.|
00002250: 53 4B 53 3A 8B 54 41 42  4C 45 28 41 2C 31 29 B3  |SKS:.TABLE(A,1).|
00002260: B2 30 A7 32 39 34 30 00  91 2A 72 0B 41 53 53 45  |.0.2940..*r.ASSE|
00002270: 54 53 B2 41 53 53 45 54  53 AA 28 54 41 42 4C 45  |TS.ASSETS.(TABLE|
00002280: 28 41 2C 31 29 AC 54 41  42 4C 45 28 41 2C 33 29  |(A,1).TABLE(A,3)|
00002290: 29 00 98 2A 7C 0B 82 41  00 D7 2A 86 0B 99 A3 37  |)..*|..A..*....7|
000022A0: 29 22 54 4F 54 41 4C 20  43 41 53 48 3A 22 3B A3  |)"TOTAL CASH:";.|
000022B0: 32 37 29 3B 22 24 22 3B  43 41 53 48 3A 99 A3 37  |27);"$";CASH:..7|
000022C0: 29 22 41 53 53 45 54 53  20 50 41 50 45 52 20 56  |)"ASSETS PAPER V|
000022D0: 41 4C 55 45 3A 22 3B 00  FD 2A 8B 0B 99 A3 32 37  |ALUE:";..*....27|
000022E0: 29 3B 22 24 22 3B 41 53  53 45 54 53 3A 99 A3 32  |);"$";ASSETS:..2|
000022F0: 37 29 22 2D 2D 2D 2D 2D  2D 2D 2D 2D 22 00 26 2B  |7)"---------".&+|
00002300: 90 0B 99 22 54 4F 54 41  4C 20 57 4F 52 54 48 3A  |..."TOTAL WORTH:|
00002310: 22 3B A3 32 37 29 3B 22  24 22 3B 43 41 53 48 AA  |";.27);"$";CASH.|
00002320: 41 53 53 45 54 53 00 64  2B 9A 0B 99 A3 37 29 22  |ASSETS.d+....7)"|
00002330: 53 55 42 52 54 52 41 43  54 22 3A 99 A3 37 29 22  |SUBRTRACT":..7)"|
00002340: 53 54 41 52 54 2E 43 41  50 49 54 41 4C 3A 22 3B  |START.CAPITAL:";|
00002350: A3 32 37 29 3B 22 24 31  30 30 30 30 22 3A 99 A3  |.27);"$10000":..|
00002360: 32 37 29 3B 00 75 2B 9F  0B 99 22 2D 2D 2D 2D 2D  |27);.u+..."-----|
00002370: 2D 2D 2D 2D 22 00 AB 2B  A4 0B 99 A3 37 29 3B 22  |----"..+....7);"|
00002380: 47 52 4F 53 53 20 49 4E  43 4F 4D 45 3A 22 3B A3  |GROSS INCOME:";.|
00002390: 32 37 29 3B 22 24 22 3B  28 43 41 53 48 AA 41 53  |27);"$";(CASH.AS|
000023A0: 53 45 54 53 29 AB 31 30  30 30 30 00 D3 2B A9 0B  |SETS).10000..+..|
000023B0: 99 A3 37 29 3B 22 4C 45  53 53 20 41 53 53 45 54  |..7);"LESS ASSET|
000023C0: 53 3A 22 3B A3 32 37 29  3B 22 24 22 3B 41 53 53  |S:";.27);"$";ASS|
000023D0: 45 54 53 00 16 2C AE 0B  99 A3 32 37 29 22 2D 2D  |ETS..,....27)"--|
000023E0: 2D 2D 2D 2D 2D 2D 2D 22  3A 99 A3 37 29 3B 22 4E  |-------":..7);"N|
000023F0: 45 54 20 52 45 43 4F 47  4E 49 5A 45 44 22 3A 99  |ET RECOGNIZED":.|
00002400: A3 37 29 22 49 4E 43 4F  4D 45 22 3B 43 41 53 48  |.7)"INCOME";CASH|
00002410: AB 31 30 30 30 30 00 51  2C B8 0B 99 3A 49 4E 43  |.10000.Q,...:INC|
00002420: 4F 4D 45 B2 43 41 53 48  AB 31 30 30 30 30 3A 50  |OME.CASH.10000:P|
00002430: 45 52 43 45 4E 54 B2 B5  28 28 49 4E 43 4F 4D 45  |ERCENT..((INCOME|
00002440: AD 31 30 30 30 30 29 AC  31 30 30 30 30 29 AD 31  |.10000).10000).1|
00002450: 30 00 93 2C C2 0B 99 A3  35 29 22 59 45 41 52 27  |0..,....5)"YEAR'|
00002460: 53 20 52 45 53 55 4C 54  53 3A 22 3A 99 22 11 54  |S RESULTS:":.".T|
00002470: 48 45 20 59 45 41 52 53  20 54 52 41 4E 53 41 43  |HE YEARS TRANSAC|
00002480: 54 49 4F 4E 53 20 4E 45  54 54 45 44 22 3A 99 A3  |TIONS NETTED":..|
00002490: 35 29 3B 00 A8 2C CC 0B  8B 50 45 52 43 45 4E 54  |5);..,...PERCENT|
000024A0: B1 B2 30 A7 33 30 34 30  00 CF 2C D6 0B 99 22 41  |..0.3040..,..."A|
000024B0: 20 22 3B 50 45 52 43 45  4E 54 3B 22 25 20 44 45  | ";PERCENT;"% DE|
000024C0: 43 52 45 41 53 45 20 22  3B 3A 89 33 30 35 30 00  |CREASE ";:.3050.|
000024D0: F0 2C E0 0B 99 22 41 20  22 3B 50 45 52 43 45 4E  |.,..."A ";PERCEN|
000024E0: 54 3B 22 25 20 49 4E 43  52 45 41 53 45 20 22 3B  |T;"% INCREASE ";|
000024F0: 00 08 2D EA 0B 99 22 49  4E 20 43 41 53 48 20 2C  |..-..."IN CASH ,|
00002500: 20 57 49 54 48 20 41 22  00 3D 2D F4 0B 50 45 52  | WITH A".=-..PER|
00002510: 43 45 4E 54 B2 B5 28 28  28 28 41 53 53 45 54 53  |CENT..((((ASSETS|
00002520: AA 43 41 53 48 29 AB 31  30 30 30 30 29 AD 31 30  |.CASH).10000).10|
00002530: 30 30 30 29 AC 31 30 30  30 29 AD 31 30 00 52 2D  |000).1000).10.R-|
00002540: FE 0B 8B 50 45 52 43 45  4E 54 B1 B2 30 A7 33 30  |...PERCENT..0.30|
00002550: 39 30 00 7B 2D 08 0C 99  A3 35 29 3B B6 28 50 45  |90.{-....5);.(PE|
00002560: 52 43 45 4E 54 29 3B 22  25 20 44 45 43 52 45 41  |RCENT);"% DECREA|
00002570: 53 45 20 22 3B 3A 89 33  31 30 30 00 9B 2D 12 0C  |SE ";:.3100..-..|
00002580: 99 A3 35 29 3B 50 45 52  43 45 4E 54 3B 22 25 20  |..5);PERCENT;"% |
00002590: 49 4E 43 52 45 41 53 45  20 22 3B 00 AF 2D 1C 0C  |INCREASE ";..-..|
000025A0: 99 22 49 4E 20 4E 45 54  20 57 4F 52 54 48 22 00  |."IN NET WORTH".|
000025B0: B5 2D 26 0C 80 00 CC 2D  A0 0F 8F 20 45 52 41 53  |.-&....-... ERAS|
000025C0: 45 20 53 55 42 52 4F 55  54 49 4E 45 00 DA 2D AA  |E SUBROUTINE..-.|
000025D0: 0F 99 22 13 11 11 11 11  22 3B 00 E6 2D B4 0F 81  |..".....";..-...|
000025E0: 58 B2 31 A4 31 33 00 FF  2D BE 0F 99 A3 32 34 29  |X.1.13..-....24)|
000025F0: 3B 22 20 20 20 20 20 20  20 20 20 20 20 20 22 00  |;"            ".|
00002600: 07 2E C8 0F 82 3A 8E 00  1E 2E 94 11 8F 20 45 52  |.....:....... ER|
00002610: 41 53 45 20 53 55 42 52  4F 55 54 49 4E 45 00 2C  |ASE SUBROUTINE.,|
00002620: 2E 9E 11 99 22 13 11 11  11 11 22 3B 00 38 2E A8  |....".....";.8..|
00002630: 11 81 58 B2 31 A4 31 33  00 5A 2E B2 11 99 A3 31  |..X.1.13.Z.....1|
00002640: 37 29 3B 22 20 20 20 20  20 20 20 20 20 20 20 20  |7);"            |
00002650: 20 20 20 20 20 20 20 20  20 22 00 62 2E BC 11 82  |         ".b....|
00002660: 3A 8E 00 00 00                                    |:....           |

....... BY MIKE FLAVEL.7.... REVISED FRO
M APPLE VERSION.V...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:M
OTH.0:PRICE.0:SELL.0:SHARES.0:QUARTER.0.
..(.SKS.12:IME.1000:WEEK.0:YEAR.1979:AVE
RAGE.0:E.0:F.0:G.0:H.0.].2..NAME$(SKS),D
AY$(5),MOTH$(12),TABLE(SKS,5)...<.DISK$.
"":A$."":CHANGE$."":CHECK$."":IN$."".Y.F
.NAME$(1)."ALCOA ALUMINUM":NAME$(2)."COM
MODORE":NAME$(3)."CBS INDUSTRIES".'.P.NA
ME$(4)."EXXON OIL":NAME$(5)."GENERAL MOT
ORS":NAME$(6)."HONEYWELL CORP.".W.Z.NAME
$(7)."IBM CORPORATION":NAME$(8)."INTEL C
ORP.":NAME$(9)."LOCKHEED CORP.".E.D.NAME
$(10)."MOTOROLA":NAME$(11)."STANDARD OIL
":NAME$(12)."3-M CORPORATION"...N..A.1.S
KS:.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.WAS
.L...MOTH$(1)."JANUARY":MOTH$(2)."FEBRUA
RY":MOTH$(3)."MARCH".....MOTH$(4)."APRIL
":MOTH$(5)."MAY":MOTH$(6)."JUNE".....MOT
H$(7)."JULY":MOTH$(8)."AUGUST":MOTH$(9).
"SEPTEMBER"...H.MOTH$(10)."OCTOBER":MOTH
$(11)."NOVEMBER":MOTH$(12)."DECEMBER".K.
R.DAY$(1)."MONDAY":DAY$(2)."TUESDAY":DAY
$(3)."WEDNESDAY":DAY$(4)."THURSDAY".`.W.
DAY$(5)."FRIDAY".....WEEK.0:DAY.0:MOTH.1
:LAST.31:QUARTER.0.C....".....DO YOU WAN
T INSTRUCTIONS?":.2620:.KEY.206.650.....
.".";.10)".INSTRUCTIONS."./...." THIS IS
 A SIMULATION OF THE OPERATIONS OF THE S
TOCK MARKET.THERE ARE";.D...." 12       
 COMPANY STOCKS AVAILABLE FOR TRADE"....
.."PROVIDING YOU HAVE THE MONEY, THERE I
S A BROKERS FEE OF 6% OR $50.00 PER";...
..."STOCK.  TRANSACTIONS ARE COLLECTED A
T 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 ".K.@.."OF THE STOCK NAME"...J.
."PRESS ANY KEY TO CONTINUE"...T..2620:.
KEY.195.2560............ MAIN PROGRAM.&.
F..830.0.P..1300.:.Z..1750.D....1910.]..
..KEY.194.KEY.211.780.O....KEY.197.2360.
X....700......1970......KEY.194..2070...
 ..KEY.211..2210...*..1910...4..750.N.>.
. DATA FIGURES...H.MARKET.MARKET..(.(1).
3).1:.MARKEY.2.MARKEY.2...R..MARKET..3.M
ARKET..3.7.\...(1)..92.MARKET..1.MARKET.
G.F.FLAG.0:WEEK.WEEK.1:DAY.DAY.1:.DAY..L
AST.910...P.DAY.DAY.LAST:MOTH.MOTH.1:.MO
TH.12.2890...Z.QUARTER.QUARTER.1:.QUARTE
R..3.910.L...QUARTER.0:.1670......WEEK..
5.950......".":LAST.28:.MOTH.4.MOTH.6.MO
TH.9.MOTH.11.LAST.30.T....MOTH.1.MOTH.3.
MOTH.5.MOTH.7.MOTH.8.MOTH.10.MOTH.12.LAS
T.31.R...FLAG.1:WEEK.0:A$."":.1200......
1630:.MOTH.1.DAY.1.1060...... MOTH.2.DAY
.12..1070.B.J..MOTH.2.DAY.19..1080...T..
MOTH.5.DAY.28..1090......MOTH.7.DAY.4..1
100......MOTH.9.DAY.3..1110.$....MOTH.10
.DAY.8..1120.>....MOTH.11.DAY.12..1130.X
....MOTH.11.DAY.22..1140.R....MOTH.12.DA
Y.25..1150.|....1190...$.A$.".NEW YEAR'S
 DAY":.1160.....A$.".LINCOLN'S BIRTHDAY"
:.1160...8.A$.".WASHINGTON'S BIRTHDAY":.
1160...B.A$.".MEMORIAL DAY":.1160.".L.A$
.".INDEPENDENCE DAY":.1160.<.V.A$.".LABO
R DAY":.1160.Y.`.A$.".COLUMBUS DAY":.116
0.V.J.A$.".VETERANS DAY":.1160...T.A$.".
THANKSGIVING DAY":.1160...~.A$.".CHRISTM
AS"......A$:.A.1.1000:.A.......9)"STOCK 
MARKET CLOSED...":.A.1.1000:.A:.".".....
.870......1420:.FLAG.0...?.....3)"WEEKEN
D":..9)"STOCK MARKET CLOSED...".A....:.:
.1470:DAY.DAY.1:.".":.870.G.D.....N..CAS
H..0.WEEK.1.1260. .X..C(A$).1.WEEK.2.CAS
H.0.1260......CASH.0.WEEK..1.2720.....FL
AG.0:.B.1.SKS:.TABLE(B,1).0.FLAG.B......
B:.FLAG.0.2850.....FLAG.0:.CASH..0.ASSET
S..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...<..CHAN
GE..2.CHANGE..2.I.F..1370...P.CHANGE.TAB
LE(A,5)..(.(1).5).2...Z...(1)..9.CHANGE.
.1.CHANGE.Q.D.TABLE(A,5).CHANGE:CHANGE.C
HANGE.MARKET:TABLE(A,1).TABLE(A,1).CHANG
E.I.I..TABLE(A,1)..0.1410. .N.TABLE(A,2)
.CHANGE:TABLE(A,4).TABLE(A,3).TABLE(A,1)
.H.X.ASSETS.ASSETS.TABLE(A,4):.A:.1220:.
......B.1.5:TABLE(A,B).0:.B:.1400...... 
FIRST OR WEEK......WEEK..1..(WEEK.2.C(A$
).1)...Q. .BEGINC.0:ASSETS.0:.B.1.SKS:.T
ABLE(B,1)..0.1460.N...ASSETS.ASSETS.TABL
E(B,4)......B:BEGINC.CASH.ASSETS:.1220:.
...... WEEKEND DATA...H.INCOME.0:.".":.A
.1.SKS...R.INCOME.INCOME.(TABLE(A,1).TAB
LE(A,3))......A:..3)"TOTAL INCOME FOR TH
E 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.C
ASH.INCOME:FEES.0.X.,.."...PRESS ANY KEY
 TO CONTINUE...":.2620:....6.. ASSET PRI
NTOUT.D.@.ASSETS.0:.B.1.SKS:TABLE(B,4).T
ABLE(B,1).TABLE(B,3)...E.ASSETS.ASSETS.T
ABLE(B,4):.B.&.J..".....................
.CASH: $";CASH;.23);"ASSETS: $";ASSETS..
.T..:..B.^.. DATA PRINTOUT.H.H...R.R..45
00...S.."." .3);"                       
                               ".Y.T..".
" .3);"DATE:";DAY$(WEEK);",";MOTH$(MOTH)
;" ";DAY;",";YEAR...|..1220:..40):LTH..(
0):....... DIVIDENDS PAID.'...CASH.CASH.
.(ASSETS..08):..<.... STOCK PRINTOUT.J..
.CHANGE$.D(TABLE(A,2)):.TABLE(A,1)..0.17
30......TABLE(A,2).0.CHANGE$."+".D(TABLE
(A,2)).R....NAME$(A);.16);TABLE(A,1);.21
);CHANGE$;.25);TABLE(A,3);.......30);TAB
LE(A,4):.1740...B.."*** ";NAME$(A);" IS 
BAKNRUPT...";.40)...L...2.V.. PRINTOUT A
LL.M...WAS.AVERAGE:AVERAGE.0:......"...S
TOCK 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).100.B.&.."
AVERAGE: $";AVERAGE;"/SHARE";.20);.L.0.C
HANGE..((AVERAGE.100).(WAS.100)).100...:
..CHANGE..0.1870...D.."(NO CHANGE)":.190
0...N..CHANGE.0.1890.N.X.."(DOWN ";.(CHA
NGE);")":.1900...B.."(UP";.(CHANGE);")".
..L.....M.CHECK.1.. V..DATA INPUT.. ... 
OPTION INPUT.9 ...X.1784.40.2023:.X,32:.
:.J ...1590:."......................(B)-
BUY";.20);.Z ..."(S)-SELL).D ..."(E)-STO
P";.20);"(RETURN)-PASS":."WHICH FUNCTION
 DO YOU WANT?":.2620.. ...KEY.194.KEY.21
1.KEY.197.KEY.141....!...1930:.".WHAT???
?.":.B.1.1000:.:.1930.'!... STOCK INPUT.
C!...X.1784.40.2023:.X,32:..U!E.."......
..............INPUT STOCK NAME: ";IN$..!
F.FLAG.0:CHECK$.H(IN$,3):.A.1.SKS..!P..C
HECK$.H(NAME$(A),3).FLAG.A.O!Z..A:.FLAG.
.0.2050..!...IN$;"???":.B.1.1000:..'"...
"THERE IS NO STOCK BY THAT NAME!!!":.B.1
.(1.5.1000):.:..C"...NAME$(FLAG); "IS BA
NKRUPT!!!":.B.1.(2.1000):.:FLAG.0:..~"..
.TABLE(FLAG,1)..0.2040.."....."... BUY S
TOCK.." .A.FLAG:.FLAG..0...."*.. GOSUB17
70:..#4.."....................HOW MANY S
HARES DO YOU ":."WANT TO BUY?";BUY..#5..
BUY.0.2200.+#6..X.1784.2023:.X,32:..;#>.
.BUY.0.2190.I#H.SHARES.TABLE(A,1).BUY:.C
ASH.SHARES.0.2180..#R.TABLE(A,4).TABLE(A
,4).SHARES:TABLE(A,3).TABLE(A,3).BUY:.17
70.S#\.BROKER..(SHARES..06):.BROKER.50.2
160..#F.FEES.FEES.BROKER:.2170..#P.FEES.
FEES.50.%$Z.CASH.CASH.SHARES:.:.PRI-GOSU
B1690.Z$...".NOT ENOUGH MONEY!!!";:.B.1.
(1.5.1000):.:.2090..$..."SAY WHAT??? TRY
 THAT AGAIN!!!":.B.1.(1.5.TIME):.:.2090.
.$...:.GOSUB1690:RETURN..$... SELL STOCK
.S$..A.FLAG:.A..0....$...GOSUB1690..%...
"HOW MANY SHARES DO YOU":."WANT TO SELL 
";SELL.2%A..X.1824.40.2023:.X,32:..C%E..
SELL.0.2330.]%J..SELL.TABLE(A,3).2340.N%
T..SELL.0.2350..%..TABLE(A,3).TABLE(A,3)
.SELL:TABLE(A,4).TABLE(A,3).TABLE(A,1).L
%..CASH.CASH.TABLE(A,1).SELL..%..BROKER.
.((TABLE(A,1).SELL)..0)..&...BROKER.50.2
320..&..FEES.FEES.BROKER:.2330./&..FEES.
FEES.50.A&...4000:.1770:...&$.."??? YOU 
DON'T HAVE THAT MANY!!!":.B.1.(1.5.1000)
:.:.2230..&..."SAY WHAT ??? TRY THAT AGA
IN!!!":.B.1.(1.5.1000):.:.2230.Q&8.. VAR
IABLE END..&B.."......END"..&..."GAME EN
D":.:.:...'...2920.H'<..                
                            ***KEYBOARD 
INPUT***.\'F..A$:.A$."".2630.K'P.KEY.F(A
$):..'Q..KEY.66.KEY.194:.2646..'R..KEY.8
3.KEY.211:.2646..'S..KEY.69.KEY.197:.264
6.T'T..KEY.133.KEY.141:.2646..'U.KEY.KEY
.128..'V..KEY.127.2660..(Z..2640..(D....
(N.. *** B=66.$(X.. *** S=83.3(... *** E
=69.C(...RETURN= 13.M(... END.Z( .. BROK
ER..(..."....YOUR BROKER HAS TAKEN LEGAL
 ACTION      AGAINST YOUR PERSONAL ASSET
S"..(..."DUE TO";..(..."YOUR DEFAULTING 
ON YOUR CONTRACT.  YOU ARE BANKRUPT"..(R
....)... PLAYER BROKE.Y)..."DO TO YOUR L
OW IQ AND STUPIDITY YOU HAVE MANAGED TO 
BECOME BANKRUPT."._)....R)".. MARKEY CRA
SH..),..".THE STOCK MARKET HAS CRASHED. 
ALL THE COMPANIES ARE NOW BANKRUPT!!".Q)
6..CASH.1000.2890..)@.."YOU LOST YOUR SH
ORTS!!!"..*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).TA
BLE(A,3))..*|..A.W*....7)"TOTAL CASH:";.
27);"$";CASH:..7)"ASSETS PAPER VALUE:";.
.*....27);"$";ASSETS:..27)"---------".&+
..."TOTAL WORTH:";.27);"$";CASH.ASSETS.D
+....7)"SUBRTRACT":..7)"START.CAPITAL:";
.27);"$10000":..27);.U+..."---------"..+
....7);"GROSS INCOME:";.27);"$";(CASH.AS
SETS).10000.S+....7);"LESS ASSETS:";.27)
;"$";ASSETS..,....27)"---------":..7);"N
ET RECOGNIZED":..7)"INCOME";CASH.10000.Q
,...:INCOME.CASH.10000:PERCENT..((INCOME
.10000).10000).10..,B...5)"YEAR'S RESULT
S:":.".THE YEARS TRANSACTIONS NETTED":..
5);..,L..PERCENT..0.3040.O,V.."A ";PERCE
NT;"% DECREASE ";:.3050..,..."A ";PERCEN
T;"% INCREASE ";..-..."IN CASH , WITH A"
.=-..PERCENT..((((ASSETS.CASH).10000).10
000).1000).10.R-...PERCENT..0.3090.{-...
.5);.(PERCENT);"% DECREASE ";:.3100..-..
..5);PERCENT;"% INCREASE ";..-..."IN NET
 WORTH"..-&...L- .. ERASE SUBROUTINE.Z-.
..".....";..-...X.1.13..-....24);"      
      "...H..:....... ERASE SUBROUTINE.,
....".....";.8....X.1.13.Z.....17);"    
                 ".B....:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL