home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: The Best Of RUN 1-12 / thebest.zip / DOMINO.BAS < prev    next >
BASIC Source File  |  1994-10-01  |  3KB  |  42 lines
  1. 100 REM DOMINO DOOR PAUL VAN MUIJEN GWBASIC EGA
  2. 110 KEY OFF: SCREEN 9: CLS : D$ = "C1R10D72L10U72BF3P4,1"
  3. 120 W$ = "C1R10D108L10U108BF3P2,1": K$ = "C0U2D4U2R2L4"
  4. 130 PSET (300, 72): DRAW D$: DIM ST(500): GET (300, 72)-(310, 144), ST
  5. 140 PSET (470, 50): DRAW "TA-45" + D$: DIM S(1800): GET (400, 50)-(476, 105), S
  6. 150 PSET (74, 55): DRAW "TA45" + D$: DIM SL(1800): GET (74, 50)-(150, 105), SL
  7. 160 PSET (198, 126): DRAW "TA-81" + D$: DIM L(500): GET (100, 125)-(200, 145), L
  8. 170 PSET (420, 278): DRAW "TA81" + D$: DIM LL(500): GET (420, 270)-(520, 292), LL
  9. 180 PSET (300, 216): DRAW "TA0" + W$: PSET (305, 270): DRAW K$
  10. 190 PSET (139, 220): DRAW "TA-45" + W$: PSET (90, 260): DRAW K$
  11. 200 PSET (455, 175): DRAW "TA45" + W$: PSET (510, 210): DRAW K$
  12. 210 DIM W(400): GET (300, 216)-(310, 324), W
  13. 220 DIM W1(3000): GET (30, 220)-(145, 305), W1
  14. 230 DIM W2(3000): GET (455, 170)-(570, 255), W2: LOCATE 13, 36: PRINT "DOMINO"
  15. 240 LOCATE 25, 25: PRINT "Druk een toets om door te gaan";
  16. 250 I$ = INKEY$: IF I$ = "" THEN 250 ELSE CLS
  17. 260 LINE (0, 94)-(530, 94): LINE (80, 179)-(800, 179)
  18. 270 LINE (0, 264)-(530, 264): LINE (0, 349)-(640, 349)
  19. 280 PUT (535, 210), W, PSET: PUT (66, 125), W, PSET: PUT (535, 40), W, PSET
  20. 290 FOR X = 10 TO 490 STEP 80: PUT (X, 20), ST, XOR: PUT (X, 275), ST, XOR: NEXT
  21. 300 FOR X = 90 TO 490 STEP 80: PUT (X, 105), ST, XOR: PUT (X, 190), ST, XOR: NEXT
  22. 310 WHILE Z$ = "": FOR I = 1 TO 2000: NEXT: GOSUB 350: M = 1
  23. 320 FOR J = 22 TO 276 STEP 2: PUT (10, J - 2), ST, XOR: PUT (10, J), ST, XOR: NEXT
  24. 330 Z$ = INKEY$: PUT (10, 276), ST, XOR: GOSUB 350: M = 0: PUT (10, 20), ST, XOR
  25. 340 WEND: SCREEN 0: COLOR 7, 0, 0: CLS : END
  26. 350 FOR Q = 10 TO 490 STEP 80: A = 275: B = 292: C = 328: GOSUB 420: NEXT
  27. 360 PUT (535, 210), W, XOR: PUT (488, 224), W2, XOR
  28. 370 FOR Q = 490 TO 80 STEP -80: A = 190: B = 207: C = 243: GOSUB 440: NEXT
  29. 380 PUT (66, 125), W, XOR: PUT (8, 139), W1, XOR
  30. 390 FOR Q = 90 TO 490 STEP 80: A = 105: B = 122: C = 158: GOSUB 420: NEXT
  31. 400 PUT (535, 40), W, XOR: PUT (488, 54), W2, XOR
  32. 410 FOR Q = 490 TO 80 STEP -80: A = 20: B = 37: C = 73: GOSUB 440: NEXT: RETURN
  33. 420 IF M = 1 THEN 460 ELSE PUT (Q, A), ST, XOR: GOSUB 490: PUT (Q + 2, B), S, XOR: GOSUB 490
  34. 430 PUT (Q + 2, B), S, XOR: GOSUB 490: PUT (Q, C), L, XOR: GOSUB 490: RETURN
  35. 440 IF M = 1 THEN 470 ELSE PUT (Q, A), ST, XOR: GOSUB 490: PUT (Q - 70, B), SL, XOR: GOSUB 490
  36. 450 PUT (Q - 70, B), SL, XOR: GOSUB 490: PUT (Q - 90, C), LL, XOR: GOSUB 490: RETURN
  37. 460 PUT (Q, C), L, XOR: PUT (Q + 2, B), S, XOR: PUT (Q + 2, B), S, XOR: PUT (Q, A), ST, XOR: RETURN
  38. 470 PUT (Q - 90, C), LL, XOR: PUT (Q - 70, B), SL, XOR
  39. 480 PUT (Q - 70, B), SL, XOR: PUT (Q, A), ST, XOR: RETURN
  40. 490 FOR G = 1 TO 35: NEXT: S = S + 1: IF S = 4 THEN RETURN ELSE RETURN
  41.  
  42.