home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 12 / run12.zip / 1OP18.BAS next >
BASIC Source File  |  1994-04-23  |  2KB  |  31 lines
  1. 100 REM KANSREKENING MET TWEE DOBBELSTENEN GW/QBASIC (C) RUN FLAGAZINE
  2. 110 CLS:KEY OFF:RANDOMIZE TIMER:DEF FN DOB=INT(RND*6)+1:COLOR 10,0
  3. 120 H=1:LOCATE 5,1:PRINT STRING$(80,196):LOCATE 24,1:PRINT STRING$(80,194);
  4. 130 R=1:COLOR 15,0:LOCATE 1,40:INPUT "Aantal ogen voor dobbelsteen 1";K
  5. 140 IF K<1 OR K>6 THEN BEEP:GOTO 130
  6. 150 LOCATE 2,40:INPUT "Aantal ogen voor dobbelsteen 2";L
  7. 160 IF L<1 OR L>6 OR L=K THEN BEEP:GOTO 150
  8. 170 LOCATE 1,2:PRINT "Worp   :":LOCATE 2,2:PRINT "Ronde  :":LOCATE 3,2
  9. 180 PRINT "SCORE  :":LOCATE 4,2:PRINT "Bewijs :":LOCATE 4,40
  10. 190 PRINT "Gem. Groen: ";CHR$(24);" Wit: ";CHR$(247);" Rood: ";CHR$(25)"
  11. 200 COLOR 10,0:FOR A%=9 TO 80 STEP 8:FOR B%=6 TO 23:LOCATE B%,A%:PRINT CHR$(179)
  12. 210 NEXT B%:NEXT A%:COLOR 15,0:LOCATE 2,10:PRINT R
  13. 220 FOR A%=1 TO 80 STEP 8:FOR B%=1 TO 18:FOR C%=1 TO 75:Y=FN DOB
  14. 230 LOCATE B%+5,A%+1:PRINT Y;"-";:Z=FN DOB:PRINT Z;:NEXT C%:W=W+1
  15. 240 LOCATE 1,10:PRINT W:GOSUB 310
  16. 250 IF SC THEN GM=1/(W/SC):LOCATE 4,11:PRINT USING "#.########";GM
  17. 260 IF Y=K AND Z=L THEN COLOR 28,0:GOSUB 290:GOSUB 300
  18. 270 IF Y=L AND Z=K THEN COLOR 28,0:GOSUB 290:GOSUB 300
  19. 280 NEXT B%:R=R+1:LOCATE 2,10:PRINT R:NEXT A%:GOSUB 350:COLOR 10,0:GOTO 200
  20. 290 LOCATE B%+5,A%+1:PRINT Y;:LOCATE B%+5,A%+5:PRINT Z;:COLOR 15,0:RETURN
  21. 300 SC=SC+1:LOCATE 3,10:PRINT SC
  22. 310 IF SC=R THEN H=H+1:COLOR 15,0:LOCATE 25,H:PRINT CHR$(219);:COLOR 15,0
  23. 320 IF GM<.055555 THEN H=H+1:COLOR 12,0:LOCATE 25,H:PRINT CHR$(219);:COLOR 15,0
  24. 330 IF GM>.055555 THEN H=H+1:COLOR 10,0:LOCATE 25,H:PRINT CHR$(219);:COLOR 15,0
  25. 340 IF H>78 THEN H=1:LOCATE 25,1:PRINT SPACE$(80);:RETURN ELSE RETURN
  26. 350 FOR I=6 TO 23:LOCATE I,2:PRINT SPACE$(78);:NEXT I:RETURN
  27. 360 REM /* 25/.3909,4278,4858,1785,3976,2162,3958,3434,4026,4192
  28. 370 REM /*/....2762,3195,3692,1762,3439,2876,2876,4243,4196,1748
  29. 380 REM /*/....4031,4302,4302,3981,3442
  30. 390 REM Checksum...............:  87425
  31.