Compucolor.org – Virtual Media

Listing of file='BCKINS.BAS;01' on disk='vmedia/backgammon-sideA-sector.ccvf'

10 PLOT 6,32,12,27,24
90 PLOT 3,127,6,5,0:PRINT "                                                   "
100 PLOT 3,127,6,6,7:PRINT " neeu teeu teeu a  ~ teeu teeu p  q p  q teeu a  b "
110 PLOT 3,127,6,7,7:PRINT " a  b a  b a    a ~  a    a  b a|~b a|~b a  b p  b "
120 PLOT 3,127,6,8,7:PRINT " lw lm a    a~   a    lm a  b a  b a  b a| b "
130 PLOT 3,127,6,9,7:PRINT " a  u a  b a    r|   a  u a  b a  b a  b a  b a |b "
140 PLOT 3,127,6,10,7:PRINT " a  b a  b a    a |  a  b a  b a  b a  b a  b a  s "
150 PLOT 3,127,6,11,7:PRINT " lw a  b vw a  | vw a  b a  b a  b vw a  b "
160 PLOT 3,127,6,12,0:PRINT "                                                   "
170 FOR I= 21TO 23
180 PLOT 3,127,14,I,0:PRINT "                                  "
190 NEXT I
200 PLOT 3,127,15,22,1:INPUT "DO YOU WISH INSTRUCTIONS? Y/N  ";A$
210 IF A$= "N"GOTO 1000
220 PLOT 6,0,12
240 GOSUB 2000
250 PLOT 3,127,0,4,7:PRINT "1.  BACKGAMMON IS PLAYED ON A GAME BOARD, A SMALL VERSION OF"
260 PLOT 3,127,0,5,7:PRINT "    WHICH IS SHOWN IN THE LOWER LEFT OF THE SCREEN."
270 PLOT 3,127,0,7,7:PRINT "2.  YOU HAVE 15 RED PIECES, AND THE COMPUTER HAS 15 WHITE."
280 PLOT 3,127,0,9,7:PRINT "3.  YOUR HOME BOARD IS IN THE LOWER RIGHT PORTION OF THE GAME"
290 PLOT 3,127,0,10,7:PRINT "    BOARD, THE COMPUTER'S HOME BOARD IS IN THE UPPER RIGHT."
300 PLOT 3,127,0,12,7:PRINT "4.  YOUR PIECES MOVE FROM RIGHT TO LEFT ON THE UPPER BOARD, AND"
310 PLOT 3,127,0,13,7:PRINT "    FROM LEFT TO RIGHT ON THE LOWER BOArd.  THE COMPUTER MOVES"
320 PLOT 3,127,0,14,7:PRINT "    IN THE OPPOSITE DIRECTION."
330 PLOT 3,127,0,16,7:PRINT "5.  THE OBJECT OF THE GAME IS TO MOVE YOUR PIECES TO THE HOME"
340 PLOT 3,127,0,17,7:PRINT "    BOARD, AND THEN OFF THE BOARD.  DICE ARE USED TO DECIDE"
350 PLOT 3,127,0,18,7:PRINT "    THE NUMBER OR COMBINATION OF NUMBERS THAT YOU MAY MOVE."
360 PLOT 3,127,16,20,7:PRINT "6.  THE FIRST ROLL OF THE GAME DETERMINES IF"
370 PLOT 3,127,16,21,7:PRINT "    YOU OR THE COMPUTER HAVE THE FIRST MOVE."
380 PLOT 3,127,16,23,7:PRINT "7.  IF THE DIE ON THE LEFT IS THE LARGER NUMBER,"
390 PLOT 3,127,16,24,7:PRINT "    THEN THE COMPUTER WINS THE FIRST MOVE."
400 PLOT 3,127,16,26,7:PRINT "8.  IF BOTH DICE COME UP THE SAME VALUE ON THE"
410 PLOT 3,127,16,27,7:PRINT "    FIRST ROLL, THEY MUST BE ROLLED AGAIN TO"
420 PLOT 3,127,16,28,7:PRINT "    DECIDE WHO GOES FIRST."
430 PLOT 3,127,16,30,1:INPUT "    HIT RETURN TO CONTINUE";A$
440 PLOT 6,0,12
450 GOSUB 2000
460 PLOT 3,127,0,4,7:PRINT "9.   IF THE COMPUTER WINS IT WILL THEN ANALIZE THE BEST MOVES"
470 PLOT 3,127,0,5,7:PRINT "     WHICH ARE POSSIBLE WITH THE VALUES SHOWN ON THE DICE."
480 PLOT 3,127,0,7,7:PRINT "10.  THE COMPUTER TAKES ABOUT TWO MINUTES TO ANALIZE THE MOVES,"
490 PLOT 3,127,0,8,7:PRINT "     SO PLEASE BE PATIENT."
500 PLOT 3,127,0,10,7:PRINT "11.  IF YOU WIN THE ROLL, THEN YOU MAY MOVE ONE DIE AT A TIME"
510 PLOT 3,127,0,11,7:PRINT "     THE VALUE SHOWN ON ONE OF THE DICE.  WHEN YOU HAVE FINISHED"
520 PLOT 3,127,0,12,7:PRINT "     YOUR LAST MOVE ENTRY THE DISPLAY WILL BE UPDATED."
530 PLOT 3,127,0,14,7:PRINT "12.  YOU CANNOT MOVE TO A POSITION THAT IS OCCUPIED BY TWO OR"
540 PLOT 3,127,0,15,7:PRINT "     MORE OF THE COMPUTERS PIECES.  THE POSITION IS OPEN IF"
550 PLOT 3,127,0,16,7:PRINT "     ONE OR NO PIECE IS ON IT."
560 PLOT 3,127,0,18,7:PRINT "13.  IF YOU MOVE TO AN OPEN POSITION OCCUPIED BY ONE OF THE"
570 PLOT 3,127,16,19,7:PRINT "COMPUTER'S PIECES, THEN THAT PIECE IS BUMPED TO"
580 PLOT 3,127,16,20,7:PRINT "THE BAR LINE AND MUST RE-ENTER THE BOARD BEFORE"
590 PLOT 3,127,16,21,7:PRINT "THE OPPONENT CAN MOVE ANY OTHER PIECE."
600 PLOT 3,127,16,23,7:PRINT "14.  TO RE-ENTER FROM THE BAR THE VALUE ROLLED"
610 PLOT 3,127,16,24,7:PRINT "     ON A DIE MUST BE EQUAL TO AN OPEN POSITION"
620 PLOT 3,127,16,25,7:PRINT "     ON YOUR OPPONENT'S HOME BOARD."
630 PLOT 3,127,16,27,7:PRINT "15.  IF A PIECE ON THE BAR CANNOT BE RE-ENTERED,"
640 PLOT 3,127,16,28,7:PRINT "     THEN THE COMPUTER WILL GO TO THE NEXT TURN."
650 PLOT 3,127,16,30,1:INPUT "     HIT RETURN TO CONTINUE";A$
660 PLOT 6,0,12
670 GOSUB 2000
680 PLOT 3,127,0,4,7:PRINT "16.  YOU MAY PUT MORE THAN 5 PIECES ON EACH POSITION.  THE TOTAL"
690 PLOT 3,127,0,5,7:PRINT "     PIECES ARE SHOWN BY THE NUMBER ON THAT POSITION."
700 PLOT 3,127,0,7,7:PRINT "17.  WHEN ALL OF YOUR PIECES HAVE BEEN MOVED TO YOUR HOME BOARD,"
710 PLOT 3,127,0,8,7:PRINT "     THEN, AND ONLY THEN, MAY YOU MOVED PIECES OFF THE BOARD."
720 PLOT 3,127,0,10,7:PRINT "18.  YOU MAY MOVE A PIECE OFF THE BOARD, IF THE VALUE ON THE"
730 PLOT 3,127,0,11,7:PRINT "     DIE IS EQUAL TO OR GREATER THAN THE VALUE OF THE PIECE'S"
740 PLOT 3,127,0,12,7:PRINT "     POSITION."
750 PLOT 3,0,14:PRINT "19.  CAUTION: IF THE COMPUTER ROLLS A DOUBLE, THE CALCULATIONS"
760 PLOT 3,0,15:PRINT "     TAKE AS MUCH AS 10 MINUTES BEFORE A MOVE IS MADE."
770 PLOT 3,128,28,23,5:PRINT "GOOD LUCK!!!!"
780 PLOT 3,127,16,30,1:INPUT "     HIT RETURN TO CONTINUE";A$
1000 PLOT 27,4:PRINT "RUN BCKGMN"
1010 END
2000 PLOT 3,128,20,1,6:PRINT "BACKGAMMON INSTRUCTIONS"
2005 PLOT 3,1,20:PRINT "d   d  d    d"
2010 PLOT 3,1,21:PRINT "d   d  d    d"
2020 PLOT 3,1,22:PRINT "d   d  d     "
2030 PLOT 3,1,23:PRINT "d      d     "
2040 PLOT 3,1,24:PRINT "d     Bd     "
2050 PLOT 3,1,25:PRINT "      A      "
2060 PLOT 3,1,26:PRINT "d     Rd     "
2070 PLOT 3,1,27:PRINT "d      d     "
2080 PLOT 3,1,28:PRINT "d   d  d     "
2090 PLOT 3,1,29:PRINT "d   d  d    d"
2100 PLOT 3,1,30:PRINT "d   d  d    d"
2105 PLOT 6,5
2110 PLOT 2,1,3,242,28,3,28,48,1,48,1,4,255
2120 RETURN