dealdemo 9"9e3" hu .o:n=a1a2:n,z;i,,:n:i;a1+o,o;a$:z: d9:inv=z:o;si,," Day ";day;" Cash ` ";cash,,, isfo;o,,:n=oei:fo;o;n+,z;" ";n;" ";d$(n);" ";d(n,fo);" @ ` ";d(n,fi),,,:inv=inv+(d(n,fo)*d(n,fi)):n nAa1=si+se:a2=ei+se:i=:a$=" Total holdings ` "+(inv):tf sCa1=te+si:a2=te+ei:i=fi:a$="1-8 to trade, 0 to advance day":tf x<a1=tw-o:a2=tw+o:i=t:a$=" SPACE for more options":tf a$= a$=" "th a$="0"fi*hu a$<"1"a$>"8""150" trading a=a$ #a1=te+si:a2=tw+o:i=z:a$="":tf װa1=te+si:a2=tw+o:i=fi:a$="1 buy 1 2 buy 10 3 buy 100 0 sell 1 9 sell 10 8 sell 100 x to exit":tf cash=cash:inv=inv:o;si;o,o;"Day ";day;" ";"Cash ` ";cash;" ":o;t;a+,z;" ";a;" ";d$(a);" ";d(a,fo);" @ ` ";d(a,fi),:o;ٺ;te+fo,;"Total holdings ` ";inv;" ":o/hu,tf a$= a$="x"hu Wa$="1"cash>d(a,fi)d(a,fo)=(d(a,fo)+o):cash=cash-d(a,fi):inv=inv+d(a,fi):"220" Ta$="0"d(a,fo)>zd(a,fo)=(d(a,fo)-o):cash=cash+d(a,fi):inv=inv-d(a,fi):"220" aa$="2"cash>d(a,fi)*ted(a,fo)=(d(a,fo)+te):cash=cash-d(a,fi)*te:inv=inv+d(a,fi)*te:"220" \a$="9"d(a,fo)ted(a,fo)=(d(a,fo)-te):cash=cash+d(a,fi)*te:inv=inv-d(a,fi)*te:"220" aa$="3"cash>d(a,fi)*hud(a,fo)=(d(a,fo)+hu):cash=cash-d(a,fi)*hu:inv=inv+d(a,fi)*hu:"220" \a$="8"d(a,fo)hud(a,fo)=(d(a,fo)-hu):cash=cash+d(a,fi)*hu:inv=inv-d(a,fi)*hu:"220" "235" #advance day / generate new prices  :day=day+o day>tf+fi"5e3" :a1=z:a2=t:i=si:a$=" It's the start of day "+day:tf 3n=oei:d(n,fi)=(((".2"+)*(d(n,o)+d(n,t)))):n b1=z:b2=z:b3=z:b4=z &4b1=o+(*ei):>".8"b2=o+(*ei):b2=b1"550" +%b3=o+(*ei):>".8"b4=o+(*ei) ,b3=b1"555" -b3=b2"555" .b4=b1"555" /b4=b2"555" 0b3=b4"555" 5mul=t+(*fo):reas=(*):d(b1,fi)=(d(b1,fi)*mul):a$="News: "+d$(b1)+" ":"9600"+reas:b$:a$=a$+b$:a1=:a2=se:i=fi:tf :b2zmul=o+(*t):reas=(*):d(b2,fi)=(d(b2,fi)*mul):a$="News: "+d$(b2)+" ":"9605"+reas:b$:a$=a$+b$+" ":a1=se:a2=te+o:i=fi:tf ?mul=t+(*fo):reas=(*):d(b3,fi)=(d(b3,fi)/mul):a$="News: "+d$(b3)+" ":"9610"+reas:b$:a$=a$+b$:a1=si+si:a2=se+ni:i=:tf Db4zmul=t+(*t):reas=(*):d(b4,fi)=(d(b4,fi)/mul):a$="News: "+d$(b4)+" ":"9610"+reas:b$:a$=a$+b$:a1=te+si:a2=tw:i=:tf Sz:hu hu more options  2a1=z:a2=t:i=t:a$=" Further options":tf 2a1=fo:a2=si:i=fo:a$="1 high score table":tf /a1=ei:a2=te:i=:a$="2 go to endgame":tf 3:a1=tw-o:a2=tw+o:i=si:a$="0 return to drugs menu":tf La$= Va$<"0"a$>"2""1100" ` a$="0"hu ja$="1""1990" ta$="2""5e3" 7:a1=z:a2=t:i=fo:a$=" High scores today":tf 5n=ote:n+,o;n;n+,fi;h$(n);n+,tw+t;h(n):n z:th  endgame  0a1=z:a2=t:i=fi:a$=" Time's up!":tf 8a1=:a2=fi:i=si:a$=" Final score: ` "+cash:tf ;n=ote:fo;n+si,o;n;" ";(" "n