:59468,12:PK12H PEGBOARD COPYRIGHT (C) 1979 JULIA HALLFORD] RT #1, BOX 455s WYLIE, TX 75098y: CURSOR #11, JUNE, 1979 BOX 550, GOLETA, CA. 93017: AS OF 7/5/79ZPG$"PEG":NM$"11":62000dCR$(13).iBB$" "]n"WANT TO SEE HOW TO SOLVE THE PUZZLE? ";hx60000x"";:1000(IN$,1)"Y"1200M0:X5"";BB$MM1:DL0:"MOVE #"M:YX800:700:DL10006);"FROM? ";:60000IN$"""";:200/(IN$)32IN$(IN$,2):201<X(IN$)IX0470X1X9"TYPE A NUMBER FROM 1 TO 9, PLEASE.":190(XY)2450P(X)32450P(X)62XY450P(X)60XY450P(Y)P(X):P(X)32"JX330972X:JY330972Y@JY,P(Y):JX,32!JI143TP(I)60370:^IKhP(5)32530Tr180r6);"ILLEGAL MOVE":190MM1:MMXMXM11)"TRY AGAIN? ";60000(IN$,1)"N"1000:150600K015:""12)"!!!CONGRATULATIONS!!!(&12)"PLAY AGAIN? ";N+60000:(IN$,1)"N" 1000:150Y,"":X"THE CLOSEST YOU CAME TO A SOLUTIONb"WAS";MX;"MOVES.""WANT TO SEE HOW TO SOLVE IT? ";60000:""(IN$,1)"Y"1000:1200 "": T1DL:T6 *700:Z15:BB$:Z:W T$""k "";8);T$ I15:8);"";30);"":I 8);T$;"" 10)" 1 2 3 4 5 6 7 8 9" 10)"" 10)"ݠݠݠݠݠݠݠݠݠ"  $I19:P(I)* .33097II,P(I):I0 `< J33097G DL500S K124\ M,Nr JMJMM:JNJNN "MOVE #";K 700:5);"FROM";M;"TO";N P188:P(M)62P190 JM,P:L1DL:L:JM,32 JN,P:L1DL:L:JN,P(M) P(N)P(M):P(M)32 O1DL:O @KU J 700:"NOW YOU TRY IT":TT11000:TT:BB$f T 1000: 150 62,62,62,62,32,60,60,60,60 6,5,4,6,3,4,5,3,7,5,8,7,6,8,4,6,2,4,1,2,3,1,5,3 7,5,9,7,8,9,6,8,4,6,2,4,3,2,5,3,7,5,6,7,4,6,5,4 `IN$" ":ZTTI:ZC2:ZD$(20)' jZ$:Z$""60070W tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15b ~60010 Z(Z$):ZL(IN$):(Z127)32" ";:60110 FL(Z127)64(Z127)91Z$((Z128)255) ZL25460010 IN$IN$Z$:Z$;ZD$;Z$; Z13IN$(IN$,2):CR$;:: Z20ZL1IN$(IN$,ZL1):"";:60010m Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000x 60010 (PN060250 260500:"PRESS RETURN TO "; '."THE BOARD STARTS OUT WITH A SET OF PEGS"AT EACHEND, WITH A SPACE BETWEEN THEM.G"THE OBJECT OF THE GAME IS TO SWITCH THEv"TWO SETS OFPEGS. A PEG MAY EITHER MOVE"INTO THE SPACE, IF THE SPACE IS NEXT TO"THE PEG, OR JUMP OVER ONE PEG INTO THE"SPACE. '>' PEGS MOVE TO THE RIGHT, AND"'<' PEGS TO THE LEFT.)60200U$"TO MOVE, TYPE THE NUMBER OF THE SPACE."FROM WHICH YOU WANT THE PEG MOVED, AND8"HIT RETURN. IF YOU REACH A POSITIONB"IN WHICH YOU HAVE NO LEGAL MOVE, ENTERQ"A '0' TO RESIGN.$V"THE PUZZLE CAN BE SOLVED IN24 MOVES.D["SEE HOW WELL YOU CAN DO.O`60200