910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **:::# +++ INPUT SECTION +++ (UR$"":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++$ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELP ROUTINE EXIT +++ 250 245/ UQUBUM1023K UQ%(UQUB)(UQ)::""^ UZ1:UV%(UT)g 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB1943 UQ,UQ%(UQUB): U1,U1% U2,U2%& U4,U4%4 U3,U3%1< 35n UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) UJ$US$:UJULUJ$US$:UK$UG$:UJUP:UKUL , ** MENU **$-:S."":UT,UU%:(50003)053281,9:53280,8Y/:v1" MENU"6" --------------------------------------";" 1. SHAPE RECOGNITION"@" 2. STUDENT INSTRUCTIONS" E" 3. TEACHER INSTRUCTIONS"<O" 4. QUIT"kT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE_: (UR$)1300`US$""c(UR$)1000,400,500,396h300+ ** RE-ENABLE STOP KEY AND END **Z(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0 UP0:UG$"TUDENT NST":850>: " HIS IS AN APTITUDE TEST WITH"j: " DIFFICULTY LEVELS RANGING FROM": " GRADE 1 TO GRADE 9. OU CAN ALSO": " CHOOSE THE SPEED FROM 1 TO 9.": " OLLOW THE INSTRUCTIONS IN": " EACH TEST. EMEMBER, TIME AND"F: " ACCURACY ARE IMPORTANT FACTORS."W: 835:850: " EMEMBER TO HIT AFTER": " TYPING YOUR ANSWER. HIS TELLS": " THE COMPUTER TO ACCEPT WHAT YOU": " HAVE TYPED. RRORS CAN BE ERASED"?: " WITH THE KEY. F YOU"n: " WISH TO PASS ON A QUESTION, ENTER": " INSTEAD OF YOUR ANSWER.": " YPE AT ANY TIME TO RETURN": " TO THE MENU FOR HELP. OU WILL": " BE RETURNED TO THE PLACE IN THE"J: " PROGRAM WHERE YOU LEFT OFF AS"x: " SOON AS THE OPTION FROM THE MENU": " IS COMPLETE.": 835:850: " N THE GRAPH, ACCURACY IS PLOTTED": " ON THE -AXIS. ORRECT ANSWERS"/: " MOVE THE LINE TO THE RIGHT AND"]: " WRONG ANSWERS TO THE LEFT. IME": " IS PLOTTED ON THE -AXIS. P MEANS": " THAT YOU ARE WITHIN THE SPEED": " AND DOWN MEANS THAT YOU ARE TOO": " SLOW FOR THE SPEED SELECTED.">: " OUR AIM IS TO STAY IN THE TOP"m: " RIGHT QUADRANT OF THE GRAPH. HE": " TEST ENDS WHEN YOU EXCEED THE": " LIMITS OF THE GRAPH. HEN THE": " COMPUTER WILL GIVE YOU ADVICE ON": " WHAT TO DO NEXT."835,UZ1UP%:2172S ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST.":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"(" DOMAIN. F THIS IS NOT THE CASE"E" PLEASE CONTACT:"o" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:1" ROGRAM AME: HAPESS" RITTEN Y : NKNOWNw" PGRADED Y : EREK EE" HIS PROGRAM WILL RUN ON ANY" 64 " 64  835NUZ1UP%:217 W/ ** TO USE 8032 LOAD CBM4032 **e"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:.&I122:"";:F(I137:"";:^*I122:"";:," ."  0" 2" 4"C O M M O D O R E/6"EDUCATIONALN8"SOFTWAREi: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300 C ** SPACE BAR PRESS **EH(UD$,24);"PRESS SPACE BAR TO CONTINUE "\LUI$:UI$" "844bNR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UG$UP$,14);UP\" --------------------------------------"a(UD$,24);(UP$,6);"HELP - PRESS H "$f"":Ck ** PLEASE WAIT REMARK **yp(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"H":UQ%(1024):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768: 50003,0a(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024UD$""UP$" " UT$" " !  ** SET VARIABLES *** 900M S$(10,5),C$(10,4),R(10),S(10)h  ** CHECK FOR 8032 ** "":"": SHIFTED SPACE (UB40)96700  ** MEMORY CHECK **  (0)2000937 "THIS MACHINE DOES NOT HAVE ENOUGH"!"MEMORY TO RUN THIS PROGRAM !"'!UU71-!G!"":(50003)0962v! ** BASIC 2.0 OR 4.0 OR C-64 SETUP **!1075,133:1076,144:1077,234:1079,4:1080,133:1081,145!1091,155:1098,133:1099,144:1100,234:1103,133 "1104,145:1105,234:1082,234#"(50003)160955R"1093,88:1094,228:1097,85:1102,228:965g"(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,141F#2123,20:2124,3:2126,234:2127,141:2128,21:2129,3h#UU48: DISABLE STOP KEYADY.y#800: TITLE#300: MENU#"THE PGM WILL NOT WORK ON THIS MACHINE!":#UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **$"";::(50003)053281,6:53280,14j$395AN=INT(6*RND(1)+1):AM=AN:IFG>6THENAM=INT(AN+2+3*RND(1)):AM=AM+6*(AM>6)$ 'SHAPES' (C) MTD/LBH 1980$"":UT,UL%:875$$I17:J15:S$(I,J)::$I05:T$(I1):S$(8I2,1(I1)4)T$(I1):%I17:J04:C$(I,J)::?%"    "f%"""%,""%6""%@"ϣ  ̤"&J"  ߒ ߩ",&T"  "U&^"  "~&h"  "&r"   "&|"    "&" "'" "9'" "`'"Σ  ͤ"}'"   ߒ"'""'""'""'"   "("    "?(" "`(" "(" "(" Υ   "("   "("")&""*)0""U):"   ͥ"z)D"   ")N"")X"")b"" *l"    "2*v"ߒ ߒ ߒ ߒߩ"S*"   "*" ߒ   ߩ"*"    "*" ߩ ߒ"+"  "5+""," "," "," "," "p+"ߒߩ","ߒ","","ߩ","ߒ"+"","","","","ߒ","ߒ"+"ߒ","ߒ","ߒ"+"ߒ","","",""2,"","","","","",""i,"","","","","","",B1$" ",B2$" 1 2 3 4 5 6 ", B$" ",-B3$" "b- BB$" ":BB$BB$BB$BB$BB$BB$""-*BP$""-4I05:BP$(I)(BP$,56I)::D$"".>R$"":RI$R$R$"":NL$"":TL$""8.HUG$" ":UP0:850a.RQ2$" DIFFERENT ":Q3$" THE OTHERS ".\" RADE (1=EASY...9=HARD)":2870:GQ.f" PEED (1=SLOW...9=FAST)":2870:GIQ:GG60(12GI)G10.k"":UT,UU% /pCCUM668:PCCC:L40:E0:AA0:TT0B/z(50003)053281,1:"":53281,6:53280,14:2177K/""s/D$R$"۳"/TL$RI$"":N115:RI$""::R$R$"GRADE"G"SPEED"GI/""B1$:B2$:N15:B$::B3$02900:AN(6(1)1):AMAN:AM(AN23(1)):AMAM6(AM6)J0G2610,2580,2460,2500,2640,2540,2330,2370,2400:TR00UT,UU%:CLTI:D$" ";0"? ";:US$"123456?H":UL1:35:Q$UR$0" "0"";Q$:Q$"?""":23101A0:(Q$)AN(Q$)AMA1-1" "P1TTICLGG:T(T)((T)GG3)d12700:E12160r1A122001TRA0TR1:" RETRY":2900:22201 " ANSWER WAS"AN:8351 " GRADE"G" SPEED"GI2 " ":220002 TL$" WHICH HAS MOST 'S"^2$ X6:Y5:2670:I05:K(1)3:IAN1K32. RR(I)3(R(I)3)4:BP$(I)BB$S$(R,5)28 J0K:BP$(I)C$(R,S(J)):::AMAN:2B TL$" WHICH TRIANGLE HAS":" A "Q2$:" TO"Q3$3L X6:Y5:2670:I05:SS(0):IAN1SS(1)V3V RR(I)3(R(I)3)4:BP$(I)BB$S$(R,5)BP$(I)C$(R,S)::AMAN:3` TL$" TWO ARE THE SAME":" ROTATED; GIVE ONE"3j X6:Y5:2670:SR1((1)3):SI0:(AMAN)SRSRSR13t I053~ SS(4):IAN1IAM1SS(SI):SISI124 RR(I)3(R(I)3)4:BP$(I)BB$S$(R,5)BP$(I)C$(R,S)[4 SSSR5(SSR4):BP$(I)C$(R,S)::4 TL$" WHICH BOX CONTAINS":" A"Q2$" SHAPE"4 " TO"Q3$4 X6:Y4:2670:I05:RR(0):IAN1RR(1)4 SS(I5(I4)):BP$(I)BB$S$(R1,S1)::AMAN:*5 TL$" WHICH SHAPE HAS":" A"Q2$"PATTERN"95 " TO"Q3$h5 X6:Y4:2670:I05:SS(0):IAN1SS(1)5 BP$(I)BB$S$(R(I)1,S1)::AMAN:5 TL$" TWO SHAPES ARE":" THE SAME GIVE ONE"5 X6:Y5:2670:SI0:R(AN1)R(AM1):I056 SS(4):IAN1IAM1SS(SI):SISI1;6 BP$(I)BB$S$(R(I)1,S1)::R6 TL$" WHICH IS"Q2$6 X10:Y2:2670:I05:SS(0):IAN1SS(1)6( BP$(I)BB$S$(R(I)1,14S)::AMAN:62 TL$" WHICH IS"Q2$6< X10:K5:2670:I05:SS(0)1:RR(0):IAN1RR(1)!7F BP$(I)BB$S$(R1,14S)::AMAN:]7P TL$" GIVE ONE OF":" THE TWO WHICH":" ARE THE SAME"7Z X10:Y5:2670:R(AM1)R(AN1):S(AM1)S(AN1):I05:SS(I)17d BP$(I)BB$S$(R(I)1,14S)::7n I0X:R(I)I::I0Y:S(I)I:8x I1X:R(1)X:S(1)X:JR(R):R(R)R(S):R(S)J:W8 I1Y:R(1)Y:S(1)Y:JS(R):S(R)S(S):S(S)J::8 T23(A1)2710,2720,2730,2740,2750,2760:27708 PCL1,77:8 PC1,99:8 PC1,78:8 PCL,78:8 PCL,100:8 PC,77:#9 PCPCTL2A1:TTTTT:AAAA2A1:(TT)8(AA)11-9 3000\9 E1:1(AA0)2(TT0)2790,2800,2820,28409 D$" SLOWER!TRY AGAIN":28509 GG1:GGGG109 G9" WELL DONE":835:300: D$" TRY HARDERPROBLEMS":2850I: GG1:GGGG10:G1"TRY AGAIN!":835:300: D$" TRY EASIERPROBLEMS":2850: D$" FASTER!TRY AGAIN":2850:" D$;" OK? (Y/N) ";:US$"YNH":UL1:35:UR$"Y":, 300;6 " YPE A NUMBER 1 TO 9? ";3;@ US$"123456789H":UL1:35B;J Q(UR$):};T TL$RI$"":N115:RI$""::R$R$"GRADE"G"SPEED"GI;^ ; ----- CLEAR MESSAGE -----; TL$;; Z110; : " "; Z;