C64S tape image file  WORD SEARCH 4%ROTATION'STORY PROB -UNIT3QUIZ AUNIT4DRILL 4UNIT5QUIZ ,SENTENCES GUNIT7QUIZ  93004 G$(20,20),W$(20),P%(20,3),D%(8,2)F0,1:4,1: 8ZI120:J120n(G$(I,J)" "::2I18: D%(I,1),D%(I,2):<"ENTER 20 WORDS BETWEEN 4 AND 15 LETTERS"F" IF YOU CAN'T THINK OF 20 WORDS, THEN*P" ENTER THE WORD "(34)"END"(34)" TO HALT INPUT."HZI140:"";::(27)"T"bd I 1 20:W$(I)""n"WORD"I,(27)"Q";:W$(I)xW$(I)"END"160W$(I)""140I1140:ՇW$(1):W$(1)""950:135I220:W$(I)::160L(W$(I)):L4L15"":110QL1(W$(I)):PQ((W$(I),L,1)):PQ65PQ90W$(I)"":140:ՂWkNWI1:NW060"WORDS ENTERED ......"I1NW:I,W$(I)::"OK (Y/N)"A$:A$"Y"A$"N"190 1,900,3A$"N"60"FITTING WORDS INTO GRID ... PLEASE WAIT"; :6"": F 1 NWxP%(F,1)(20(1)1):P%(F,2)(20(1)1):P%(F,3)(8(1)1)XBP%(F,1)((W$(F))1)D%(P%(F,3),1)YBP%(F,2)((W$(F))1)D%(P%(F,3),2)XB1XB20YB1YB20250" K0 (W$(F))1!,X%P%(F,1)KD%(P%(F,3),1)@6Y%P%(F,2)KD%(P%(F,3),2)p@G$(X%,Y%)" "G$(X%,Y%)(W$(F),K1,1)340yJ250T^ K0 (W$(F))1hX%P%(F,1)KD%(P%(F,3),1)rY%P%(F,2)KD%(P%(F,3),2)|G$(X%,Y%)(W$(F),K1,1):30)"FITTED":1,900,3:5:"FILLING SPACES IN GRID ...";[I120:J120:G$(I,J)" "430W1NW(1)1:W2(W$(W1))(1)1:G$(I,J)(W$(W1),W2,1):" "I 1 20:"";J 1 20:G$(I,J);:%" ":Y" "" POSITION CURSOR TO BEGINNING OF WORD "" AND PRESS RETURN TO MARK IT AS FOUND "" USE 'Q' TO QUIT THE GAME ";"":I1NW:23)""W$(I):X%1:Y%1AAD3072X%40Y%:AD,(AD)128K& A$Y0 1,900,2k:AD,(AD)127DA$""Y%20Y%Y%1:540NA$""Y%1Y%Y%1:540XA$""X%1X%X%1:540bA$""X%20X%X%1:540lA$(13)650vA$"Q"780540*X1%X%:Y1%Y%:I1NWKP%(I,2)X1%P%(I,1)Y1%680h:1,400,10:MSMS1:540 WD1102330:1,WD,1:AWI:I1(W$(AW))8256X1%40Y1%,65X1%X1%D%(P%(AW,3),2)Y1%Y1%D%(P%(AW,3),1)::P%(AW,1)0 "":AW1750I1AW1::722)"*"W$(AW)"*";OWFWF1:WFNW 850X540z  UD 1 NW:P%(UD,1)0840X1%P%(UD,2):Y1%P%(UD,1) I 1(W$(UD))*8256X1%40Y1%,2554X1%X1%D%(P%(UD,3),2)>Y1%Y1%D%(P%(UD,3),1):H%R"";V\" "f" "p" ";z"":" YOU FOUND"WF"WORDS"" YOU MADE"MS"MISTAKES"&" PRESS ANY KEY FOR ANOTHER GAME";8A$:1,900,4A 20m -1,0,-1,-1,0,-1,1,-1,1,0,1,1,0,1,-1,1 GAZELLE,GIRAFFE,GORILLA,ELEPHANT,CHIMPANZEE,MONKEY,GIBBON TIGER,LION,PANTHER,CHEETAH,HIPPOPOTAMUS,RHINOCEROS,SHARK DINGO,HYENA,WHALE,EAGLE,CORMORANT,VULTURE":M PHILLIES,CARDINALS,METS,DODGERS,CUBSx REDSOX,WHITESOX,TIGERS,GIANTS,BRAVES PIRATES,BREWERS,ASTROS,ROYALS,YANKEES MARINERS,EXPOS,BLUEJAYS,INDIANS,ORIOLES:  COMPUTER,DISKETTE,PERIPHERAL,PRINTER,HARDWARE6 PAPER,MEMORY,PROCESSOR,BASIC,PASCALh$ FORTRAN,COBOL,ASSEMBLER,PROGRAM,SYNTHESIZER. MONITOR,KEYBOARD,CURSOR,DEBUGGING,FUNCTIONS8:B ENGLAND,AMERICA,AUSTRALIA,AFRICA,INDIAL KENYA,GERMANY,FRANCE,RUSSIA,POLANDV WALES,IRELAND,SCOTLAND,SPAIN,ITALYO` LICHTENSTIEN,URAGUAY,HAWAII,TAHITI,ISRAELUj:}t STEPHEN,DAVID,HENRY,HAROLD,RUSSEL~ ROBERT,ADAM,PAUL,THOMAS,FERDINAND ARCHIBALD,HERBERT,FRANK,PHILLIP,FREDERICK LAURENCE,GERALD,KENNETH,DENNIS,RAYMOND:/ KAREN,SUSAN,NANCY,LINDA,JENNIFERX ERMINTRUDE,KATIE,MARILYN,GAIL,ANNE} CAROL,PENNY,LOUISE,MARY,CLAIRE JOYCE,BARBARA,HELEN,JANE,GRACE,T$ 9600^$ 9330h$ 9340r$ 9400|$ ""(8);(142);:# $""(142)"DO YOU WANT TO RESTART THE GAME ?": 239,0< $X$:X$"Y"9500:N $X$"N"9410c $9500:""(9): %I07:1375I,FK(I)::: RESTORE FUNC KEYS %I07:FK(I)(1375I):1375I,0::: DISABLE FUNC KEYS  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