% FIFTEEN PUZZLE BY W.L.COLSHER_53281,13:53280,2:" FIFTEEN PUZZLE."(" "2" **DO YOU NEED INSTRUCTIONS?"<" PRESS 'Y', OR ANY OTHER KEY FOR NO."FA$:A$""70PA$"Y"1310 dA(20):M0:S54272:""9 nA$" òòò"Y B$" "y C$" ݠݠݠ" D$" ñññ" A$:I13 C$:C$:B$:I C$:C$:D$:Q1 "**WAIT PLEASE" X116:A(X)0: I116- X(16((0)))1:A(X)250: A(X)I:Y 510:TI$"000000":F0230z :610::" " "" *YOUR MOVE";:X$"":X1$"" ,X$:X$""300 6X$"_"X1:350 @X$"1"340 JX1$:X1$""330 TX$X$X1$:X(X$) ^X:410:710:F 370@ h" *ILLEGAL MOVE,RE-ENTER":280] rA(XF)A(X):A(X)16:910l |MM1:280r x  I116:A(I)X430  XI: : F0:SU0:I115:JI116 A(I)A(J)SUSU1 J:I: I18:X:A(X)16SUSU1 &I( 0A(SU2):A2SUF1. :G D2,4,5,7,10,12,13,16M N^ X GAME BOARDr b""::I14: l1):J14:NA((I1)4J):1);:N$(N) vN10" "; N16N$" " N$;1); J:: I : F0:X16 (X4X8X12)A(X1)169 (X5X9X13)A(X1)16I X116760\ A(X1)16F1l X10780 A(X1)16F1 X416800 A(X4)16F4 X40820 *A(X4)16F4 4F " " >I116A(I)I380'610:T$TI$M1110:" *CONGRATULATIONS!!!"u" YOU DID IT IN ONLY"M"MOVES!!"" *AND YOU NEEDED "((T$,1,2))"HOUR, ";((T$,3,2))"MINUTES"" AND"((T$,5,2))"SECONDS."2" **PRESS 'Y' TO PLAY AGAIN OR ANY OTHER KEY TO END."FA$:A$""1010YA$"Y":100_}VLSS24:L,0::S24,15`S5,0:S12,0:S19,0:S6,240:S13,240:S20,240jtI18:Z:~H1,H2,H2:H11LSS24:L,0::L1,L2,L3,D:S1,H1:S8,H2:S15,H3QS,L1:S7,L2:S14,L3:S4,17:S11,17:S18,17T1D::S4,16:S11,16:S18,16:T150::115025,12,6,30,143,71,10025,12,6,30,143,71,10025,12,6,30,143,71,10019,9,4,239,247,251,400,0,0,0,0,0,0,100 22,11,5,96,48,152,100;22,11,5,96,48,152,100V22,11,5,96,48,152,100y18,9,4,209,104,180,800,-1,1,1" FIFTEEN PUZZLE"(" "2" *THE OBJECT OF THE FIFTEEN PUZZLE IS" <" TO MOVE THE NUMBERS AROUND, SO THAT"2F" THEY ARE IN ORDER FROM 1 TO 15."aP" A MOVE IS MADE BY TYPING IN THE NUMBER"Z" YOU WISH TO MOVE. HOWEVER, IF YOU"d" WANT TO MOVE THE NUMBER '1', PRESS"n" INSTEAD THE LEFT ARROW ('_')."x" *THE NUMBER TO BE MOVED MUST BE")"ADJACENT TO THE EMPTY SQUARE."V" THE TYPED NUMBER THEN MOVES INTO THE"l" EMPTY SQUARE."" *DO NOT PRESS RTURN AFTER TYPING THE"" NUMBER."" *YOU WIN, WHEN THE BOARD LOOKS LIKE THE"" FIGURE WHICH FOLLOWS:" " **PRESS ANY KEY TO CONTINUE"4A$:A$""1490AQ1:100WI116:A(I)I:I`610" PRESS ANY KEY TO START"A$:A$""1540Q0::100" **PRSS ANY KEY TO CONTINUE""A$:A$""1570,"":