ZXTape!Bingo CdC Edm$(30) ' 1000 6:20,1;1;1;5;0;m$ @ 400 J""330J Ok$=:k$=""335O Q#k$"A"k$"Z"k$=(k$-32 ) T420,1;" " Y h120,1;1;6;0;m$  i=12 .05|L,502:2 i  =0,0;"":i=120:i,0;"":i ?21,0;"":i=130:21,i;"":i I21,31;"":i=201-1:i,31;"":i G0,31;"":i=301-1:0,i;"":i  $1,16:1,12 J.5,25:x=2317-.5:.1}L,x:2:x ! + 570: 0*n,p:n*.25~,p:n>05600 :X1,12 ,1,14,1,16,2,17,2.5 ,12 Y1,14,1,16,1,17,1.5@,21,.5,19 @x1,19,1,17,1,17,1,16,1,14,1,16,3,17 D0,0 S l+3,c-1;cnum l,c;"" x=15  l+x,c;""; fill=(*5) 2f$(fill);7;c(cnum,x);f$(4-fill); "" x  l+6,c;""  *,r$()=17+(1+(*6))+" " 49f$(s)=(r$()+r$()+r$()+r$()+r$())(s*3)  8000@  8000@ $0:7:0: .i$(32 ):note=25 8Gi$:i$(1)""i$:.1}L,note:note=note-1:10808 ,m$="Eyes down - press any key!":300, .m$="Sorting out the cards now...":350^   p$(26) cards=6:csize=5  c(cards,csize) *,i=126:p$(i)=(64@+i):i 4min=27:mincard=0 fi=1cards zj=1csize c(i,j)=65A+(*26) used=0 k=1j-1 c(i,k)=c(i,j)used=1 k used=12180 j ,goes=0:found=0:apos=27 &goes=goes+1:apos=apos-1 .j=1csize 8)p$(apos)=(c(i,j))found=found+1 Bj `foundl=3+(i-1)*7:c=4+(j-1)*9 l 700 j i 'm$="Press ENTER to answer":350^ apos=1 A18,3;1;6;p$(apos);p$(apos-1) .05|L,26-apos 0apos=apos+1:apos>26apos=1 =""3320 &"Number of first card matched? ";r$  r$=r$+" " answer=r$-480 answer=mincardok=1 answermincardok=0 Kok=0m$="Wrong - you've missed it!":350^:500:0 Nok=1m$="Bingo! You've won the prize!":350^:550&:0 *m$="Do you want another try?":300, k$"y"10000'  2000 J" LETTER BINGO"," " T"Here is a bingo game with a" ^#"difference. Instead of numbers," h""you have cards with letters on" r""them. Instead of a caller, you" |"just have to go through the" !"alphabet backwards. Match the" "letters on the cards as you" "find them."," " #"One of the cards will always be" "matched first. You have to" !"find out which out it is."," "  "House!" "" ]