Cash-Flow ' ''XCash-Flow by Hugh Davis from ZX Computing Feb/Mar.1986 '3000 :5:6:1  ow=0 a$="":b$="" 2500  #qn=021:i$(26):6;n,3;i$:j$(2):5;n,0;j$;n,30;j$:n (n=019232 -32 +n,77M,2:.05|L,10 :32 +n,109m,2:.05|L,20:32 +n,141,2:.05|L,30 2n 7n=016032 n>12 2;n,3;" " Zn _93;24,159:3;207,0 dw=0:l=0 n 100d x 1000 x,y;" ";x+1,y;" " &="a"l>40(nw=w-l:2000 k=2*(*((*2))) x=x+2 4m=2y<23Ʀ="p"y=y+2:160 3m=3y>7Ʀ="q"y=y-2:160 (k>0y=27y=y-k:160 k>0y<26y=y+k 'k<0y=3y=y-k:160 k<0y>4y=y+k "1;x,y;a$;x+1,y;b$ .05|L,20 n=1100d:n m=m+1 m=6500 130 (y=5g=a:a=a+1:530 (y=9 g=b:b=b+1:530 )y=13 g=c:c=c+1:530 "y=17g=0:530 )y=21g=e:e=e+1:530  y=25g=f:f=f+1 g=4600X n=03-g:1;12 +2*n,y;" ";13 +2*n,y;" ";14+2*n,y;a$;15+2*n,y;b$ & 20 0n 5Ny=1720,17;" ";21,17;" ":1,0 8cr02000 :12;1;1,20;" Press L " ?<="l"2;1;1,27;"M":1100L @*t=t():t>t1+2401990 B&="a"l>40(nw=w-l:2000 D 575? X1,40( \n=04 ^&w=w+10 :nw=w-l:cr=nw+60< `T12 +2*n,y;" ";13 +2*n,y;" ":.1}L,30:20 b0,15;" " d(1;1;0,15;cr gn jcr02000 ly=5a=0 my=9 b=0 ny=13 c=0 py=21e=0 qy=25f=0 v12;1;1,20;" Press L " {<="l"2;1;1,27;"M":1100L ~="a"l>40(2000  635{ a=(*3):n=1a:a01;23-2*n,5;b$;22-2*n,5;a$:.05|L,0:n b=(*3):n=1b:b01;23-2*n,9 ;b$;22-2*n,9 ;a$:.05|L,10 :n c=(*5):n=1c:c01;23-2*n,13 ;b$;22-2*n,13 ;a$:.05|L,20:n e=(*5):n=1e:e01;23-2*n,21;b$;22-2*n,21;a$:.05|L,30:n f=(*3):n=1f:f01;23-2*n,25;b$;22-2*n,25;a$:.05|L,40(:n $12;1;1,20;" Press L " )<="l"2;1;1,27;"M":1100L ,="a"l>40(2000 . 1065) L&l=l+10 :nw=w-l:cr=nw+60< M0,15;" " N(1;1;0,15;cr P;1;0,3;a$;1,3;b$:6 Qn=327 V!0,n;" ";1,n;" " [#n=27cr02000 `n=271060$ j61;0,n+1;a$;1,n+1;b$ t 6 ~c="m"ƺ(n/2)ɺ((n-1)/2)y=n+1:1,20;" ":1200 n x=0:m=0 x,y;" ";x+1,y;" " 0,15;" " (1;1;0,15;cr x=x+2:m=m+1 "1;x,y;a$;x+1,y;b$ +.05|L,20:n=1502:n ;((y+1)/4)=((y+3)/4)1300 m=21300  1210 x,y;" ";x+1,y;" " 93;24,159:3;207,0 ( 135 80,15;" ";1,20;" " 71;1;1,8;" ARCADE CLOSING " n=0400:n 80,15;" ";1,20;" "  ow=ow+nw ӝow0ƺ((ow-10 )/100d)=(ow/100d)7;1;1;1,4;" WINNINGS SO FAR `";1,22;ow/100d;"0 " ԝow0ƺ((ow-10 )/100d)ɺ(ow/100d)7;1;1;1,4;" WINNINGS SO FAR `";1,22;ow/100d;".0" ֛ow<0ƺ((ow-10 )/100d)=(ow/100d)7;1;1;1,7;" LOSS SO FAR `";1,21;-ow/100d;"0 " כow<0ƺ((ow-10 )/100d)ɺ(ow/100d)7;1;1;1,7;" LOSS SO FAR `";1,21;-ow/100d;".0 " n=08 i$(26) *2;1;13 +n,3;i$ n g7;2;14,4;"You have just spent ";1;1;14,24;l;"p" `7;2;16,7;"and have won ";1;1;16,20;w;"p"  nw07;2;18,5;"Your net gain is ";7;0;1;1;18,22;nw;"p" nw<07;2;18,5;"Your net loss is ";7;0;1;1;18,22;-nw;"p"  Q7;1;1;1;20,4;" Press P to play again " "Ct>t1+240Ʀ="p"t1=t():ow=0:21004 %="p"21004 * 2040 4/1,3;" " 9n=08 >i$(26) H!6;13 +n,3;i$ Rn \ 75K $i$(704):0,0;i$ O26,144:0,-32 ,11 */10 :.05|L,10 30 ܝ32 ,112p:12 ,32 :.05|L,10 :12 ,-32 :.05|L,10 :35#,120x:18,0:.05|L,10 ޘ80P,136:-8,-8,3*/2:.05|L,10 :64@,120x:8,8,3*/2:.05|L,10 30 88X,112p:0,32 :.05|L,10 :104h,112p:0,32 :.05|L,10 :88X,128:16,0:.05|L,10 30 :116t,128:8,0:.05|L,10 30 136,112p:0,32 :.05|L,10 :16,0:.05|L,10 :136,128:10 ,0:.05|L,10 30 b176,112p:-16,0:.05|L,10 :0,32 :.05|L,10 30 194,144:0,-32 ,5*/6:.05|L,10 :0,32 ,5*/6:.05|L,10 30 214,144:8,-32 :.05|L,10 :8,16:.05|L,10 :8,-16:.05|L,10 :8,32 :.05|L,10 n=13 21 22;n,3;" " )4;n,2;"";n,29;"" n q=5 n=03:1;12 +2*n,q;" ";13 +2*n,q;" ";14+2*n,q;a$;15+2*n,q;b$:.05|L,q:n n=02:1;12 +2*n,q;" ";13 +2*n,q;" ";14+2*n,q;a$;15+2*n,q;b$:.05|L,q:n n=01:1;12 +2*n,q;" ";13 +2*n,q;" ";14+2*n,q;a$;15+2*n,q;b$:.05|L,q:n 51;14,q;a$;15,q;b$:.05|L,q %q=q+4:q<292560 Yq=291;1;1;10 ,2;" PRESS FOR INSTRUCTIONS " ="i"2600(  2570 ( 2*1;1,10 ;" CASH-FLOW " 7L3,2;"Get five coins in one column to start the flow." n=0400:n A26;2;10 ,1;" CONTROLS " FI10 ,13 ;"L inserts coin";11 ,13 ;"M lets it fall" KO13 ,3;"P and Q nudge the coin to right or left (once only)" Pl17,2;" enables you to abandon a game with your winnings after spending 50p" Rn=0400:n T-i$(160):6;3,0;i$ VC1;1;5,2;" ARCADE CLOSES IN 4 MINUTES " Xn=0400:n Zh5,2;" ";3;1;5,7;" PRESS Z TO PLAY " d ="z" n 2660d :n=0 'u=23675{\+256*23676|\ j:j=.5 u+n,j:n=n+1:3020 67,31,63?,112p,119w,228,239,231,224,248,252,14,230,247,247,247,231,224,231,97a,112p,63?,31,7,247,247,231,198,14,252,248,224 127,127,127,127,127,127,127,127,254,254,254,254,254,254,254,254,.5 #<"cash-flow"1