!65297,15:65296,1:1,700,5=65301,9:65305,14:800] ** ML STOP KEY DISABLE **"x=X` LXxU䅑X`"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::## +++ INPUT SECTION +++;(UO,0:UR$"":UI$""K*UL0UL80^-" ";:UC,0r2UI$:UI$""507UI$(13)(UR$)1UC,1:" ";:85<UI$(20)105> (UR$)UL50A120: CHECK FOR VALID CHARACTERFUR$UR$UI$KUI$; P50/U +++ CHECK FOR HELP REQUEST +++WZUR$UX$195: EXIT TO HELP ROUTINEf_UF1240sdUF0::f ++ CHECK DELETE ++i(UR$)150nUR$(UR$,(UR$)1)s" ";:50x ++ CHECK FOR VALID CHARACTERS ++}(US$)0150US1(US$)(UI$(US$,US,1).;UI$"":V ** STANDARD INPUT **g(UI$)46xUI$(32)(UI$)48(UI$)57170(UI$)65(UI$)90180(UI$)193(UI$)218UI$"":(UT)UU%UI$((UI$)128): UI$"":=UF1: +++ HELP ROUTINE EXIT +++F250O245nUQUB(U2%256U1%U3%2)UQ%(UQUB)(UQ)::""UZ1:UV%(UT)300UZ0:US$UJ$:UG$UK$:UPUJ:ULUK(50003)053281,1:"";:65301,7:65305,14:220 "";;UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)PUQ,UQ%(UQUB):\U1,U1%hU2,U2%tU4,U4%U3,U3%135UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ":#U1%(U1):U2%(U2):U3%(U3):U4%(U4)KUJ$US$:UK$UG$:UL$UT$:UJUP:UKULQb, ** MENU **h-:."":UT,UU%:(50003)065301,10:65305,10/:1" MENU"6" --------------------------------------";" 1. BEGIN RHYME CONCENTRATION"D@" 2. STUDENT INSTRUCTIONS"nE" 3. TEACHER INSTRUCTIONS"O" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) "; ^UL1:US$"1234":35: INPUT ROUTINE`US$""4c(UR$)1000,400,500,396=h300d ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)065301,7:65305,14"":875: ** STUDENT INSTRUCTIONS **$"":UT,UL%:(50003)065301,1:65305,1EUP0:UG$"TUDENT NST":850u" HEN THE COMPUTER ASKS YOU TO CHOOSE A"" SQUARE, ENTER THE NUMBER OF THE SQUARE"" YOU WISH TO BE REVEALED. RY TO MATCH"" THE SOUND OF THE FIRST WORD THAT IS "," REVEALED WITH ANOTHER WORD UNDER"E" ANOTHER SQUARE."r" F YOU DONT MATCH THEN DON'T FORGET"" WHERE THAT WORD WAS BECAUSE YOU'LL HAVE";" ANOTHER TURN."" F YOU NEED HELP THEN PRESS '' RETURN"835UZ1UP%:217/ ** TEACHER INSTRUCTIONS **_"":UT,UL%:(50003)065301,3:65305,12UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE" " PLEASE CONTACT:"J" OMMODORE USINESS ACHINES"m" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: HYME ONCENTRATION"<" RITTEN Y : NKNOWN`" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 " 64 & LUS/4 - 16 835NUZ1UP%:217W=X ** PROGRAM MODIFICATION INST **NY"":UT,UL%n]UP0:UG$"ROGRAM OD":850w835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 "" LOAD THE 'CBM 4032' PROGRAM"-UU713> (14)r""";:UT,UU%:(50003)065305,14:65301,7$I138:"";:&I122:"";:(I137:"";:*I122:"";:,"  ."  8 0" V 2" ~ 4"C O M M O D O R E 6"EDUCATIONAL 8"SOFTWARE : ** COMMODORE LOGO **!;(UD$,24);"PRESS SPACE BAR OR WAIT":I05!<A$:A$" "II1:I250828Y!>T1$"":T2$"":T3$"":T4$"":I0b!@300~!C ** SPACE BAR PRESS **!HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"!LUI$:UI$" "844!N!R ** PAGE DESIGN ROUTINE **"TUPUP1,"W""(UT$UP$,22);(UP$UG$(UP),17)["\" --------------------------------------"j"`UH0870"a(UD$,24);(UP$,7);"HELP - PRESS H ""fUH0:"":"k ** PLEASE WAIT REMARK **#p(UD$,24);" ONE MOMENT PLEASE... " #u'# ** SET UP VARIABLES **r#UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024#UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0#(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU20482$(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198V$UD$""$UP$" "$UT$" HYME ONCENTRATION": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!***$$ ** SET VARIABLES **$900% ** CHECK FOR 8032 **8%"":"": SHIFTED SPACEO%(UB40)96700h% ** MEMORY CHECK **|% (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 **f&3076,133:3076,144:3076,234:3076,4:3076,133:3076,145&3076,155:3076,133:3076,144:3076,234:3076,133&3076,145:3076,234:3076,234&(50003)160955'3076,88:3076,228:3076,85:3076,228:965'(50003)1990H'3076,49:3076,230:3076,46:3076,230:965'3076,141:3076,20:3076,3:3076,8:3076,141:3076,21'3076,3:3076,145:3076,52:3076,234:3076,49:3076,141'2123,20:2124,3:2126,234:2127,141:2128,21:2129,3(UU48: DISABLE STOP KEY'(800: TITLE7(300: MENUh("THE PGM WILL NOT WORK ON THIS MACHINE!":(UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **("";::(50003)065301,7:65305,3(L UT,UL%(M11000(Q V0 W$(20):V1)VVV0 Y$(20):VV11)[A8:B$"YYYYYYYYYYYYYYYY";)`""z)e N132:"";::"ATCHHEHYMINGORDS")o"":)t N1(((0)6)1)2: Y$:)y N 1 16)~X((0)16)1) (B$,X,1)"Y" 1175)XX1* X17 1155*X1: 1155/*B$(B$,X1)"N"(B$,16X);* W$(X){*"   "N" ";: N9 1195* " ";*"";* N4(N4) 1210*""*:""*B$"YYYYYYYYYYYYYYYY"*D(1)0:DD(2)0* P12+""+ N116:"";:(+S(1)S(2)06+P$(P)":"C+ N1 2_+"": C1 18: "";:+"HOOSE A SQUARE (1-16)? ";:865+"";+ 1610+S(N)Y+ S(N)(17S(N))0 1285+ 1255, (B$,S(N),1)"Y" 1295N, "HAT ONE IS OUT OF PLAY. ":I11500::1255Y, 1700a, Ng,,"";: N121: "";:,#" ";,(N0,- M$,2NN1,7 M$W$(S(1)) 1325,< N2(N2) 1350,ANN2,F,K C1 N1-P M$ -U%-Z M$W$(S(2)) 1440R-_"O MATCH.":65296,1:65297,15:1,750,5a-bI1500:l-d 1670x-i N12-nY$(S(N))W$(S(N))-sW$(S(N))" "(S(N))" "-x S(N) 9 1410-}W$(S(N))W$(S(N))" "- "";- 1700.W$(S(N))Y$(S(N)).. ""#. 1490i."HAT'S A !!":AA1:D(P)D(P)1:65297,15:65296,1:1,700,5x.I1500:. 1670. N1 2.B$(B$,S(N)1)"N"(B$,16S(N))..W$(S(1))P$(1):W$(S(2))P$(1). P1 1480/W$(S(1))P$(2):W$(S(2))P$(2)/ N12*/ 1700:;/ A0 1535V/"";: N118:"";:b/ N15/" "// ""/ N1 18:"";:/::: P/ 1225/"": N116:"";:0 N1 5:" ":0 "";[0" HAT'S THE GAME.":65297,15:65296,1:1,700,5v0P1: D(1)D(2) 15700P2:D(1)D(2)15700" OU BOTH HAVE 4 MATCHES, YOU'VE TIED.":15760"" "P$(P) " WINS WITH"D(P)"MATCHES." 1'" ELL PLAYED, "P$(P)"."1( 8351)'1JZ$""E1O FOR Y=1TO10:GET X$:NEXT`1TUS$"":UL2:35:Z$UR$q1|Y0: Y(Z$)y1:1 ""1 N1 20:"";:1:Z$UR$1XS(N)(S(N)4)41 X0 17151X41X(X1)81L(W$(S(N)))2"";: X0 17402 C1 X'2"";:C2Y((S(N)1)4):YY41W2 C1Y:"";:_2F02" ";: L5 17702F((7L)2)2 C1 F:" ";:2 W$(S(N));: FL7 17802 C1 7LF:" ";:2 " ";3.3 SIGN,STEIN,WAIT,FREIGHT,THOUGHT,CAUGHTU3 REIGN,STAIN,DAWN,GONE,THOUGH,BOWt3 STAID,WEIGHED,CHAFE,WAIF3  GLOAT,ROTE,PEAK,CHIC,LAIR,WEAR3 FIGHT,HEIGHT,GAUGE,RAGE,LEAN,KEEN3*UH1:850:3+"HAT IS THE NAME OF PLAYER 1?"4 +" ";:UL7:35:P$(1)UR$B4+"HAT IS THE NAME OF PLAYER 2?"`4 +" ";:UL7:35:P$(2)UR$f4*+