¤:::CASH TRADER::::¤:::by C. M. Pickles:::¤:::copyright (c) 1988:::(¤:::INITILISATION::: 2‘ 100<¤:::SAVE ROUTINE:::FŒ1:ª"TRADER.XBS"PŒ0:ª"TRADER.XBS"ZŽ dÿƒ15:ÿ1,15:„40:FFL~0:¹ 4,0n¤:::WHOLESALE STOCK:::@xAP$~"Pocket Calcs...":AST~284000:ACO$~" 1.95 each":ACO~1.95@‚BP$~"Plastic F'balls":BST~396000:BCO$~" 0.50 each":BCO~0.50@ŒCP$~"P'sonal Stereos":CST~175000:CCO$~" 4.95 each":CCO~4.95@–DP$~"Saucepan Sets..":DST~181000:DCO$~" 3.95 set ":DCO~3.95@ EP$~"Ballpoint Pens.":EST~396000:ECO$~" 0.36 doz.":ECO~0.36@ªFP$~"AM/FM Radios...":FST~263000:FCO$~" 7.95 each":FCO~7.95@´GP$~"Digital Watches":GST~285000:GCO$~" 1.25 each":GCO~1.25@¾HP$~"Audio Tapes C60":HST~390000:HCO$~" 3.00 doz.":HCO~3.00@ÈIP$~"Batteries......":IST~496000:ICO$~" 0.85 per4":ICO~0.85AÒJP$~"Elect. K'boards":JST~272000:JCO$~" 9.95 each":JCO~ 9.95@ÜKP$~"Gas Lighters...":KST~498000:KCO$~" 0.99 each":KCO~0.99@æLP$~"Plastic Toys...":LST~396000:LCO$~" 2.00 doz.":LCO~2.00&ðVRATE~0.15:TCST~10:BCST~10:WEEK~1ú¤:::SETTING UP:::)¢@2,0,"Number of players (2 to 4) ";N~ä:N~Nu48:¢N.“ N2 { N}4 s ÿ’1:¢@29,0," ":‘270*"“ N}Î(N) s ÿ’1:¢@29,0," ":‘2703,¢@2,2,"A...26 Weeks./B...52 Weeks./C...`10000" 6C$~å$@“ C$~"A" s GAME~0:‘360J“ C$~"B" s GAME~1:‘360T“ C$~"C" s GAME~2:‘360 ^‘ 310h¤:::PLAYERS:::r B~1 r N |PFL(B)~02†¢@2,4wB,"Is player ";B;" the computer Y/N? "; C$~å$0š“ C$~"Y" s PL(B)~0:¢C$:‘440:¤:::COMPUTER:::/¤“ C$~"N" s PL(B)~1:¢C$:‘440:¤:::PLAYER::::®“ C$}"Y" { C$}"N" s 400G¸¢@2,4wBt1,"Enter Player";B;"'s Name.(max 8 letters) ";:” NAME$(B)p“ Ï(NAME$(B))}8 s ÿ’1:¢@2,4wBt1," ":‘4405Ì¢@2,4wBt3,"Is ";NAME$(B);" a stallholder Y/N? "; ÖC$~å$9à“ C$~"Y" s SF(B)~1:¢C$:SF$(B)~"Stall":RNT(B)~40:‘510<ê“ C$~"N" s SF(B)~1.2:¢C$:SF$(B)~"Shop ":RNT(B)~100:‘510ô“ C$}"Y" { C$}"N" s 470/þCASH(B)~500:LCST(B)~100:STCK(B)~0:VAT(B)~0! 2830:¤:::SET STOCK TO 0:::›*ÿ4:¢@10,4wNt5,"EVERYTHING O.K...Y/N" &C$~å$0“ C$~"N" s 100:“ C$~"Y" s 600 D‘ 550N à ‘ 820X2370:¤:::EXPENSES:::b“ FFL}Nu2 s 820&l900:¤:::SET UP CASH AND CARRY:::&v1510:¤:::STOCK CASH AND CARRY:::&€1660:¤:::VISIT CASH AND CARRY::: Š2870:¤:::TRADING LAYOUT:::”3270:¤:::EACH TRADER:::ž1980:¤:::STANDINGS:::¨WEEK~WEEKt1:X~WEEKx13²“ QU~1 s 820!¼“ X~Î(X) s 1420:¤:::VAT:::Ƥ:::ANNUAL EXPENSES::::Г WEEK~20 s 6640:6810:‘750:¤:::INSURANCE PREMIUM:::<Ú“ WEEK~31 s 6640:7120:‘750:¤:::REFIT:REDEC:RENEWAL:::.ä“ WEEK~42 s 6640:7440:¤:::SCHEDULE D:::îK~Õ(43)t10:“ K}WEEK s780øL~Õ(N)t1:“ PFL(L)~1 s780$B~L:7750:¤:::FIRE:THEFT:ETC:::> WIN~0:“ GAME~2 s 2320:“ WIN}1 s 600:¤:::CHECK ASSETS:::“ WIN~1 s 820 “ GAME~1 z WEEK53 s 600*“ GAME~0 z WEEK27 s 600-4WEEK~WEEKu1:4210:¤:::FINISHING TABLE:::)>¢@2,22," ANOTHER GAME Y/N?"H¢@16,18,"Week:- ";WEEK RC$~å$\“ C$~"Y" s ÿ”:‘ 100(f“ C$~"N" s ÿ”:ÿ15,1:© "DEALER.XBS" p‘ 850„¤:::CASH AND CARRY:::Ž„b˜ÿ‚2:ÿ€10,191 r 17,191:ÿ€20,191 r 27,191:ÿ€30,191 r 37,191:ÿ€40,191 r 41,191:ÿ€46,191 r 47,191L¢ÿ€55,191 r 62,191:ÿ€65,191 r 66,191:ÿ€71,191 r 72,191:ÿ€75,191 r 80,191e¬ÿ€90,191 r 97,191:ÿ€100,191 r107,191:ÿ€110,191 r 117,191:ÿ€120,191 r 127,191:ÿ€130,191 r 131,191¶ÿ€136,191 r 137,191bÀÿ‚6:ÿ€10,190 r 17,190:ÿ€20,190 r 27,190:ÿ€30,190 r 37,190:ÿ€40,190 r 41,190:ÿ€46,190 r 47,190LÊÿ€55,190 r 62,190:ÿ€65,190 r 67,190:ÿ€71,190 r 72,190:ÿ€75,190 r 81,190eÔÿ€90,190 r 97,190:ÿ€100,190 r107,190:ÿ€110,190 r 117,190:ÿ€120,190 r 127,190:ÿ€130,190 r 131,190Þÿ€136,190 r 137,190bèÿ‚4:ÿ€10,189 r 11,189:ÿ€20,189 r 21,189:ÿ€26,189 r 27,189:ÿ€30,189 r 31,189:ÿ€40,189 r 41,189^òÿ€46,189 r 47,189:ÿ€55,189 r 56,189:ÿ€61,189 r 62,189:ÿ€65,189 r 67,189:ÿ€71,189 r 72,189aüÿ€75,189 r 76,189:ÿ€80,189 r82,189:ÿ€90,189 r 91,189:ÿ€100,189 r 101,189:ÿ€106,189 r 107,189hÿ€110,189 r 111,189:ÿ€116,189 r 117,189:ÿ€120,189 r 121,189:ÿ€126,189 r 127,189:ÿ€130,189 r 131,189ÿ€136,189 r 137,189cÿ‚11:ÿ€10,188 r 11,188:ÿ€20,188 r 21,188:ÿ€26,188 r 27,188:ÿ€30,188 r 31,188:ÿ€40,188 r 41,188^$ÿ€46,188 r 47,188:ÿ€55,188 r 56,188:ÿ€61,188 r 62,188:ÿ€65,188 r 68,188:ÿ€71,188 r 72,188a.ÿ€75,188 r 76,188:ÿ€81,188 r82,188:ÿ€90,188 r 91,188:ÿ€100,188 r 101,188:ÿ€106,188 r 107,188h8ÿ€110,188 r 111,188:ÿ€116,188 r 117,188:ÿ€120,188 r 121,188:ÿ€126,188 r 127,188:ÿ€130,188 r 131,188Bÿ€136,188 r 137,188bLÿ‚3:ÿ€10,187 r 11,187:ÿ€20,187 r 27,187:ÿ€30,187 r 37,187:ÿ€40,187 r 47,187:ÿ€55,187 r 62,187^Vÿ€65,187 r 66,187:ÿ€68,187 r 69,187:ÿ€71,187 r 72,187:ÿ€75,187 r 76,187:ÿ€81,187 r 82,187e`ÿ€90,187 r 91,187:ÿ€100,187 r107,187:ÿ€110,187 r 117,187:ÿ€120,187 r 127,187:ÿ€130,187 r 137,187bjÿ‚8:ÿ€10,186 r 11,186:ÿ€20,186 r 27,186:ÿ€30,186 r 37,186:ÿ€40,186 r 47,186:ÿ€55,186 r 62,186^tÿ€65,186 r 66,186:ÿ€68,186 r 69,186:ÿ€71,186 r 72,186:ÿ€75,186 r 76,186:ÿ€81,186 r 82,186e~ÿ€90,186 r 91,186:ÿ€100,186 r107,186:ÿ€110,186 r 117,186:ÿ€120,186 r 127,186:ÿ€130,186 r 137,186bˆÿ‚5:ÿ€10,185 r 11,185:ÿ€20,185 r 21,185:ÿ€36,185 r 37,185:ÿ€40,185 r 41,185:ÿ€26,185 r 27,185^’ÿ€46,185 r 47,185:ÿ€55,185 r 56,185:ÿ€61,185 r 62,185:ÿ€65,185 r 66,185:ÿ€69,185 r 72,185aœÿ€75,185 r 76,185:ÿ€81,185 r82,185:ÿ€90,185 r 91,185:ÿ€100,185 r 101,185:ÿ€106,185 r 107,185A¦ÿ€110,185 r 115,185:ÿ€120,185 r 125,185:ÿ€ 133,185 r 134,185c°ÿ‚10:ÿ€10,184 r 11,184:ÿ€20,184 r 21,184:ÿ€26,184 r 27,184:ÿ€36,184 r 37,184:ÿ€40,184 r 41,184^ºÿ€46,184 r 47,184:ÿ€55,184 r 56,184:ÿ€61,184 r 62,184:ÿ€65,184 r 66,184:ÿ€70,184 r 72,184aÄÿ€75,184 r 76,184:ÿ€80,184 r82,184:ÿ€90,184 r 91,184:ÿ€100,184 r 101,184:ÿ€106,184 r 107,184iÎÿ€110,184 r 111,184:ÿ€114,184 r 115,184:ÿ€ 120,184 r 121,184:ÿ€124,184 r 125,184:ÿ€133,184 r 134,184cØÿ‚12:ÿ€10,183 r 17,183:ÿ€20,183 r 21,183:ÿ€26,183 r 27,183:ÿ€30,183 r 37,183:ÿ€40,183 r 41,183^âÿ€46,183 r 47,183:ÿ€55,183 r 56,183:ÿ€61,183 r 62,183:ÿ€65,183 r 66,183:ÿ€70,183 r 72,183Pìÿ€75,183 r 81,183:ÿ€90,183 r 97,183:ÿ€100,183 r 101,183:ÿ€106,183 r 107,183iöÿ€110,183 r 111,183:ÿ€115,183 r 116,183:ÿ€ 120,183 r 121,183:ÿ€125,183 r 126,183:ÿ€133,183 r 134,183bÿ‚9:ÿ€10,182 r 17,182:ÿ€20,182 r 21,182:ÿ€26,182 r 27,182:ÿ€30,182 r 37,182:ÿ€40,182 r 41,182^ ÿ€46,182 r 47,182:ÿ€55,182 r 56,182:ÿ€61,182 r 62,182:ÿ€65,182 r 66,182:ÿ€71,182 r 72,182Pÿ€75,182 r 80,182:ÿ€90,182 r 97,182:ÿ€100,182 r 101,182:ÿ€106,182 r 107,182iÿ€110,182 r 111,182:ÿ€116,182 r 117,182:ÿ€ 120,182 r 121,182:ÿ€126,182 r 127,182:ÿ€133,182 r 134,182!(ÿ6:¢@24,0,"NO CREDIT GIVEN"2¢@24,1,"±±±±±±±±±±±±±±±"8<ÿ4:¢@1,2,"                                       "F Y~3 r 156P¢@1,Y,"   ":›5Z¢@1,16,"                                       "d Y~17 r 206n¢@1,Y,"   ":›5x¢@1,21,"                                       "‚¨Œ¤:::VAT:::– B~1 r N:“ PFL(B)~1 s1460$ CASH(B)~CASH(B)uVAT(B):VAT(B)~0ª“ CASH(B)0 s 1480´› B¾¨È¤:::CASH SHORT VAT:::,ÒCASH(B)~CASH(B)tSTCK(B):STCK(B)~0:2830ܨ æ¤:::STOCK CASH AND CARRY:::0ð¢@2,3,"Code Product Quantity Price"%ú¢@2,4,"A...";AP$;AST:¢@29,4,ACO$%¢@2,5,"B...";BP$;BST:¢@29,5,BCO$%¢@2,6,"C...";CP$;CST:¢@29,6,CCO$%¢@2,7,"D...";DP$;DST:¢@29,7,DCO$%"¢@2,8,"E...";EP$;EST:¢@29,8,ECO$%,¢@2,9,"F...";FP$;FST:¢@29,9,FCO$'6¢@2,10,"G...";GP$;GST:¢@29,10,GCO$'@¢@2,11,"H...";HP$;HST:¢@29,11,HCO$'J¢@2,12,"I...";IP$;IST:¢@29,12,ICO$'T¢@2,13,"J...";JP$;JST:¢@29,13,JCO$'^¢@2,14,"K...";KP$;KST:¢@29,14,KCO$'h¢@2,15,"L...";LP$;LST:¢@29,15,LCO$r¨ |¤:::VISIT CASH AND CARRY:::†¢@2,17,"Week ";WEEK3¢@2,18,"Trader Cash(`) Stock(`) VAT Due " š B~1 r N:“ PFL(B)~1 s ›B:¨&¤¢@31,17," ":¢@31,17,SF$(B)3®¢@2,19," "R¸¢@2,19,NAME$(B):¢@10,19,CASH(B):¢@19,19,STCK(B):¢@30,19,VAT(B):¢@31,17,SF$(B) 5,31,10,10,50,195Ì· "V5AR","V5CR","V5GR"0Ö“ EST~0 z CASH(B).58 s D~0 r 500:›D:›B:¨(à“ CASH(B).42 s D~0 r 500:›D:›B:¨ê“ PL(B)}1 s 5580:‘1790:ôPC$~"":¢@2,20,"Enter Product Code (X to end) ";:” PC$3þ¢@2,20," "D“ PC$~"X" s ¢@2,19," ":›B:¨$“ PC$"A" { PC$}"L" s ÿ’1:‘1780,“ PL(B)}1 s 5980: D~0 r 500:›D:‘18406&¢@2,20,"Input Quantity Purchased ";:” QP:QP~Î(QP)(0FL~0:5020:¤:::PROCESS PURCHASES:::]:“ FL~1 s ÿ’1:¢@2,20," INSUFFICIENT STOCK ":ÿ’1: D~0 r 500:›D:ÿ’1:‘1820/DWL~0:4730:“ CASH(B)~u.01 s CASH(B)~0:WL~0VN“ WL~1 s ÿ’1:¢@2,20," NO CREDIT GIVEN ": D~0 r 500:›:ÿ’1:‘18203X¢@2,20," "Rb¢@12,17,"Remember to Include VAT ":“ PL(B)}1 s 6130: D~0 r 800:›D:‘1940Ul“ PC$~"D" s ¢@2,20,"Input your retail price/set ";:” RTL:5510:DRTL(B)~RTL:‘1940Sv“ PC$~"I" s ¢@2,20,"Input your retail price/4 ";:” RTL:5510:IRTL(B)~RTL:‘1940W€¢@2,20,"Input your unit retail price ";:” RTL:“ RTL~0 s ÿ’1:¢@31,20," ":‘1920Š5510:5300*”¢@12,17," "3ž¢@2,19," "3¨¢@2,20," "²5170:6330:‘1720¼¤:::RELATIVE STANDINGS::: Æÿ13:„40Т@12,0,"FINANCIAL STATUS""Úÿ6:¢@12,1,"±±±±±±±±±±±±±±±±"ä¢@0,5,"Ca:"î¢@0,7,"St:"ø¢@0,9,"VAT"6¢@0,10,"´´´ ´´´´´´´´ ´´´´´´´´ ´´´´´´´´ ´´´´´´´´" ¢@0,12,"Tot"6¢@0,13,"´´´ ´´´´´´´´ ´´´´´´´´ ´´´´´´´´ ´´´´´´´´" ÿ1* B~1 r N"4TTL(B)~CASH(B)tSTCK(B)uVAT(B)>›]H¢@5,3,NAME$(1):¢@14,3,NAME$(2):¢@4,5,CASH(1):¢@13,5,CASH(2):¢@4,7,STCK(1):¢@13,7,STCK(2)<R¢@4,9,VAT(1):¢@13,9,VAT(2):¢@4,12,TTL(1):¢@13,12,TTL(2)W\“ N}2 s ¢@23,3,NAME$(3):¢@22,5,CASH(3):¢@22,7,STCK(3):¢@22,9,VAT(3):¢@22,12,TTL(3)Wf“ N~4 s ¢@32,3,NAME$(4):¢@31,5,CASH(4):¢@31,7,STCK(4):¢@31,9,VAT(4):¢@31,12,TTL(4)pÿ6:BK$~"BANKRUPT"z“ PFL(1)~1 s ¢@5,15,BK$„“ PFL(2)~1 s ¢@14,15,BK$Ž“ PFL(3)~1 s ¢@23,15,BK$˜“ PFL(4)~1 s ¢@32,15,BK$¢ÿ42¬¢@3,17,"Financial Status at end of week";WEEK4¶¢@1,22,"Ca(cash)+St(stock)-VAT due=Tot(assets)"Àÿ4:· "V5CR","V5ER","V5GR"-Ê¢@2,19," PRESS SPACE BAR TO CONTINUE"$Ô¢@2,20," Q TO QUIT" ÞC$~å$è“ C$~" " s ¨ò“ C$~"Q" s QU~1:¨ ü‘ 2270 Ž ¤:::CHECK ASSETS::: B~1 r N$ “ TTL(B)10000 s 2350 ) WIN~1. ›B8 ¨B ¤:::EXPENSES::: L ÿ12:„405V ¢@0,0,"                                        "` Y~1 r 205j ¢@0,Y,"   "t ›6~ ¢@0,21,"                                        "!ˆ ÿ6:¢@13,1,"Weekly Expenses"’ ¢@13,2,"±±±±±±±±±±±±±±±"!œ ¢@2,3,"Name:":¢@24,3,"Week:"(¦ ¢@2,5,"Premises:":¢@21,5,"Rent(`):"(° ¢@2,7,"Stock(`)(wholesale prices):"(º ¢@2,9,"VAT owed(`)(due quarterly):")Ä ¢@2,11,"Cash(`)(before deductions):"Î ÿ4:¢@2,13,"less":ÿ6)Ø ¢@2,15,"Rent(`) :")â ¢@2,16,"Living Expenses(`) :")ì ¢@2,17,"Bank Charges(`) :")ö ¢@2,18,"Transport Costs(`) :") ¢@2,20," :"+ ÿ12: B~1 r N:“ PFL(B)~1 s › B:‘ 2760I ¢@9,3," ":¢@13,5," ":¢@30,5," ":¢@30,3," "# Y~5 r 20:¢@30,Y," ":›a( “ CASH(B)}~1000 z CASH(B)10000 s 2800:BCST(B)~Î(10t.01wCASH(B)):TCST(B)~Î(10tCASH(B)x1000)\2 “ CASH(B)}~10000 s LCST(B)~Î(.1wCASH(B)):BCST~Î(10t.01wCASH(B)):TCST~Î(10tCASH(B)x1000)7< “ CASH(B)1000 s BCST(B)~10:TCST(B)~10:LCST(B)~100;F ¢@9,3,NAME$(B):¢@13,5,SF$(B):¢@30,5,RNT(B):¢@30,3,WEEK P 63301Z ¢@30,7,STCK(B):¢@30,9,VAT(B):¢@30,11,CASH(B)Cd ¢@30,15,RNT(B):¢@30,16,LCST(B):¢@30,17,BCST(B):¢@30,18,TCST(B)in CASH(B)~CASH(B)uRNT(B)uLCST(B)uBCST(B)uTCST(B):“ CASH(B)0 s 4880:¢@30,7," 0 ": D~0 r 1000:›D3x ¢@2,20," "2‚ ¢@2,20,"Cash in hand(`) : ";CASH(B)Œ “ B~N s 2760–  3,15,12,0,150,100P  ÿ6:¢@2,22," PRESS SPACE BAR FOR NEXT TRADER ":· "V3AR","V3DR","V3FR":ÿ12 ª C$~å$´ “ C$}" " s 2730¾ ›7È ÿ6:¢@2,22," PRESS SPACE BAR TO CONTINUE ":ÿ’1 Ò C$~å$Ü “ C$}" " s 2770æ ¨ð ¤:::ROUNDING:::ú LCST(B)~Î(100t.05wCASH(B)) ¨ ¤:::SET STOCK TO 0:::p AST(B)~0:BST(B)~0:CST(B)~0:DST(B)~0:EST(B)~0:FST(B)~0:GST(B)~0:HST(B)~0:IST(B)~0:JST(B)~0:KST(B)~0:LST(B)~0|" ARTL(B)~0:BRTL(B)~0:CRTL(B)~0:DRTL(B)~0:ERTL(B)~0:FRTL(B)~0:GRTL(B)~0:HRTL(B)~0:IRTL(B)~0:JRTL(B)~0:KRTL(B)~0:LRTL(B)~0, ¨6 ¤:::TRADING LAYOUT:::@ ÿƒ15:ÿ4,15:„bJ ÿ‚2:ÿ€10,191 r 17,191:ÿ€20,191 r 27,191:ÿ€30,191 r 37,191:ÿ€40,191 r 45,191:ÿ€50,191 r 57,191:T ÿ€60,191 r 61,191:ÿ€66,191 r 67,191:ÿ€70,191 r 77,191b^ ÿ‚6:ÿ€10,190 r 17,190:ÿ€20,190 r 27,190:ÿ€30,190 r 37,190:ÿ€40,190 r 46,190:ÿ€50,190 r 57,190:h ÿ€60,190 r 62,190:ÿ€66,190 r 67,190:ÿ€70,190 r 77,190br ÿ‚4:ÿ€13,189 r 14,189:ÿ€20,189 r 21,189:ÿ€26,189 r 27,189:ÿ€30,189 r 31,189:ÿ€36,189 r 37,189^| ÿ€40,189 r 41,189:ÿ€45,189 r 47,189:ÿ€53,189 r 54,189:ÿ€60,189 r 63,189:ÿ€66,189 r 67,189(† ÿ€70,189 r 71,189:ÿ€76,189 r 77,189c ÿ‚11:ÿ€13,188 r 14,188:ÿ€20,188 r 21,188:ÿ€26,188 r 27,188:ÿ€30,188 r 31,188:ÿ€36,188 r 37,188^š ÿ€40,188 r 41,188:ÿ€46,188 r 47,188:ÿ€53,188 r 54,188:ÿ€60,188 r 63,188:ÿ€66,188 r 67,188¤ ÿ€70,188 r 71,188b® ÿ‚3:ÿ€13,187 r 14,187:ÿ€20,187 r 27,187:ÿ€30,187 r 37,187:ÿ€40,187 r 41,187:ÿ€46,187 r 47,187^¸ ÿ€53,187 r 54,187:ÿ€60,187 r 61,187:ÿ€63,187 r 64,187:ÿ€66,187 r 67,187:ÿ€70,187 r 71,187b ÿ‚8:ÿ€13,186 r 14,186:ÿ€20,186 r 27,186:ÿ€30,186 r 37,186:ÿ€40,186 r 41,186:ÿ€46,186 r 47,186^Ì ÿ€53,186 r 54,186:ÿ€60,186 r 61,186:ÿ€63,186 r 64,186:ÿ€66,186 r 67,186:ÿ€70,186 r 71,186Ö ÿ€75,186 r 78,186bà ÿ‚5:ÿ€13,185 r 14,185:ÿ€20,185 r 24,185:ÿ€30,185 r 31,185:ÿ€36,185 r 37,185:ÿ€40,185 r 41,185^ê ÿ€46,185 r 47,185:ÿ€53,185 r 54,185:ÿ€60,185 r 61,185:ÿ€64,185 r 67,185:ÿ€70,185 r 71,185ô ÿ€75,185 r 78,185cþ ÿ‚10:ÿ€13,184 r 14,184:ÿ€20,184 r 21,184:ÿ€23,184 r 24,184:ÿ€30,184 r 31,184:ÿ€36,184 r 37,184^ ÿ€40,184 r 41,184:ÿ€45,184 r 47,184:ÿ€53,184 r 54,184:ÿ€60,184 r 61,184:ÿ€65,184 r 67,184( ÿ€70,184 r 71,184:ÿ€76,184 r 77,184c ÿ‚12:ÿ€13,183 r 14,183:ÿ€20,183 r 21,183:ÿ€25,183 r 26,183:ÿ€30,183 r 31,183:ÿ€36,183 r 37,183^& ÿ€40,183 r 46,183:ÿ€50,183 r 57,183:ÿ€60,183 r 61,183:ÿ€65,183 r 67,183:ÿ€70,183 r 77,183b0 ÿ‚9:ÿ€13,182 r 14,182:ÿ€20,182 r 21,182:ÿ€26,182 r 27,182:ÿ€30,182 r 31,182:ÿ€36,182 r 37,182^: ÿ€40,182 r 45,182:ÿ€50,182 r 57,182:ÿ€60,182 r 61,182:ÿ€66,182 r 67,182:ÿ€70,182 r 77,182&D ¢@15,0,"(All Prices Include VAT)"&N ¢@15,1,"±±±±±±±±±±±±±±±±±±±±±±±±"X ÿ64b ¢@1,2,"                                       "l Y~3 r 204v ¢@1,Y,"   "€ ›5Š ¢@1,21,"                                       "+” ¢@5,3,"Name Type Week"2ž ¢@2,5," Cash(`) Stock(`) Total(`) VAT(`) "3¨ ¢@2,7,"                                      "2² ¢@2,8,"Product Quantity Price` Sales` "¼ ¨Æ ¤:::EACH TRADER:::Ð B~1 r N:XY~0Ú “ PFL(B)~1 s 3680pä ASL(B)~0:BSL(B)~0:CSL(B)~0:DSL(B)~0:ESL(B)~0:FSL(B)~0:GSL(B)~0:HSL(B)~0:ISL(B)~0:JSL(B)~0:KSL(B)~0:LSL(B)~02î ¢@2,4," "2ø ¢@2,6," " Y~9 r 20& ¢@17,Y," ":› ¤:::ON OFFER:::6 ÿ12:¢@5,4,NAME$(B):¢@18,4,SF$(B):¢@31,4,WEEK:ÿ6F* ¢@2,6,CASH(B):¢@11,6,STCK(B):¢@30,6,VAT(B):¢@20,6,CASH(B)tSTCK(B)14 Y~9 r 20:¢@17,Y," ":›$> ¢@2,9,AP$:¢@2,10,BP$:¢@2,11,CP$%H ¢@2,12,DP$:¢@2,13,EP$:¢@2,14,FP$%R ¢@2,15,GP$:¢@2,16,HP$:¢@2,17,IP$%\ ¢@2,18,JP$:¢@2,19,KP$:¢@2,20,LP$0f ¢@17,9,AST(B):¢@17,10,BST(B):¢@17,11,CST(B)1p ¢@17,12,DST(B):¢@17,13,EST(B):¢@17,14,FST(B)1z ¢@17,15,GST(B):¢@17,16,HST(B):¢@17,17,IST(B)1„ ¢@17,18,JST(B):¢@17,19,KST(B):¢@17,20,LST(B)3Ž ¢@23,9,ARTL(B):¢@23,10,BRTL(B):¢@23,11,CRTL(B)4˜ ¢@23,12,DRTL(B):¢@23,13,ERTL(B):¢@23,14,FRTL(B)4¢ ¢@23,15,GRTL(B):¢@23,16,HRTL(B):¢@23,17,IRTL(B)4¬ ¢@23,18,JRTL(B):¢@23,19,KRTL(B):¢@23,20,LRTL(B)0¶ ¢@30,9,ASL(B):¢@30,10,BSL(B):¢@30,11,CSL(B)1À ¢@30,12,DSL(B):¢@30,13,ESL(B):¢@30,14,FSL(B)1Ê ¢@30,15,GSL(B):¢@30,16,HSL(B):¢@30,17,ISL(B)1Ô ¢@30,18,JSL(B):¢@30,19,KSL(B):¢@30,20,LSL(B)Þ “ XY~1 s 3610è ÿ’1Tò “ XY~0 s ¢@1,22," FOR SALES PERFORMANCE, PRESS P ":C$~å$:“ C$}"P" s 35704ü ¢@1,22," "3740:XY~1:‘3310&“ PL(B)}1 s D~0 r 2000:› D:› B4¢@1,22," "$“ B~N s 3680. 4,10,10,0,250,50O8ÿ12:¢@3,22," PRESS SPACE BAR FOR NEXT TRADER":· "V4BR","V4DR","V4GR":ÿ6 BC$~å$@L“ C$~" " s ¢@3,22," ":‘3680 V‘3650`›<jÿ4:¢@1,22," PRESS SPACE BAR TO CONTINUE ":ÿ’1 tC$~å$~“ C$}" " s 3700ˆ¨’Žœ¤:::DETERMINE SALES::: ¦“ AST(B)}0 s 3890: 4010°“ BST(B)}0 s 3900:4010º“ CST(B)}0 s 3910:4010Ä“ DST(B)}0 s 3920:4010Γ EST(B)}0 s 3930:4010Ø“ FST(B)}0 s 3940:4010â“ GST(B)}0 s 3950:4010ì“ HST(B)}0 s 3960:4010ö“ IST(B)}0 s 3970:4010“ JST(B)}0 s 3980:4010 “ KST(B)}0 s 3990:4010“ LST(B)}0 s 4000:4010¨(¤:::SALES FIGURES(SL):::d2RAT~ARTL(B)xACO:ST~AST(B):4050:ASL(B)~SLwARTL(B):AST(B)~AST(B)uSL:MO~ASL(B):STK~ACOwSL:4170:¨d<RAT~BRTL(B)xBCO:ST~BST(B):4050:BSL(B)~SLwBRTL(B):BST(B)~BST(B)uSL:MO~BSL(B):STK~BCOwSL:4170:¨dFRAT~CRTL(B)xCCO:ST~CST(B):4050:CSL(B)~SLwCRTL(B):CST(B)~CST(B)uSL:MO~CSL(B):STK~CCOwSL:4170:¨dPRAT~DRTL(B)xDCO:ST~DST(B):4050:DSL(B)~SLwDRTL(B):DST(B)~DST(B)uSL:MO~DSL(B):STK~DCOwSL:4170:¨lZRAT~ERTL(B)x(ECOx12):ST~EST(B):4050:ESL(B)~SLwERTL(B):EST(B)~EST(B)uSL:MO~ESL(B):STK~ECOwSLx12:4170:¨ddRAT~FRTL(B)xFCO:ST~FST(B):4050:FSL(B)~SLwFRTL(B):FST(B)~FST(B)uSL:MO~FSL(B):STK~FCOwSL:4170:¨dnRAT~GRTL(B)xGCO:ST~GST(B):4050:GSL(B)~SLwGRTL(B):GST(B)~GST(B)uSL:MO~GSL(B):STK~GCOwSL:4170:¨lxRAT~HRTL(B)x(HCOx12):ST~HST(B):4050:HSL(B)~SLwHRTL(B):HST(B)~HST(B)uSL:MO~HSL(B):STK~HCOwSLx12:4170:¨h‚RAT~IRTL(B)xICO:ST~IST(B)x4:4050:ISL(B)~SLwIRTL(B):IST(B)~IST(B)u4wSL:MO~ISL(B):STK~ICOwSL:4170:¨dŒRAT~JRTL(B)xJCO:ST~JST(B):4050:JSL(B)~SLwJRTL(B):JST(B)~JST(B)uSL:MO~JSL(B):STK~JCOwSL:4170:¨d–RAT~KRTL(B)xKCO:ST~KST(B):4050:KSL(B)~SLwKRTL(B):KST(B)~KST(B)uSL:MO~KSL(B):STK~KCOwSL:4170:¨l RAT~LRTL(B)x(LCOx12):ST~LST(B):4050:LSL(B)~SLwLRTL(B):LST(B)~LST(B)uSL:MO~LSL(B):STK~LCOwSLx12:4170:¨ª¤:::ADJUSTMENT:::_´CASH(B)~(Î(100w(CASH(B))))x100:VAT(B)~(Î(100w(VAT(B))))x100:STCK(B)~(Î(100w(STCK(B))))x100¾“ STCK(B)~0 s STCK(B)~0ȨҤ:::SL CALC:::Ü“ RAT~0 s SL~0:¨æSV~(Õ(80)t20)x100,ð“ CASH(B)tSTCK(B)~500 s MARK~2.5:‘4130-ú“ CASH(B)tSTCK(B)~1000 s MARK~2.4:‘4130-“ CASH(B)tSTCK(B)~10000 s MARK~2:‘ 41300“ CASH(B)tSTCK(B)~100000 s MARK~1.8:‘ 4130 MARK~1.5"SLS~(MARKxRAT)wSF(B)wSV,“ SLS}1 s SLS~16SL~Î(STwSLS)@¨J¤:::RECALC CASH:::@TCASH(B)~CASH(B)tMO:VAT(B)~VAT(B)t.15wMO:STCK(B)~STCK(B)uSTK^¨hŽr¤:::FINISHING TABLE:::|ÿ‚12:ÿƒ15:„40g†ÿ€50,191 r 57,191 r 57,190 r 51,190 r 51,187 r 54,187 r 54,186 r 51,186 r 51,182 r 50,182 r 50,191pÿ€60,191 r 67,191 r 67,190 r 64,190 r 64,183 r 67,183 r 67,182 r 60,182 r 60,183 r 63,183 r 63,190 r 60,190^šÿ€71,191 r 76,184 r 76,191 r 77,191 r 77,182 r 76,182 r 71,189 r 71,182 r 70,182 r 70,191¤ÿ€71,190 r 76,183p®ÿ€80,182 r 80,191 r 87,191 r 87,182 r 86,182 r 86,190 r 81,190 r 81,186 r 85,186 r 85,187 r 81,187 r 81,182:¸ÿ€91,191 r 91,183 r 97,183 r 97,182 r 90,182 r 90,191Âÿ‚8^Ìÿ€110,182 r 110,191 r 117,191 r 117,186 r 113,186 r 117,182 r 115,182 r 111,186 r 111,182^Öÿ€111,190 r 116,190 r 116,187 r 111,187 r 111,190:ÿ€116,182 r 111,187:ÿ€120,191 r 127,191ràÿ€127,190 r 121,190 r 121,187 r 124,187 r 124,186 r 121,186 r 121,183 r 127,183 r 127,182 r 120,182 r 120,191rêÿ€137,190 r 131,190 r 131,187 r 137,187 r 137,182 r 130,182 r 130,183 r 136,183 r 136,186 r 130,186 r 130,191ôÿ€130,191 r 137,191Tþÿ€141,191 r 141,183 r 146,183 r 146,191 r 147,191 r 147,182 r 140,182 r 140,191@ÿ€151,191 r 151,183 r 157,183 r 157,182 r 150,182 r 150,191Tÿ€160,191 r 167,191 r 167,190 r 164,190 r 164,182 r 163,182 r 163,190 r 160,190rÿ€177,190 r 171,190 r 171,187 r 177,187 r 177,182 r 170,182 r 170,183 r 176,183 r 176,186 r 170,186 r 170,191&ÿ€170,191 r 177,1910ÿ€49,180 r 178,180:ÿ‚10:ÿ€49,179 r 178,179#Dÿ4: Y~0 r 22 p 2:¢@0,Y,"`":›N Y~1 r 21 p 2:¢@1,Y,"`":›"Xÿ6: Y~1 r 21 p2:¢@0,Y,"$":›b Y~0 r 22 p 2:¢@1,Y,"$":›l B~1 r N#vASST(B)~CASH(B)tSTCK(B)uVAT(B)€›8Š¢@3,4,"Trader ";NAME$(1):¢@19,4," assets `";ASST(1)8”¢@3,7,"Trader ";NAME$(2):¢@19,7," assets `";ASST(2)ž“ N~2 s 4550:¨¢@3,10,"Trader ";NAME$(3):¢@19,10," assets `";ASST(3)²“ N~3 s 4550:¼¢@3,13,"Trader ";NAME$(4):¢@19,13," assets `";ASST(4) Æÿ131Г ASST(1)}~10000 s ¢@24,5,"FINANCIAL WIZARD"1Ú“ ASST(2)}~10000 s ¢@24,8,"FINANCIAL WIZARD"2ä“ ASST(3)}~10000 s ¢@24,11,"FINANCIAL WIZARD"2î“ ASST(4)}~10000 s ¢@24,14,"FINANCIAL WIZARD"@ø“ ASST(1)10000 z ASST(1)}~1000 s ¢@24,5,"COMPETENT TRADER"@“ ASST(2)10000 z ASST(2)}~1000 s ¢@24,8,"COMPETENT TRADER" “ N~2 s 4660A“ ASST(3)10000 z ASST(3)}~1000 s ¢@24,11,"COMPETENT TRADER" “ N~3 s 4660A*“ ASST(4)10000 z ASST(4)}~1000 s ¢@24,14,"COMPETENT TRADER"$4“ ASST(1)0 s ¢@24,5,"BANKRUPT"$>“ ASST(2)0 s ¢@24,8,"BANKRUPT"H“ N~2 s ¨%R“ ASST(3)0 s ¢@24,11,"BANKRUPT"\“ N~3 s ¨%f“ ASST(4)0 s ¢@24,14,"BANKRUPT"p¨z¤:::CHECK CASH:::-„“ PC$~"A" z CASH(B)ACOwQPw1.15 s WL~1:¨-Ž“ PC$~"B" z CASH(B)BCOwQPw1.15 s WL~1:¨-˜“ PC$~"C" z CASH(B)CCOwQPw1.15 s WL~1:¨-¢“ PC$~"D" z CASH(B)DCOwQPw1.15 s WL~1:¨0¬“ PC$~"E" z CASH(B)ECOwQPw1.15x12 s WL~1:¨-¶“ PC$~"F" z CASH(B)FCOwQPw1.15 s WL~1:¨-À“ PC$~"G" z CASH(B)GCOwQPw1.15 s WL~1:¨0Ê“ PC$~"H" z CASH(B)HCOwQPw1.15x12 s WL~1:¨/Ô“ PC$~"I" z CASH(B)ICOwQPw1.15x4 s WL~1:¨-Þ“ PC$~"J" z CASH(B)JCOwQPw1.15 s WL~1:¨-è“ PC$~"K" z CASH(B)KCOwQPw1.15 s WL~1:¨0ò“ PC$~"L" z CASH(B)LCOwQPw1.15x12 s WL~1:¨ü¨ ‘ 4870¤:::CASH(B)<0:::5¢@0,22," "$“ STCK(B)~0 s 49603.CASH(B)~CASH(B)tSTCK(B):¤:::STOCK AUCTIONED:::8STCK(B)~0:28307B¢@2,20," SHORT OF CASH, STOCK AUCTIONED ":ÿ’1)L“ CASH(B)0 s D~0 r 800:› D: 4960V¨`¤:::PLAYER BANKRUPT:::3j¢@2,20," "6t¢@2,20,NAME$(B);" BANKRUPT-BUSINESS WOUND UP":ÿ’1~PFL(B)~1:FFL~FFLt1ˆ¨’Žœ¤:::PURCHASES::: ¦“ PC$~"A" z QP}AST s FL~1:¨ °“ PC$~"B" z QP}BST s FL~1:¨ º“ PC$~"C" z QP}CST s FL~1:¨ Ä“ PC$~"D" z QP}DST s FL~1:¨ Γ PC$~"E" z QP}EST s FL~1:¨ Ø“ PC$~"F" z QP}FST s FL~1:¨ â“ PC$~"G" z QP}GST s FL~1:¨ ì“ PC$~"H" z QP}HST s FL~1:¨ ö“ PC$~"I" z QP}IST s FL~1:¨ “ PC$~"J" z QP}JST s FL~1:¨ “ PC$~"K" z QP}KST s FL~1:¨ “ PC$~"L" z QP}LST s FL~1:¨¨(¤:::UPDATE C&C:::u2“ PC$~"A" s AST~ASTuQP:STCK(B)~STCK(B)tQPwACO:VAT~QPwACOw.15:CASH(B)~CASH(B)u(QPwACO)uVAT:AST(B)~AST(B)tQP:5550u<“ PC$~"B" s BST~BSTuQP:STCK(B)~STCK(B)tQPwBCO:VAT~QPwBCOw.15:CASH(B)~CASH(B)u(QPwBCO)uVAT:BST(B)~BST(B)tQP:5550uF“ PC$~"C" s CST~CSTuQP:STCK(B)~STCK(B)tQPwCCO:VAT~QPwCCOw.15:CASH(B)~CASH(B)u(QPwCCO)uVAT:CST(B)~CST(B)tQP:5550uP“ PC$~"D" s DST~DSTuQP:STCK(B)~STCK(B)tQPwDCO:VAT~QPwDCOw.15:CASH(B)~CASH(B)u(QPwDCO)uVAT:DST(B)~DST(B)tQP:5550MZ“ PC$~"E" s 5420:CASH(B)~CASH(B)u(QPwECOx12)uVAT:EST(B)~EST(B)tQP:5550ud“ PC$~"F" s FST~FSTuQP:STCK(B)~STCK(B)tQPwFCO:VAT~QPwFCOw.15:CASH(B)~CASH(B)u(QPwFCO)uVAT:FST(B)~FST(B)tQP:5550un“ PC$~"G" s GST~GSTuQP:STCK(B)~STCK(B)tQPwGCO:VAT~QPwGCOw.15:CASH(B)~CASH(B)u(QPwGCO)uVAT:GST(B)~GST(B)tQP:5550Nx“ PC$~"H" s 5420:CASH(B)~CASH(B)u(QPwHCOx12)uVAT:HST(B)~HST(B)tQP:5550‚“ PC$~"I" s 5420:5550uŒ“ PC$~"J" s JST~JSTuQP:STCK(B)~STCK(B)tQPwJCO:VAT~QPwJCOw.15:CASH(B)~CASH(B)u(QPwJCO)uVAT:JST(B)~JST(B)tQP:5550u–“ PC$~"K" s KST~KSTuQP:STCK(B)~STCK(B)tQPwKCO:VAT~QPwKCOw.15:CASH(B)~CASH(B)u(QPwKCO)uVAT:KST(B)~KST(B)tQP:5550N “ PC$~"L" s 5420:CASH(B)~CASH(B)u(QPwLCOx12)uVAT:LST(B)~LST(B)tQP:5550ª¨´¤:::UNIT RETAIL PRICES:::¾“ PC$~"A" s ARTL(B)~RTL:¨È“ PC$~"B" s BRTL(B)~RTL:¨Ò“ PC$~"C" s CRTL(B)~RTL:¨Ü“ PC$~"E" s ERTL(B)~RTL:¨æ“ PC$~"F" s FRTL(B)~RTL:¨ð“ PC$~"G" s GRTL(B)~RTL:¨ú“ PC$~"H" s HRTL(B)~RTL:¨“ PC$~"J" s JRTL(B)~RTL:¨“ PC$~"K" s KRTL(B)~RTL:¨“ PC$~"L" s LRTL(B)~RTL:¨"¨,¤:::DOZENS:::X6“ PC$~"E" s QP~Î(QPx12)w12:EST~ESTuQP:STCK(B)~STCK(B)tQPwECOx12:VAT~QPwECOw.15x12:¨X@“ PC$~"H" s QP~Î(QPx12)w12:HST~HSTuQP:STCK(B)~STCK(B)tQPwHCOx12:VAT~QPwHCOw.15x12:¨XJ“ PC$~"L" s QP~Î(QPx12)w12:LST~LSTuQP:STCK(B)~STCK(B)tQPwLCOx12:VAT~QPwLCOw.15x12:¨(T“ PC$~"I" s QP~Î(QPx4)w4:IST~ISTuQP2^STCK(B)~STCK(B)t(QPwICO)x4:VAT~(QPwICOw.15)x4!hCASH(B)~CASH(B)uQPwICOx4uVATrIST(B)~IST(B)tQP|¨†¤:::ROUND RTL:::RTL~(Î(RTLw100))x100š¨¤¤:::VAT ADJUSTMENT:::®VAT(B)~VAT(B)uVAT!¸ Y~4 r 15:¢@22,Y," ":› Â1510:¨Ì¤:::COMPUTER TRADING:::2ÖPC$~"":¢@2,20,"Input Product Code (X to end)"(à“ CASH(B)1.15 z EST}12 s J~5:‘5760êJ~Õ(12)t1!ô“ J~1 z CASH(B)}22500 s 5610þ“ J~1 z AST~0 s 56106“ J~1 z CASH(B)}~2.25 s PC$~"A":¢@32,20,"A":‘5970 “ J~2 z CASH(B)}5800 s 5610“ J~2 z BST~0 s 56106&“ J~2 z CASH(B)}~0.58 s PC$~"B":¢@32,20,"B":‘5970&0“ J~3 z CASH(B)}57000 s J~6:‘5770:“ J~3 z CST~0 s 56106D“ J~3 z CASH(B)}~5.70 s PC$~"C":¢@32,20,"C":‘5970&N“ J~4 z CASH(B)}45500 s J~3:‘5680X“ J~4 z DST~0 s 56106b“ J~4 z CASH(B)}~4.55 s PC$~"D":¢@32,20,"D":‘5970l“ J~5 z CASH(B)}420 s 5610v“ J~5 z EST~0 s 56106€“ J~5 z CASH(B)}~0.42 s PC$~"E":¢@32,20,"E":‘5970!Š“ J~6 z FST~0 s J~10:‘ 58806”“ J~6 z CASH(B)}~9.15 s PC$~"F":¢@32,20,"F":‘5970!ž“ J~7 z CASH(B)}14400 s 5610¨“ J~7 z GST~0 s 56106²“ J~7 z CASH(B)}~1.44 s PC$~"G":¢@32,20,"G":‘5970!¼“ J~8 z CASH(B)}34500 s 5610Æ“ J~8 z HST~0 s 56106Г J~8 z CASH(B)}~3.45 s PC$~"H":¢@32,20,"H":‘5970 Ú“ J~9 z CASH(B)}9800 s 5610ä“ J~9 z IST~0 s 56106î“ J~9 z CASH(B)}~0.98 s PC$~"I":¢@32,20,"I":‘5970ø“ J~10 z JST~0 s 56108“ J~10 z CASH(B)}~11.45 s PC$~"J":¢@32,20,"J":‘5970" “ J~11 z CASH(B)}11400 s 5610“ J~11 z KST~0 s 56107 “ J~11 z CASH(B)}~1.14 s PC$~"K":¢@32,20,"K":‘5970!*“ J~12 z CASH(B)}2300 s 56104“ J~12 z LST~0 s 56106>“ J~12 z CASH(B)}~2.3 s PC$~"L":¢@32,20,"L":‘5970 H‘ 5610R D~0 r 1000:›:¨\¤:::QUANTITY:::(f¢@2,20,"Input Quantity Purchased:-"<p“ PC$~"A" s QP~Î(CASH(B)x(ACOw1.15)):6500:¢@28,20,QP:¨<z“ PC$~"B" s QP~Î(CASH(B)x(BCOw1.15)):6500:¢@28,20,QP:¨<„“ PC$~"C" s QP~Î(CASH(B)x(CCOw1.15)):6500:¢@28,20,QP:¨<Ž“ PC$~"D" s QP~Î(CASH(B)x(DCOw1.15)):6500:¢@28,20,QP:¨?˜“ PC$~"E" s QP~Î(CASH(B)x(ECOw1.15))w12:6500:¢@28,20,QP:¨<¢“ PC$~"F" s QP~Î(CASH(B)x(FCOw1.15)):6500:¢@28,20,QP:¨<¬“ PC$~"G" s QP~Î(CASH(B)x(GCOw1.15)):6500:¢@28,20,QP:¨?¶“ PC$~"H" s QP~Î(CASH(B)x(HCOw1.15))w12:6500:¢@28,20,QP:¨>À“ PC$~"I" s QP~Î(CASH(B)x(ICOw1.15))w4:6500:¢@28,20,QP:¨<Ê“ PC$~"J" s QP~Î(CASH(B)x(JCOw1.15)):6500:¢@28,20,QP:¨<Ô“ PC$~"K" s QP~Î(CASH(B)x(KCOw1.15)):6500:¢@28,20,QP:¨?Þ“ PC$~"L" s QP~Î(CASH(B)x(LCOw1.15))w12:6500:¢@28,20,QP:¨è¨"ò¤:::COMPUTER RETAIL PRICES::: ü6180I“ PC$~"D" s ¢@2,20,"Input your retail price/set `";RTL:DRTL(B)~RTL:¨G“ PC$~"I" s ¢@2,20,"Input your retail price/4 `";RTL:IRTL(B)~RTL:¨8¢@2,20,"Input your retail price/item `";RTL:5300:¨$¤:::DETERMINE RTL::: .63808“ J~1 s RTL~ACOwPR:‘6320B“ J~2 s RTL~BCOwPR:‘6320L“ J~3 s RTL~CCOwPR:‘6320V“ J~4 s RTL~DCOwPR:‘6320 `“ J~5 s RTL~PRwECOx12:‘6320j“ J~6 s RTL~FCOwPR:‘6320t“ J~7 s RTL~GCOwPR:‘6320 ~“ J~8 s RTL~PRwHCOx12:‘6320ˆ“ J~9 s RTL~ICOwPR:‘6320’“ J~10 s RTL~JCOwPR:‘6320œ“ J~11 s RTL~KCOwPR:‘6320!¦“ J~12 s RTL~PRwLCOx12:‘6320°RTL~(Î(RTLw100))x100:¨º¤:::ROUNDING:::!ÄCASH(B)~(Î(CASH(B)w100))x100!ÎSTCK(B)~(Î(STCK(B)w100))x100 ØVAT(B) ~(Î(VAT(B)w100))x100â¨#ì¤:::COMPUTER RETAIL PRICING:::ö“ SF(B)~1 s 6450'“ CASH(B)tSTCK(B)~500 s PR~2.35:¨( “ CASH(B)tSTCK(B)~1000 s PR~2.25:¨&“ CASH(B)tSTCK(B)~10000 s PR~2:¨)“ CASH(B)tSTCK(B)~100000 s PR~1.8:¨ (PR~1.5:¨&2“ CASH(B)tSTCK(B)~500 s PR~2.3:¨'<“ CASH(B)tSTCK(B)~1000 s PR~2.2:¨(F“ CASH(B)tSTCK(B)~10000 s PR~1.9:¨)P“ CASH(B)tSTCK(B)~100000 s PR~1.7:¨ ZPR~1.4:¨d¤:::CHECK QP:::n“ J~1 z QP}AST s QP~AST:¨x“ J~2 z QP}BST s QP~BST:¨‚“ J~3 z QP}CST s QP~CST:¨Œ“ J~4 z QP}DST s QP~DST:¨–“ J~5 z QP}EST s QP~EST:¨ “ J~6 z QP}FST s QP~FST:¨ª“ J~7 z QP}GST s QP~GST:¨´“ J~8 z QP}HST s QP~HST:¨¾“ J~9 z QP}IST s QP~IST:¨È“ J~10 z QP}JST s QP~JST:¨Ò“ J~11 z QP}KST s QP~KST:¨Ü“ J~12 z QP}LST s QP~LST:¨æ¨"ð¤:::ANNUAL EXPENSES SCREEN::: úÿ4:„5¢@0,0,"########################################" Y~1 r 195¢@0,Y,"# #""›Y6,¢@0,20,"########################################" 6ÿ12@¢@12,2,"ANNUAL EXPENSES"J¢@12,3,"±±±±±±±±±±±±±±±"Tÿ6^¢@2,5,"Trader: "h¢@2,7,"Type : "r¢@2,9,"Cash :`"|¢@2,11,"Stock :`"†¢@2,13,"VAT :`"¨š¤:::INSURANCE PREMIUMS:::¤ B~1 r N®“ PFL(B)~1 s ›B:‘7070)¸IPR~CASH(B)w.35:IPR~(Î(IPRw100))x100Âÿ4:¢@11,5,NAME$(B)Ì¢@11,7,SF$(B)Ö¢@11,9,CASH(B)à¢@11,11,STCK(B)ê¢@11,13,VAT(B)#ô¢@2,15,"Insurance Premium Due"#þ¢@2,17,"Total Requested:`";IPRCASH(B)~CASH(B)uIPR “ B~N s 7060ÿ6-¢@2,19," FOR NEXT TRADER, PRESS N" &C$~å$0“ C$}"N" s 6950D¢@11,5," "N¢@11,7," "X¢@11,9," "b¢@11,11," "l¢@11,13," ",v¢@2,15," "2€¢@2,17," "-Š¢@2,19," "”›B žÿ126¨ÿ’1:¢@2,19," PRESS SPACE BAR TO CONTINUE " ²C$~å$¼“ C$}" " s 7090ƨФ:::REFIT:REDEC:RENEWAL:::Ú B~1 r Nä“ PFL(B)~1 s ›B:‘7390)îRFT~CASH(B)w.45:RFT~(Î(RFTw100))x100øÿ4:¢@11,5,NAME$(B)¢@11,7,SF$(B) ¢@11,9,CASH(B)¢@11,11,STCK(B) ¢@11,13,VAT(B)?*“ SF(B)~1.2 s ¢@2,15,"Annual Refit and Redecoration":‘7230-4¢@2,15,"Purchase New Ultra-Modern Stall" >¢@2,17,"Overall Cost:`";RFTHCASH(B)~CASH(B)uRFTM“ B~N s 7380Rÿ6-\¢@2,19," FOR NEXT TRADER, PRESS N" fC$~å$p“ C$}"N" s 7270„¢@11,5," "Ž¢@11,7," "˜¢@11,9," "¢¢@11,11," "¬¢@11,13," "2¶¢@2,15," "2À¢@2,17," "2Ê¢@2,19," "Ô›B Þÿ126èÿ’1:¢@2,19," PRESS SPACE BAR TO CONTINUE " òC$~å$ü“ C$}" " s 7410¨¤:::SCHEDULE D::: B~1 r N$“ PFL(B)~1 s ›B:‘7700).SCD~CASH(B)w.45:SCD~(Î(SCDw100))x1008ÿ4:¢@11,5,NAME$(B)B¢@11,7,SF$(B)L¢@11,9,CASH(B)V¢@11,11,STCK(B)`¢@11,13,VAT(B)+j¢@2,15,"Profits Assessed For Taxation"+t¢@2,17,"Schedule D Tax Deducted:`";SCD~CASH(B)~CASH(B)uSCDƒ“ B~N s 7690ˆÿ6-’¢@2,19," FOR NEXT TRADER, PRESS N" œC$~å$¦“ C$}"N" s 7580º¢@11,5," "Ä¢@11,7," "΢@11,9," "Ø¢@11,11," "â¢@11,13," ",ì¢@2,15," "2ö¢@2,17," "-¢@2,19," " ›B ÿ126ÿ’1:¢@2,19," PRESS SPACE BAR TO CONTINUE " (C$~å$2“ C$}" " s 7720<¨F¤:::UNTOWARD EVENTS::: PUE~Õ(3) Zÿ6:„40d NF~0 r 101n¢@3,10,"*****NEWS FLASH*****NEWS FLASH*****"xÿ’1: D~0 r 10:›D1‚¢@3,10," "Œ D~0 r 10:›D–›NF  ÿ4:„5ª¢@0,0,"                                        "´ Y~1 r 195¾¢@0,Y,"   "È›Y6Ò¢@0,20,"                                        " Üÿ12!æ¢@10,2,"IMPORTANT NEWS ITEM"!ð¢@10,3,"±±±±±±±±±±±±±±±±±±±"ú“ UE}0 s 8060%ÿ6:¢@10,5," SERIOUS FIRE":ÿ4¢@2,7,"Trader ";NAME$(B)7“ SF(B)~1 s ¢@5,9,"Overnight fire guts storeroom."8"“ SF(B)~1.2 s ¢@5,9,"Overnight fire destroys shop."0,ÿ6:¢@10,11,"ALL STOCK DESTROYED":ÿ4:283016¢@2,13,"Insurance Company Pays Out in Full."K@“ SF(B)~1.2 s ¢@2,15,"New Premises Rented at `200 per week":RNT(B)~200`J“ SF(B)~1 s ¢@2,15,"Take Opportunity to Move into Shop.":RNT(B)~100:SF(B)~1.2:SF$(B)~"shop"!TPO~1000t(Î(STCK(B)w115))x100#^¢@2,17,"Insurance Payout:`";PO!hCASH(B)~CASH(B)tPO:STCK(B)~0 r‘8310|“ UE}1 s 8180)†ÿ6:¢@9,5,"DRAMATIC STOCK THEFT":ÿ4¢@2,7,"Trader ";NAME$(B)9š“ SF(B)~1 s ¢@4,9,"Overnight Thieves Raid Storeroom"5¤“ SF(B)~1.2 s ¢@5,9,"Shop Ransacked by Thieves."+®ÿ6:¢@12,11,"MINIMAL LOSSES":ÿ4:2830!¸CL~100 t(Î(STCK(B)w115))x100"¢@2,13,"Insurance Claim:`";CL*ÌPO~CLw(Õ(20)t80)x100:PO~Î(POw100)x100)Ö¢@2,15,"Insurance Company Pays:`";PO!àCASH(B)~CASH(B)tPO:STCK(B)~0 ê‘8310'ôÿ6:¢@10,5," DARING CASH RAID":ÿ4þ¢@2,7,"Trader ";NAME$(B)= “ SF(B)~1 s ¢@3,9,"Armed Raiders Snatch Cash from Stall"= “ SF(B)~1.2 s ¢@4,9,"Armed Raiders Snatch Cash at Shop.". SN~CASH(B)w(Õ(5)t1)x10:SN~(Î(SNw100))x1000& ÿ6:¢@2,11,"RAIDERS GET AWAY WITH:`";SN:ÿ4!0 CL~1.1wSN:CL~(Î(CLw100))x100": ¢@2,13,"Insurance Claim:`";CLD PO~CLuÕ(500):“ PO0 s PO~0$N ¢@2,15,"Insurance Pay Out:`";PO$X SS~SNuÕ(2000):“ SS100 s SS~100*b ¢@2,17,"Install Security System:`";SSl CASH(B)~CASH(B)uSNtPOuSS5v ÿ6:ÿ’1:¢@2,19," PRESS SPACE BAR TO CONTINUE" € C$~å$Š “ C$}" " s 8320” ¨