Cashflow  S€ ø ÿYêCashflow by Karen Cruickshank from Sinclair User #14 (May'83)  ñhs=0 'ñb=10 :ñca=1000è:ñp=10 &Ú0:Ù6:ç0:Ü1:û ,ëw=1Ì5:úw=1Ëõ"MONDAY" úw=2Ëõ"TUESDAY" úw=3Ëõ"WEDNESDAY" úw=4Ëõ"THURSDAY" úw=5Ëõ"FRIDAY" õÛ1;"A NEW WORKING DAY" ô23658j\,8 %ëq=1Ì12 :×0.05|LÌÌÌ,q:óq xëd=1Ì8 zñrn=º(¥*10 ) { í2000Ð }õ''"WORKING SEGMENT ";d úp<0Ëñp=0 ‡ñq=º(¥*5) ˆ õÚ6;Ù0;''"REPORT:"' ‰!úcaÈ0Ëõ"CASH AT HAND `";ca ‹úca<0Ëõ"OVERDRAWN `";ca Œõb;" BONDS AT `";p;" EACH" ‘õ"OVERALL ASSETS `";(p*b)+ca –õ"MARKET FORECAST ";  /úq=0Ëõ"STEADY":ñp=p+º(¥*3)-2 ª5úq=1Ëõ"CHANGEABLE":ñp=p+º(¥*23)-10 ´6úq=2Ëõ"PLUMMETTING":ñp=p+º(¥*502)-40( ¾1úq=3Ëõ"RISING":ñp=p+º(¥*502)-15 Ã6úq=4Ëõ"UNCERTAIN!!":ñp=p+º(¥*60<)-30 Èî"SELL OR BUY? ";a$ Ò×0.05|LÌÌÌ,502 Üúa$="SELL"Ëì500ô æúa$É"BUY"Ëì200È ðñns=º(¥*100d)+25 ò&õ''"THERE ARE ";ns;" BONDS AVAILABLE" óúpÇ0Ëñp=1 õ!õ"HOW MANY BONDS AT `";p;" EACH" úîx ÿ×0.08}#× =,502 Húx>nsËõ'"I SAID ";ns;" BONDS NOT ";x;" BONDS":ñns=ns-1:ì242ò PúcabuËõ''"I SAID ";bu;" BUYERS":ñbu=bu-1:ì525  &/ús>bËõ"YOU HAVEN'T THAT MANY BONDS":ì530 +ús<0Ëì525  0 ñca=p*s+ca Sñb=b-s Xõ'':ód ¼ëq=-30Ì30 Á×0.005y#× =,q Âóq Æ%úwÉ5Ëõ''''"THE END OF THE DAY" Ë*úw=5Ëõ''''"THE END OF THE WEEK" Ð õ"CASH ";ca Úõb;" BONDS AT `";p ä õ"TOTAL ASSETS `";:ño=p*b+ca:õo æúw=5Ëì749í éú¦=""Ëì745é ëû:ów î#úo<0Ëõ" YOU'RE FIRED !!!!!!" ø<úo>0Æo<9000(#Ëõ"YOU DO NOT USE ENOUGH INITIATIVE" ý;úo>9000(#Æo<25000¨aËõ"PROMOTION TO HEAD CASHIER!!" >úo>25000¨aÆo<45000ȯËõ"PROMOTION TO CHIEF SUPERVISOR"  úo>hsËñhs=o  0úo>45000ȯËõ"THE MANAGER'S SEAT AWAITS YOU" õ'"HIGH SCORE `";hs õ'''" PRESS ANY KEY"  ú¦=""Ëì800  * û:ì3 Únúrn=1Ëõ''"SUDDEN DEVALUATION HAS MEANT":õ"THAT TWO BONDS ARE BEING MERGED":õ"INTO ONE; IE. CUT IN HALF" äúrn=1Ëñb=º(b/2) éñc=º(¥*3) î\úrn=2Ëõ''"BOSS IS COMING AROUND CHECKING.":ò100d:úc=0Ëõ"HAD YOU WORRIED!!" ø\úrn=2Æc=1Ëõ"HE CUTS OFF YOUR CASH SUPPLY BY":õ"HALF. (HA,HA,HA)":ñca=ca/2 Cúrn=2Æc=2Ëõ"GIVES YOU EXTRA 100 BONDS.":ñb=b+100d 4þ ­