910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **: ** TO OUR BEST KNOWLEDGE THIS  PROGRAM IS FREE FOR/  DUPLICATION IN CANADA.L  IF YOU HAVE CONTARYi  INFORMATION, PLEASE  CONTACT COMMODORE CANADA AND  EVERY EFFORT WILL BE MADE TO  WITHDRAW COPIES OF THIS  PROGRAM. : "RHYMECONC.C0" PRG% # +++ INPUT SECTION +++= (UO,0:UR$"":UI$""M *UL0UL80W -UC,0k 2UI$:UI$""50 5SID4,17:SID1,(UI$):WV112:WV:SID1,0 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER# FUR$UR$UI$- KUI$;5 P50Z U +++ CHECK FOR HELP REQUEST +++ ZUR$UX$195: EXIT TO HELP ROUTINE _UF1240 dUF0:: f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS +++ }(US$)0150; US$US$UX$L US1(US$)c UI$(US$,US,1)i v UI$"": ** STANDARD INPUT ** (UI$)46 UI$(32) (UI$)48(UI$)63170 (UI$)65(UI$)90180  (UI$)193(UI$)218UI$"":@ (UT)UU%UI$((UI$)128):F S UI$"":x UF1: +++ HELP ROUTINE EXIT +++ 250 245 UQUB(U2%256U1%U3%2) UQ%(UQUB)(UQ):DQ%(UQUB)(UQ54272)::"" UZ1:UV%(UT) 300;UZ0:US$UJ$:UG$UK$:UPUJ:ULUK:(50003)053281,0:53280,0pUT$UL$:"";:UT,UV%:UQUB(U2%256U1%U3%3)UQ54272,DQ%(UQUB):UQ,UQ%(UQUB):U1,U1%U2,U2%U4,U4%U3,U3%135UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):A(UD$,24);"  HELP COMING ":mU1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL, ** MENU **-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"36" --------------------------------------"Z;" 1. BEGIN WORD LADDER"@" 2. STUDENT INSTRUCTIONS"E" 3. TEACHER INSTRUCTIONS"O" 4. QUIT"T" --------------------------------------"$Y" PRESS A NUMBER KEY (1-4) ";L^UL1:US$"1234":35: INPUT ROUTINE^_(UR$)1300i`US$""c(UR$)1000,400,500,396h300 ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,0:53280,0!"";(14);:,875:M ** STUDENT INSTRUCTIONS **dUT$" ORD ADDER""":UT,UL%:(50003)053281,0:53280,0UP0:UG$"TUDENT NST":850" N THIS GAME YOU START WITH A WORD AND" TRY TO GET TO ANOTHER WORD."7" N EACH MOVE, YOU CHANGE ONE LETTER ATG" A TIME.u" OU WILL HAVE TO STICK TO WORDS THAT" ARE IN MY DICTIONARY. KNOW ABOUT" 250 WORDS."5000835:850" F YOU TYPE 'H' (FOLLOWED BY RETURN),"-" 'LL LIST THE WORDS THAT COME FROM"H" YOUR CURRENT WORD"o" Ġ!~ 835:850" OTE:O ADVANCE FROM ONE QUESTION"" TO THE NEXT PRESS THE  BAR" " F AT ANY TIME YOU WISH TO RETURN"7" TO THE  PRESS '?' "@835TUZ1UP%:217Z{ ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UT$" ORD ADDER":UP0:UG$"EACHER NST":850 " O THE BEST OF OUR KNOWLEDGE,"6" THIS PROGRAM IS IN THE PUBLIC"b" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"2" (416) 499-4292"HUP1: 835: 850:p" ROGRAM AME: ORD ADDER" RITTEN Y : ILL INZER" PGRADED Y : EAN INSTEAD" HIS PROGRAM WILL RUN ON ANY" à2.0 7" 4.0 ԠY" 8032 ~" 64 D835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850835UZ1UP%:217@ ** TO USE 8032 LOAD CBM4032 **v"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71 ** TO USE 8032 LOAD CBM4032 **-"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"91093:Y  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:"";:," 2."  S0" q2" 4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **.;(UD$,24);"PRESS SPACE BAR OR WAIT":I0P<A$:A$" "II1:I250828t>T1$"":T2$"":T3$"":T4$"":I0@5100:300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844MSID4,17:SID1,25:WV115:WV:SID1,0%NER ** PAGE DESIGN ROUTINE **QTUPUP1{W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS ? "fUH0:"":k ** PLEASE WAIT REMARK **Sp(UD$,24);" ONE MOMENT PLEASE... "Yuv ** SET UP VARIABLES **UX$"?":UQ%(1000),DQ%(1000):UB32768:U1196:U2197:U3198:U4216 UC167:UU1024:UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0L(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198:U9828UD$""UP$" ":(50003)0U9623I UT$" ͠Š": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** SID54272:XSIDSID24:X,0:X:SID24,10:SID6,240   ** SET VARIABLES ** ZZ$" " 900 : :  ** CHECK FOR 8032 **!"":"": SHIFTED SPACE*!(UB40)96700C! ** MEMORY CHECK **W! (0)2000937!"THIS MACHINE DOES NOT HAVE ENOUGH"!"MEMORY TO RUN THIS PROGRAM !"!UU71!!"":(50003)0962" ** BASIC 2.0 OR 4.0 OR C-64 SETUP **A"1075,133:1076,144:1077,234:1079,4:1080,133:1081,145w"1091,155:1098,133:1099,144:1100,234:1103,133"1104,145:1105,234:1082,234"(50003)160955"1093,88:1094,228:1097,85:1102,228:965"(50003)1990##1093,49:1094,230:1097,46:1102,230:965]#2099,141:2100,20:2101,3:2103,8:2104,141:2105,21#2106,3:2115,145:2117,52:2118,234:2121,49:2122,141#2123,20:2124,3:2126,234:2127,141:2128,21:2129,3#UU48: DISABLE STOP KEY$800: TITLE$300: MENUC$"THE PGM WILL NOT WORK ON THIS MACHINE!":x$UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **$"";::(50003)053281,0:53280,0$UG$"":UP0:UT$" ORD ADDER"$UH1:UT,UL%:850:880:UPUP1 %L WORD LADDERS BY BILL FINZER, SFSU, JANUARY, 1980+%Q 1435P%V-SETTING UP A WORD LADDER------a%[1145: INIT%`" WHAT IS THE STARTING WORD";:US$"":UL10: 35:WRD$UR$%eDICT$(0)WRD$:NW1*LI1%j 1170: CONSTRUCT%o 1355: TARGET%t1435&y--INIT----&~ UT,UL%,& VF0 DICT$(255):VF1O&SN9100: STATEMENT # FOR DATAU&m&----DICTIONARY----&LILI1: LINW & LI255 &CW$DICT$(LI)&" WORKING ON "CW$& 1275: GO THROUGH PERMS& 1730: ADD DATA' 1175'-----LOOK UP W$-----%'F$"F"4'I0 NW1R' W$DI$(I)F$"T":INW1Y'I_'r'---ADD NW$---}'W$NW$'1210' F$"T" 1270'DI$(NW)NW$'NWNW1''--SUBSTITUTIONS--'LW(CW$)' LR1 LW (  NL("A") ("Z")(NW$(NL):( LR1 NW$(CW$,LR1)NW$\( LRLW NW$NW$(CW$,LR1)m(" "NW$"? ";(# 2035: A$"Y" A$"N" A$"S" A$"B" 1315((" "A$(- A$"S" NL("Z")(2 A$"B" NLNL1:1295(7 A$"Y" 1240)< NL)A LR)F))K-GET TARGET---R)P" ԠԠĠϠՠ? ";a)UC0:F$"T"l)Z 2125})_W$B$: 1210)dF$"F"" "B$" ӠԠΠ٠": 1360)i 850:865:" 4010 T$="(34)B$(34))k" GOTO 4000";*n UO,2: U9,13: U91,13:300*s1*x-COMP OW$ WITH W$--@*}C0:F$"T"R* I1 (W$)u*(W$,I,1)(OW$,I,1) CC1|*I*C1F$"F"**----MAIN ROUTINE OF GAME----* UT,UL%*T$"HUMS"* 1520: INIT GAME*OW$DI$(0) + 1670: PLAY GAME+ FV5 1468*+ 15004+ 835D+ 850: 865+"ϠՠԠϠ٠5 ? ";:US$"YN":UL2: 35:A$UR$+FV0: A$"Y" 1500+ A$"N" 300+OW$DI$(((1)NW))+T$DI$(((1)NW)),W$T$: 1400: C(W$)1 1500, 1465.,----GAME INSTRUCTIONS_,BL$" ",D$"",NW0: AA0 DICT$(255):AA1,, W$,  W$"////" ,DICT$(NW)W$:NWNW1, 1540,,| 835- --------PLAY GAME------S- 850:865:"  "T$" ";(ZZ$,(OW$)1)o-" Ԡ "OW$""u-- 2125-: B$"H" 1885: 1675: HELP-: W$B$- 1400: F$"F" 1990: 1690: ILLEGAL MOVE.: 1210: F$"F" 1865: 1690: NOT IN DICTIONARY;. B$T$ OW$B$: 1690x." YOU GOT IT!":FVFV1:SID4,33:EZ110:SID1,20.WV110:WV:SID1,0:WV15:WV,EZ. 835..----MAKE DATA-----. DNNW . 850:865:" ";.SNSN1/L0/SN"DATA";2/DICT$(DN);:LL1:DNDN1J/ DNNW : 1780h/ L10 SNSN1:: 1750y/",";: 1760/" NW="NW":DN="DN":LI="LI":SN="SN":GOTO5200";/ UO,10:I0 9: U9I,13: I/0----REINIT AND CONTINUE SETTING UP DICTIONARY0 UO,00 *0 DICT$(255);0 I0 NW1L0:: DICT$(I)T0! I_0& 1840i0+113000----LIST DICTIONARY---05 I0 NW1 20:::DICT$(I)" "DICT$(I1)0? I0D0I---NOT IN DICT ERROR----1NM$"ORRY, DON'T KNOW THAT WORD"1S 2010!1X@1]----HELP- (FROM OW$)-----R1bLI(U4):LC0`1gTEMP$OW$1l GOSUB 1960:REM CLEAR HELP FRAME1nUH1: 850: 3991q"ŠŠŠӠɠ"1v9)"Ǡ "OW$;"" 2{SID4,129: W0 NW12: W$DICT$(W)32: 1400: COMPAREI2: F$"F" 1945o2: SID1,5:11LC((W$)2))W$;2: LCLC1: (LC1)((W$)2)28 LC0:2SID1,0: W2""(D$,LI2)2835:2-----CLEAR HELP----2"";2 I1 243: 12)(BL$,27)3 I!3;3---ILLEGAL MOVE-----e3M$"ORRY, MUST DIFFER BY 1 LETTER"p3 2010v33---PRINT MESSAGE-----3""(W$)2)""M$3 2150: WAIT3""BL$""33---GET SINGLE CHAR----3TTI4 TIT30 "";: 206004 TIT60 " ";: 206094TTIQ4  A$: A$"" 2045^4" ";:v4----GET STRING----4(U4)20UPUP1:A91:850:"  "T$" ";4A91(ZZ$,(OW$)1)4A91A90:OW$QQ$:" Ԡ "OW$""5" ";:US$"":UL20:35#5 B$UR$:QQ$B$M5"(B$)(OW$)"";(UP$,30)"":2070S5%s5M---GET NON-EMPTY STRING---5RB$"": UO,05W 20705\ B$"" 21355a5f---WAIT 2 SECS----5kTTI5p TIT120 21605u UO,0:#6zMATH,BATH,HATH,LATH,OATH,PATH,MOTH,MYTH,MACH,MASH26MATE,MATSP6BETH,BOTH,BACH,BASH,BATSd6HASH,HATE,HATSs6LASH,LATE}6OATS6PITH,PATE,PATS6DOTH,LOTH,MOTE6MUCH,MACE,MACK,MACY6CASH,DASH,GASH,RASH,SASH,WASH,MESH,MUSH,MASK,MASS6MAST67DATE,FATE,GATE,KATE,RATE,SATE,MADE,MAGE,MAKE,MALEJ7MANE,MARE,MAZE7CATS,FATS,RATS,TATS,VATS,MITS,MUTS,MAGS,MANS,MAPS7MARS,MAWS7SETH,BETA,BETS7BOOH7EACH,BACK7BASE,BASK,BASS7BITS,BUTS,BAGS,BAMS,BANS,BARS,BAYS8HUSH,HASP!8HALE,HARE,HAVE,HAZED8HITS,HOTS,HUTS,HAGS,HAMS,HANSX8LUSH,LASS,LAST{8LUTE,LACE,LAKE,LAME,LANE,LAZE8OPTS,OUTS,OAFS,OAKS,OARS8PITA,PITS,PITY8 PACE,PAGE,PALE,PANE,PARE,PAVE8 PETS,POTS,PUTS,PADS,PALS,PANS,PAWS,PAYS 9 DOTE,DOTS9 LOTSH9 NOTE,ROTE,TOTE,VOTE,MODE,MOLE,MOPE,MORE,MOVE\9 OUCH,SUCH,MUCKp9 FACE,RACE,MICE9$ HACK,JACK,LACK,PACK,RACK,SACK,TACK,MARK9) MANY,MARY9. CASE,CASK,CAST93 DISH98 GUSH,GASP9= RUSH,RASP9B WISH,WASP:G MESA,MESS$:L BUSH,PUSH,MUSE,MUSK,MUSTV:Q GETS,JETS,LETS,NETS,SETS,WETS,BEES,BEGS,BESS`:V ETCHy:[ BUCK,BALK,BANK,BARK:` FITS,KITS,SITS,TITS,WITS,ZITS,BIAS,BIBS,BIDS,BITE:e CUTS,GUTS,NUTS,RUTS,BUDS,BUGS,BUMS,BUNS;j GAGS,LAGS,NAGS,RAGS,SAGS,TAGS ;o HUGS;t HUMS;y LUST-;~ LUBE,LURE7; LINEA; OURSU; PIES,PIGS,PINS_; CITY}; PEAS,PEGS,PENS,PEWS,PETE; NODE,NONE,NOPE,NOSE; "////";835:850;" ERE IS AN EXMPLE.";"  HUMS "#<"  Ԡ BATH";<17)" BATS":6000S<17)" HATS":6000k<17)" HAMS":6000<17)" HUMS":6000<" YOU GOT IT!!<<"";(14);:53280,0:53281,0=" DISTRIBUTED BY":WV11000:WVH=" ":" ":" ":" ":" VANSVILLE"=:" ":"  ":" ":" ":" RINTING"=:" ":" ":" ":" ":" ORPORATION"=WV12500:WV>" MODIFIED BY: EAN INSTEAD":WV11500:WV>.>pA1800::