93000,13,5:1,1:4,7,3:,""," ":,"  ROTATION ":," COPYRIGHT 1984":,"COMMODORE BUSINESS":," MACHINES, INC.":Q65:Z11000::B$(20),C(15),L(15):94B$"    "" DO YOU WANT INSTRUCTIONS (Y/N)?";N A$: A$"Y" A$"N" 4: A$"N" 22I017:B$(I)(I65)::0,2,6:1,1,7:"BOARD POSITIONS ARE OCCUPIED AT RANDOM":"BY THE LETTERS A TO P.":"THE OBJECT OF THE GAME IS TO ORDER THE":"LETTERS BY MOVING ANY FOUR OF THEM -""ONE POSITION AT A TIME - IN A CLOCKWISE":"DIRECTION. ALL FOUR LETTERS WILL MOVE.":"YOU SPECIFY THE UPPER LEFT POSITION OF":"THE FOUR LETTERS YOU WISH TO ROTATE.""  THIS SHOWS THE DIRECTION":" A  B OF ROTATION....":"  ":" ":" ":"  YOU PRESS 'A' TO ROTATE"" D Τ C THESE FOUR SQUARES.":"  ":,"PRESS ANY KEY TO CONTINUE" A$:A$""9 X1100:A$::B$(1)"C":B$(2)"G":B$(5)"B":B$(6)"F":"":92:T26:"":T);"IF THE BOARD":T);"IS LIKE THIS":T);"AT THE START":ATI (TIA)150119 "";T);"AND IF YOU":T);"ROTATE POSI-":T);"TION C, THE":T);"BOARD WILL":T);"CHANGE.":B$(1)"B":B$(2)"C":B$(5)"F":B$(6)"G":ATIL (TIA)20013q92:ATI:" AND YOU WIN!"(TIA)10015,"PRESS ANY KEY TO CONTINUE"A$:A$""17~X1100:A$::"YOU ALSO GET ONE 'SPECIAL' MOVE PER":"GAME WHICH YOU MAY OR MAY NOT NEED.":"THE SPECIAL MOVE ALLOWS YOU TO EXCHANGE":"ANY TWO ADJACENT LETTERS IN A ROW OR COLUMN."8"TO MAKE THIS MOVE, TYPE 'R' AS YOUR":"MOVE (THE 'R' STANDS FOR 'RESTRICTED')":"THEN YOU WILL BE ASKED WHICH LETTERS YOU WISH TO EXCHANGE. ";:"THEY MUST BE":"ADJACENT."" ONLY ONE SPECIAL MOVE PER GAME!":" TO GIVE UP, TYPE 'Q' AS YOUR MOVE.":" PRESS ANY KEY TO START THE GAME.":12);"GOOD LUCK!"A$:A$""21"":0,7,0:4,4,4:1,2,626"";:I0124:W$;:V(B$(I))Q:1,C(V),L(V):C$;" "B$(I)" ";:V(B$(I1))Q:1,C(V),L(V):C$;" "B$(I1)" ";:V(B$(I2))Q:1,C(V),L(V):C$;" "B$(I2)" ";V(B$(I3))Q:1,C(V),L(V):C$;" "B$(I3)" "::1,2,6:eI139:ER$ER$" "::I139:ER$ER$""::DN$"":W$"":C$"  "$B$" ":I017:B$(I)(65I)::I015:T(16(0)):T$B$(I):B$(I)B$(T):B$(T)T$:I:M0:S0:R$B$(1):B$(1)B$(2):B$(2)R$:"";W$;""I084:W$;B$:W$;B$:W$;B$:W$""::W$;B$:W$;B$:W$;B$:W$"":3536:H039DN$;ER$" LETTER TO ROTATE? ";:50:I1638I1758 (I3)(I7)((10I)(I16))55!I1858k"MM1:T$B$(I):B$(I)B$(I4):B$(I4)B$(I5):B$(I5)B$(I1):B$(I1)T${#24:36:29$G0:I015:(I65)B$(I)H1%:&"YOU MADE ";M;" MOVES BEFORE GIVING UP.":40''"YOU ORDERED THE BOARD IN";M;"MOVES.";:NNM:GG1:M2". "T("":"DO YOU WANT TO PLAY AGAIN?(Y/N)";) A$: A$"Y" A$"N" 41: A$"Y" 27+:"YOU PLAYED";G;"GAMES.";:G2". ",G048)-"YOU ORDERED THE BOARD IN AN AVERAGE OF":NG;"MOVES PER GAME.":NG2""M1G;"MOVE PER GAME. "L."THAT'S NOT BAD, BELIEVE ME!"i/"THANKS FOR PLAYING."v0 9500:1DN$;ER$" BAD MOVE, TRY AGAIN. ";279:I017:B$(I)A$" "A$:ER$:523:4945A$:A$""536X1100:A$::/7DN$;ER$" ILLEGAL MOVE - TRY AGAIN!":TTI60<8TIT56D929P:R178;R1:K0:" EXCHANGE WHICH TWO LETTERS? ";:82:J017:B$(J)X$72<B$(J1)Y$K2=J0B$(J1)Y$K5>B$(J4)Y$K4?J3B$(J4)Y$K6@K269 AK670BK571%CK474ODT$B$(J):B$(J)B$(J4):B$(J4)T$:73yET$B$(J):B$(J)B$(J1):B$(J1)T$:73FT$B$(J):B$(J)B$(J4):B$(J4)T$:73GT$B$(J):B$(J)B$(J1):B$(J1)T$:73HIMM1:24:29 J" SORRY - ";X$;" AND ";Y$;" ARE NOT ADJACENT.":R0' KATI9 L(TIA)9076A M29w N" SORRY - ONLY ONE SPECIAL MOVE PER GAME.":75 O"";:ID20:A$:A$"" P:" ";:ID20:A$:A$"" Q:79 R"";:ID50:X$:X$""85!S:" ";:ID50:X$:X$""85!T:820!UX$"A""P"X$829!VX$;[!W"";:ID50:Y$:Y$""90!X:" ";:ID50:Y$:Y$""90!Y:87!ZY$"A""P"Y$87![Y$:W"\"";:W$"":I084:W$;B$:W$" "B$(I)"  "B$(I1)"  "B$(I2)"  "B$(I3)" ":W$;B$:W$""::W$;B$"]W$" "B$(12)"  "B$(13)"  "B$(14)"  "B$(15)" ":W$;B$:W$"":#^C(0)5:C(1)4:C(2)3:C(3)6:C(4)1:C(5)15:C(6)9:C(7)12:C(8)13:C(9)14:C(10)7:C(11)10:C(12)11:C(13)16:C(14)8:C(15)2:L(0)3:L(1)6:L(2)3:L(3)3:L(4)7:L(5)3:L(6)3:L(7)4$_L(8)3:L(9)5:L(10)3:L(11)3:L(12)4:L(13)4:L(14)5:L(15)3:::"END OF ROTATION PROPERTY OF COMMODORE" $T$ 9600$^$ 9330#$h$ 9340.$r$ 9400F$|$ ""(8);(142);:$$""(142)"DO YOU WANT TO RESTART THE GAME ?": 239,0$$X$:X$"Y"9500:$$X$"N"9410$$9500:""(9):$%I07:1375I,FK(I)::: RESTORE FUNC KEYS0%%I07:FK(I)(1375I):1375I,0::: DISABLE FUNC KEYS