5:%*DV(186): CURRENT DRIVEM (14): SWITCH TO LOWER CASE# 52684,8,9: 52684,3,5: CRUNCH CHARACTER DISPLAY( S$(6),C(6),V(6),N$(8),M(8),P(8,6)2 STOCKS,COLOUR,VALUE,NAME,MONEY,PORTFOLIO< R(X)((X)61)FM$"":K1$"X":K2$"X":DY0,PESC$(27):RTN$(13)FZC(0)15: MAIN COLOURTd I1 6nn S$(I),C(I):V(I)100vx I 5,C(0): 6,1: 25);"IKE'S TOCK ICKER" 1940: INSTRUCTIONS: "OAD SAVED STANDINGS ? ";: K1$- ("NY",K1$)2 "ES": 1580: D62 640: 2708 "O"^: "UMBER OF PLAYERS (1-8) ";NPx NP1 NP8 190 I1 NP "LAYER";I;: "NAME ";N$(I):M(I)5000 I: "OUNDS PER TRADING PERIOD (1-5) ";RP RP5 RP1 240 640:M$""% K1$ESC$4 I1 NP:"@,K6 1370}@ "===> ()UY, ()ELL, ()HART, ()INISHED ?"J: K2$:C("BSCF",K2$): C0T C 940,940,1050,1050,1170,1170^ ("F",K2$)h IrK0 | KRPNP' DYDY1:R1R(1):R2R(2):R3R(3)J  R2 760,770,780,780,770,760m  R3 790,820,850,850,820,790}  640:M$""  R3 870 : "IT '' TO CONTINUE OR '' TO QUIT" : K1$: K1$RTN$ K1$ESC$ ! K1$ESC$  0,0,79,24,1:!KK1!!!F!: "AVE CURRENT STANDINGS ? ";Q! K1$! ("NY",K1$)2 "ES": 1780: "O"!: "RINT CURRENT STANDINGS ? ";! K1$!& ("NY",K1$)2 "ES":4,4,7:4: "O"!0 I1 NP!: 1370"D I%"N ("NY",K1$)2 4:49"X: "AME OVER"p"] 52684,7,9: 52684,0,5: NORMAL CHARACTER DISPLAY"b "RAIN",8,"NDUSTRIAL",5,"ONDS",12"l "ETROLEUM",13,"ILVER",16,"OLD",10"v" 0,0,79,24,1# 25);"IKE'S TOCK ICKER";20);"AY";DY:# L1 63# 5,C(0): L;5);X# 5,C(L): S$(L);20);V(L);30);m# J0 V(L) 5# "";: J100 "!";# J:: L# 5,C(0)#: M$# 0,10,79,24##R25:#R210:# R220:$V(R1)V(R1)R2:M$S$(R1)" UP"(R2)-$  V(R1)200 14608$*R30:c$4V(R1)V(R1)R2:M$S$(R1)" DOWN"(R2){$> V(R1)0 1520$HR30:$R V(R1)100 M$S$(R1)" DOES NOT PAY DIVIDENDS":R30:$\M$S$(R1)" PAYS A DIVIDEND OF"(R2)"%":$f%p I1 NP%zDP(I,R1)R21005% N$(I);" GETS $";DE%M(I)M(I)DM% IS%o% "UY WHICH STOCK ? ";%: K2$:J("1234560",K2$): J0% K2$: J7 % "OW MANY SHARES OF ";S$(J);" DO YOU WANT TO BUY ";:A0: A% A0 & A500(A500) 970+&AMV(J)A100c& M(I)AM "OU DON'T HAVE ENOUGH MONEY !": 970t&M(I)M(I)AM&P(I,J)P(I,J)A&& "ELL WHICH STOCK ? ";&$: K2$:J("1234560",K2$): J0&. K2$: J7 *'8 "OW MANY SHARES OF ";S$(J);" DO YOU WANT TO SELL ";:A0: A8'B A0 W'L A500(A500) 1080]'V'` AP(I,J) "OU DON'T HAVE THAT MANY SHARES !": 1080'jAMV(J)A100'tM(I)M(I)AM'~P(I,J)P(I,J)A''L15:L250: 1230(L150:L2100: 1230(L1100:L2150: 12308(L1150:L2200: 1230>(D(_(: J500 5000 500v( (3J5006));J;~( J(:( LL1 L2 5( L100;(  J500 5000 500( (3J5006));(JL100);( J:(( L)2: "IT '' TO CONTINUE";.)<: K$: K$RTN$4)F:)P^)Z: N$(I);", YOU HAVE : $";M(I)j)dTTM(I)x)n J1 6)xWV(J)P(I,J)100)TTTTW) P(I,J);7);S$(J);20);"WORTH $";W) J) "OUR NET CASH WORTH IS $";TT)"*M$M$(13)S$(R1)" HAS 2 FOR 1 !"1* L1 NPU* P(L,R1)0 P(L,R1)P(L,R1)2]* Lk*V(R1)100q**M$M$(13)S$(R1)" HAS Π THE MARKET !"* L1 NP*P(L,R1)0* L*V(R1)100*"*, #1,"TICKERSAVE",U(DV)+6 "EADING...":H+@DDS: D62 "O DATA CURRENTLY ON FILE":#1:R+J1,DY+T "ETCHING CURRENT MARKET VALUES AFTER";DY;"DAYS OF TRADING"+^ I1 6:1,V(I): I+h1,NP+r "HERE ARE";NP;"PLAYERS CURRENTLY TRADING"+| I1 NP ,1,N$(I):1,M(I)4, "ETCHING ";N$(I);"'S PORTFOLIO"B, J1 6P,1,P(I,J)X, J`, Ij,1,RP, "HERE ARE";RP;"ROUNDS PER TRADING PERIOD",#1, 1330,, #1,"TICKERSAVE",U(DV),W-DDS: D63 #1: "TICKERSAVE",U(DV): 1780- "AVING...""-1,DY<- I1 6:1,V(I): IF-&1,NPU-0 I1 NPj-:1,N$(I):1,M(I)x-D J1 6-N1,P(I,J)-X J-b I-l1,RP-v#1- 1330--: "O YOU WANT INSTRUCTIONS (/) ? ";. K1$: ("YN",K1$)2 "O":2.: 25);"IKE'S TOCK ICKER".: "ELCOME TO ICKER80, THE 128 VERSION OF THE POPULAR TOCK ICKER () BOARDGAME.". "HIS VERSION RUNS IN 80-COLUMN MODE."/: "HE OBJECT OF THE GAME IS TO AMASS AS MUCH WEALTH AS POSSIBLE BY TRADING VARIOUS"n/ "TYPES OF STOCK. HE LENGTH OF A GAME IS ENTIRELY UP TO THE PLAYERS. AVE AME"/ "OPTION (DESCRIBED LATER) IS AVAILABLE FOR EXTENDED FORAYS INTO FINANCIAL FOLLY."0: "P TO 8 PEOPLE CAN TRY TO 'TAKE THE MARKET'. ACH PLAYER STARTS WITH $ 5000."t0 "HERE ARE 6 TYPES OF STOCK YOU CAN CHOOSE TO TRADE: RAIN, NDUSTRIAL, ONDS,"0 "IL (SORRY, ETROLEUM), ILVER, AND OLD. ACH HAS A TRADING NUMBER AND COLOUR."%1: "RADING IS DONE IN 'BLOCKS' OF 500 SHARES PER BLOCK. OWEVER, IN THIS VERSION"{1  "YOU MUST SPECIFY THE NUMBER OF SHARES TO BE TRADED, NOT THE NUMBER OF BLOCKS."1 "OR INSTANCE, SAY '2500' SHARES, NOT '5' BLOCKS. OTE THAT THE TICKER BAR GRAPH"2  "SHOWS SHARE VALUES RANGING FROM $0.05 TO $2.00 PER SHARE."q2*: "TOCK MAY BE TRADED AT THE END OF A TRADING PERIOD. TRADING PERIOD IS MADE UP"24 "OF A NUMBER OF ROUNDS. ACH ROUND CONSISTS OF A NUMBER OF 'DICE ROLLS' EQUAL TO"3> "THE NUMBER OF PLAYERS. T IS THESE 'ROLLS' THAT DETERMINE MARKET ACTIVITY."R3H "I.E. STOCK VALUE UP OR DOWN, PAY DIVIDENDS."|3R 1330:: 25);"IKE'S TOCK ICKER"3\: "PTIONS AVAILABLE AT GAME START:"3f: "OAD SAVED STANDINGS - F GAME STANDINGS HAVE BEEN SAVED, THEN YOU CAN RELOAD"V4p " THEM BY REPLYING '' TO THE PROMPT. HE GAME CONTINUES"4z " USING THE LOADED DATA."4: "PTIONS AVAILABLE DURING TRADING:"4: "UY - UY BLOCKS OF SHARES AT CURRENT MARKET VALUES."65 "ELL - ELL BLOCKS OF SHARES AT CURRENT MARKET VALUES."5 "HART - ISPLAYS A FOUR-PAGE CHART OF SAMPLE STOCK AMOUNTS AND THEIR VALUES."5 " - T IS USEFUL WHEN YOU NEED HELP CALCULATING VALUES FOR TRADING SHARES."(6 "INISHED - HEN YOU ARE FINISHED TRADING, SELECT THIS OPTION."Q6: "PTIONS AVAILABLE AT GAME END:"6: "AVE CURRENT STANDINGS - F YOU WANT TO SAVE THE STANDINGS FOR CONTINUING LATER,"6 " REPLY '' TO THE PROMPT."<7 "RINT CURRENT STANDINGS - F YOU HAVE A PRINTER, AND WISH TO HAVE A HARDCOPY,"w7 " REPLY '' TO THE PROMPT."7 1330:: 25);"IKE'S TOCK ICKER"7