home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 11 / run11.zip / QBOFGW.BAS < prev    next >
BASIC Source File  |  1994-01-04  |  2KB  |  64 lines
  1. 10 SCREEN 0:KEY OFF:WIDTH 40:COLOR 15,1:CLS
  2. 20 LOCATE 1,7:PRINT "┌─────────────────┐"
  3. 30 LOCATE 2,7:PRINT "│ Bord van Galton │"
  4. 40 LOCATE 3,7:PRINT "└─────────────────┘"
  5. 50 DIM E(12):RANDOMIZE TIMER:VERTRAGING = 1000
  6. 60 FOR F=1 TO 12:E(F) = 0:NEXT F:G=4
  7. 70 LOCATE 5,G:PRINT "┌─────────\   /─────────┐"
  8. 80 PRINT TAB(G)"│           ^           │"
  9. 90 PRINT TAB(G)"│          ^ ^          │"
  10. 100 PRINT TAB(G)"│         ^ ^ ^         │"
  11. 110 PRINT TAB(G)"│        ^ ^ ^ ^        │"
  12. 120 PRINT TAB(G)"│       ^ ^ ^ ^ ^       │"
  13. 130 PRINT TAB(G)"│      ^ ^ ^ ^ ^ ^      │"
  14. 140 PRINT TAB(G)"│     ^ ^ ^ ^ ^ ^ ^     │"
  15. 150 PRINT TAB(G)"│    ^ ^ ^ ^ ^ ^ ^ ^    │"
  16. 160 PRINT TAB(G)"│   ^ ^ ^ ^ ^ ^ ^ ^ ^   │"
  17. 170 PRINT TAB(G)"│  ^ ^ ^ ^ ^ ^ ^ ^ ^ ^  │"
  18. 180 PRINT TAB(G)"│ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ │"
  19. 190 PRINT TAB(G)"│                       │"
  20. 200 PRINT TAB(G)"│ │ │ │ │ │ │ │ │ │ │ │ │"
  21. 210 PRINT TAB(G)"╘═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╛  ═════════"
  22. 220 PRINT TAB(G+1)"A B C D E F G H I J K L"
  23. 230 C$="ABCDEFGHIJKL"
  24. 240 FOR Y=1 TO 12
  25. 250 K$=MID$(C$,Y,1)
  26. 260 LOCATE Y+6,31:PRINT K$+"=:"
  27. 270 NEXT Y
  28. 280 LOCATE 22,3:PRINT SPACE$(36)
  29. 290 LOCATE 22,4:INPUT "Hoveel knikkers (10..250) ";X
  30. 300 IF X < 10 OR X > 250 THEN 280
  31. 310 FOR D=1 TO X:C=0:A=16
  32. 320 A$="O":B$=" "
  33. 330 FOR B=6  TO 16
  34. 340 C=INT(2*RND(1)+1)
  35. 350 IF C=1 THEN A=A-1
  36. 360 IF C=2 THEN A=A+1
  37. 370 LOCATE B,A:PRINT A$
  38. 380 FOR W=1 TO VERTRAGING:NEXT W
  39. 390 LOCATE B,A:PRINT B$
  40. 400 NEXT B
  41. 410 LOCATE 18,A:PRINT A$
  42. 420 IF B=17 AND A=5 THEN E(1)=E(1)+1
  43. 430 IF B=17 AND A=7 THEN E(2)=E(2)+1
  44. 440 IF B=17 AND A=9 THEN E(3)=E(3)+1
  45. 450 IF B=17 AND A=11 THEN E(4)=E(4)+1
  46. 460 IF B=17 AND A=13 THEN E(5)=E(5)+1
  47. 470 IF B=17 AND A=15 THEN E(6)=E(6)+1
  48. 480 IF B=17 AND A=17 THEN E(7)=E(7)+1
  49. 490 IF B=17 AND A=19 THEN E(8)=E(8)+1
  50. 500 IF B=17 AND A=21 THEN E(9)=E(9)+1
  51. 510 IF B=17 AND A=23 THEN E(10)=E(10)+1
  52. 520 IF B=17 AND A=25 THEN E(11)=E(11)+1
  53. 530 IF B=17 AND A=27 THEN E(12)=E(12)+1
  54. 540 FOR F=1 TO 12
  55. 550 D$=MID$(C$,F,1)
  56. 560 LOCATE F+6,34:PRINT USING "### x";E(F)
  57. 570 LOCATE 20,30:PRINT USING "Tot:### x";D
  58. 580 NEXT F
  59. 590 NEXT D
  60. 600 LOCATE 22,3:PRINT SPACE$(36)
  61. 610 LOCATE 22,4:PRINT "Herhalen (J/N)"
  62. 620 I$=INKEY$:IF I$=""THEN 610
  63. 630 IF I$="J" OR I$="j" THEN RUN:ELSE SCREEN 2:SCREEN 0:CLS:END
  64.