Ahoy 1986 August

home *** CD-ROM | disk | FTP | other *** search

/ Ahoy 1986 August / Ahoy_Magazine_86-08_1986_Double_L.d64 / Reversi (.txt) < prev next >

Wrap

Commodore BASIC | 1986-01-01 | 10.2 KB | 445 lines

100 rem **************************** 110 rem * * 120 rem * reversi * 130 rem * * 140 rem * for c-64 * 150 rem * * 160 rem * * 170 rem * by: rod carty * 180 rem * * 190 rem * * 200 rem **************************** 920 print "[147]":printchr$(142) 930 print "": print "[144]instructions? (y or n) 940 [161] k$ 950 [139] k$[178] "y" [167] 7500 960 [139] k$[179][177] "n" [167] 930 970 cp[178] 1: po[178] 173 980 [143] background 990 [143] ---------- 1000 c[178] 55296: b[178] 1024 1010 [153] "load" 1020 [151] 53280, 13: [151] 53281, 13 1030 [153]"stop" 1060 [129] j[178] 0 [164] 1000 1070 [151] c[170] j, 13 1080 [151] b[170] j, 224 1090 [130] j 1100 [151] 53281, 0 1120 [143] board 1130 [143] ----- 1140 [153] "" 1150 [153]:[153]:[153] [199](153) 1160 [129] j[178]1 [164] 8 1170 [153] [163]13);"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)wait" 1180 [153] [163]13);"(NULL)sqr(NULL)sqr(NULL)sqr(NULL)sqr(NULL)sqr(NULL)sqr(NULL)sqr(NULL)sqrwait" 1190 [130] j 1200 [153] "" 1580 [143] set up center pieces 1590 [143] -------------------- 1600 [151] b[170]419, 213: [151] c[170]419, 1 1610 [151] b[170]420, 201: [151] c[170]420, 1 1620 [151] b[170]421, 213: [151] c[170]421, 5 1630 [151] b[170]422, 201: [151] c[170]422, 5 1640 [151] b[170]459, 202: [151] c[170]459, 1 1650 [151] b[170]460, 203: [151] c[170]460, 1 1660 [151] b[170]461, 202: [151] c[170]461, 5 1670 [151] b[170]462, 203: [151] c[170]462, 5 1700 [151] b[170]499, 213: [151] c[170]499, 5 1710 [151] b[170]500, 201: [151] c[170]500, 5 1720 [151] b[170]501, 213: [151] c[170]501, 1 1730 [151] b[170]502, 201: [151] c[170]502, 1 1740 [151] b[170]539, 202: [151] c[170]539, 5 1750 [151] b[170]540, 203: [151] c[170]540, 5 1760 [151] b[170]541, 202: [151] c[170]541, 1 1770 [151] b[170]542, 203: [151] c[170]542, 1 1880 [143] players' scores 1890 [143] --------------- 1900 pg[178]0: pw[178]0 1930 [129] s[178] 173 [164] 764 [169] 2 1940 [139] [194] (b[170]s) [179][177] 213 [167] 1990 1950 ps[178] [194] (c[170]s) [175] 15 1960 [139] ps[178] 1 [167] 1980 1970 pg[178]pg[170]1: [137] 1990 1980 pw[178]pw[170]1 1990 [130] s 2030 [137] 2100 2060 [153]"" 2070 [142] 2100 [153] "":[153] 2110 [153] [163]7);"green has ";[163]23);"white has " 2120 [153]"":[153] 2150 [153] [163]7);"green has";pg;[163]23);"white has";pw 2160 [139] pg[170] pw [178] 64 [167] 7000 2170 [139] pg[178] 0 [167] 7090 2180 [139] pw[178] 0 [167] 7090 2220 [143] cursor position display 2230 [143] ----------------------- 2250 co[178] [194] (c[170] po) [175] 15 2260 [139] co[178] 13 [167] 2280 2270 rc[178] 13: [137] 2310 2280 [139] cp[177] 0 [167] 2300 2290 rc[178] 5: [137] 2310 2300 rc[178] 1 2310 [151] c[170] po, rc: [151] c[170] po[170] 1, rc: [151] c[170] po[170] 40, rc: [151] c[170] po[170] 41, rc 2320 [129] i[178] 1 [164] 500: [130] 2330 [151] c[170] po, co: [151] c[170] po[170] 1, co: [151] c[170] po[170] 40, co: [151] c[170] po[170] 41, co 2340 [143] check if player passes 2350 [143] ---------------------- 2360 [161] k$ 2370 [139] k$[178] "(NULL)" [167] 2390 2380 [137] 2500 2390 [141] 2060 2400 [153] [163]14);"player passes" 2410 [129] i[178] 1 [164] 2000: [130] 2420 [141] 2060 2430 [153] [199](153);[163]14);" wait";[199](158) 2440 cp[178] [171]cp 2500 [139] cp[177]0 [167] 2540 2510 jo[178] [194](56321): [137] 2570 2540 jo[178] [194](56320) 2550 [143] input from joystick ports 2560 [143] ------------------------- 2570 [139] jo[178] 250 [176] jo[178] 122 [167] 3200 2580 [139] jo[178] 249 [176] jo[178] 121 [167] 3250 2590 [139] jo[178] 246 [176] jo[178] 118 [167] 3300 2600 [139] jo[178] 245 [176] jo[178] 117 [167] 3350 2610 [139] jo[178] 251 [176] jo[178] 123 [167] 3400 2620 [139] jo[178] 254 [176] jo[178] 126 [167] 3450 2630 [139] jo[178] 253 [176] jo[178] 125 [167] 3500 2640 [139] jo[178] 247 [176] jo[178] 119 [167] 3550 2650 [139] jo[178] 239 [176] jo[178] 111 [167] 3600 3000 [129] i[178] 1 [164] 500: [130] 3010 [137] 2250 3180 [143] move cursor 3190 [143] ----------- 3200 po[178] po[171] 82: [143] move left/up 3210 [139] [194] (b[170] po)[178] 207 [167] 2250 3220 [139] [194] (b[170] po)[178] 213 [167] 2250 3230 po[178] po[170] 82: [137] 2250 3250 po[178] po[170] 78: [143] move left/down 3260 [139] [194] (b[170] po)[178] 207 [167] 2250 3270 [139] [194] (b[170] po)[178] 213 [167] 2250 3280 po[178] po[171] 78: [137] 2250 3300 po[178] po[171] 78: [143] move right/up 3310 [139] [194] (b[170] po)[178] 207 [167] 2250 3320 [139] [194] (b[170] po)[178] 213 [167] 2250 3330 po[178] po[170] 78: [137] 2250 3350 po[178] po[170] 82: [143] move right/down 3360 [139] [194] (b[170] po)[178] 207 [167] 2250 3370 [139] [194] (b[170] po)[178] 213 [167] 2250 3380 po[178] po[171] 82: [137] 2250 3400 po[178] po[171] 2: [143] move left 3410 [139] [194] (b[170] po)[178] 207 [167] 2250 3420 [139] [194] (b[170] po)[178] 213 [167] 2250 3430 po[178] po[170] 2: [137] 2250 3450 po[178] po[171] 80: [143] move up 3460 [139] [194] (b[170] po)[178] 207 [167] 2250 3470 [139] [194] (b[170] po)[178] 213 [167] 2250 3480 po[178] po[170] 80: [137] 2250 3500 po[178] po[170] 80: [143] move down 3510 [139] [194] (b[170] po)[178] 207 [167] 2250 3520 [139] [194] (b[170] po)[178] 213 [167] 2250 3530 po[178] po[171]80: [137] 2250 3550 po[178] po[170] 2: [143] move right 3560 [139] [194] (b[170] po)[178] 207 [167] 2250 3570 [139] [194] (b[170] po)[178] 213 [167] 2250 3580 po[178] po[171] 2: [137] 2250 3590 [143] piece played this position 3595 [143] -------------------------- 3600 [139] [194] (b[170] po)[178] 207 [167] 3690 3610 [141] 2060 3620 [153] [163]12); "position occupied" 3630 [129] i[178] 1 [164] 1000: [130] 3640 [141] 2060 3650 [153] [199](153);[163]12);" wait";[199](158) 3660 [137] 2250 3670 [143] check for legit move 3680 [143] -------------------- 3690 [139] cp[179] 0 [167] 3710 3700 p1[178] 1: p2[178] 5: [137] 3740 3710 p1[178] 5: p2[178] 1 3720 [143] look up 3730 [143] ------- 3740 m[178] 80 3750 cs[178] [194] (c[170] po[171] m) [175] 15 3760 [139] cs[178] p1 [167] 3840 3770 [139] cs[178] 13 [167] 3840 3780 m[178] m[170] 80 3790 cs[178] [194] (c[170] po[171] m) [175] 15 3800 [139] cs[178] p1 [167] 5000 3810 [139] cs[178] p2 [167] 3780 3820 [143] look up & right 3830 [143] --------------- 3840 m[178] 78 3850 cs[178] [194] (c[170] po[171] m) [175] 15 3870 [139] cs[178] p1 [167] 3950 3880 [139] cs[178] 13 [167] 3950 3890 m[178] m[170] 78 3900 cs[178] [194] (c[170] po[171] m) [175] 15 3910 [139] cs[178] p1 [167] 5000 3920 [139] cs[178] p2 [167] 3890 3930 [143] look right 3940 [143] ---------- 3950 m[178] 2 3960 cs[178] [194] (c[170] po[170] m) [175] 15 3970 [139] cs[178] p1 [167] 4050 3980 [139] cs[178] 13 [167] 4050 3990 m[178] m[170] 2 4000 cs[178] [194] (c[170] po[170] m) [175] 15 4010 [139] cs[178] p1 [167] 5000 4020 [139] cs[178] p2 [167] 3990 4030 [143] look down & right 4040 [143] ----------------- 4050 m[178] 82 4060 cs[178] [194] (c[170] po[170] m) [175] 15 4070 [139] cs[178] p1 [167] 4150 4080 [139] cs[178] 13 [167] 4150 4090 m[178] m[170] 82 4100 cs[178] [194] (c[170] po[170] m) [175] 15 4110 [139] cs[178] p1 [167] 5000 4120 [139] cs[178] p2 [167] 4090 4130 [143] look down 4140 [143] --------- 4150 m[178] 80 4160 cs[178] [194] (c[170] po[170] m) [175] 15 4170 [139] cs[178] p1 [167] 4250 4180 [139] cs[178] 13 [167] 4250 4190 m[178] m[170] 80 4200 cs[178] [194] (c[170] po[170] m) [175] 15 4210 [139] cs[178] p1 [167] 5000 4220 [139] cs[178] p2 [167] 4190 4230 [143] look down & left 4240 [143] ---------------- 4250 m[178] 78 4260 cs[178] [194] (c[170] po[170] m) [175] 15 4270 [139] cs[178] p1 [167] 4350 4280 [139] cs[178] 13 [167] 4350 4290 m[178] m[170] 78 4300 cs[178] [194] (c[170] po[170] m) [175] 15 4310 [139] cs[178] p1 [167] 5000 4320 [139] cs[178] p2 [167] 4290 4330 [143] look left 4340 [143] --------- 4350 m[178] 2 4360 cs[178] [194] (c[170] po[171] m) [175] 15 4370 [139] cs[178] p1 [167] 4450 4380 [139] cs[178] 13 [167] 4450 4390 m[178] m[170] 2 4400 cs[178] [194] (c[170] po[171] m) [175] 15 4410 [139] cs[178] p1 [167] 5000 4420 [139] cs[178] p2 [167] 4390 4430 [143] look left & up 4440 [143] -------------- 4450 m[178] 82 4460 cs[178] [194] (c[170] po[171] m) [175] 15 4470 [139] cs[178] p1 [167] 4530 4480 [139] cs[178] 13 [167] 4530 4490 m[178] m[170] 82 4500 cs[178] [194] (c[170] po[171] m) [175] 15 4510 [139] cs[178] p1 [167] 5000 4520 [139] cs[178] p2 [167] 4490 4530 [141] 2060 4540 [153] [163]13);"sorry, bad move" 4550 [129] i[178] 1 [164] 500: [130] 4560 [141] 2060 4570 [153] [199](153);[163]13);" wait";[199](158) 4580 [137] 2250 4980 [143] legit position choice 4990 [143] --------------------- 5000 [151] b[170]po,213: [151] b[170]po[170]1,201: [151] b[170]po[170]40,202: [151] b[170]po[170]41,203 5010 [151] c[170]po,p1: [151] c[170]po[170]1,p1: [151] c[170]po[170]40,p1: [151] c[170]po[170]41,p1 5020 [143] look up 5030 [143] ------- 5040 m[178] 80 5050 cs[178] [194] (c[170] po[171] m) [175] 15 5060 [139] cs[178] p1 [167] 5200 5070 [139] cs[178] 13 [167] 5200 5080 m[178] m[170] 80 5090 cs[178] [194] (c[170] po[171] m) [175] 15 5100 [139] cs[178] p1 [167] 5130 5110 [139] cs[178] 13 [167] 5200 5120 [137] 5080 5130 m[178] m[171] 80 5140 [139] m[178] 0 [167] 5200 5150 [151] c[170]po[171]m,p1: [151] c[170]po[171]m[170]1,p1: [151] c[170]po[171]m[170]40,p1: [151] c[170]po[171]m[170]41,p1 5160 [137] 5130 5180 [143] look up & right 5190 [143] --------------- 5200 m[178] 78 5210 cs[178] [194] (c[170] po[171] m) [175] 15 5220 [139] cs[178] p1 [167] 5400 5230 [139] cs[178] 13 [167] 5400 5240 m[178] m[170] 78 5250 cs[178] [194] (c[170] po[171] m) [175] 15 5260 [139] cs[178] p1 [167] 5300 5270 [139] cs[178] 13 [167] 5400 5280 [137] 5240 5300 m[178] m[171] 78 5310 [139] m[178] 0 [167] 5400 5320 [151] c[170]po[171]m,p1: [151] c[170]po[171]m[170]1,p1: [151] c[170]po[171]m[170]40,p1: [151] c[170]po[171]m[170]41,p1 5330 [137] 5300 5380 [143] look right 5390 [143] ---------- 5400 m[178] 2 5410 cs[178] [194] (c[170] po[170] m) [175] 15 5420 [139] cs[178] p1 [167] 5600 5430 [139] cs[178] 13 [167] 5600 5440 m[178] m[170] 2 5450 cs[178] [194] (c[170] po[170] m) [175] 15 5460 [139] cs[178] p1 [167] 5500 5470 [139] cs[178] 13 [167] 5600 5480 [137] 5440 5500 m[178] m[171] 2 5510 [139] m[178] 0 [167] 5600 5520 [151] c[170]po[170]m,p1: [151] c[170]po[170]m[170]1,p1: [151] c[170]po[170]m[170]40,p1: [151] c[170]po[170]m[170]41,p1 5530 [137] 5500 5580 [143] look right & down 5590 [143] ----------------- 5600 m[178] 82 5610 cs[178] [194] (c[170] po[170] m) [175] 15 5620 [139] cs[178] p1 [167] 5800 5630 [139] cs[178] 13 [167] 5800 5640 m[178] m[170] 82 5650 cs[178] [194] (c[170] po[170] m) [175] 15 5660 [139] cs[178] p1 [167] 5700 5670 [139] cs[178] 13 [167] 5800 5680 [137] 5640 5700 m[178] m[171] 82 5710 [139] m[178] 0 [167] 5800 5720 [151] c[170]po[170]m,p1: [151] c[170]po[170]m[170]1,p1: [151] c[170]po[170]m[170]40,p1: [151] c[170]po[170]m[170]41,p1 5730 [137] 5700 5780 [143] look down 5790 [143] --------- 5800 m[178] 80 5810 cs[178] [194] (c[170] po[170] m) [175] 15 5820 [139] cs[178] p1 [167] 6000 5830 [139] cs[178] 13 [167] 6000 5840 m[178] m[170] 80 5850 cs[178] [194] (c[170] po[170] m) [175] 15 5860 [139] cs[178] p1 [167] 5900 5870 [139] cs[178] 13 [167] 6000 5880 [137] 5840 5900 m[178] m[171] 80 5910 [139] m[178] 0 [167] 6000 5920 [151] c[170]po[170]m,p1: [151] c[170]po[170]m[170]1,p1: [151] c[170]po[170]m[170]40,p1: [151] c[170]po[170]m[170]41,p1 5930 [137] 5900 5980 [143] look down & left 5990 [143] ---------------- 6000 m[178] 78 6010 cs[178] [194] (c[170] po[170] m) [175] 15 6020 [139] cs[178] p1 [167] 6200 6030 [139] cs[178] 13 [167] 6200 6040 m[178] m[170] 78 6050 cs[178] [194] (c[170] po[170] m) [175] 15 6060 [139] cs[178] p1 [167] 6100 6070 [139] cs[178] 13 [167] 6200 6080 [137] 6040 6100 m[178] m[171] 78 6110 [139] m[178] 0 [167] 6200 6120 [151] c[170]po[170]m,p1: [151] c[170]po[170]m[170]1,p1: [151] c[170]po[170]m[170]40,p1: [151] c[170]po[170]m[170]41,p1 6130 [137] 6100 6180 [143] look left 6190 [143] --------- 6200 m[178] 2 6210 cs[178] [194] (c[170] po[171] m) [175] 15 6220 [139] cs[178] p1 [167] 6400 6230 [139] cs[178] 13 [167] 6400 6240 m[178] m[170] 2 6250 cs[178] [194] (c[170] po[171] m) [175] 15 6260 [139] cs[178] p1 [167] 6300 6270 [139] cs[178] 13 [167] 6400 6280 [137] 6240 6300 m[178] m[171] 2 6310 [139] m[178] 0 [167] 6400 6320 [151] c[170]po[171]m,p1: [151] c[170]po[171]m[170]1,p1: [151] c[170]po[171]m[170]40,p1: [151] c[170]po[171]m[170]41,p1 6330 [137] 6300 6380 [143] look left & up 6390 [143] -------------- 6400 m[178] 82 6410 cs[178] [194] (c[170] po[171] m) [175] 15 6420 [139] cs[178] p1 [167] 6600 6430 [139] cs[178] 13 [167] 6600 6440 m[178] m[170] 82 6450 cs[178] [194] (c[170] po[171] m) [175] 15 6460 [139] cs[178] p1 [167] 6500 6470 [139] cs[178] 13 [167] 6600 6480 [137] 6440 6500 m[178] m[171] 82 6510 [139] m[178] 0 [167] 6600 6520 [151] c[170]po[171]m,p1: [151] c[170]po[171]m[170]1,p1: [151] c[170]po[171]m[170]40,p1: [151] c[170]po[171]m[170]41,p1 6530 [137] 6500 6540 [143] all changes done 6550 [143] ---------------- 6560 [143] other player's turn 6570 [143] ------------------- 6600 cp[178] [171]cp 6610 [137] 1900 6980 [143] board full, decide winner 6990 [143] ------------------------- 7000 [141] 2060 7010 [139] pw[178] pg [167] 7070 7020 [139] pw[177] pg [167] 7050 7030 [153] [163]12);"green player wins!" 7040 [137] 7200 7050 [153] [163]12);"white player wins!" 7060 [137] 7200 7070 [153] [163]17);"tie game" 7080 [137] 7200 7090 [153] [163]17);"shut-out" 7100 [129] i[178] 1 [164] 500: [130] 7110 [137] 7000 7200 [129] i[178] 1 [164] 500: [130] 7210 [141] 2060 7220 [153]:[153]:[153] "another game (y or n)" 7230 [161] k$ 7240 [139] k$[178] "y" [167] 970 7250 [139] k$[178] "n" [167] 9000 7260 [137] 7210 7480 [143] comments and instructions 7490 [143] ------------------------- 7500 [153] "loadthis is a reversi game......." 7530 [153] "the game board is the" 7540 [153] "standard 8 by 8 grid." 7560 [153] "the object of the game is to" 7570 [153] "reverse the color of your" 7580 [153] "opponent's pieces, and so" 7590 [153] "converting them to yours." 7600 [153] "the method for this is thus:" 7620 [153] "bracket the opposing player's" 7630 [153] "piece or pieces with one new" 7640 [153] "and at least one existing" 7650 [153] "piece of your own." 7660 [153] "at the end of the game, the" 7670 [153] "player with the greatest number" 7680 [153] "of pieces on the board wins." 7690 [153] "to continue, please press < return >" 7700 [133] a$ 7710 [153] "loadgreen cursor movement is accomplished" 7730 [153] "by a joystick in control port #1," 7740 [153]"or by the following keys:" 7760 [153] "press < 1 > for up" 7770 [153]"press < _ > for down" 7780 [153]"press < ctrl > for left" 7790 [153]"press < 2 > for right, and" 7800 [153]"press < space > for select" 7810 [153] "white cursor movement is accomplished" 7820 [153] "by a joystick in control port #2." 7840 [153] "in addition, pressing < shift p >" 7850 [153] "allows a player pass." 7870 [153] "cursor color indicates" 7880 [153]"which player's turn it is." 7900 [153] "press < return > to continue." 7910 [133] a$ 7920 [153] "loadthis is strictly a two- player" 7930 [153] "game, with no provision for giving" 7940 [153] "weaker players corner advantages." 7960 [153] "however, a turn or two passed early" 7970 [153] "in the game should do the job, while" 7980 [153] "introducing an element of variety for" 7990 [153] "experts at the game." 8010 [153] "press < return > to start." 8020 [133] a$ 8030 [137] 970 9000 [128]