1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
5 [153]"hhhhhhh`  
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
150 UZ=1:UV%=PEEK(UT):GOTO300
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEUX,14
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IFUW=0THENSYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
300 PRINT"[147]":POKEUT,UU%:IFUW=0THENPOKEUY,12:POKEUX,6
305 PRINT"                M E N U"
310 PRINT"    --------------------------------"
315 PRINT"       1.   BEGIN KALAH"
320 PRINT"       2.   INSTRUCTIONS"
325 PRINT"       3.   DOCUMENTATION       "
330 PRINT"       4.   QUIT"
335 PRINT"    --------------------------------"
340 PRINT"       PRESS A NUMBER KEY (1-4) ";
345 UL=1:US$="1234"
347 GOSUB35:US$=""
350 ONVAL(UR$)GOSUB1000,400,500,390
355 GOTO300
370 IFUZ=1THENSYSUP%:GOTO155
375 RETURN
390 SYSUE:PRINT"[154][147]":IFUW=0THENPOKEUY,6:POKEUX,14:SYSUU,14
395 CLR:END
400 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,11:POKEUX,12
405 UT$=" [203]ALAH":UH=1:UP=0:UG$="[201]NSTRUCTIONS":GOSUB850
412 PRINT" [201]N THIS GAME YOU START WITH A CERTAIN"
413 PRINT" NUMBER OF BEANS IN EACH PIT.  [212]HE"
414 PRINT" OBJECT OF THE GAME IS TO PUT AS MANY"
416 PRINT" BEANS AS POSSIBLE INTO YOUR COLLECTION"
418 PRINT" PIT.  [217]OUR COLLECTION PIT IS THE ONE"
420 PRINT" ON THE RIGHT.  [193]LL THE PITS ON THE"
422 PRINT" THE BOTTOM ROW ARE YOURS, THE OTHERS"
424 PRINT" ARE THE COMPUTER'S."
425 UH=1:GOSUB835:GOSUB850
426 PRINT" [197]ACH TIME YOU PASS YOUR COLLECTION"
428 PRINT" PIT OR STOP ON IT, YOU GAIN ONE"
429 PRINT" POINT.  [212]HE BEST STRATEGY IS TO TRY"
431 PRINT" TO STOP RIGHT ON YOUR COLLECTION":PRINT" PIT."
432 PRINT" [207]NCE YOU GET BETTER, YOU MAY"
433 PRINT" PRACTICE CAPTURING THE COMPUTER'S"
434 PRINT" BEANS.  [212]HIS CAN BE DONE ONLY WHEN"
436 PRINT" THE PIT YOU WISH TO CAPTURE HAS TWO"
438 PRINT" OR LESS BEANS IN IT."
439 UH=1:GOSUB 835:GOSUB 850
440 PRINT" [212]HE ACTUAL CAPTURING IS DONE WHEN"
442 PRINT" YOU MOVE YOUR BEANS SO THEY LAND ON"
444 PRINT" THE COMPUTER'S SIDE OF THE BOARD."
445 PRINT" [212][200][201][211][160][208][201][212][160][205][213][211][212][160][200][193][214][197][160][212][215][207][160][207][210][160][204][197][211][211][160][194][197][193][206][211]"
446 PRINT" [201][206][160][201][212][160][207][210] [207][210][160][217][207][213][210][160][194][197][193][206][211][160][215][201][204][204][160][194][197][195][207][205][197]"
448 PRINT" [212][200][197] [195][207][205][208][213][212][197][210]'[211] [208][207][211][211][197][211][211][201][207][206]."
455 UH=1:GOSUB835:GOSUB850
460 PRINT" [206]OTE:
475 [153]" RIGHT$F AT ANY TIME YOU WISH TO RETURN"
480 [153]" TO THE (null)VAL(null)(null) PRESS 'H' (null)VAL(null)(null)(null)(null)."
485 [141]835
490 [139]UZ[178]1[167][158]UP%:[137]155
495 [142]
500 [153]"LOAD":[151]UT,UL%:[139]UW[178]0[167][151]UY,2:[151]UX,10
501 UT$[178]" (null)ALAH":UH[178]1:UP[178]0:UG$[178]"STR$OCUMENTATION":[141]850
502 [153]"     (null)O THE BEST OF OUR KNOWLEDGE,"
503 [153]"     THIS PROGRAM IS IN THE PUBLIC"
504 [153]"     DOMAIN.  RIGHT$F THIS IS NOT TRUE,"
505 [153]"     PLEASE CONTACT:"
506 [153]"      LEN(null)(null)(null)(null)STR$(null)(null)VALCLOSEPEEK(null)(null)RIGHT$(null)VAL(null)(null)CLOSE(null)ATNLENLEFT$RIGHT$(null)VAL(null)"
507 [153]"          3370 (null)HARMACY ATNVE.
508 PRINT"          [193]GINCOURT, [207]NTARIO"
509 PRINT"          [195]ANADA, [205]1[215] 2[203]4"
510 PRINT"          (416) 499-4292"
511 UH=1:GOSUB835:GOSUB850
512 PRINT"      [208]ROGRAM [206]AME: [203]ALAH
513 [153]"      (null)RITTEN BY  : PEEKILL ASCINZER"
514 [153]"      (null)EVISED BY  : (null)ETER (null)AGSDALE"
515 [153]"      (null)HIS PROGRAM WILL RUN ON ANY
516 PRINT"         [194][193][211][201][195][160]2.0 [208][197][212] [195]OMPUTER
517 [153]"         PEEKATN(null)RIGHT$LEN 4.0 (null)VAL(null)CLOSELENOMPUTER
518 PRINT"         8032 [195][194][205] [195]OMPUTER
519 [153]"         LENOMMODORE 64 LENOMPUTER
585 GOSUB835
590 IFUZ=1THENSYSUP%:GOTO155
595 RETURN
700 PRINTUC$"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032
705 [153]"      LOAD THE 'CBM 4032' PROGRAM":[128]
800 [153]"LOAD";:[151]UT,UU%:[139]UW[178]0[167][151]UY,1:[151]UX,14
801 [129]I[178]1[164]38:[153]" WAIT";:[130]
802 [129]I[178]1[164]22:[153]"CMD WAIT";:[130]
803 [129]I[178]1[164]37:[153]"CMDCMD WAIT";:[130]
804 [129]I[178]1[164]22:[153]"ONCMD WAIT";:[130]
805 [153]"STEP  WAIT
806 PRINT" [146]   [146][169]
807 [153]" WAIT  TAB((null)WAIT O M M O D O R E
808 PRINT"[223]  [146]
809 [153]"EDUCATIONAL
810 PRINT"SOFTWARE
811 [153]"1983
812 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]"UC$:UI=0
813 GETUI$:IFUI$<>" "THENUI=UI+1:IFUI<250THEN813
814 GOTO300
835 POKEUN,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
840 GETUI$:IFUI$<>" "THEN840
845 RETURN
850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
855 PRINT" --------------------------------------"
860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS   H <RETURN>"
865 UH=0:PRINT"":RETURN
875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
900 UX$="H":US=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UB=1024:UD=1084:UE=1105
901 UT=59468:UU%=12:UL%=14:UP%=1158:UN=158:POKE50003,0:UW=PEEK(50003):UF=PEEK(53)
902 IFUW=0THENUS=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
903 IFUW=0THENUT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
904 UC$=CHR$(155):UV=1214:IFUW=0THENUF=196:UV=2238
905 UD$="":UP$="                                      "
907 DIM BOARD%(3,14),L1%(6),L2%(6,6),         PIT%(14,2),I(3),M%(6)
909 RETURN
910 GOSUB900:PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
915 IFPEEK(US+40)<>96THEN700
920 IF(FRE(0)-(SGN(FRE(0))<0)*65536)>500THEN935
925 PRINTUC$"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
930 PRINT"MEMORY TO RUN THIS PROGRAM !":SYSUE:END
935 PRINT"[147]"UC$:IFUW=0THEN965
940 IFUF=60ORUF=108ORUF=124THEN950
945 POKE52,0:POKE53,UF-4:CLR:GOSUB900
950 IFUW=160THENPOKE1103,88:POKE1104,228:POKE1107,85:POKE1111,228:GOTO965
955 IFUW<>1THENPRINT"[147]THIS PGM WILL NOT WORK ON THIS MACHINE!":SYSUE:END
960 POKE1103,49:POKE1104,230:POKE1107,46:POKE1111,230:GOTO965
965 SYSUD
970 GOSUB800:GOTO300
1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0
1001 PRINT"[147]"UC$;:RESTORE:IFUW=0THENPOKEUY,9:POKEUX,5
1005 UT$=" KALAH":UP=0
1030 REM
1040 REM PIT LOCATION DATA
1050 DATA 30,11,25,11,20,11,15,11,10,11,5,11,1,15,5,17,10,17,15,17,20,17
1060 DATA 25,17,30,17,35,15
1070 FOR I= 1 TO 14
1080 READ PIT%(I,1):READ PIT%(I,2):NEXT
1090 REM---MAIN CALLING ROUTINE----
1100 GOSUB 1250:REM INITIALIZE
1110 GOSUB 1410:REM INSTRUCTIONS
1120 GOSUB 1650:REM DRAW BOARD
1130 IF P$="C" THEN 1190
1140 GOSUB 1950:REM GET HUMAN'S MOVE
1150 IF A$="R" THEN GOSUB 3120:GOTO 1230
1160 IF A$="T" THEN GOSUB 3210:GOTO 1140
1170 L=0:GOSUB 2090:REM DISPLAY MOVE
1180 IF W$<>"N" THEN 1220
1190 GOSUB 2680:REM FIND COMPUTER MOVE
1200 L=0:GOSUB 2090:REM DISPLAY MOVE
1210 IF W$="N" THEN 1140
1220 GOSUB 3120:REM WIN MESSAGE
1230 IF UR$="Y" THEN 1100
1240 PRINT"[147]":RETURN
1250 REM---INITIALIZE---
1260 M=RND(-TI)
1270 P$="":W$="":NM=6
1280 BLANK$="                                       "
1290 BEANS$="[209][209][209][209][157][157][157][157][209][209][209][209][157][157][157][157][209][209][209][209]"
1300 ERASE$="    [157][157][157][157]    [157][157][157][157]    "
1310 INF=30000:L=0
1320 BO%(0,7)=0:BO%(0,14)=0
1330 RETURN
1340 REM----MOVE CURSOR TO X,Y---
1350 POKE U4,Y-1:PRINT:PRINTTAB(X);:RETURN
1410 REM---INSTRUCTIONS----
1420 POKE UT,UU%
1460 REM---INPUT # OF BEANS & LEVEL--
1465 UP=0:UG$="      INTRO[146]":GOSUB850
1470 PRINT" HOW MANY BEANS PER PIT[160](3[160]MAKES A"
1471 PRINT" GOOD BEGINNER'S GAME) ?   [157][157]";
1480 UL=2:US$="H0123456789"
1490 GOSUB 35
1500 IF VAL(UR$)>15 THEN PRINT"[145][145][145][145]":GOTO1470
1540 NB=VAL(UR$)
1550 PRINT" HOW HARD DO YOU WANT THE GAME TO BE?"
1560 PRINTTAB(5)"0 = RANDOM PLAY
1570 [153][163]5)"1 = BEGINNER"
1580 [153][163]5)"2 = INTERMEDIATE":[153][163]5)"3 = ADVANCED"
1585 [153][163]5)"OPTION> ";
1590 UL[178]1:US$[178]"H0123"
1600 [141]35
1610 LEVEL[178][197](UR$)
1620 [153]:[153]" DO YOU WANT TO GO FIRST? ";:UL[178]1:US$[178]"YNH"
1630 [141] 35:[139] UR$[178]"N" [167] P$[178]"C"
1640 [151] UT,UU%:[142]
1650 [143]---DRAW BOARD----
1660 [129] I[178]1 [164] 6
1670 BO%(0,I)[178]NB:BO%(0,I[170]7)[178]NB
1680 [130] I
1690 [143]---BOARD W/O BEANS---
1700 UP[178]LEVEL[171]1:UG$[178]"COMPUTER LEVELWAIT":[141]850
1710 [153]"   I'M PLAYING AT LEVEL"LEVEL""
1720 [153]" STEPCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)"
1730 [153]"STEPCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE  CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)"
1740 [153]" WAITSTEP (null) WAITSTEP  (null) WAITSTEP  (null) WAITSTEPCLOSECLOSE(null) WAITSTEP  (null) WAITSTEPCLOSECLOSE(null) WAITSTEP  (null) WAITSTEP (null) "
1750 [129] I[178] 1 [164] 3
1760 [153]" WAIT    WAIT     WAIT     WAIT     WAIT     WAIT     WAIT     WAIT    "
1770 [130] I
1780 [153]" WAIT    (null)WAIT  STEP (null)WAIT  STEP (null)WAIT  STEPCLOSE(null)WAIT  STEPCLOSE(null)WAIT  STEP (null)WAIT  STEP WAIT    "
1790 [153]" WAIT                                  WAIT    "
1800 [153]" WAIT    WAITSTEP  (null) WAITSTEP  (null) WAITSTEPCLOSECLOSE(null) WAITSTEP  (null) WAITSTEPCLOSECLOSE(null) WAITSTEP  (null) WAIT    "
1810 [129] I[178] 1 [164] 3
1820 [153]" WAIT    WAIT     WAIT     WAIT     WAIT     WAIT     WAIT     WAIT    "
1830 [130] I
1840 [153]" (null)WAIT STEP (null)WAIT  STEP (null)WAIT  STEP (null)WAIT  STEPCLOSE(null)WAIT  STEPCLOSE(null)WAIT  STEP (null)WAIT  STEP (null)WAIT STEP "
1850 [153]"(null)      1    2    3    4    5    6     WAITSTEP"
1860 [153]" (null)                                   WAITSTEP"
1870 [143]--PUT BEANS IN PITS----
1880 [129] I[178] 1 [164] 6
1890 PIT[178]I
1900 [141]2580:[143] BEANS
1910 PIT[178]I[170]7
1920 [141] 2580
1930 [130] I
1940 [142]
1950 [143]---HUMAN'S MOVE----
1960 X[178]0:Y[178]6:[141] 1340
1970 [153]BLANK$:[141] 1340
1980 [153]"   YOUR MOVE (1 TO 6) ";:UL[178]1:US$[178]"123456RTH"
1990 [141]35
2000 [139] UR$[178]"R" [167] 2080
2010 [139] UR$[178]"T" [167] 2080
2030 M[178][197](UR$)[170]7
2040 [139] BO%(0,M)[179][177]0 [167] 2080
2050 [153]"   EMPTY PIT, TRY AGAIN";:T[178]TI
2060 [139] TI[179]T[170]90 [167] 2060
2065 [153]"ON":[153]"                        ON"
2070 [137] 1960
2080 [142]
2090 [143]---DISPLAY MOVE---
2100 [139] L[178]0 [167] PIT[178]M:[141] 3480:[137] 2140
2110 [129] I[178]1 [164] 14
2120 BO%(L,I)[178]BO%(L[171]1,I):[130] I
2130 M[178]I(L)
2140 PIT[178]M:CAP[178]0:HND[178]BO%(L,M):BO%(L,M)[178]0
2150 [139] L[178]0 [167] [141] 2580
2160 AR[178]0:[139] (PIT[179]7 [175] PIT[170]HND[177]13) [176] (PIT[177]7 [175] PIT[170]HND[177]20) [167] AR[178]1
2170 [129] I[178]1 [164] HND
2180 PIT[178]PIT[170]1
2190 [139] M[179]7 [175] PIT[178]14 [167] 2180
2200 [139] M[177]7 [175] PIT[178]7 [167] 2180
2210 [139] PIT [178]15 [167] PIT[178]1
2220 BO%(L,PIT)[178]BO%(L,PIT)[170]1
2230 [139] L[178]0 [167] [141] 2580
2240 [130] I
2250 [139] AR[178]0 [167] 2310
2260 [139] M[179]7 [175] PIT[177]6 [167] 2310
2270 [139] M[177]7 [175] (PIT[179]7 [176] PIT[178]14) [167] 2310
2280 HND[178]BO%(L,PIT):BO%(L,PIT)[178]0
2290 [139] L[178]0 [167] [141] 3480:[141] 2580
2300 [137] 2160
2310 [143]---CHECK FOR CAPTURE---
2320 [139] M[179]7 [167] K[178]7
2330 [139] M[177]7 [167] K[178]14
2340 [139] M[179]7 [175] PIT [179]8 [167] 2420
2350 [139] M[177]7 [175] PIT [177]7 [167] 2420
2360 [139] BO%(L,PIT)[179]2 [176] BO%(L,PIT)[177]3 [167]2420
2370 CAP[178]CAP[170]BO%(L,PIT):BO%(L,PIT)[178]0
2380 [139] L[178]0 [167] [141] 3480:[141] 2580
2390 PIT[178]PIT[171]1
2400 [139] PIT[178]7 [176] PIT[178]0 [167] 2420
2410 [137] 2360
2420 PIT[178]K:BO%(L,K)[178]BO%(L,K)[170]CAP
2430 [139] L[178]0 [167] [141] 2580
2440 [141] 2460
2450 [142]
2460 [143]---CHECK FOR WIN---
2470 [139] K[178]7 [167] K[178]8:K1[178]1:K2[178]7
2480 [139] K[178]14 [167] K[178]1:K1[178]8:K2[178]14
2490 W$[178]"Y"
2500 NM[178]0
2510 [129] I[178]K [164] K[170]5
2520 [139] BO%(L,I)[179][177]0 [167] W$[178]"N":NM[178]NM[170]1
2530 [130] I
2540 [139] W$[178]"N" [167] 2570
2550 [129] I[178]K1 [164] K1[170]5
2560 BO%(L,K2)[178]BO%(L,K2)[170]BO%(L,I):[130] I
2570 [142]
2580 [143]---UPDATE PIT----
2590 X[178]PIT%(PIT,1):Y[178]PIT%(PIT,2)
2600 [141] 1340
2610 N[178]BO%(0,PIT)
2620 [139] PIT[179][177]7 [175] PIT[179][177]14 [167] [153]ERASE$:[141] 1340
2630 [139] N[177]12 [176] PIT[178]7 [176] PIT[178]14 [167] [153]""N:[137] 2670
2640 [139] N[178]0 [167] 2670
2650 B[178]N[170][181]((N[171]1)[173]4)[172]5
2660 [153][200](BEANS$,B)
2670 [142]
2680 [143]---FIND COMPUTER MOVE---
2690 [141] 3030:[143] INITIALIZE
2700 [139] LEVEL[178]0 [167] 2940
2710 [139] NM[178]1 [167] 2940
2720 [129] I1[178]6 [164] 1 [169] [171]1
2740 I(1)[178]I1: L[178]1:[141] 2090:[141]2460
2750 [139] HND[178]0 [167] L1%(I1)[178][171]INF:[137] 2930
2760 [139] LEVEL[178]1 [176] W$[178]"Y" [167] [141] 3320:[137] 2930
2770 F2[178]0
2780 [129] I2[178]6 [164] 1 [169] [171]1:I(2)[178]I2[170]7
2800 [139] F2[178]1 [167] 2920
2810 L[178]2:[141] 2090
2820 [139] HND[178]0 [167] L2%(I1,I2)[178]INF: [137] 2920
2830 [139] LEVEL[178]2 [176] W$[178]"Y" [167] [141] 3370:[137] 2920
2840 F3[178]0
2850 [129] I3[178]6 [164] 1 [169] [171]1:I(3)[178]I3
2870 [139] F3[178]1 [167] 2910
2880 L[178]3:[141] 2090
2890 [139] HND[178]0 [167] 2910
2900 [141] 3440
2910 [130] I3:[141] 3600
2920 [130] I2:[141] 3570
2930 [130] I1
2940 MAX[178]L1%(1):M%(1)[178]1:C[178]1
2950 [129] I[178]2 [164] 6
2960 [139] L1%(I)[177]MAX [167] MAX[178]L1%(I):M%(1)[178]I:C[178]1
2970 [139] L1%(I)[178]MAX [167] C[178]C[170]1:M%(C)[178]I
2980 [130] I
2990 M[178][181]([187](1)[172]C)[170]1
3000 M[178]M%(M)
3010 [139] BO%(0,M)[178]0 [167] 2990
3020 [142]
3030 [143]---INITIALIZE TREE---
3040 L0[178][171]INF
3050 [129] I1[178]1 [164] 6
3060 L1%(I1)[178]INF
3070 [129] I2[178]1 [164] 6
3080 L2%(I1,I2)[178][171]INF
3090 [130] I2: [130] I1
3100 [142]
3110 [139] M[177]7 [167] K[178]14
3120 [143]--A WIN!---
3130 SCRE [178] BO%(0,7)[171]BO%(0,14)
3140 [153]""
3150 [139] SCRE[177]0 [167] [153]"  I WIN BY"SCRE"POINTS!
3160 IF SCRE<0 THEN PRINT"   DRATS! YOU WIN BY"ABS(SCRE)"POINTS!"
3170 IF SCRE=0 THEN PRINT"  WHAT DO YOU KNOW, A TIE!
3180 [153]"                            CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDPLAY AGAIN? ";
3190 UL[178]1:US$[178]"YNH":[141]35
3200 [142]
3210 [143]---DIAGNOSTIC ROUTINE---
3220 [153]"LOAD"
3230 [153]:[153]"L0="L0
3240 [153]"LEVEL 1 TREE
3250 FOR I= 1 TO 6:PRINTL1%(I);:NEXT I
3260 IF LEVEL=1 THEN 3300
3270 PRINT:PRINT"LEVEL 2 TREE
3280 [129] I[178]1 [164] 6:[129] J[178]1 [164] 6
3290 [153]L2%(I,J);:[130] J:[153]:[130] I
3300 [141] 1360
3310 [141] 1690:[142]
3320 [143]---LEVEL=1----
3330 E[178]BO%(L,7)[171]BO%(L,14)
3340 [139] HND[178]0 [167] E[178][171]INF:[143] NOT LEGAL MOVE
3350 L1%(I(1))[178]E
3360 [142]
3370 [143]---LEVEL 2---
3380 E[178]BO%(L,7)[171]BO%(L,14)
3390 [139] HND[178]0 [167] E[178]INF
3400 L2%(I(1),I(2)[171]7)[178]E
3410 [139] E[179]L1%(I(1))[167] L1%(I(1))[178]E
3420 [139] L1%(I(1))[179]L0 [167] F2[178]1
3430 [142]
3440 [143]---LEVEL 3---
3450 E[178]BO%(L,7)[171]BO%(L,14)
3460 [139] E[177]L2%(I(1),I(2)[171]7) [167] L2%(I(1),I(2)[171]7)[178]E:[139] E[177][178]L1%(I(1))[167] F3[178]1
3470 [142]
3480 [143]---BLINK MOVE---
3490 D[178]PIT%(PIT,2)[172]40[170]PIT%(PIT,1)[170]US
3495 [137]3560
3500 [129] I[178]0 [164] 2
3510 [129] J [178] 0 [164] 3
3520 D1[178][194](D[170]J[170]40[172]I):[139] D1[177]128 [167] 3550
3530 [151] D[170]J[170]I[172]40,D1[170]128
3540 [130] J:[130] I
3550 [129] I[178]1 [164] 500:[130] I
3560 [142]
3570 [143] MOVING UP FROM LEVEL 2
3580 [139] L1%(I(1))[177]L0 [167] L0[178]L1%(I(1))
3590 [142]
3600 [143] MOVING UP FROM LEVEL 3
3610 [139] L2%(I(1),I(2)[171]7)[177][178]L1%(I(1)) [167]      3640
3620 L1%(I(1))[178]L2%(I(1),I(2)[171]7)
3630 [139] L1%(I(1))[179] L0 [167] F2[178]1
3640 [142]