23.STOCKS

00000000: 01 08 07 08 01 00 8F 00  0D 08 02 00 8F 00 4C 08  |..............L.|
00000010: 0A 00 43 B2 30 3A 44 B2  30 3A 41 B2 30 3A 41 53  |..C.0:D.0:A.0:AS|
00000020: 53 45 54 53 B2 30 3A 42  B2 30 3A 42 45 47 49 4E  |SETS.0:B.0:BEGIN|
00000030: 43 B2 31 30 30 30 30 3A  42 55 59 B2 30 3A 57 41  |C.10000:BUY.0:WA|
00000040: 53 B2 30 3A 42 52 4F 4B  45 52 B2 30 00 8E 08 14  |S.0:BROKER.0....|
00000050: 00 43 41 53 48 B2 31 30  30 30 30 3A 43 48 41 4E  |.CASH.10000:CHAN|
00000060: 47 45 B2 30 3A 44 41 59  B2 30 3A 46 45 45 53 B2  |GE.0:DAY.0:FEES.|
00000070: 30 3A 46 4C 41 47 B2 30  3A 49 4E 43 4F 4D 45 B2  |0:FLAG.0:INCOME.|
00000080: 30 3A 4B 45 59 B2 30 3A  4C 41 53 54 B2 30 00 C5  |0:KEY.0:LAST.0..|
00000090: 08 1E 00 4D 41 52 4B 45  54 B2 AB 31 3A 4D 4F 54  |...MARKET..1:MOT|
000000A0: 48 B2 30 3A 50 52 49 43  45 B2 30 3A 53 45 4C 4C  |H.0:PRICE.0:SELL|
000000B0: B2 30 3A 53 48 41 52 45  53 B2 30 3A 51 55 41 52  |.0:SHARES.0:QUAR|
000000C0: 54 45 52 B2 30 00 04 09  28 00 53 4B 53 B2 31 32  |TER.0...(.SKS.12|
000000D0: 3A 49 4D 45 B2 31 30 30  30 3A 57 45 45 4B B2 30  |:IME.1000:WEEK.0|
000000E0: 3A 59 45 41 52 B2 31 39  37 39 3A 41 56 45 52 41  |:YEAR.1979:AVERA|
000000F0: 47 45 B2 30 3A 45 B2 30  3A 46 B2 30 3A 47 B2 30  |GE.0:E.0:F.0:G.0|
00000100: 3A 48 B2 30 00 33 09 32  00 86 4E 41 4D 45 24 28  |:H.0.3.2..NAME$(|
00000110: 53 4B 53 29 2C 44 41 59  24 28 35 29 2C 4D 4F 54  |SKS),DAY$(5),MOT|
00000120: 48 24 28 31 32 29 2C 54  41 42 4C 45 28 53 4B 53  |H$(12),TABLE(SKS|
00000130: 2C 35 29 00 62 09 3C 00  44 49 53 4B 24 B2 22 22  |,5).b.<.DISK$.""|
00000140: 3A 41 24 B2 22 22 3A 43  48 41 4E 47 45 24 B2 22  |:A$."":CHANGE$."|
00000150: 22 3A 43 48 45 43 4B 24  B2 22 22 3A 49 4E 24 B2  |":CHECK$."":IN$.|
00000160: 22 22 00 AF 09 46 00 4E  41 4D 45 24 28 31 29 B2  |""...F.NAME$(1).|
00000170: 22 41 4C 43 4F 41 20 41  4C 55 4D 49 4E 55 4D 22  |"ALCOA ALUMINUM"|
00000180: 3A 4E 41 4D 45 24 28 32  29 B2 22 43 4F 4D 4D 4F  |:NAME$(2)."COMMO|
00000190: 44 4F 52 45 22 3A 4E 41  4D 45 24 28 33 29 B2 22  |DORE":NAME$(3)."|
000001A0: 43 42 53 20 49 4E 44 55  53 54 52 49 45 53 22 00  |CBS INDUSTRIES".|
000001B0: FD 09 50 00 4E 41 4D 45  24 28 34 29 B2 22 45 58  |..P.NAME$(4)."EX|
000001C0: 58 4F 4E 20 4F 49 4C 22  3A 4E 41 4D 45 24 28 35  |XON OIL":NAME$(5|
000001D0: 29 B2 22 47 45 4E 45 52  41 4C 20 4D 4F 54 4F 52  |)."GENERAL MOTOR|
000001E0: 53 22 3A 4E 41 4D 45 24  28 36 29 B2 22 48 4F 4E  |S":NAME$(6)."HON|
000001F0: 45 59 57 45 4C 4C 20 43  4F 52 50 2E 22 00 4D 0A  |EYWELL CORP.".M.|
00000200: 5A 00 4E 41 4D 45 24 28  37 29 B2 22 49 42 4D 20  |Z.NAME$(7)."IBM |
00000210: 43 4F 52 50 4F 52 41 54  49 4F 4E 22 3A 4E 41 4D  |CORPORATION":NAM|
00000220: 45 24 28 38 29 B2 22 49  4E 54 45 4C 20 43 4F 52  |E$(8)."INTEL COR|
00000230: 50 2E 22 3A 4E 41 4D 45  24 28 39 29 B2 22 4C 4F  |P.":NAME$(9)."LO|
00000240: 43 4B 48 45 45 44 20 43  4F 52 50 2E 22 00 9B 0A  |CKHEED CORP."...|
00000250: 64 00 4E 41 4D 45 24 28  31 30 29 B2 22 4D 4F 54  |d.NAME$(10)."MOT|
00000260: 4F 52 4F 4C 41 22 3A 4E  41 4D 45 24 28 31 31 29  |OROLA":NAME$(11)|
00000270: B2 22 53 54 41 4E 44 41  52 44 20 4F 49 4C 22 3A  |."STANDARD OIL":|
00000280: 4E 41 4D 45 24 28 31 32  29 B2 22 33 2D 4D 20 43  |NAME$(12)."3-M C|
00000290: 4F 52 50 4F 52 41 54 49  4F 4E 22 00 C1 0A 6E 00  |ORPORATION"...n.|
000002A0: 81 41 B2 31 A4 53 4B 53  3A 81 42 B2 31 A4 34 3A  |.A.1.SKS:.B.1.4:|
000002B0: 54 41 42 4C 45 28 41 2C  42 29 B2 30 3A 82 42 2C  |TABLE(A,B).0:.B,|
000002C0: 41 00 F3 0A 78 00 99 22  93 11 11 11 11 11 11 11  |A...x.."........|
000002D0: 11 11 11 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 2A 2A 2A  |.............***|
000002E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000002F0: 2A 22 3A 00 13 0B 79 00  99 A3 31 30 29 22 2A 2A  |*":...y...10)"**|
00000300: 20 20 4D 41 52 4B 45 54  20 43 52 41 53 48 20 20  |  MARKET CRASH  |
00000310: 2A 2A 22 00 50 0B 82 00  99 A3 31 30 29 22 2A 2A  |**".P.....10)"**|
00000320: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000330: 2A 2A 22 3A 99 A3 31 30  29 3B 22 2A 2A 2A 2A 2A  |**":..10);"*****|
00000340: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 22  |***************"|
00000350: 00 93 0B 8C 00 81 41 B2  31 A4 53 4B 53 3A 50 52  |......A.1.SKS:PR|
00000360: 49 43 45 B2 B5 28 BB 28  31 29 AC 31 30 30 AA 31  |ICE..(.(1).100.1|
00000370: 29 AA 32 30 3A 57 41 53  B2 57 41 53 AA 50 52 49  |).20:WAS.WAS.PRI|
00000380: 43 45 3A 54 41 42 4C 45  28 41 2C 31 29 B2 50 52  |CE:TABLE(A,1).PR|
00000390: 49 43 45 00 BC 0B 96 00  43 48 41 4E 47 45 B2 B5  |ICE.....CHANGE..|
000003A0: 28 BB 28 31 29 AC 35 29  AB 32 3A 54 41 42 4C 45  |(.(1).5).2:TABLE|
000003B0: 28 41 2C 35 29 B2 43 48  41 4E 47 45 00 E6 0B A0  |(A,5).CHANGE....|
000003C0: 00 82 41 3A 57 41 53 B2  B5 28 57 41 53 AD 53 4B  |..A:WAS..(WAS.SK|
000003D0: 53 AC 31 30 30 29 AD 31  30 30 3A 41 56 45 52 41  |S.100).100:AVERA|
000003E0: 47 45 B2 57 41 53 00 22  0C AA 00 4D 4F 54 48 24  |GE.WAS."...MOTH$|
000003F0: 28 31 29 B2 22 4A 41 4E  55 41 52 59 22 3A 4D 4F  |(1)."JANUARY":MO|
00000400: 54 48 24 28 32 29 B2 22  46 45 42 52 55 41 52 59  |TH$(2)."FEBRUARY|
00000410: 22 3A 4D 4F 54 48 24 28  33 29 B2 22 4D 41 52 43  |":MOTH$(3)."MARC|
00000420: 48 22 00 56 0C B4 00 4D  4F 54 48 24 28 34 29 B2  |H".V...MOTH$(4).|
00000430: 22 41 50 52 49 4C 22 3A  4D 4F 54 48 24 28 35 29  |"APRIL":MOTH$(5)|
00000440: B2 22 4D 41 59 22 3A 4D  4F 54 48 24 28 36 29 B2  |."MAY":MOTH$(6).|
00000450: 22 4A 55 4E 45 22 00 91  0C BE 00 4D 4F 54 48 24  |"JUNE".....MOTH$|
00000460: 28 37 29 B2 22 4A 55 4C  59 22 3A 4D 4F 54 48 24  |(7)."JULY":MOTH$|
00000470: 28 38 29 B2 22 41 55 47  55 53 54 22 3A 4D 4F 54  |(8)."AUGUST":MOT|
00000480: 48 24 28 39 29 B2 22 53  45 50 54 45 4D 42 45 52  |H$(9)."SEPTEMBER|
00000490: 22 00 D3 0C C8 00 4D 4F  54 48 24 28 31 30 29 B2  |".....MOTH$(10).|
000004A0: 22 4F 43 54 4F 42 45 52  22 3A 4D 4F 54 48 24 28  |"OCTOBER":MOTH$(|
000004B0: 31 31 29 B2 22 4E 4F 56  45 4D 42 45 52 22 3A 4D  |11)."NOVEMBER":M|
000004C0: 4F 54 48 24 28 31 32 29  B2 22 44 45 43 45 4D 42  |OTH$(12)."DECEMB|
000004D0: 45 52 22 00 21 0D D2 00  44 41 59 24 28 31 29 B2  |ER".!...DAY$(1).|
000004E0: 22 4D 4F 4E 44 41 59 22  3A 44 41 59 24 28 32 29  |"MONDAY":DAY$(2)|
000004F0: B2 22 54 55 45 53 44 41  59 22 3A 44 41 59 24 28  |."TUESDAY":DAY$(|
00000500: 33 29 B2 22 57 45 44 4E  45 53 44 41 59 22 3A 44  |3)."WEDNESDAY":D|
00000510: 41 59 24 28 34 29 B2 22  54 48 55 52 53 44 41 59  |AY$(4)."THURSDAY|
00000520: 22 00 36 0D D7 00 44 41  59 24 28 35 29 B2 22 46  |".6...DAY$(5)."F|
00000530: 52 49 44 41 59 22 00 60  0D DC 00 57 45 45 4B B2  |RIDAY".`...WEEK.|
00000540: 30 3A 44 41 59 B2 30 3A  4D 4F 54 48 B2 31 3A 4C  |0:DAY.0:MOTH.1:L|
00000550: 41 53 54 B2 33 31 3A 51  55 41 52 54 45 52 B2 30  |AST.31:QUARTER.0|
00000560: 00 99 0D E6 00 99 22 93  11 11 1D 1D 44 4F 20 59  |......".....DO Y|
00000570: 4F 55 20 57 41 4E 54 20  49 4E 53 54 52 55 43 54  |OU WANT INSTRUCT|
00000580: 49 4F 4E 53 3F 22 3A 8D  32 36 32 30 3A 8B 4B 45  |IONS?":.2620:.KE|
00000590: 59 B2 32 30 36 A7 36 35  30 00 B7 0D F0 00 99 22  |Y.206.650......"|
000005A0: 93 22 3B A3 31 30 29 22  12 49 4E 53 54 52 55 43  |.";.10)".INSTRUC|
000005B0: 54 49 4F 4E 53 92 22 00  05 0E FA 00 99 22 20 54  |TIONS."......" T|
000005C0: 48 49 53 20 49 53 20 41  20 53 49 4D 55 4C 41 54  |HIS IS A SIMULAT|
000005D0: 49 4F 4E 20 4F 46 20 54  48 45 20 4F 50 45 52 41  |ION OF THE OPERA|
000005E0: 54 49 4F 4E 53 20 4F 46  20 54 48 45 20 53 54 4F  |TIONS OF THE STO|
000005F0: 43 4B 20 4D 41 52 4B 45  54 2E 54 48 45 52 45 20  |CK MARKET.THERE |
00000600: 41 52 45 22 3B 00 3A 0E  04 01 99 22 20 31 32 20  |ARE";.:...." 12 |
00000610: 20 20 20 20 20 20 20 43  4F 4D 50 41 4E 59 20 53  |       COMPANY S|
00000620: 54 4F 43 4B 53 20 41 56  41 49 4C 41 42 4C 45 20  |TOCKS AVAILABLE |
00000630: 46 4F 52 20 54 52 41 44  45 22 00 8B 0E 0E 01 99  |FOR TRADE"......|
00000640: 22 50 52 4F 56 49 44 49  4E 47 20 59 4F 55 20 48  |"PROVIDING YOU H|
00000650: 41 56 45 20 54 48 45 20  4D 4F 4E 45 59 2C 20 54  |AVE THE MONEY, T|
00000660: 48 45 52 45 20 49 53 20  41 20 42 52 4F 4B 45 52  |HERE IS A BROKER|
00000670: 53 20 46 45 45 20 4F 46  20 36 25 20 4F 52 20 24  |S FEE OF 6% OR $|
00000680: 35 30 2E 30 30 20 50 45  52 22 3B 00 CD 0E 18 01  |50.00 PER";.....|
00000690: 99 22 53 54 4F 43 4B 2E  20 20 54 52 41 4E 53 41  |."STOCK.  TRANSA|
000006A0: 43 54 49 4F 4E 53 20 41  52 45 20 43 4F 4C 4C 45  |CTIONS ARE COLLE|
000006B0: 43 54 45 44 20 41 54 20  54 48 45 20 45 4E 44 20  |CTED AT THE END |
000006C0: 4F 46 20 45 41 43 48 20  57 45 45 4B 22 00 F1 0E  |OF EACH WEEK"...|
000006D0: 22 01 99 22 11 48 45 52  45 20 41 52 45 20 54 48  |"..".HERE ARE TH|
000006E0: 45 20 4B 45 59 20 46 55  4E 43 54 49 4F 4E 53 3A  |E KEY FUNCTIONS:|
000006F0: 22 00 39 0F 2C 01 99 22  28 53 29 20 53 45 4C 4C  |".9.,.."(S) SELL|
00000700: 20 53 54 4F 43 4B 22 3A  99 22 28 42 29 20 42 55  | STOCK":."(B) BU|
00000710: 59 20 53 54 4F 43 4B 22  3A 99 22 28 52 45 54 55  |Y STOCK":."(RETU|
00000720: 52 4E 29 20 50 41 53 53  22 3A 99 22 28 45 29 20  |RN) PASS":."(E) |
00000730: 45 4E 44 20 47 41 4D 45  22 00 88 0F 36 01 99 22  |END GAME"...6.."|
00000740: 57 48 45 4E 20 42 55 59  49 4E 47 20 4F 52 20 53  |WHEN BUYING OR S|
00000750: 45 4C 4C 49 4E 47 20 53  54 4F 43 4B 20 45 4E 54  |ELLING STOCK ENT|
00000760: 45 52 20 41 54 20 20 20  4C 45 41 53 54 20 54 48  |ER AT   LEAST TH|
00000770: 45 20 46 49 52 53 54 20  54 48 52 45 45 20 49 4E  |E FIRST THREE IN|
00000780: 49 54 49 41 4C 53 20 22  00 A1 0F 40 01 99 22 4F  |ITIALS "...@.."O|
00000790: 46 20 54 48 45 20 53 54  4F 43 4B 20 4E 41 4D 45  |F THE STOCK NAME|
000007A0: 22 00 C2 0F 4A 01 99 22  50 52 45 53 53 20 41 4E  |"...J.."PRESS AN|
000007B0: 59 20 4B 45 59 20 54 4F  20 43 4F 4E 54 49 4E 55  |Y KEY TO CONTINU|
000007C0: 45 22 00 DA 0F 54 01 8D  32 36 32 30 3A 8B 4B 45  |E"...T..2620:.KE|
000007D0: 59 B2 31 39 35 A7 32 35  36 30 00 E0 0F 8A 02 8F  |Y.195.2560......|
000007E0: 00 F3 0F BC 02 8F 20 4D  41 49 4E 20 50 52 4F 47  |...... MAIN PROG|
000007F0: 52 41 4D 00 FC 0F C6 02  8D 38 33 30 00 06 10 D0  |RAM......830....|
00000800: 02 8D 31 33 30 30 00 10  10 DA 02 8D 31 37 35 30  |..1300......1750|
00000810: 00 1A 10 E4 02 8D 31 39  31 30 00 33 10 EE 02 8B  |......1910.3....|
00000820: 4B 45 59 B2 31 39 34 B0  4B 45 59 B2 32 31 31 A7  |KEY.194.KEY.211.|
00000830: 37 38 30 00 45 10 F8 02  8B 4B 45 59 B2 31 39 37  |780.E....KEY.197|
00000840: A7 32 33 36 30 00 4E 10  02 03 89 37 30 30 00 58  |.2360.N....700.X|
00000850: 10 0C 03 8D 31 39 37 30  00 6B 10 16 03 8B 4B 45  |....1970.k....KE|
00000860: 59 B2 31 39 34 A7 8D 32  30 37 30 00 7E 10 20 03  |Y.194..2070.~. .|
00000870: 8B 4B 45 59 B2 32 31 31  A7 8D 32 32 31 30 00 88  |.KEY.211..2210..|
00000880: 10 2A 03 8D 31 39 31 30  00 91 10 34 03 89 37 35  |.*..1910...4..75|
00000890: 30 00 A4 10 3E 03 8F 20  44 41 54 41 20 46 49 47  |0...>.. DATA FIG|
000008A0: 55 52 45 53 00 D5 10 48  03 4D 41 52 4B 45 54 B2  |URES...H.MARKET.|
000008B0: 4D 41 52 4B 45 54 AA B5  28 BB 28 31 29 AC 33 29  |MARKET..(.(1).3)|
000008C0: AB 31 3A 8B 4D 41 52 4B  45 59 B1 32 A7 4D 41 52  |.1:.MARKEY.2.MAR|
000008D0: 4B 45 59 B2 32 00 EE 10  52 03 8B 4D 41 52 4B 45  |KEY.2...R..MARKE|
000008E0: 54 B3 AB 33 A7 4D 41 52  4B 45 54 B2 AB 33 00 0D  |T..3.MARKET..3..|
000008F0: 11 5C 03 8B BB 28 31 29  B1 2E 39 32 A7 4D 41 52  |.\...(1)..92.MAR|
00000900: 4B 45 54 B2 AB 31 AC 4D  41 52 4B 45 54 00 3D 11  |KET..1.MARKET.=.|
00000910: 66 03 46 4C 41 47 B2 30  3A 57 45 45 4B B2 57 45  |f.FLAG.0:WEEK.WE|
00000920: 45 4B AA 31 3A 44 41 59  B2 44 41 59 AA 31 3A 8B  |EK.1:DAY.DAY.1:.|
00000930: 44 41 59 B3 B2 4C 41 53  54 A7 39 31 30 00 68 11  |DAY..LAST.910.h.|
00000940: 70 03 44 41 59 B2 44 41  59 AB 4C 41 53 54 3A 4D  |p.DAY.DAY.LAST:M|
00000950: 4F 54 48 B2 4D 4F 54 48  AA 31 3A 8B 4D 4F 54 48  |OTH.MOTH.1:.MOTH|
00000960: B1 31 32 A7 32 38 39 30  00 8E 11 7A 03 51 55 41  |.12.2890...z.QUA|
00000970: 52 54 45 52 B2 51 55 41  52 54 45 52 AA 31 3A 8B  |RTER.QUARTER.1:.|
00000980: 51 55 41 52 54 45 52 B3  B1 33 A7 39 31 30 00 A2  |QUARTER..3.910..|
00000990: 11 84 03 51 55 41 52 54  45 52 B2 30 3A 8D 31 36  |...QUARTER.0:.16|
000009A0: 37 30 00 B3 11 8E 03 8B  57 45 45 4B B3 B2 35 A7  |70......WEEK..5.|
000009B0: 39 35 30 00 EA 11 98 03  99 22 93 22 3A 4C 41 53  |950......".":LAS|
000009C0: 54 B2 32 38 3A 8B 4D 4F  54 48 B2 34 B0 4D 4F 54  |T.28:.MOTH.4.MOT|
000009D0: 48 B2 36 B0 4D 4F 54 48  B2 39 B0 4D 4F 54 48 B2  |H.6.MOTH.9.MOTH.|
000009E0: 31 31 A7 4C 41 53 54 B2  33 30 00 2A 12 A2 03 8B  |11.LAST.30.*....|
000009F0: 4D 4F 54 48 B2 31 B0 4D  4F 54 48 B2 33 B0 4D 4F  |MOTH.1.MOTH.3.MO|
00000A00: 54 48 B2 35 B0 4D 4F 54  48 B2 37 B0 4D 4F 54 48  |TH.5.MOTH.7.MOTH|
00000A10: B2 38 B0 4D 4F 54 48 B2  31 30 B0 4D 4F 54 48 B2  |.8.MOTH.10.MOTH.|
00000A20: 31 32 A7 4C 41 53 54 B2  33 31 00 48 12 AC 03 46  |12.LAST.31.H...F|
00000A30: 4C 41 47 B2 31 3A 57 45  45 4B B2 30 3A 41 24 B2  |LAG.1:WEEK.0:A$.|
00000A40: 22 22 3A 89 31 32 30 30  00 65 12 B6 03 8D 31 36  |"":.1200.e....16|
00000A50: 33 30 3A 8B 4D 4F 54 48  B2 31 AF 44 41 59 B2 31  |30:.MOTH.1.DAY.1|
00000A60: A7 31 30 36 30 00 7F 12  C0 03 8B 20 4D 4F 54 48  |.1060...... MOTH|
00000A70: B2 32 AF 44 41 59 B2 31  32 A7 89 31 30 37 30 00  |.2.DAY.12..1070.|
00000A80: 98 12 CA 03 8B 4D 4F 54  48 B2 32 AF 44 41 59 B2  |.....MOTH.2.DAY.|
00000A90: 31 39 A7 89 31 30 38 30  00 B1 12 D4 03 8B 4D 4F  |19..1080......MO|
00000AA0: 54 48 B2 35 AF 44 41 59  B2 32 38 A7 89 31 30 39  |TH.5.DAY.28..109|
00000AB0: 30 00 C9 12 DE 03 8B 4D  4F 54 48 B2 37 AF 44 41  |0......MOTH.7.DA|
00000AC0: 59 B2 34 A7 89 31 31 30  30 00 E1 12 E8 03 8B 4D  |Y.4..1100......M|
00000AD0: 4F 54 48 B2 39 AF 44 41  59 B2 33 A7 89 31 31 31  |OTH.9.DAY.3..111|
00000AE0: 30 00 FA 12 F2 03 8B 4D  4F 54 48 B2 31 30 AF 44  |0......MOTH.10.D|
00000AF0: 41 59 B2 38 A7 89 31 31  32 30 00 14 13 FC 03 8B  |AY.8..1120......|
00000B00: 4D 4F 54 48 B2 31 31 AF  44 41 59 B2 31 32 A7 89  |MOTH.11.DAY.12..|
00000B10: 31 31 33 30 00 2E 13 06  04 8B 4D 4F 54 48 B2 31  |1130......MOTH.1|
00000B20: 31 AF 44 41 59 B2 32 32  A7 89 31 31 34 30 00 48  |1.DAY.22..1140.H|
00000B30: 13 10 04 8B 4D 4F 54 48  B2 31 32 AF 44 41 59 B2  |....MOTH.12.DAY.|
00000B40: 32 35 A7 89 31 31 35 30  00 52 13 1A 04 89 31 31  |25..1150.R....11|
00000B50: 39 30 00 71 13 24 04 41  24 B2 22 93 4E 45 57 20  |90.q.$.A$.".NEW |
00000B60: 59 45 41 52 27 53 20 44  41 59 22 3A 89 31 31 36  |YEAR'S DAY":.116|
00000B70: 30 00 94 13 2E 04 41 24  B2 22 93 4C 49 4E 43 4F  |0.....A$.".LINCO|
00000B80: 4C 4E 27 53 20 42 49 52  54 48 44 41 59 22 3A 89  |LN'S BIRTHDAY":.|
00000B90: 31 31 36 30 00 BA 13 38  04 41 24 B2 22 93 57 41  |1160...8.A$.".WA|
00000BA0: 53 48 49 4E 47 54 4F 4E  27 53 20 42 49 52 54 48  |SHINGTON'S BIRTH|
00000BB0: 44 41 59 22 3A 89 31 31  36 30 00 D7 13 42 04 41  |DAY":.1160...B.A|
00000BC0: 24 B2 22 93 4D 45 4D 4F  52 49 41 4C 20 44 41 59  |$.".MEMORIAL DAY|
00000BD0: 22 3A 89 31 31 36 30 00  F8 13 4C 04 41 24 B2 22  |":.1160...L.A$."|
00000BE0: 93 49 4E 44 45 50 45 4E  44 45 4E 43 45 20 44 41  |.INDEPENDENCE DA|
00000BF0: 59 22 3A 89 31 31 36 30  00 12 14 56 04 41 24 B2  |Y":.1160...V.A$.|
00000C00: 22 93 4C 41 42 4F 52 20  44 41 59 22 3A 89 31 31  |".LABOR DAY":.11|
00000C10: 36 30 00 2F 14 60 04 41  24 B2 22 93 43 4F 4C 55  |60./.`.A$.".COLU|
00000C20: 4D 42 55 53 20 44 41 59  22 3A 89 31 31 36 30 00  |MBUS DAY":.1160.|
00000C30: 4C 14 6A 04 41 24 B2 22  93 56 45 54 45 52 41 4E  |L.j.A$.".VETERAN|
00000C40: 53 20 44 41 59 22 3A 89  31 31 36 30 00 6D 14 74  |S DAY":.1160.m.t|
00000C50: 04 41 24 B2 22 93 54 48  41 4E 4B 53 47 49 56 49  |.A$.".THANKSGIVI|
00000C60: 4E 47 20 44 41 59 22 3A  89 31 31 36 30 00 81 14  |NG DAY":.1160...|
00000C70: 7E 04 41 24 B2 22 93 43  48 52 49 53 54 4D 41 53  |~.A$.".CHRISTMAS|
00000C80: 22 00 96 14 88 04 99 41  24 3A 81 41 B2 31 A4 31  |"......A$:.A.1.1|
00000C90: 30 30 30 3A 82 41 00 C9  14 92 04 99 A3 39 29 22  |000:.A.......9)"|
00000CA0: 53 54 4F 43 4B 20 4D 41  52 4B 45 54 20 43 4C 4F  |STOCK MARKET CLO|
00000CB0: 53 45 44 2E 2E 2E 22 3A  81 41 B2 31 A4 31 30 30  |SED...":.A.1.100|
00000CC0: 30 3A 82 41 3A 99 22 93  22 00 D2 14 9C 04 89 38  |0:.A:."."......8|
00000CD0: 37 30 00 E6 14 A6 04 8D  31 34 32 30 3A 8B 46 4C  |70......1420:.FL|
00000CE0: 41 47 B2 30 A7 8E 00 15  15 B0 04 99 A3 33 29 22  |AG.0.........3)"|
00000CF0: 57 45 45 4B 45 4E 44 22  3A 99 A3 39 29 22 53 54  |WEEKEND":..9)"ST|
00000D00: 4F 43 4B 20 4D 41 52 4B  45 54 20 43 4C 4F 53 45  |OCK MARKET CLOSE|
00000D10: 44 2E 2E 2E 22 00 37 15  BA 04 99 3A 99 3A 8D 31  |D...".7....:.:.1|
00000D20: 34 37 30 3A 44 41 59 B2  44 41 59 AA 31 3A 99 22  |470:DAY.DAY.1:."|
00000D30: 93 22 3A 89 38 37 30 00  3D 15 C4 04 8F 00 56 15  |.":.870.=.....V.|
00000D40: CE 04 8B 43 41 53 48 B1  B2 30 AF 57 45 45 4B B1  |...CASH..0.WEEK.|
00000D50: 31 A7 31 32 36 30 00 76  15 D8 04 8B C3 28 41 24  |1.1260.v.....(A$|
00000D60: 29 B1 31 AF 57 45 45 4B  B2 32 AF 43 41 53 48 B3  |).1.WEEK.2.CASH.|
00000D70: 30 A7 31 32 36 30 00 8F  15 E2 04 8B 43 41 53 48  |0.1260......CASH|
00000D80: B3 30 AF 57 45 45 4B B3  B1 31 A7 32 37 32 30 00  |.0.WEEK..1.2720.|
00000D90: B8 15 EC 04 46 4C 41 47  B2 30 3A 81 42 B2 31 A4  |....FLAG.0:.B.1.|
00000DA0: 53 4B 53 3A 8B 54 41 42  4C 45 28 42 2C 31 29 B1  |SKS:.TABLE(B,1).|
00000DB0: 30 A7 46 4C 41 47 B2 42  00 CC 15 F6 04 82 42 3A  |0.FLAG.B......B:|
00000DC0: 8B 46 4C 41 47 B2 30 A7  32 38 35 30 00 EF 15 00  |.FLAG.0.2850....|
00000DD0: 05 46 4C 41 47 B2 30 3A  8B 43 41 53 48 B3 B2 30  |.FLAG.0:.CASH..0|
00000DE0: AF 41 53 53 45 54 53 B3  B2 30 A7 32 37 38 30 00  |.ASSETS..0.2780.|
00000DF0: F5 15 0A 05 8E 00 0A 16  14 05 8F 20 4D 41 52 4B  |........... MARK|
00000E00: 45 54 20 46 49 47 55 52  45 53 00 34 16 1E 05 41  |ET FIGURES.4...A|
00000E10: 53 53 45 54 53 B2 30 3A  81 41 B2 31 A4 53 4B 53  |SSETS.0:.A.1.SKS|
00000E20: 3A 8B 54 41 42 4C 45 28  41 2C 31 29 B3 B2 30 A7  |:.TABLE(A,1)..0.|
00000E30: 31 34 30 30 00 65 16 28  05 43 48 41 4E 47 45 B2  |1400.e.(.CHANGE.|
00000E40: 54 41 42 4C 45 28 41 2C  35 29 AA B5 28 BB 28 31  |TABLE(A,5)..(.(1|
00000E50: 29 AC 33 29 AB 31 3A 8B  BB 28 31 29 B1 2E 38 35  |).3).1:..(1)..85|
00000E60: A7 31 33 36 30 00 7C 16  32 05 8B 43 48 41 4E 47  |.1360.|.2..CHANG|
00000E70: 45 B1 32 A7 43 48 41 4E  47 45 B2 32 00 95 16 3C  |E.2.CHANGE.2...<|
00000E80: 05 8B 43 48 41 4E 47 45  B3 AB 32 A7 43 48 41 4E  |..CHANGE..2.CHAN|
00000E90: 47 45 B2 AB 32 00 9F 16  46 05 89 31 33 37 30 00  |GE..2...F..1370.|
00000EA0: C1 16 50 05 43 48 41 4E  47 45 B2 54 41 42 4C 45  |..P.CHANGE.TABLE|
00000EB0: 28 41 2C 35 29 AA B5 28  BB 28 31 29 AC 35 29 AB  |(A,5)..(.(1).5).|
00000EC0: 32 00 DF 16 5A 05 8B BB  28 31 29 B1 2E 39 A7 43  |2...Z...(1)..9.C|
00000ED0: 48 41 4E 47 45 B2 AB 31  AC 43 48 41 4E 47 45 00  |HANGE..1.CHANGE.|
00000EE0: 27 17 64 05 54 41 42 4C  45 28 41 2C 35 29 B2 43  |'.d.TABLE(A,5).C|
00000EF0: 48 41 4E 47 45 3A 43 48  41 4E 47 45 B2 43 48 41  |HANGE:CHANGE.CHA|
00000F00: 4E 47 45 AA 4D 41 52 4B  45 54 3A 54 41 42 4C 45  |NGE.MARKET:TABLE|
00000F10: 28 41 2C 31 29 B2 54 41  42 4C 45 28 41 2C 31 29  |(A,1).TABLE(A,1)|
00000F20: AA 43 48 41 4E 47 45 00  3F 17 69 05 8B 54 41 42  |.CHANGE.?.i..TAB|
00000F30: 4C 45 28 41 2C 31 29 B3  B2 30 A7 31 34 31 30 00  |LE(A,1)..0.1410.|
00000F40: 76 17 6E 05 54 41 42 4C  45 28 41 2C 32 29 B2 43  |v.n.TABLE(A,2).C|
00000F50: 48 41 4E 47 45 3A 54 41  42 4C 45 28 41 2C 34 29  |HANGE:TABLE(A,4)|
00000F60: B2 54 41 42 4C 45 28 41  2C 33 29 AC 54 41 42 4C  |.TABLE(A,3).TABL|
00000F70: 45 28 41 2C 31 29 00 9E  17 78 05 41 53 53 45 54  |E(A,1)...x.ASSET|
00000F80: 53 B2 41 53 53 45 54 53  AA 54 41 42 4C 45 28 41  |S.ASSETS.TABLE(A|
00000F90: 2C 34 29 3A 82 41 3A 8D  31 32 32 30 3A 8E 00 BF  |,4):.A:.1220:...|
00000FA0: 17 82 05 81 42 B2 31 A4  35 3A 54 41 42 4C 45 28  |....B.1.5:TABLE(|
00000FB0: 41 2C 42 29 B2 30 3A 82  42 3A 89 31 34 30 30 00  |A,B).0:.B:.1400.|
00000FC0: D3 17 8C 05 8F 20 46 49  52 53 54 20 4F 52 20 57  |..... FIRST OR W|
00000FD0: 45 45 4B 00 F4 17 96 05  8B 57 45 45 4B B3 B1 31  |EEK......WEEK..1|
00000FE0: AF A8 28 57 45 45 4B B2  32 AF C3 28 41 24 29 B1  |..(WEEK.2..(A$).|
00000FF0: 31 29 A7 8E 00 27 18 A0  05 42 45 47 49 4E 43 B2  |1)...'...BEGINC.|
00001000: 30 3A 41 53 53 45 54 53  B2 30 3A 81 42 B2 31 A4  |0:ASSETS.0:.B.1.|
00001010: 53 4B 53 3A 8B 54 41 42  4C 45 28 42 2C 31 29 B3  |SKS:.TABLE(B,1).|
00001020: B2 30 A7 31 34 36 30 00  44 18 AA 05 41 53 53 45  |.0.1460.D...ASSE|
00001030: 54 53 B2 41 53 53 45 54  53 AA 54 41 42 4C 45 28  |TS.ASSETS.TABLE(|
00001040: 42 2C 34 29 00 66 18 B4  05 82 42 3A 42 45 47 49  |B,4).f....B:BEGI|
00001050: 4E 43 B2 43 41 53 48 AA  41 53 53 45 54 53 3A 8D  |NC.CASH.ASSETS:.|
00001060: 31 32 32 30 3A 8E 00 79  18 BE 05 8F 20 57 45 45  |1220:..y.... WEE|
00001070: 4B 45 4E 44 20 44 41 54  41 00 94 18 C8 05 49 4E  |KEND DATA.....IN|
00001080: 43 4F 4D 45 B2 30 3A 99  22 93 22 3A 81 41 B2 31  |COME.0:.".":.A.1|
00001090: A4 53 4B 53 00 BE 18 D2  05 49 4E 43 4F 4D 45 B2  |.SKS.....INCOME.|
000010A0: 49 4E 43 4F 4D 45 AA 28  54 41 42 4C 45 28 41 2C  |INCOME.(TABLE(A,|
000010B0: 31 29 AC 54 41 42 4C 45  28 41 2C 33 29 29 00 E9  |1).TABLE(A,3))..|
000010C0: 18 DC 05 82 41 3A 99 A3  33 29 22 54 4F 54 41 4C  |....A:..3)"TOTAL|
000010D0: 20 49 4E 43 4F 4D 45 20  46 4F 52 20 54 48 45 20  | INCOME FOR THE |
000010E0: 57 45 45 4B 3A 20 22 3A  99 00 2D 19 E6 05 99 A3  |WEEK: ":..-.....|
000010F0: 35 29 22 43 41 53 48 20  41 54 20 57 45 45 4B 45  |5)"CASH AT WEEKE|
00001100: 4E 44 3A 22 3B A3 32 37  29 22 24 22 3B 43 41 53  |ND:";.27)"$";CAS|
00001110: 48 3A 99 A3 35 29 22 43  55 52 52 45 4E 54 20 50  |H:..5)"CURRENT P|
00001120: 41 50 45 52 20 57 4F 52  54 48 3A 22 3B 00 42 19  |APER WORTH:";.B.|
00001130: EB 05 99 A3 32 37 29 3B  22 24 22 3B 49 4E 43 4F  |....27);"$";INCO|
00001140: 4D 45 00 7D 19 F0 05 99  A3 32 37 29 3B 22 2D 2D  |ME.}.....27);"--|
00001150: 2D 2D 2D 2D 2D 2D 2D 22  3A 99 A3 35 29 3B 22 54  |-------":..5);"T|
00001160: 4F 54 41 4C 3A 22 3B A3  32 37 29 3B 22 24 22 3B  |OTAL:";.27);"$";|
00001170: 43 41 53 48 AA 49 4E 43  4F 4D 45 3A 99 00 C2 19  |CASH.INCOME:....|
00001180: FA 05 99 A3 35 29 3B 22  54 4F 54 41 4C 20 41 53  |....5);"TOTAL AS|
00001190: 53 45 54 53 20 2B 20 43  41 53 48 22 3A 99 A3 35  |SETS + CASH":..5|
000011A0: 29 3B 22 41 54 20 42 45  47 49 4E 4E 49 4E 47 20  |);"AT BEGINNING |
000011B0: 4F 46 20 57 45 45 4B 3A  22 3B A3 32 37 29 22 24  |OF WEEK:";.27)"$|
000011C0: 22 3B 00 DF 19 FF 05 99  42 45 47 49 4E 43 3A 99  |";......BEGINC:.|
000011D0: A3 32 37 29 22 2D 2D 2D  2D 2D 2D 2D 2D 2D 22 00  |.27)"---------".|
000011E0: 22 1A 04 06 99 A3 35 29  22 47 52 4F 53 53 20 57  |".....5)"GROSS W|
000011F0: 45 45 4B 27 53 20 49 4E  43 4F 4D 45 3A 22 3B A3  |EEK'S INCOME:";.|
00001200: 32 37 29 3B 22 24 22 3B  28 43 41 53 48 AA 49 4E  |27);"$";(CASH.IN|
00001210: 43 4F 4D 45 29 AB 42 45  47 49 4E 43 3A 99 A3 35  |COME).BEGINC:..5|
00001220: 29 3B 00 4A 1A 09 06 99  22 4C 45 53 53 20 42 52  |);.J...."LESS BR|
00001230: 4F 4B 45 52 27 53 20 46  45 45 53 22 3B A3 32 37  |OKER'S FEES";.27|
00001240: 29 3B 22 24 22 3B 46 45  45 53 00 91 1A 0E 06 99  |);"$";FEES......|
00001250: 3A 99 3A 99 A3 35 29 3B  22 4E 45 54 20 57 45 45  |:.:..5);"NET WEE|
00001260: 4B 27 53 20 49 4E 43 4F  4D 45 3A 22 3B A3 32 37  |K'S INCOME:";.27|
00001270: 29 3B 22 24 22 3B 28 28  43 41 53 48 AA 49 4E 43  |);"$";((CASH.INC|
00001280: 4F 4D 45 29 AB 42 45 47  49 4E 43 29 AB 46 45 45  |OME).BEGINC).FEE|
00001290: 53 00 B4 1A 13 06 99 3A  43 41 53 48 B2 43 41 53  |S......:CASH.CAS|
000012A0: 48 AB 46 45 45 53 3A 8B  43 41 53 48 B1 B2 30 A7  |H.FEES:.CASH..0.|
000012B0: 31 35 37 30 00 01 1B 18  06 99 22 59 4F 55 20 48  |1570......"YOU H|
000012C0: 41 56 45 20 55 4E 54 49  4C 20 4D 4F 4E 44 41 59  |AVE UNTIL MONDAY|
000012D0: 20 54 4F 20 42 52 45 41  4B 22 3A 99 22 45 56 45  | TO BREAK":."EVE|
000012E0: 4E 2C 20 4F 52 20 45 4C  53 45 21 21 21 20 20 28  |N, OR ELSE!!!  (|
000012F0: 43 41 53 48 3A 20 24 22  3B 43 41 53 48 3B 22 29  |CASH: $";CASH;")|
00001300: 22 00 1F 1B 22 06 42 45  47 49 4E 43 B2 43 41 53  |"...".BEGINC.CAS|
00001310: 48 AA 49 4E 43 4F 4D 45  3A 46 45 45 53 B2 30 00  |H.INCOME:FEES.0.|
00001320: 4E 1B 2C 06 99 22 11 11  11 50 52 45 53 53 20 41  |N.,.."...PRESS A|
00001330: 4E 59 20 4B 45 59 20 54  4F 20 43 4F 4E 54 49 4E  |NY KEY TO CONTIN|
00001340: 55 45 2E 2E 2E 22 3A 8D  32 36 32 30 3A 8E 00 63  |UE...":.2620:..c|
00001350: 1B 36 06 8F 20 41 53 53  45 54 20 50 52 49 4E 54  |.6.. ASSET PRINT|
00001360: 4F 55 54 00 9A 1B 40 06  41 53 53 45 54 53 B2 30  |OUT...@.ASSETS.0|
00001370: 3A 81 42 B2 31 A4 53 4B  53 3A 54 41 42 4C 45 28  |:.B.1.SKS:TABLE(|
00001380: 42 2C 34 29 B2 54 41 42  4C 45 28 42 2C 31 29 AC  |B,4).TABLE(B,1).|
00001390: 54 41 42 4C 45 28 42 2C  33 29 00 BA 1B 45 06 41  |TABLE(B,3)...E.A|
000013A0: 53 53 45 54 53 B2 41 53  53 45 54 53 AA 54 41 42  |SSETS.ASSETS.TAB|
000013B0: 4C 45 28 42 2C 34 29 3A  82 42 00 FC 1B 4A 06 99  |LE(B,4):.B...J..|
000013C0: 22 13 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |"...............|
000013D0: 11 11 11 11 1D 1D 1D 43  41 53 48 3A 20 24 22 3B  |.......CASH: $";|
000013E0: 43 41 53 48 3B A3 32 33  29 3B 22 41 53 53 45 54  |CASH;.23);"ASSET|
000013F0: 53 3A 20 24 22 3B 41 53  53 45 54 53 00 04 1C 54  |S: $";ASSETS...T|
00001400: 06 99 3A 8E 00 18 1C 5E  06 8F 20 44 41 54 41 20  |..:....^.. DATA |
00001410: 50 52 49 4E 54 4F 55 54  00 1E 1C 68 06 8F 00 28  |PRINTOUT...h...(|
00001420: 1C 72 06 8D 34 35 30 30  00 6E 1C 73 06 99 22 13  |.r..4500.n.s..".|
00001430: 22 20 A3 33 29 3B 22 20  20 20 20 20 20 20 20 20  |" .3);"         |
00001440: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001450: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001460: 20 20 20 20 20 20 20 20  20 20 20 20 20 22 00 AF  |             "..|
00001470: 1C 74 06 99 22 13 22 20  A3 33 29 3B 22 44 41 54  |.t.."." .3);"DAT|
00001480: 45 3A 22 3B 44 41 59 24  28 57 45 45 4B 29 3B 22  |E:";DAY$(WEEK);"|
00001490: 2C 22 3B 4D 4F 54 48 24  28 4D 4F 54 48 29 3B 22  |,";MOTH$(MOTH);"|
000014A0: 20 22 3B 44 41 59 3B 22  2C 22 3B 59 45 41 52 00  | ";DAY;",";YEAR.|
000014B0: CA 1C 7C 06 8D 31 32 32  30 3A 99 A3 34 30 29 3A  |..|..1220:..40):|
000014C0: 4C 54 48 B2 B8 28 30 29  3A 8E 00 DF 1C 86 06 8F  |LTH..(0):.......|
000014D0: 20 44 49 56 49 44 45 4E  44 53 20 50 41 49 44 00  | DIVIDENDS PAID.|
000014E0: FD 1C 90 06 43 41 53 48  B2 43 41 53 48 AA B5 28  |....CASH.CASH..(|
000014F0: 41 53 53 45 54 53 AC 2E  30 38 29 3A 8E 00 12 1D  |ASSETS..08):....|
00001500: 9A 06 8F 20 53 54 4F 43  4B 20 50 52 49 4E 54 4F  |... STOCK PRINTO|
00001510: 55 54 00 40 1D A4 06 43  48 41 4E 47 45 24 B2 C4  |UT.@...CHANGE$..|
00001520: 28 54 41 42 4C 45 28 41  2C 32 29 29 3A 8B 54 41  |(TABLE(A,2)):.TA|
00001530: 42 4C 45 28 41 2C 31 29  B3 B2 30 A7 31 37 33 30  |BLE(A,1)..0.1730|
00001540: 00 6C 1D AE 06 8B 54 41  42 4C 45 28 41 2C 32 29  |.l....TABLE(A,2)|
00001550: B1 30 A7 43 48 41 4E 47  45 24 B2 22 2B 22 AA C4  |.0.CHANGE$."+"..|
00001560: 28 54 41 42 4C 45 28 41  2C 32 29 29 00 A8 1D B8  |(TABLE(A,2))....|
00001570: 06 99 4E 41 4D 45 24 28  41 29 3B A3 31 36 29 3B  |..NAME$(A);.16);|
00001580: 54 41 42 4C 45 28 41 2C  31 29 3B A3 32 31 29 3B  |TABLE(A,1);.21);|
00001590: 43 48 41 4E 47 45 24 3B  A3 32 35 29 3B 54 41 42  |CHANGE$;.25);TAB|
000015A0: 4C 45 28 41 2C 33 29 3B  00 C3 1D BD 06 99 A3 33  |LE(A,3);.......3|
000015B0: 30 29 3B 54 41 42 4C 45  28 41 2C 34 29 3A 89 31  |0);TABLE(A,4):.1|
000015C0: 37 34 30 00 EF 1D C2 06  99 22 2A 2A 2A 20 22 3B  |740......"*** ";|
000015D0: 4E 41 4D 45 24 28 41 29  3B 22 20 49 53 20 42 41  |NAME$(A);" IS BA|
000015E0: 4B 4E 52 55 50 54 2E 2E  2E 22 3B A3 34 30 29 00  |KNRUPT...";.40).|
000015F0: F5 1D CC 06 8E 00 08 1E  D6 06 8F 20 50 52 49 4E  |........... PRIN|
00001600: 54 4F 55 54 20 41 4C 4C  00 23 1E E0 06 57 41 53  |TOUT ALL.#...WAS|
00001610: B2 41 56 45 52 41 47 45  3A 41 56 45 52 41 47 45  |.AVERAGE:AVERAGE|
00001620: B2 30 3A 00 66 1E EA 06  99 22 13 11 11 53 54 4F  |.0:.f...."...STO|
00001630: 43 4B 20 4E 41 4D 45 22  3B A3 31 35 29 3B 22 43  |CK NAME";.15);"C|
00001640: 4C 4F 53 45 22 3B A3 32  31 29 3B 22 43 48 47 22  |LOSE";.21);"CHG"|
00001650: 3B A3 32 35 29 3B 22 4F  57 4E 45 44 22 3B 22 20  |;.25);"OWNED";" |
00001660: 57 4F 52 54 48 22 00 7D  1E F4 06 81 41 B2 31 A4  |WORTH".}....A.1.|
00001670: 34 30 3A 99 22 3D 22 3B  3A 82 41 3A 99 00 91 1E  |40:."=";:.A:....|
00001680: FE 06 81 41 B2 31 A4 53  4B 53 3A 8D 20 31 36 39  |...A.1.SKS:. 169|
00001690: 30 00 B3 1E 08 07 41 56  45 52 41 47 45 B2 41 56  |0.....AVERAGE.AV|
000016A0: 45 52 41 47 45 AA 54 41  42 4C 45 28 41 2C 31 29  |ERAGE.TABLE(A,1)|
000016B0: 3A 82 41 00 CA 1E 12 07  81 41 B2 31 A4 34 30 3A  |:.A......A.1.40:|
000016C0: 99 22 3D 22 3B 3A 82 41  3A 99 00 EF 1E 1C 07 41  |."=";:.A:......A|
000016D0: 56 45 52 41 47 45 B2 B5  28 28 41 56 45 52 41 47  |VERAGE..((AVERAG|
000016E0: 45 AD 53 4B 53 29 AC 31  30 30 29 AD 31 30 30 00  |E.SKS).100).100.|
000016F0: 18 1F 26 07 99 22 41 56  45 52 41 47 45 3A 20 24  |..&.."AVERAGE: $|
00001700: 22 3B 41 56 45 52 41 47  45 3B 22 2F 53 48 41 52  |";AVERAGE;"/SHAR|
00001710: 45 22 3B A3 32 30 29 3B  00 42 1F 30 07 43 48 41  |E";.20);.B.0.CHA|
00001720: 4E 47 45 B2 B5 28 28 41  56 45 52 41 47 45 AC 31  |NGE..((AVERAGE.1|
00001730: 30 30 29 AB 28 57 41 53  AC 31 30 30 29 29 AD 31  |00).(WAS.100)).1|
00001740: 30 30 00 56 1F 3A 07 8B  43 48 41 4E 47 45 B3 B1  |00.V.:..CHANGE..|
00001750: 30 A7 31 38 37 30 00 6F  1F 44 07 99 22 28 4E 4F  |0.1870.o.D.."(NO|
00001760: 20 43 48 41 4E 47 45 29  22 3A 89 31 39 30 30 00  | CHANGE)":.1900.|
00001770: 82 1F 4E 07 8B 43 48 41  4E 47 45 B1 30 A7 31 38  |..N..CHANGE.0.18|
00001780: 39 30 00 A4 1F 58 07 99  22 28 44 4F 57 4E 20 22  |90...X.."(DOWN "|
00001790: 3B B6 28 43 48 41 4E 47  45 29 3B 22 29 22 3A 89  |;.(CHANGE);")":.|
000017A0: 31 39 30 30 00 BD 1F 62  07 99 22 28 55 50 22 3B  |1900...b.."(UP";|
000017B0: B6 28 43 48 41 4E 47 45  29 3B 22 29 22 00 C3 1F  |.(CHANGE);")"...|
000017C0: 6C 07 8E 00 CF 1F 6D 07  43 48 45 43 4B B2 31 00  |l.....m.CHECK.1.|
000017D0: DF 1F 76 07 8F 44 41 54  41 20 49 4E 50 55 54 00  |..v..DATA INPUT.|
000017E0: F2 1F 80 07 8F 20 4F 50  54 49 4F 4E 20 49 4E 50  |..... OPTION INP|
000017F0: 55 54 00 0F 20 8A 07 81  58 B2 31 37 38 34 AA 34  |UT.. ...X.1784.4|
00001800: 30 A4 32 30 32 33 3A 97  58 2C 33 32 3A 82 3A 00  |0.2023:.X,32:.:.|
00001810: 40 20 8E 07 8D 31 35 39  30 3A 99 22 13 11 11 11  |@ ...1590:."....|
00001820: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00001830: 11 11 28 42 29 2D 42 55  59 22 3B A3 32 30 29 3B  |..(B)-BUY";.20);|
00001840: 00 50 20 8F 07 99 22 28  53 29 2D 53 45 4C 4C 29  |.P ..."(S)-SELL)|
00001850: 00 9A 20 94 07 99 22 28  45 29 2D 53 54 4F 50 22  |.. ..."(E)-STOP"|
00001860: 3B A3 32 30 29 3B 22 28  52 45 54 55 52 4E 29 2D  |;.20);"(RETURN)-|
00001870: 50 41 53 53 22 3A 99 22  57 48 49 43 48 20 46 55  |PASS":."WHICH FU|
00001880: 4E 43 54 49 4F 4E 20 44  4F 20 59 4F 55 20 57 41  |NCTION DO YOU WA|
00001890: 4E 54 3F 22 3A 8D 32 36  32 30 00 C1 20 9E 07 8B  |NT?":.2620.. ...|
000018A0: 4B 45 59 B2 31 39 34 B0  4B 45 59 B2 32 31 31 B0  |KEY.194.KEY.211.|
000018B0: 4B 45 59 B2 31 39 37 B0  4B 45 59 B2 31 34 31 A7  |KEY.197.KEY.141.|
000018C0: 8E 00 EB 20 A8 07 89 31  39 33 30 3A 99 22 12 57  |... ...1930:.".W|
000018D0: 48 41 54 3F 3F 3F 3F 92  22 3A 81 42 B2 31 A4 31  |HAT????.":.B.1.1|
000018E0: 30 30 30 3A 82 3A 89 31  39 33 30 00 FD 20 B2 07  |000:.:.1930.. ..|
000018F0: 8F 20 53 54 4F 43 4B 20  49 4E 50 55 54 00 19 21  |. STOCK INPUT..!|
00001900: BC 07 81 58 B2 31 37 38  34 AB 34 30 A4 32 30 32  |...X.1784.40.202|
00001910: 33 3A 97 58 2C 33 32 3A  82 00 4B 21 C5 07 85 22  |3:.X,32:..K!..."|
00001920: 13 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00001930: 11 11 11 11 49 4E 50 55  54 20 53 54 4F 43 4B 20  |....INPUT STOCK |
00001940: 4E 41 4D 45 3A 20 22 3B  49 4E 24 00 6F 21 C6 07  |NAME: ";IN$.o!..|
00001950: 46 4C 41 47 B2 30 3A 43  48 45 43 4B 24 B2 C8 28  |FLAG.0:CHECK$..(|
00001960: 49 4E 24 2C 33 29 3A 81  41 B2 31 A4 53 4B 53 00  |IN$,3):.A.1.SKS.|
00001970: 90 21 D0 07 8B 43 48 45  43 4B 24 B2 C8 28 4E 41  |.!...CHECK$..(NA|
00001980: 4D 45 24 28 41 29 2C 33  29 A7 46 4C 41 47 B2 41  |ME$(A),3).FLAG.A|
00001990: 00 A5 21 DA 07 82 41 3A  8B 46 4C 41 47 B3 B1 30  |..!...A:.FLAG..0|
000019A0: A7 32 30 35 30 00 C0 21  E4 07 99 49 4E 24 3B 22  |.2050..!...IN$;"|
000019B0: 3F 3F 3F 22 3A 81 42 B2  31 A4 31 30 30 30 3A 82  |???":.B.1.1000:.|
000019C0: 00 FD 21 EE 07 99 22 54  48 45 52 45 20 49 53 20  |..!..."THERE IS |
000019D0: 4E 4F 20 53 54 4F 43 4B  20 42 59 20 54 48 41 54  |NO STOCK BY THAT|
000019E0: 20 4E 41 4D 45 21 21 21  22 3A 81 42 B2 31 A4 28  | NAME!!!":.B.1.(|
000019F0: 31 2E 35 AC 31 30 30 30  29 3A 82 3A 8E 00 39 22  |1.5.1000):.:..9"|
00001A00: F8 07 99 4E 41 4D 45 24  28 46 4C 41 47 29 3B 20  |...NAME$(FLAG); |
00001A10: 22 49 53 20 42 41 4E 4B  52 55 50 54 21 21 21 22  |"IS BANKRUPT!!!"|
00001A20: 3A 81 42 B2 31 A4 28 32  AC 31 30 30 30 29 3A 82  |:.B.1.(2.1000):.|
00001A30: 3A 46 4C 41 47 B2 30 3A  8E 00 54 22 02 08 8B 54  |:FLAG.0:..T"...T|
00001A40: 41 42 4C 45 28 46 4C 41  47 2C 31 29 B3 B2 30 A7  |ABLE(FLAG,1)..0.|
00001A50: 32 30 34 30 00 5A 22 0C  08 8E 00 6A 22 16 08 8F  |2040.Z"....j"...|
00001A60: 20 42 55 59 20 53 54 4F  43 4B 00 80 22 20 08 41  | BUY STOCK.." .A|
00001A70: B2 46 4C 41 47 3A 8B 46  4C 41 47 B3 B2 30 A7 8E  |.FLAG:.FLAG..0..|
00001A80: 00 91 22 2A 08 8F 20 47  4F 53 55 42 31 37 37 30  |.."*.. GOSUB1770|
00001A90: 3A 00 D8 22 34 08 99 22  13 11 11 11 11 11 11 11  |:.."4.."........|
00001AA0: 11 11 11 11 11 11 11 11  11 11 11 11 48 4F 57 20  |............HOW |
00001AB0: 4D 41 4E 59 20 53 48 41  52 45 53 20 44 4F 20 59  |MANY SHARES DO Y|
00001AC0: 4F 55 20 22 3A 85 22 57  41 4E 54 20 54 4F 20 42  |OU ":."WANT TO B|
00001AD0: 55 59 3F 22 3B 42 55 59  00 E8 22 35 08 8B 42 55  |UY?";BUY.."5..BU|
00001AE0: 59 B2 30 A7 32 32 30 30  00 01 23 36 08 81 58 B2  |Y.0.2200..#6..X.|
00001AF0: 31 37 38 34 A4 32 30 32  33 3A 97 58 2C 33 32 3A  |1784.2023:.X,32:|
00001B00: 82 00 11 23 3E 08 8B 42  55 59 B3 30 A7 32 31 39  |...#>..BUY.0.219|
00001B10: 30 00 3F 23 48 08 53 48  41 52 45 53 B2 54 41 42  |0.?#H.SHARES.TAB|
00001B20: 4C 45 28 41 2C 31 29 AC  42 55 59 3A 8B 43 41 53  |LE(A,1).BUY:.CAS|
00001B30: 48 AB 53 48 41 52 45 53  B3 30 A7 32 31 38 30 00  |H.SHARES.0.2180.|
00001B40: 80 23 52 08 54 41 42 4C  45 28 41 2C 34 29 B2 54  |.#R.TABLE(A,4).T|
00001B50: 41 42 4C 45 28 41 2C 34  29 AA 53 48 41 52 45 53  |ABLE(A,4).SHARES|
00001B60: 3A 54 41 42 4C 45 28 41  2C 33 29 B2 54 41 42 4C  |:TABLE(A,3).TABL|
00001B70: 45 28 41 2C 33 29 AA 42  55 59 3A 8D 31 37 37 30  |E(A,3).BUY:.1770|
00001B80: 00 A9 23 5C 08 42 52 4F  4B 45 52 B2 B5 28 53 48  |..#\.BROKER..(SH|
00001B90: 41 52 45 53 AC 2E 30 36  29 3A 8B 42 52 4F 4B 45  |ARES..06):.BROKE|
00001BA0: 52 B3 35 30 A7 32 31 36  30 00 C4 23 66 08 46 45  |R.50.2160..#f.FE|
00001BB0: 45 53 B2 46 45 45 53 AA  42 52 4F 4B 45 52 3A 89  |ES.FEES.BROKER:.|
00001BC0: 32 31 37 30 00 D5 23 70  08 46 45 45 53 B2 46 45  |2170..#p.FEES.FE|
00001BD0: 45 53 AA 35 30 00 FB 23  7A 08 43 41 53 48 B2 43  |ES.50..#z.CASH.C|
00001BE0: 41 53 48 AB 53 48 41 52  45 53 3A 8E 3A 8F 50 52  |ASH.SHARES:.:.PR|
00001BF0: 49 2D 47 4F 53 55 42 31  36 39 30 00 30 24 84 08  |I-GOSUB1690.0$..|
00001C00: 99 22 11 4E 4F 54 20 45  4E 4F 55 47 48 20 4D 4F  |.".NOT ENOUGH MO|
00001C10: 4E 45 59 21 21 21 22 3B  3A 81 42 B2 31 A4 28 31  |NEY!!!";:.B.1.(1|
00001C20: 2E 35 AC 31 30 30 30 29  3A 82 3A 89 32 30 39 30  |.5.1000):.:.2090|
00001C30: 00 6D 24 8E 08 99 22 53  41 59 20 57 48 41 54 3F  |.m$..."SAY WHAT?|
00001C40: 3F 3F 20 54 52 59 20 54  48 41 54 20 41 47 41 49  |?? TRY THAT AGAI|
00001C50: 4E 21 21 21 22 3A 81 42  B2 31 A4 28 31 2E 35 AC  |N!!!":.B.1.(1.5.|
00001C60: 54 49 4D 45 29 3A 82 3A  89 32 30 39 30 00 85 24  |TIME):.:.2090..$|
00001C70: 98 08 8E 3A 8F 47 4F 53  55 42 31 36 39 30 3A 52  |...:.GOSUB1690:R|
00001C80: 45 54 55 52 4E 00 96 24  A2 08 8F 20 53 45 4C 4C  |ETURN..$... SELL|
00001C90: 20 53 54 4F 43 4B 00 A9  24 AC 08 41 B2 46 4C 41  | STOCK..$..A.FLA|
00001CA0: 47 3A 8B 41 B3 B2 30 A7  8E 00 B8 24 B6 08 8F 47  |G:.A..0....$...G|
00001CB0: 4F 53 55 42 31 36 39 30  00 EC 24 C0 08 99 22 48  |OSUB1690..$..."H|
00001CC0: 4F 57 20 4D 41 4E 59 20  53 48 41 52 45 53 20 44  |OW MANY SHARES D|
00001CD0: 4F 20 59 4F 55 22 3A 85  22 57 41 4E 54 20 54 4F  |O YOU":."WANT TO|
00001CE0: 20 53 45 4C 4C 20 22 3B  53 45 4C 4C 00 08 25 C1  | SELL ";SELL..%.|
00001CF0: 08 81 58 B2 31 38 32 34  AB 34 30 A4 32 30 32 33  |..X.1824.40.2023|
00001D00: 3A 97 58 2C 33 32 3A 82  00 19 25 C5 08 8B 53 45  |:.X,32:...%...SE|
00001D10: 4C 4C B2 30 A7 32 33 33  30 00 33 25 CA 08 8B 53  |LL.0.2330.3%...S|
00001D20: 45 4C 4C B1 54 41 42 4C  45 28 41 2C 33 29 A7 32  |ELL.TABLE(A,3).2|
00001D30: 33 34 30 00 44 25 D4 08  8B 53 45 4C 4C B3 30 A7  |340.D%...SELL.0.|
00001D40: 32 33 35 30 00 84 25 DE  08 54 41 42 4C 45 28 41  |2350..%..TABLE(A|
00001D50: 2C 33 29 B2 54 41 42 4C  45 28 41 2C 33 29 AB 53  |,3).TABLE(A,3).S|
00001D60: 45 4C 4C 3A 54 41 42 4C  45 28 41 2C 34 29 B2 54  |ELL:TABLE(A,4).T|
00001D70: 41 42 4C 45 28 41 2C 33  29 AC 54 41 42 4C 45 28  |ABLE(A,3).TABLE(|
00001D80: 41 2C 31 29 00 A2 25 E8  08 43 41 53 48 B2 43 41  |A,1)..%..CASH.CA|
00001D90: 53 48 AA 54 41 42 4C 45  28 41 2C 31 29 AC 53 45  |SH.TABLE(A,1).SE|
00001DA0: 4C 4C 00 C5 25 F2 08 42  52 4F 4B 45 52 B2 B5 28  |LL..%..BROKER..(|
00001DB0: 28 54 41 42 4C 45 28 41  2C 31 29 AC 53 45 4C 4C  |(TABLE(A,1).SELL|
00001DC0: 29 AC 2E 30 29 00 D9 25  FC 08 8B 42 52 4F 4B 45  |)..0)..%...BROKE|
00001DD0: 52 B3 35 30 A7 32 33 32  30 00 F4 25 06 09 46 45  |R.50.2320..%..FE|
00001DE0: 45 53 B2 46 45 45 53 AA  42 52 4F 4B 45 52 3A 89  |ES.FEES.BROKER:.|
00001DF0: 32 33 33 30 00 05 26 10  09 46 45 45 53 B2 46 45  |2330..&..FEES.FE|
00001E00: 45 53 AA 35 30 00 17 26  1A 09 8D 34 30 30 30 3A  |ES.50..&...4000:|
00001E10: 8D 31 37 37 30 3A 8E 00  56 26 24 09 99 22 3F 3F  |.1770:..V&$.."??|
00001E20: 3F 20 59 4F 55 20 44 4F  4E 27 54 20 48 41 56 45  |? YOU DON'T HAVE|
00001E30: 20 54 48 41 54 20 4D 41  4E 59 21 21 21 22 3A 81  | THAT MANY!!!":.|
00001E40: 42 B2 31 A4 28 31 2E 35  AC 31 30 30 30 29 3A 82  |B.1.(1.5.1000):.|
00001E50: 3A 89 32 32 33 30 00 94  26 2E 09 99 22 53 41 59  |:.2230..&..."SAY|
00001E60: 20 57 48 41 54 20 3F 3F  3F 20 54 52 59 20 54 48  | WHAT ??? TRY TH|
00001E70: 41 54 20 41 47 41 49 4E  21 21 21 22 3A 81 42 B2  |AT AGAIN!!!":.B.|
00001E80: 31 A4 28 31 2E 35 AC 31  30 30 30 29 3A 82 3A 89  |1.(1.5.1000):.:.|
00001E90: 32 32 33 30 00 A7 26 38  09 8F 20 56 41 52 49 41  |2230..&8.. VARIA|
00001EA0: 42 4C 45 20 45 4E 44 00  B8 26 42 09 99 22 93 11  |BLE END..&B.."..|
00001EB0: 11 11 11 11 45 4E 44 22  00 CE 26 88 09 99 22 47  |....END"..&..."G|
00001EC0: 41 4D 45 20 45 4E 44 22  3A 99 3A 99 3A 99 00 D8  |AME END":.:.:...|
00001ED0: 26 92 09 89 32 39 32 30  00 1E 27 3C 0A 8F 20 20  |&...2920..'<..  |
00001EE0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001EF0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001F00: 20 20 20 20 20 20 20 20  20 20 2A 2A 2A 4B 45 59  |          ***KEY|
00001F10: 42 4F 41 52 44 20 49 4E  50 55 54 2A 2A 2A 00 32  |BOARD INPUT***.2|
00001F20: 27 46 0A A1 41 24 3A 8B  41 24 B2 22 22 A7 32 36  |'F..A$:.A$."".26|
00001F30: 33 30 00 41 27 50 0A 4B  45 59 B2 C6 28 41 24 29  |30.A'P.KEY..(A$)|
00001F40: 3A 00 5B 27 51 0A 8B 4B  45 59 B2 36 36 A7 4B 45  |:.['Q..KEY.66.KE|
00001F50: 59 B2 31 39 34 3A 89 32  36 34 36 00 75 27 52 0A  |Y.194:.2646.u'R.|
00001F60: 8B 4B 45 59 B2 38 33 A7  4B 45 59 B2 32 31 31 3A  |.KEY.83.KEY.211:|
00001F70: 89 32 36 34 36 00 8F 27  53 0A 8B 4B 45 59 B2 36  |.2646..'S..KEY.6|
00001F80: 39 A7 4B 45 59 B2 31 39  37 3A 89 32 36 34 36 00  |9.KEY.197:.2646.|
00001F90: AA 27 54 0A 8B 4B 45 59  B2 31 33 33 A7 4B 45 59  |.'T..KEY.133.KEY|
00001FA0: B2 31 34 31 3A 89 32 36  34 36 00 BA 27 55 0A 4B  |.141:.2646..'U.K|
00001FB0: 45 59 B2 4B 45 59 AA 31  32 38 00 CC 27 56 0A 8B  |EY.KEY.128..'V..|
00001FC0: 4B 45 59 B1 31 32 37 A7  32 36 36 30 00 D6 27 5A  |KEY.127.2660..'Z|
00001FD0: 0A 89 32 36 34 30 00 DC  27 64 0A 8E 00 EB 27 6E  |..2640..'d....'n|
00001FE0: 0A 8F 20 2A 2A 2A 20 42  3D 36 36 00 FA 27 78 0A  |.. *** B=66..'x.|
00001FF0: 8F 20 2A 2A 2A 20 53 3D  38 33 00 09 28 82 0A 8F  |. *** S=83..(...|
00002000: 20 2A 2A 2A 20 45 3D 36  39 00 19 28 8C 0A 8F 52  | *** E=69..(...R|
00002010: 45 54 55 52 4E 3D 20 31  33 00 23 28 96 0A 8F 20  |ETURN= 13.#(... |
00002020: 45 4E 44 00 30 28 A0 0A  8F 20 42 52 4F 4B 45 52  |END.0(... BROKER|
00002030: 00 80 28 AA 0A 99 22 11  11 11 11 59 4F 55 52 20  |..(..."....YOUR |
00002040: 42 52 4F 4B 45 52 20 48  41 53 20 54 41 4B 45 4E  |BROKER HAS TAKEN|
00002050: 20 4C 45 47 41 4C 20 41  43 54 49 4F 4E 20 20 20  | LEGAL ACTION   |
00002060: 20 20 20 41 47 41 49 4E  53 54 20 59 4F 55 52 20  |   AGAINST YOUR |
00002070: 50 45 52 53 4F 4E 41 4C  20 41 53 53 45 54 53 22  |PERSONAL ASSETS"|
00002080: 00 8F 28 AF 0A 99 22 44  55 45 20 54 4F 22 3B 00  |..(..."DUE TO";.|
00002090: CA 28 B4 0A 99 22 59 4F  55 52 20 44 45 46 41 55  |.(..."YOUR DEFAU|
000020A0: 4C 54 49 4E 47 20 4F 4E  20 59 4F 55 52 20 43 4F  |LTING ON YOUR CO|
000020B0: 4E 54 52 41 43 54 2E 20  20 59 4F 55 20 41 52 45  |NTRACT.  YOU ARE|
000020C0: 20 42 41 4E 4B 52 55 50  54 22 00 D0 28 D2 0A 80  | BANKRUPT"..(...|
000020D0: 00 E3 28 DC 0A 8F 20 50  4C 41 59 45 52 20 42 52  |..(... PLAYER BR|
000020E0: 4F 4B 45 00 2F 29 E6 0A  99 22 44 4F 20 54 4F 20  |OKE./)..."DO TO |
000020F0: 59 4F 55 52 20 4C 4F 57  20 49 51 20 41 4E 44 20  |YOUR LOW IQ AND |
00002100: 53 54 55 50 49 44 49 54  59 20 59 4F 55 20 48 41  |STUPIDITY YOU HA|
00002110: 56 45 20 4D 41 4E 41 47  45 44 20 54 4F 20 42 45  |VE MANAGED TO BE|
00002120: 43 4F 4D 45 20 42 41 4E  4B 52 55 50 54 2E 22 00  |COME BANKRUPT.".|
00002130: 35 29 F0 0A 80 00 48 29  22 0B 8F 20 4D 41 52 4B  |5)....H)".. MARK|
00002140: 45 59 20 43 52 41 53 48  00 93 29 2C 0B 99 22 93  |EY CRASH..),..".|
00002150: 54 48 45 20 53 54 4F 43  4B 20 4D 41 52 4B 45 54  |THE STOCK MARKET|
00002160: 20 48 41 53 20 43 52 41  53 48 45 44 2E 20 41 4C  | HAS CRASHED. AL|
00002170: 4C 20 54 48 45 20 43 4F  4D 50 41 4E 49 45 53 20  |L THE COMPANIES |
00002180: 41 52 45 20 4E 4F 57 20  42 41 4E 4B 52 55 50 54  |ARE NOW BANKRUPT|
00002190: 21 21 22 00 A7 29 36 0B  8B 43 41 53 48 B1 31 30  |!!"..)6..CASH.10|
000021A0: 30 30 A7 32 38 39 30 00  C6 29 40 0B 99 22 59 4F  |00.2890..)@.."YO|
000021B0: 55 20 4C 4F 53 54 20 59  4F 55 52 20 53 48 4F 52  |U LOST YOUR SHOR|
000021C0: 54 53 21 21 21 22 00 E6  29 4A 0B 81 41 B2 31 A4  |TS!!!"..)J..A.1.|
000021D0: 28 33 AC 31 30 30 30 29  3A 82 41 3A 99 22 93 22  |(3.1000):.A:."."|
000021E0: 3A 89 32 34 34 30 00 F5  29 54 0B 8F 20 59 45 41  |:.2440..)T.. YEA|
000021F0: 52 20 45 4E 44 00 13 2A  5E 0B 8D 31 36 37 30 3A  |R END..*^..1670:|
00002200: 99 22 93 22 3B A3 31 35  29 22 59 45 41 52 20 45  |.".";.15)"YEAR E|
00002210: 4E 44 22 00 3D 2A 68 0B  41 53 53 45 54 53 B2 30  |ND".=*h.ASSETS.0|
00002220: 3A 81 41 B2 31 A4 53 4B  53 3A 8B 54 41 42 4C 45  |:.A.1.SKS:.TABLE|
00002230: 28 41 2C 31 29 B3 B2 30  A7 32 39 34 30 00 67 2A  |(A,1)..0.2940.g*|
00002240: 72 0B 41 53 53 45 54 53  B2 41 53 53 45 54 53 AA  |r.ASSETS.ASSETS.|
00002250: 28 54 41 42 4C 45 28 41  2C 31 29 AC 54 41 42 4C  |(TABLE(A,1).TABL|
00002260: 45 28 41 2C 33 29 29 00  6E 2A 7C 0B 82 41 00 AD  |E(A,3)).n*|..A..|
00002270: 2A 86 0B 99 A3 37 29 22  54 4F 54 41 4C 20 43 41  |*....7)"TOTAL CA|
00002280: 53 48 3A 22 3B A3 32 37  29 3B 22 24 22 3B 43 41  |SH:";.27);"$";CA|
00002290: 53 48 3A 99 A3 37 29 22  41 53 53 45 54 53 20 50  |SH:..7)"ASSETS P|
000022A0: 41 50 45 52 20 56 41 4C  55 45 3A 22 3B 00 D3 2A  |APER VALUE:";..*|
000022B0: 8B 0B 99 A3 32 37 29 3B  22 24 22 3B 41 53 53 45  |....27);"$";ASSE|
000022C0: 54 53 3A 99 A3 32 37 29  22 2D 2D 2D 2D 2D 2D 2D  |TS:..27)"-------|
000022D0: 2D 2D 22 00 FC 2A 90 0B  99 22 54 4F 54 41 4C 20  |--"..*..."TOTAL |
000022E0: 57 4F 52 54 48 3A 22 3B  A3 32 37 29 3B 22 24 22  |WORTH:";.27);"$"|
000022F0: 3B 43 41 53 48 AA 41 53  53 45 54 53 00 3A 2B 9A  |;CASH.ASSETS.:+.|
00002300: 0B 99 A3 37 29 22 53 55  42 52 54 52 41 43 54 22  |...7)"SUBRTRACT"|
00002310: 3A 99 A3 37 29 22 53 54  41 52 54 2E 43 41 50 49  |:..7)"START.CAPI|
00002320: 54 41 4C 3A 22 3B A3 32  37 29 3B 22 24 31 30 30  |TAL:";.27);"$100|
00002330: 30 30 22 3A 99 A3 32 37  29 3B 00 4B 2B 9F 0B 99  |00":..27);.K+...|
00002340: 22 2D 2D 2D 2D 2D 2D 2D  2D 2D 22 00 81 2B A4 0B  |"---------"..+..|
00002350: 99 A3 37 29 3B 22 47 52  4F 53 53 20 49 4E 43 4F  |..7);"GROSS INCO|
00002360: 4D 45 3A 22 3B A3 32 37  29 3B 22 24 22 3B 28 43  |ME:";.27);"$";(C|
00002370: 41 53 48 AA 41 53 53 45  54 53 29 AB 31 30 30 30  |ASH.ASSETS).1000|
00002380: 30 00 A9 2B A9 0B 99 A3  37 29 3B 22 4C 45 53 53  |0..+....7);"LESS|
00002390: 20 41 53 53 45 54 53 3A  22 3B A3 32 37 29 3B 22  | ASSETS:";.27);"|
000023A0: 24 22 3B 41 53 53 45 54  53 00 EC 2B AE 0B 99 A3  |$";ASSETS..+....|
000023B0: 32 37 29 22 2D 2D 2D 2D  2D 2D 2D 2D 2D 22 3A 99  |27)"---------":.|
000023C0: A3 37 29 3B 22 4E 45 54  20 52 45 43 4F 47 4E 49  |.7);"NET RECOGNI|
000023D0: 5A 45 44 22 3A 99 A3 37  29 22 49 4E 43 4F 4D 45  |ZED":..7)"INCOME|
000023E0: 22 3B 43 41 53 48 AB 31  30 30 30 30 00 27 2C B8  |";CASH.10000.',.|
000023F0: 0B 99 3A 49 4E 43 4F 4D  45 B2 43 41 53 48 AB 31  |..:INCOME.CASH.1|
00002400: 30 30 30 30 3A 50 45 52  43 45 4E 54 B2 B5 28 28  |0000:PERCENT..((|
00002410: 49 4E 43 4F 4D 45 AD 31  30 30 30 30 29 AC 31 30  |INCOME.10000).10|
00002420: 30 30 30 29 AD 31 30 00  69 2C C2 0B 99 A3 35 29  |000).10.i,....5)|
00002430: 22 59 45 41 52 27 53 20  52 45 53 55 4C 54 53 3A  |"YEAR'S RESULTS:|
00002440: 22 3A 99 22 11 54 48 45  20 59 45 41 52 53 20 54  |":.".THE YEARS T|
00002450: 52 41 4E 53 41 43 54 49  4F 4E 53 20 4E 45 54 54  |RANSACTIONS NETT|
00002460: 45 44 22 3A 99 A3 35 29  3B 00 7E 2C CC 0B 8B 50  |ED":..5);.~,...P|
00002470: 45 52 43 45 4E 54 B1 B2  30 A7 33 30 34 30 00 A5  |ERCENT..0.3040..|
00002480: 2C D6 0B 99 22 41 20 22  3B 50 45 52 43 45 4E 54  |,..."A ";PERCENT|
00002490: 3B 22 25 20 44 45 43 52  45 41 53 45 20 22 3B 3A  |;"% DECREASE ";:|
000024A0: 89 33 30 35 30 00 C6 2C  E0 0B 99 22 41 20 22 3B  |.3050..,..."A ";|
000024B0: 50 45 52 43 45 4E 54 3B  22 25 20 49 4E 43 52 45  |PERCENT;"% INCRE|
000024C0: 41 53 45 20 22 3B 00 DE  2C EA 0B 99 22 49 4E 20  |ASE ";..,..."IN |
000024D0: 43 41 53 48 20 2C 20 57  49 54 48 20 41 22 00 13  |CASH , WITH A"..|
000024E0: 2D F4 0B 50 45 52 43 45  4E 54 B2 B5 28 28 28 28  |-..PERCENT..((((|
000024F0: 41 53 53 45 54 53 AA 43  41 53 48 29 AB 31 30 30  |ASSETS.CASH).100|
00002500: 30 30 29 AD 31 30 30 30  30 29 AC 31 30 30 30 29  |00).10000).1000)|
00002510: AD 31 30 00 28 2D FE 0B  8B 50 45 52 43 45 4E 54  |.10.(-...PERCENT|
00002520: B1 B2 30 A7 33 30 39 30  00 51 2D 08 0C 99 A3 35  |..0.3090.Q-....5|
00002530: 29 3B B6 28 50 45 52 43  45 4E 54 29 3B 22 25 20  |);.(PERCENT);"% |
00002540: 44 45 43 52 45 41 53 45  20 22 3B 3A 89 33 31 30  |DECREASE ";:.310|
00002550: 30 00 71 2D 12 0C 99 A3  35 29 3B 50 45 52 43 45  |0.q-....5);PERCE|
00002560: 4E 54 3B 22 25 20 49 4E  43 52 45 41 53 45 20 22  |NT;"% INCREASE "|
00002570: 3B 00 85 2D 1C 0C 99 22  49 4E 20 4E 45 54 20 57  |;..-..."IN NET W|
00002580: 4F 52 54 48 22 00 8B 2D  26 0C 80 00 A2 2D A0 0F  |ORTH"..-&....-..|
00002590: 8F 20 45 52 41 53 45 20  53 55 42 52 4F 55 54 49  |. ERASE SUBROUTI|
000025A0: 4E 45 00 B0 2D AA 0F 99  22 13 11 11 11 11 22 3B  |NE..-...".....";|
000025B0: 00 BC 2D B4 0F 81 58 B2  31 A4 31 33 00 D5 2D BE  |..-...X.1.13..-.|
000025C0: 0F 99 A3 32 34 29 3B 22  20 20 20 20 20 20 20 20  |...24);"        |
000025D0: 20 20 20 20 22 00 DD 2D  C8 0F 82 3A 8E 00 F4 2D  |    "..-...:...-|
000025E0: 94 11 8F 20 45 52 41 53  45 20 53 55 42 52 4F 55  |... ERASE SUBROU|
000025F0: 54 49 4E 45 00 02 2E 9E  11 99 22 13 11 11 11 11  |TINE......".....|
00002600: 22 3B 00 0E 2E A8 11 81  58 B2 31 A4 31 33 00 30  |";......X.1.13.0|
00002610: 2E B2 11 99 A3 31 37 29  3B 22 20 20 20 20 20 20  |.....17);"      |
00002620: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
00002630: 00 38 2E BC 11 82 3A 8E  00 00 00                 |.8....:....     |

..............L...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.E...MARKET..1:MOT
H.0:PRICE.0:SELL.0:SHARES.0:QUARTER.0...
(.SKS.12:IME.1000:WEEK.0:YEAR.1979:AVERA
GE.0:E.0:F.0:G.0:H.0.3.2..NAME$(SKS),DAY
$(5),MOTH$(12),TABLE(SKS,5).B.<.DISK$.""
:A$."":CHANGE$."":CHECK$."":IN$.""...F.N
AME$(1)."ALCOA ALUMINUM":NAME$(2)."COMMO
DORE":NAME$(3)."CBS INDUSTRIES"...P.NAME
$(4)."EXXON OIL":NAME$(5)."GENERAL MOTOR
S":NAME$(6)."HONEYWELL CORP.".M.Z.NAME$(
7)."IBM CORPORATION":NAME$(8)."INTEL COR
P.":NAME$(9)."LOCKHEED CORP."...D.NAME$(
10)."MOTOROLA":NAME$(11)."STANDARD OIL":
NAME$(12)."3-M CORPORATION".A.N..A.1.SKS
:.B.1.4:TABLE(A,B).0:.B,A...X.."........
.............********************":...Y.
..10)"**  MARKET CRASH  **".P.....10)"**
                **":..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."
...MOTH$(1)."JANUARY":MOTH$(2)."FEBRUARY
":MOTH$(3)."MARCH".V...MOTH$(4)."APRIL":
MOTH$(5)."MAY":MOTH$(6)."JUNE".....MOTH$
(7)."JULY":MOTH$(8)."AUGUST":MOTH$(9)."S
EPTEMBER".S.H.MOTH$(10)."OCTOBER":MOTH$(
11)."NOVEMBER":MOTH$(12)."DECEMBER".!.R.
DAY$(1)."MONDAY":DAY$(2)."TUESDAY":DAY$(
3)."WEDNESDAY":DAY$(4)."THURSDAY".6.W.DA
Y$(5)."FRIDAY".`...WEEK.0:DAY.0:MOTH.1:L
AST.31:QUARTER.0......".....DO YOU WANT 
INSTRUCTIONS?":.2620:.KEY.206.650......"
.";.10)".INSTRUCTIONS."......" THIS IS A
 SIMULATION OF THE OPERATIONS OF THE STO
CK MARKET.THERE ARE";.:...." 12        C
OMPANY STOCKS AVAILABLE FOR TRADE"......
"PROVIDING YOU HAVE THE MONEY, THERE IS 
A BROKERS FEE OF 6% OR $50.00 PER";.M...
."STOCK.  TRANSACTIONS ARE COLLECTED AT 
THE END OF EACH WEEK"..."..".HERE ARE TH
E KEY FUNCTIONS:".9.,.."(S) SELL STOCK":
."(B) BUY STOCK":."(RETURN) PASS":."(E) 
END GAME"...6.."WHEN BUYING OR SELLING S
TOCK ENTER AT   LEAST THE FIRST THREE IN
ITIALS "...@.."OF THE STOCK NAME".B.J.."
PRESS ANY KEY TO CONTINUE".Z.T..2620:.KE
Y.195.2560............ MAIN PROGRAM...F.
.830...P..1300...Z..1750......1910.3....
KEY.194.KEY.211.780.E....KEY.197.2360.N.
...700.X....1970.K....KEY.194..2070.~. .
.KEY.211..2210...*..1910...4..750...>.. 
DATA FIGURES.U.H.MARKET.MARKET..(.(1).3)
.1:.MARKEY.2.MARKEY.2...R..MARKET..3.MAR
KET..3...\...(1)..92.MARKET..1.MARKET.=.
F.FLAG.0:WEEK.WEEK.1:DAY.DAY.1:.DAY..LAS
T.910.H.P.DAY.DAY.LAST:MOTH.MOTH.1:.MOTH
.12.2890...Z.QUARTER.QUARTER.1:.QUARTER.
.3.910.....QUARTER.0:.1670......WEEK..5.
950......".":LAST.28:.MOTH.4.MOTH.6.MOTH
.9.MOTH.11.LAST.30.*....MOTH.1.MOTH.3.MO
TH.5.MOTH.7.MOTH.8.MOTH.10.MOTH.12.LAST.
31.H...FLAG.1:WEEK.0:A$."":.1200.E....16
30:.MOTH.1.DAY.1.1060..... MOTH.2.DAY.1
2..1070...J..MOTH.2.DAY.19..1080...T..MO
TH.5.DAY.28..1090.I....MOTH.7.DAY.4..110
0......MOTH.9.DAY.3..1110......MOTH.10.D
AY.8..1120......MOTH.11.DAY.12..1130....
..MOTH.11.DAY.22..1140.H....MOTH.12.DAY.
25..1150.R....1190.Q.$.A$.".NEW YEAR'S D
AY":.1160.....A$.".LINCOLN'S BIRTHDAY":.
1160...8.A$.".WASHINGTON'S BIRTHDAY":.11
60.W.B.A$.".MEMORIAL DAY":.1160...L.A$."
.INDEPENDENCE DAY":.1160...V.A$.".LABOR 
DAY":.1160./.`.A$.".COLUMBUS DAY":.1160.
L.J.A$.".VETERANS DAY":.1160.M.T.A$.".TH
ANKSGIVING DAY":.1160...~.A$.".CHRISTMAS
"......A$:.A.1.1000:.A.I.....9)"STOCK MA
RKET CLOSED...":.A.1.1000:.A:.".".R....8
70......1420:.FLAG.0.........3)"WEEKEND"
:..9)"STOCK MARKET CLOSED...".7....:.:.1
470:DAY.DAY.1:.".":.870.=.D...V.N..CASH.
.0.WEEK.1.1260.V.X..C(A$).1.WEEK.2.CASH.
0.1260......CASH.0.WEEK..1.2720.....FLAG
.0:.B.1.SKS:.TABLE(B,1).0.FLAG.B.L....B:
.FLAG.0.2850.....FLAG.0:.CASH..0.ASSETS.
.0.2780............ MARKET FIGURES.4...A
SSETS.0:.A.1.SKS:.TABLE(A,1)..0.1400.E.(
.CHANGE.TABLE(A,5)..(.(1).3).1:..(1)..85
.1360.|.2..CHANGE.2.CHANGE.2...<..CHANGE
..2.CHANGE..2...F..1370.A.P.CHANGE.TABLE
(A,5)..(.(1).5).2...Z...(1)..9.CHANGE..1
.CHANGE.'.D.TABLE(A,5).CHANGE:CHANGE.CHA
NGE.MARKET:TABLE(A,1).TABLE(A,1).CHANGE.
?.I..TABLE(A,1)..0.1410.V.N.TABLE(A,2).C
HANGE:TABLE(A,4).TABLE(A,3).TABLE(A,1)..
.X.ASSETS.ASSETS.TABLE(A,4):.A:.1220:...
....B.1.5:TABLE(A,B).0:.B:.1400.S.... FI
RST OR WEEK......WEEK..1..(WEEK.2.C(A$).
1)...'. .BEGINC.0:ASSETS.0:.B.1.SKS:.TAB
LE(B,1)..0.1460.D...ASSETS.ASSETS.TABLE(
B,4).F....B:BEGINC.CASH.ASSETS:.1220:..Y
.... WEEKEND DATA...H.INCOME.0:.".":.A.1
.SKS...R.INCOME.INCOME.(TABLE(A,1).TABLE
(A,3))......A:..3)"TOTAL INCOME FOR THE 
WEEK: ":..-.....5)"CASH AT WEEKEND:";.27
)"$";CASH:..5)"CURRENT PAPER WORTH:";.B.
....27);"$";INCOME.}.....27);"---------"
:..5);"TOTAL:";.27);"$";CASH.INCOME:..B.
....5);"TOTAL ASSETS + CASH":..5);"AT BE
GINNING OF WEEK:";.27)"$";......BEGINC:.
.27)"---------".".....5)"GROSS WEEK'S IN
COME:";.27);"$";(CASH.INCOME).BEGINC:..5
);.J...."LESS BROKER'S FEES";.27);"$";FE
ES......:.:..5);"NET WEEK'S INCOME:";.27
);"$";((CASH.INCOME).BEGINC).FEES......:
CASH.CASH.FEES:.CASH..0.1570......"YOU H
AVE UNTIL MONDAY TO BREAK":."EVEN, OR EL
SE!!!  (CASH: $";CASH;")"...".BEGINC.CAS
H.INCOME:FEES.0.N.,.."...PRESS ANY KEY T
O CONTINUE...":.2620:..C.6.. ASSET PRINT
OUT...@.ASSETS.0:.B.1.SKS:TABLE(B,4).TAB
LE(B,1).TABLE(B,3)...E.ASSETS.ASSETS.TAB
LE(B,4):.B...J.."......................C
ASH: $";CASH;.23);"ASSETS: $";ASSETS...T
..:....^.. DATA PRINTOUT...H...(.R..4500
.N.S.."." .3);"                         
                             "...T.."." 
.3);"DATE:";DAY$(WEEK);",";MOTH$(MOTH);"
 ";DAY;",";YEAR.J.|..1220:..40):LTH..(0)
:....... DIVIDENDS PAID.....CASH.CASH..(
ASSETS..08):....... STOCK PRINTOUT.@...C
HANGE$.D(TABLE(A,2)):.TABLE(A,1)..0.1730
.L....TABLE(A,2).0.CHANGE$."+".D(TABLE(A
,2))......NAME$(A);.16);TABLE(A,1);.21);
CHANGE$;.25);TABLE(A,3);.C.....30);TABLE
(A,4):.1740...B.."*** ";NAME$(A);" IS BA
KNRUPT...";.40)...L.....V.. PRINTOUT ALL
.#...WAS.AVERAGE:AVERAGE.0:.F...."...STO
CK NAME";.15);"CLOSE";.21);"CHG";.25);"O
WNED";" WORTH".}....A.1.40:."=";:.A:....
...A.1.SKS:. 1690.....AVERAGE.AVERAGE.TA
BLE(A,1):.A.J....A.1.40:."=";:.A:......A
VERAGE..((AVERAGE.SKS).100).100...&.."AV
ERAGE: $";AVERAGE;"/SHARE";.20);.B.0.CHA
NGE..((AVERAGE.100).(WAS.100)).100.V.:..
CHANGE..0.1870.O.D.."(NO CHANGE)":.1900.
..N..CHANGE.0.1890...X.."(DOWN ";.(CHANG
E);")":.1900...B.."(UP";.(CHANGE);")".C.
L...O.M.CHECK.1...V..DATA INPUT...... OP
TION INPUT.. ...X.1784.40.2023:.X,32:.:.
@ ...1590:."......................(B)-BU
Y";.20);.P ..."(S)-SELL).. ..."(E)-STOP"
;.20);"(RETURN)-PASS":."WHICH FUNCTION D
O YOU WANT?":.2620.A ...KEY.194.KEY.211.
KEY.197.KEY.141.... ...1930:.".WHAT????.
":.B.1.1000:.:.1930.. ... STOCK INPUT..!
...X.1784.40.2023:.X,32:..K!E.."........
............INPUT STOCK NAME: ";IN$.O!F.
FLAG.0:CHECK$.H(IN$,3):.A.1.SKS..!P..CHE
CK$.H(NAME$(A),3).FLAG.A..!Z..A:.FLAG..0
.2050..!...IN$;"???":.B.1.1000:...!..."T
HERE IS NO STOCK BY THAT NAME!!!":.B.1.(
1.5.1000):.:..9"...NAME$(FLAG); "IS BANK
RUPT!!!":.B.1.(2.1000):.:FLAG.0:..T"...T
ABLE(FLAG,1)..0.2040.Z"....J"... BUY STO
CK.." .A.FLAG:.FLAG..0...."*.. GOSUB1770
:.X"4.."....................HOW MANY SHA
RES DO YOU ":."WANT TO BUY?";BUY.."5..BU
Y.0.2200..#6..X.1784.2023:.X,32:...#>..B
UY.0.2190.?#H.SHARES.TABLE(A,1).BUY:.CAS
H.SHARES.0.2180..#R.TABLE(A,4).TABLE(A,4
).SHARES:TABLE(A,3).TABLE(A,3).BUY:.1770
..#\.BROKER..(SHARES..06):.BROKER.50.216
0.D#F.FEES.FEES.BROKER:.2170.U#P.FEES.FE
ES.50..#Z.CASH.CASH.SHARES:.:.PRI-GOSUB1
690.0$...".NOT ENOUGH MONEY!!!";:.B.1.(1
.5.1000):.:.2090.M$..."SAY WHAT??? TRY T
HAT AGAIN!!!":.B.1.(1.5.TIME):.:.2090..$
...:.GOSUB1690:RETURN..$... SELL STOCK..
$..A.FLAG:.A..0....$...GOSUB1690..$..."H
OW MANY SHARES DO YOU":."WANT TO SELL ";
SELL..%A..X.1824.40.2023:.X,32:...%E..SE
LL.0.2330.3%J..SELL.TABLE(A,3).2340.D%T.
.SELL.0.2350..%..TABLE(A,3).TABLE(A,3).S
ELL:TABLE(A,4).TABLE(A,3).TABLE(A,1)..%.
.CASH.CASH.TABLE(A,1).SELL.E%..BROKER..(
(TABLE(A,1).SELL)..0).Y%...BROKER.50.232
0..%..FEES.FEES.BROKER:.2330..&..FEES.FE
ES.50..&...4000:.1770:..V&$.."??? YOU DO
N'T HAVE THAT MANY!!!":.B.1.(1.5.1000):.
:.2230..&..."SAY WHAT ??? TRY THAT AGAIN
!!!":.B.1.(1.5.1000):.:.2230..&8.. VARIA
BLE END..&B.."......END".N&..."GAME END"
:.:.:..X&...2920..'<..                  
                          ***KEYBOARD IN
PUT***.2'F..A$:.A$."".2630.A'P.KEY.F(A$)
:.['Q..KEY.66.KEY.194:.2646.U'R..KEY.83.
KEY.211:.2646..'S..KEY.69.KEY.197:.2646.
.'T..KEY.133.KEY.141:.2646..'U.KEY.KEY.1
28.L'V..KEY.127.2660.V'Z..2640..'D....'N
.. *** B=66..'X.. *** S=83..(... *** E=6
9..(...RETURN= 13.#(... END.0( .. BROKER
..(..."....YOUR BROKER HAS TAKEN LEGAL A
CTION      AGAINST YOUR PERSONAL ASSETS"
..(..."DUE TO";.J(..."YOUR DEFAULTING ON
 YOUR CONTRACT.  YOU ARE BANKRUPT".P(R..
..(... PLAYER BROKE./)..."DO TO YOUR LOW
 IQ AND STUPIDITY YOU HAVE MANAGED TO BE
COME BANKRUPT.".5)....H)".. MARKEY CRASH
..),..".THE STOCK MARKET HAS CRASHED. AL
L THE COMPANIES ARE NOW BANKRUPT!!"..)6.
.CASH.1000.2890.F)@.."YOU LOST YOUR SHOR
TS!!!"..)J..A.1.(3.1000):.A:.".":.2440..
)T.. YEAR END..*^..1670:.".";.15)"YEAR E
ND".=*H.ASSETS.0:.A.1.SKS:.TABLE(A,1)..0
.2940.G*R.ASSETS.ASSETS.(TABLE(A,1).TABL
E(A,3)).N*|..A..*....7)"TOTAL CASH:";.27
);"$";CASH:..7)"ASSETS PAPER VALUE:";.S*
....27);"$";ASSETS:..27)"---------"..*..
."TOTAL WORTH:";.27);"$";CASH.ASSETS.:+.
...7)"SUBRTRACT":..7)"START.CAPITAL:";.2
7);"$10000":..27);.K+..."---------"..+..
..7);"GROSS INCOME:";.27);"$";(CASH.ASSE
TS).10000..+....7);"LESS ASSETS:";.27);"
$";ASSETS..+....27)"---------":..7);"NET
 RECOGNIZED":..7)"INCOME";CASH.10000.',.
..:INCOME.CASH.10000:PERCENT..((INCOME.1
0000).10000).10.I,B...5)"YEAR'S RESULTS:
":.".THE YEARS TRANSACTIONS NETTED":..5)
;.~,L..PERCENT..0.3040..,V.."A ";PERCENT
;"% DECREASE ";:.3050.F,..."A ";PERCENT;
"% INCREASE ";..,..."IN CASH , WITH A"..
-..PERCENT..((((ASSETS.CASH).10000).1000
0).1000).10.(-...PERCENT..0.3090.Q-....5
);.(PERCENT);"% DECREASE ";:.3100.Q-....
5);PERCENT;"% INCREASE ";..-..."IN NET W
ORTH"..-&....- .. ERASE SUBROUTINE..-...
".....";..-...X.1.13.U-....24);"        
    "..-H..:...-... ERASE SUBROUTINE....
..".....";......X.1.13.0.....17);"      
               ".8....:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL