whippets > kWHIPPETS was written Caroline and John Mitchell SU Jan-84-80 < F 1300 n x 1500 57,0;"here are the odds on each runner" :9 ,0;1;"runner odds punter bet " o=16 F(7-o);10 +o,3;o;10 +o,7;p(o);":";q(o) o "m$(6,10 ):b(6) i=16 e18,0;"do you wish to bet on ";1;(7-i);"runner ";i;0;0;" ?" 2.25~,0:1;"enter y or n : ";a$ a$="n"300, a$"y"240 E"enter your name : ";m$(i):(7-i);10 +i,15;m$(i) T"place your bet (up to '1000 ):'";b(i):(7-i);10 +i,27;"'";b(i) " 3106 ,Zm$(i)="no punter":(7-i);10 +i,15;m$(i);10 +i,25;"no bet" 6i @G18,0;"now you can go to the race track":1,0 J020,0;"by pressing any letter key" T=""330J `:1;"Punter";0,9 ;"runner";0,17;"odds";0,23;"bet" j=16 Z7-j;j,0;m$(j);j,12 ;j;j,17;p(j);":";q(j);j,23;"`";b(j) j i=16 <8+2*(6-i),0;1;i;7-i L2000:1;9 +2*(i-1),0;7-i;" " i &0,31;"|";1,31;"W";2,31;"I";3,31;"N";4,31;"N";5,31;"E";6,31;"R";7,31;"|" b[1;12 ,6;"Press any letter key";15,6;" to start this race" l=""600X vU12 ,6;" ";15,6;" "  r(6) k=(*6+1) C2000:9 +2*(k-1),r(k);(7-k);" " r(k)=r(k)+1 C2500 :(7-k);9 +2*(k-1),r(k);" " r(k)<28650 N2000:9 +2*(k-1),30;1;(7-k);"" V8+2*(k-1),31;"|";10 +2*(k-1),31;"|" 502:1,0 }8+2*(k-1),4;"to collect your winnings";9 +2*(k-1),6;"Press any letter key" =""740  winnings routine * 4D2,0;(7-k);"whippet number ";k;" won this race" >#25:b(k)=0900 H;5,0;"you chose this one ";(7-k);m$(k) Rv7,0;"your bet was ";(7-k);"`";b(k);0;" at ";(7-k);p(k);":";q(k);0;" to win" \d9 ,0;"so you collect ";(7-k);"`";(100d*b(k)*p(k)/q(k)+.5)/100d fI12 ,0;" sorry every one else !"''"you all lose your bets )" p 950 18,0;"no punter bet on this runner" @25:10 ,0;"sorry ! you all lose your bets !" .502:1,0:finishing routine _18,0;1;"press letter key R to race again"''"press letter key F to finish" ="r"10 "f"960  l=07 ((7-l):l 2)1,6;" " <)2,6;" SIX WHIPPETS RUN " F)3,6;" " P)4,6;" WHICH WILL WIN ? " Z)5,6;" " d 25 nl x p(6):q(6) o=16 p(o)=(*9 +1) q(o)=(*9 +1) o  >"i"+0,11000000 H"i"+1,001100000 R"i"+2,00001111 \"i"+3,00000111 f"i"+4,00111011; p"i"+5,01000000@ z"i"+6,10000000 "i"+7,00000000 "h"+0,00001100 "h"+1,00011110 "h"+2,11110000 "h"+3,11100000 "h"+4,11011100 "h"+5,00000010 "h"+6,00000001 "h"+7,00000000  2"r"+0,00100000 <"r"+1,00100000 F"r"+2,00111111? P"r"+3,00000111 Z"r"+4,00001011 d"r"+5,00001000 n"r"+6,00001000 x"r"+7,00000110 "f"+0,00001100 "f"+1,00011110 "f"+2,11110000 "f"+3,11100000 "f"+4,11010000 "f"+5,00010000 "f"+6,00010000 "f"+7,01100000`  An!k! ! A !