910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0: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; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3) UQ,UQ%(UQUB):) U1,U1%5 U2,U2%A U4,U4%O U3,U3%1W 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN PLANES"@" 2. STUDENT INSTRUCTIONS",E" 3. TEACHER INSTRUCTIONS"HO" 4. QUIT"wT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,396h300" ** RE-ENABLE STOP KEY AND END **Q(50003)1(50003)160(50003)0399{UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UH1:UP0:UG$"TUDENT NST":8506" OU WILL SELECT THE OPTION ON WHICH"W" YOU WISH TO BE DRILLED."" OU WILL THEN BE ASKED FOR THE NUMBER"" OF QUESTIONS YOU WOULD LIKE TO ANSWER"" AND THE SKILL LEVEL YOU WOULD LIKE." " HE QUESTION(S) WILL BE GIVEN."6" OUR SCORE AND THE PERCENTAGE WILL"G" FOLLOW."P835^UH1:850n" OTE:"" EMEMBER TO PUT EQUATIONS IN"" THE FORM: AX+BY+CZ+D=0."" O ADVANCE FROM ONE QUESTION"" TO THE NEXT PRESS THE BAR.">"F AT ANY TIME YOU WISH TO RETURN"c" TO THE PRESS H ."l835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UH1:UP0:UG$"EACHER NST":850+" O THE BEST OF OUR KNOWLEDGE,"T" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"0" ANADA 1 24"P" (416) 499-4292"kUH1:UP1: 835: 850:" ROGRAM AME: LANES" RITTEN Y : . . OOPER" PGRADED Y : TEVE UTZ" HIS PROGRAM WILL RUN ON ANY$" 64 I" 64 R 835fNUZ1UP%:217lWX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UH1:UP0:UG$"ROGRAM OD":850835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **F"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:"";:'(I137:"";:?*I122:"";:d," ."  0" 2" 4"C O M M O D O R E6"EDUCATIONAL/8"SOFTWAREJ: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **(HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"?LUI$:UI$" "844ENeR ** PAGE DESIGN ROUTINE **qTUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870 a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":=k ** PLEASE WAIT REMARK **sp(UD$,24);" ONE MOMENT PLEASE... "yu ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0b(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$" "EUT$" ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***Ke ** SET VARIABLES **n900 ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)96700 ** MEMORY CHECK ** (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH"="MEMORY TO RUN THIS PROGRAM !"HUU71Nh"":(50003)0962 ** 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,234D(50003)160955s1093,88:1094,228:1097,85:1102,228:965(50003)19901093,49:1094,230:1097,46:1102,230:9652099,141:2100,20:2101,3:2103,8:2104,141:2105,21- 2106,3:2115,145:2117,52:2118,234:2121,49:2122,141g 2123,20:2124,3:2126,234:2127,141:2128,21:2129,3 UU48: DISABLE STOP KEY 800: TITLE 300: MENU "THE PGM WILL NOT WORK ON THIS MACHINE!": !UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **8!"";::(50003)053281,6:53280,14K!UG$"":UT,UL%j!R(N)N((2N1)(TI))!L4$"0123456789H"!NC0:HM0!Q$(1)"IND THE EQUATION OF THE PLANE"!8UG$"":850:" OUR OPTIONS ARE:""B" 1. IVEN POINT & NORMAL, FIND PLANE"6"L" 2. IVEN 3 POINTS, FIND PLANE"d"V" 3. ISTANCE FROM A POINT TO A PLANE""`" 4. IND PLANE PASSING THROUGH 2 PTS""j" AND PERPENDICULAR TO A GIVEN PLANE""t" 5. IND THE INTERSECTION OF 3 PLANES"/#~" NTER YOUR CHOICE(S): ";:US$"12345H":UL5:35:CH$UR$A#QN0:H5H5p#CH0:I1(CH$):CHCH2(((CH$,I,1))):#" OW MANY QUESTIONS? ";:US$L4$:35:HM(UR$):HM01180#" NTER LEVEL OF DIFFICULTY? ";:US$L4$:35:HN(UR$):875 $H((HN)):H2H2$HN2HN2($QNHM20404$QNQN1Y$OP1(5(1)):(2OPCH)01240z$OP1260,1270,1280,1290,1300$2110:1960:I13:" "Q$(I)::1980:1990:1220$2140:1960:I13:" "Q$(I)::1980:1990:1220%2210:1960:I24:" "Q$(I)::1980:1990:1220R% 2250:1960:I15:" "Q$(I)::1980:1990:1220%2310:1960:I25:" "Q$(I)::1980:1990:1220%35%(%L81:LN1:US$"YNH":35:A$UR$:%N1(N1):N2(N2):N2N1CFN1:N1N2:N2CF%N10CF1: &N20CFN1:5&CFN1N2(N1N2):N1N2:N2CF:1510y&AR(H):BR(H):CR(H):DR(H):XAABBCCDD:Y2AC2BD&Z2AD2BC:WAABBCCDD:M(1)X:M(2)Y:M(3)Z&XXYYZZ01530&(1).2M(1)Y:M(2)X'"(1).2M(1)Z:M(3)X:M(2)Y)',(1).2M(1)Z:M(3)Y:M(2)XK'6(1).2M(1)X:M(3)Y:M(2)Zm'@(1).2M(1)Y:M(3)X:M(2)Zs'J'TPR(HN):QR(HN):RR(HN):'^AR(HN):BR(HN):CR(HN):AABBCC01630'h(rN1A:N2B:1490:N1CF:N2C:1490:ACFCF(A):1680(|BCFCF(B):1680-(CFCF(C)h(AACF:BBCF:CCCF:DAPBQCR:P$"":A0B0C1y(A0C0B1(B0C0A1(A1P$"X":1730(AP$((A),2)"X"(B01780(B1P$P$"+Y":1780)B0P$P$"+"((B),2)"Y":1780")B1P$P$"-Y":17805)P$P$(B)"Y"C)C01830])C1P$P$"+Z":1830)C0P$P$"+"((C),2)"Z":1830)C1P$P$"-Z":1830)P$P$(C)"Z")&(P$,1)"+"P$(P$,2))0D01870):D0P$P$"+"((D),2):1870*DP$P$(D)*NP$P$"=0"::*XN10V$"("(N1)","[*bN10V$"("((N1),2)","u*lN20V$V$(N2)","*vN20V$V$((N2),2)","*N30V$V$(N3)")"*N30V$V$((N3),2)")"*+AV2V6V3V5:BV3V4V1V6:CV1V5V2V4:'+UPQN1:UG$"UESTION #":850-+`+" NSWER: ";:US$L4$"+-=XYZ(),":UL17:1310+UR$P$" IGHT!":NC1NC:2010+" RONG! HE CORRECT ANSWER IS ":" ";P$+835+ ,UG$"UMMARY":UH1:UP0:850:16);"LANES":" PTION(S): "CH$K," UT OF";HM;"QUESTIONS,":" YOU CORRECTLY ANSWERED";NCm, NCNC100HM:W(10NC.5)10," HAT'S ";:WNC"ABOUT ";, ""((W),2)"%",*" O YOU WANT ANOTHER DRILL? ";:1480:A$"Y"1020,4->1620:N1P:N2Q:N3R:1880I-HQ$(2)"PASSING THROUGH THE POINT "V$:1630:N1A:N2B:N3C:1880x-RQ$(3)"WITH "V$" AS NORMAL VECTOR":1650-\Q$(2)"WHICH PASSES THROUGH THE POINTS"-f1620:N1P:N2Q:N3R:1880:Q$(3)V$:V1P:V2Q:V3R.p1620:N1P:N2Q:N3R:1880:Q$(3)Q$(3)", "V$:V4P:V5Q:V6RP.z1620:N1P:N2Q:N3R:1880:Q$(3)Q$(3)", "V$.V1V1P:V2V2Q:V3V3R:V4V4P:V5V5Q:V6V6R:1950.AABBCC02140.1650.Q$(2)"IND THE DISTANCE":Q$(3)"FROM THE POINT ":Q$(4)"TO THE PLANE ",/1530:1620:N1M(1)P:N2M(2)Q:N3M(3)R:1880i/Q$(3)Q$(3)V$:AM(1):BM(2):CM(3):1650:Q$(4)Q$(4)P$|/P$((W),2):/Q$(2)"PASSING THROUGH THE POINTS":Q$(4)"AND PERPENDICULAR TO THE PLANE/1630:1620:1650:Q$(5)P$:V1A:V2B:V3C:1620=0N1P:N2Q:N3R:1880:Q$(3)V$:1620:V4N1P:V5N2Q:V6N3Rq0N1P:N2Q:N3R:1880:Q$(3)Q$(3)" & "V$:19500AABBCC02260016500 Q$(2)"IND THE POINT OF INTERSECTION OF:"0 1620:N1P:N2Q:N3R:18801 1630:1650:Q$(3)P$:V1A:V2B:V3C:1630:1650:Q$(4)P$V1$ V4A:V5B:V6C:1630:1650:Q$(5)P$:N1A:N2B:N3Cw1. 1950:AN1BN2CN30232018 P$V$:B:V3C:1630:1650:Q$(4)P$V1$ V4A:V5B:V6C:1630:1650:Q$(5)P$:N1A:N2B:N3Cw1. 1950:AN1BN2CN30232018 P