Skip to main content

Posts

Showing posts from April 21, 2014

....

ุชูˆู†ุณ ุงู„ูŠูˆู…

ุนุงุฌู„

EN CONTINU

ูŠู‡ู…ูƒู…

ุนู„ูˆู… ูˆ ุชูƒู†ูˆู„ูˆุฌูŠุง

ุฃุฎุจุงุฑ ูƒุฑุฉ ุงู„ู‚ุฏู…

THIS IS THE GAME OF CHECKERS === jeu de dames en gw basic

1 'CHECKERS 2 KEY OFF:SCREEN 0,1,0:WIDTH 40:COLOR 15,1,9:CLS:DEFINT A-Z 4 GOSUB 4600 5 PRINT"ร‰"STRING$(37,"ร")"» 10 PRINT"ยบ"SPACE$(14)"CHECKERS"SPACE$(15)"ยบ 15 PRINT"รˆ"STRING$(37,"ร")"¼ 20 PRINT:PRINT"THIS IS THE GAME OF CHECKERS.":PRINT 21 PRINT"THE COMPUTER IS GREEN, AND YOU ARE RED. 25 PRINT:PRINT"TO MOVE, MOVE THE CURSOR ON THE ®FROM¯ 30 PRINT"SQUARE WITH THE NUMERIC KEY PAD.  PRESS 35 PRINT"<ENTER> TO ACCEPT YOUR MOVE.  THEN MOVE 40 PRINT"TO THE ®TO¯ SQUARE.  THE COORDINATES OF 45 PRINT"YOUR MOVE WILL BE SHOWN ON THE LEFT. 50 PRINT:PRINT"WHEN JUMPING, THE COMPUTER WILL SHOW 55 PRINT"®& TO¯ SO YOU CAN CONTINUE JUMPING.  TO 60 PRINT"QUIT A SERIES OF JUMPS, PRESS THE <+> 65 PRINT"KEY.  TO START A MOVE OVER, PRESS "CHR$(17)"-" 67 PRINT"(BACKSPACE).  TO QUIT, PRESS <ESC>. 70 GOSUB 4650 80 DIM R(4),S(7,7),CP(