9106"xX` L4x1X` a"xGX` LXxU䅑X` "xhhhhhhhhhhhHHX` "hhhhhhh` "Ȅ؅ 񷊢ȑ` "ȱ` #UW0UU,15(UC,0:UN,0:UR$"":UI$"":UL0UL39$-UI$:UI$""45Y2UA(UI$):UR(UR$):UA13UR0UC,1:" ";:707UA20(UR0)45:UR$(UR$,UR1):" ";:45<URUL45A95:UR$UR$UI$:UI$;:45FUR$UX$" ";:145KUIUR11:(UR$,UI,1)" " PUR$(UR$,UI)::_(US$)0110JdUI1(US$):UI$(US$,UI,1):UI$""Pi]nUA46psUA32UR0xUA47UA58}UA64UA91UA193UA218UI$"":(UT)UU%UI$(UA128)170:251,0:252,US256:253,0:254,UF:UVUZ1:UV%(UT):300bUZ0:US$UJ$:UG$UK$:UT$UL$:UPUJ:ULUK:"";:UW0UY,6:UX,14UT,UV%:251,0:252,UF:253,0:254,US256:UV:UW0UU,15U1,U1%:U2,U2%:U3,U3%1:U4,U4%:35U1%(U1):U2%(U2):U3%(U3):U4%(U4)!UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL:F,"":UT,UU%:UW0UY,12:UX,6f1" M E N U"6" --------------------------------";" 1. BEGIN ELECTRICITY PROBLEMS"@" 2. STUDENT INSTRUCTIONS" E" 3. TEACHER INSTRUCTIONS"( J" 4. QUIT"T O" --------------------------------" T" PRESS A NUMBER KEY (1-4) "; YUL1:US$"1234" [35:US$"" ^(UR$)1000,400,500,390 c300 rUZ1UP%:155 w UE:"":UW0UY,6:UX,14:UU,14 :7 "":UT,UL%:UW0UY,11:UX,12y UT$" LECTRICITY ROBLEMS":UH1:UP0:UG$"TUDENT NST":850 1230 835 UZ1UP%:155  "":UT,UL%:UW0UY,2:UX,10 UT$" LECTRICITY ROBLEMS":UH1:UP0:UG$"EACHER NST":8509 " O THE BEST OF OUR KNOWLEDGE,"d " THIS PROGRAM IS IN THE PUBLIC" " DOMAIN. F THIS IS NOT TRUE," " PLEASE CONTACT:" " ŠӠ" " 3370 HARMACY VE. " GINCOURT, NTARIO"A " ANADA, 1 24"b " (416) 499-4292"u UH1:835:850 " ROGRAM AME: LECTRICITY ROBLEMS" " RITTEN BY : . . RAY" " EVISED BY : . OSTER" " HIS PROGRAM WILL RUN ON ANY? " à2.0 OMPUTERf " 4.0 ԠOMPUTER " 8032 OMPUTER " OMMODORE 64 OMPUTER 835:UH1:850 " : RILL IN: -OHMS LAW"4 " -ENERGY -POWER"a " -COST OF ENERGY"" OTE: CALCULATOR MAY BE HANDY DUE"" TO MATH INVOLVING FRACTIONS."" HE ONLY MODIFICATIONS IN THIS PRO-" GRAM ARE THE DATA STATMENTS IN LINES "3" 1110-1180. ":835:UH1:850]" T IS ADVISED TO KEEP THE TOTAL"" NUMBER OF COMMENTS THE SAME."" F THE NUMBER OF COMMENTS IS"" CHANGED, THE ARGUMENTS IN LINES 4630"" AND 917 (IE.20) AND THE DIMENSION OF"4 " C$ IN LINE 916 MUST ALSO BE THE SAME."=I835QNUZ1UP%:155WSUC$"BEFORE RUNNING THIS PROGRAM ON AN 8032" LOAD THE 'CBM 4032' PROGRAM": "";:UT,UU%:UW0UY,1:UX,14!I138:" ";:"I122:" ";:1#I137:" ";:I$I122:" ";:i%" &"  '"  O M M O D O R E(" )"EDUCATIONAL *"SOFTWARE)+"1983e,(UD$,24);"PRESS SPACE BAR OR WAIT"UC$:UI0-UI$:UI$" "UIUI1:UI250813.300CUN,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"HUI$:UI$" "840MRUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)NW" --------------------------------------"\UH0(UD$,24);(UP$,7);"HELP - PRESS H "aUH0:"":k(UD$,24);" ONE MOMENT PLEASE... ":"UX$"H":US32768:U1196:U2197:U3198:U4216:UC167:UB1024:UD1084:UE1105kUT59468:UU%12:UL%14:UP%1158:UN158:50003,0:UW(50003):UF(53)UW0US1024:U1209:U2210:U3211:U4214:UC204:UB2048:UX53280:UD2064UW0UT53272:UU%21:UL%23:UP%2151:UN198:UY53281:UU2199:UE2087/UC$(155):UV1214:UW0UF196:UV2238UD$"":UP$" "CM$(20),F(20),FL(16)900:"":"": SHIFTED SPACE(US40)96700((0)(((0))0)65536)500935/UC$"THIS MACHINE DOES NOT HAVE ENOUGH"Y"MEMORY TO RUN THIS PROGRAM !":UE:o""UC$:UW0965UF60UF108UF12495052,0:53,UF4::900UW1601103,88:1104,228:1107,85:1111,228:965UW1"THIS PGM WILL NOT WORK ON THIS MACHINE!":UE:I1103,49:1104,230:1107,46:1111,230:965QUD_800:300xUZ1UP%:UP%:UZ0""UC$;::UW0UY,6:UX,14:UT,UL% ELECTRICITY PROBLEMS BY R.W. DRAY R.R.#2 PETERBOROUGH ONT. K9J 6X35V"HOCKINGLY GOOD! ","N ELECTRIFYING RESPONSE! ","ERY GOOD! "K]I120:CM$(I):`"OU'VE GOT LOTS OF POTENTIAL. ","RE YOU A COMPUTER TOO? "j"OU ARE CORRECT...AGAIN. ","EEP IT UP! ","OW YOU'RE COOKING. " t"HAT WAS NO RESISTANCE FOR YOU! ","ATT A GOOD ANSWER! ","ANTASTIC! "a~"ELL, ENERGIZE MY TRANSISTORS! ","HAT'S WELL WITHIN 5%. ""HAT IS A JEWEL OF AN ANSWER! ","OU MUST HAVE NICE CIRCUITS! ""NCLE HM WOULD BE PROUD OF YOU. ","OOD WORK DEARIE."$"OUR RESPONSE IS CORRECT. ","UP! ","T'S .. GUESS. ".1360`850:"IF YOU WISH INSTRUCTIONS ON THE USE OF"ME, PRESS 'I' IF NOT PRESS 'N'.G$"N"1360UP0:" N THIS PROGRAM CAN SELECT FROM" 11000000 DIFFERENT QUESTIONS FOR YOU.*" HILE 'M LOOKING FOR A GOOD ONE, MYs" SCREEN MAY BE BLANK FOR A FEW SECONDS.  ON'T LET IT WORRY YOU.835:UH1:850" HEN YOU ARE ANSWERING A QUESTION," YOU MUST TYPE YOUR ANSWER AND THEN " PRESS THE KEY MARKED .4" F YOU MAKE A TYPING MISTAKE, YOU CAN^" ERASE IT WITH THE KEY"#" FOUND IN THE UPPER RIGHT CORNER."&835:UH1:850(" E CAREFUL NOT TO HIT THE KEYS TOO2" HARD OR PRESS DOWN TOO LONG. HIS WILL<" SOMETIMES UPSET ME.FAPUT$" LECTRICITY ROBLEMS":UG$""wQUP0:850:" ELECT ONE OF THE FOLLOWING PROBLEM"U" TYPES TO PRACTICE:"Z" 1 HM'S AW PROBLEMSd" 2 NERGY PROBLEMSn" 3 OWER PROBLEMSx" 4 OST OF NERGY PROBLEMS5" 5 A MIXTURE OF THE ABOVEdPRINT" 6 O MORE THANKS, I'M FINISHED" NTER THE NUMBER OF YOUR CHOICE: ";UL1:US$"H12345":35:G$UR$G$"1"1590G$"2"1880G$"3"2160G$"4"2550G$"5"2800IFG$<>"6"THEN1440N850:" ELL, HOPE THAT YOU HAVE ENJOYED~" YOURSELF. AM A WELL EDUCATED COMPUTER" AND IF CAN BE OF HELP TO YOU IN SOME" OTHER AREA OF YOUR SCIENCE COURSE" PLEASE FEEL FREE TO COME AGAIN. " OODBYE FOR NOW.' "D14:38700 ,300d 6850:" HM'S LAW PROBLEMS USE THE FOLLOWING:"} @" = X J" WHERE IS THE POTENTIAL DIFFERENCE T" MEASURED IN VOLTS, THE CURRENT IN ^" AMPERES, AND THE RESISTANCE,"!h" MEASURED IN OHMS.*!m835:UH1:850M!r" SAMPLE PROBLEM MIGHT BE:y!|" POTENTIAL DIFFERENCE OF 5.7 VOLTS!" PRODUCES A CURRENT OF 0.65 AMPERES.!" HAT IS THE RESISTANCE OF THE CIRCUIT?!835:UH1:850"" HE FIRST STEP IS TO SUMMARIZE THE"""" DATA:"J"" = 5.7 = 0.65w"PRINT" V = 5.7V I = 0.65A R = ?"" OW SUBSTITUTE IN =/ TO GET 8.8"" A FINAL STATEMENT: THE RESISTANCE"" OF THE CIRCUIT IS 8.8 OHMS.""4500#.#850:" OW WILL GIVE YOU 5 PROBLEMS"L#" WHICH USE HM'S AW."x#" HEN YOU FINISH THE 5, YOU WILL BE"#" ABLE TO SELECT MORE OF THE SAME, OR A#" DIFFERENT TYPE OF PROBLEM."#" OR THE FOLLOWING QUESTIONS, GIVE8$" THE NUMERICAL PART OF THE ANSWER ONLY,  DO NOT GIVE UNITS.Q$4500:UG$"UESTION"h$L15:UPL1:850r$&3760$0S%3(TI)1:S%3880,3910,3940$:4530$DL$N1360$X850:" ROBLEMS INVOLVING ENERGY USE THE%b" RELATION =T, IN WHICH:,%l" IS THE ENERGY IN JOULESY%v" IS THE POTENTIAL DIFF IN VOLTS%" IS THE CURRENT IN AMPERES%" T IS THE TIME IN SECONDS%835:UH1:850%" OU WILL BE GIVEN ANY THREE OF THE &" VARIABLES AND ASKED TO FIND THE"'&" FOURTH VARIABLE."U&" LEASE KEEP THE FOLLOWING POINTS IN"}&" MIND WHILE DOING THE PROBLEMS."&835:UH1:850&" IME WILL BE GIVEN IN HOURS, AND IF&" THE QUESTION ASKS FOR TIME, YOU MUST'" GIVE IT IN HOURS. (E.G. F THE ANSWERG'" IS 2000 S, YOU MUST GIVE IT AS 0.56H.)'" NERGY MAY BE GIVEN OR REQUESTED IN  JOULES OR MEGAJOULES.'4500'UH1:850:" OU WILL BE GIVEN 5 PROBLEMS TO SOLVE.'" HEN SOLVING THEM, MAKE A SUMMARY+(" OF THE GIVEN DATA AND CHECK THE UNITS.U( " HEN GIVING YOUR ANSWER, GIVE THE(" NUMERICAL PORTION ONLY, NO UNITS.( " FTER THE 5 PROBLEMS, YOU MAY RESELECT"(%" SOME MORE PROBLEMS."(*4500:UG$"UESTION"(4L15:UPL1:850)>3760/)HS%4(TI)1:S%3970,4010,4050,40809)R4530@)\LJ)f1360)pUH1:850:" OWER IS DEFINED AS THE RATE OF USING)z" ENERGY. F ENERGY MAY BE CALCULATED)" BY USING = T, THEN DIVIDING THIS*" BY T WILL GIVE AN EXPRESSION FOR"*" POWER."<*" =/T , =T/T OR =O*835:UH1:850{*" OWER IS MEASURED IN JOULES/SECOND,*" WHICH IS GIVEN THE NAME WATT."*" ONE WATT = ONE JOULE USED PER SECOND*"":4500+850:" ROM HM'S LAW, WE KNOW THAT =@+" AND IF WE SUBSTITUTE IN THE EXPRESSIONi+" FOR POWER, WE GET THE FOLLOWING:+" 2+" =() OR = +835:UH1:850+" HUS POWER MAY BE CALCULATED IF WE, " ARE GIVEN ANY OF THE FOLLOWING SETS  OF DATA:C, " ENERGY & TIME =/To, "CURRENT & RESISTANCE =ɑ2,$ " POTENTIAL DIFFERENCE & CURRENT =,) 835:UH1:850,. " N THE FOLLOWING PROBLEMS, YOU ARE-8 " GIVEN SUFFICIENT DATA TO SOLVE THE2-B " PROBLEM. T WILL HELP IF YOU MAKE A]-L " SUMMARY OF THE GIVEN DATA FOR EACHp-V " QUESTION."z-` 4500-j 850:" F THE QUESTION ASKS FOR TIME, YOU-t " EXPRESS YOUR ANSWER IN HOURS. .~ " OR EXAMPLE, YOUR ANSWER MIGHT BE  5.63 HOURS.8. " OU WILL NOW BE GIVEN 5 QUESTIONSf. " AND THEN YOU WILL BE GIVEN THE CHANCE. " TO SELECT A DIFFERENT PROBLEM TYPE.. " EMEMBER GIVE ONLY NUMERICAL ANSWERS  DO NOT GIVE UNITS.. 4500:UG$"UESTION"/ L15:UPL1:850/ 3760>/ S%5(TI)1:S%4110,4130,4150,4180,4200H/ 4530O/ LY/ 1360/ UH1:850:" LECTRICAL ENERGY MUST BE PAID FOR,/ " AND TO CALCULATE THE COST, ONE MUST/ " FIRST DETERMINE THE TOTAL AMOUNT OF0 " ENERGY INVOLVED. F ONE THEN KNOWSA0 " THE UNIT COST, IT IS EASY TO FIND THEU0( " TOTAL COST.h0- 835:UH1:85002 " LECTRICAL ENERGY USUALLY COSTS"0< " BETWEEN 1 AND 3 CENTS PER MEGAJOULE.0F " IN THE PROBLEMS THAT FOLLOW, YOU ARE1P " GIVEN SUFFICIENT DATA TO DETERMINE"D1Z " THE TOTAL AMOUNT OF ENERGY INVOLVED.q1d " HE COST (IN DOLLARS) PER IS ALSO1n " GIVEN.1s 835:UH1:8501x " OU MUST GIVE THE COST IN DOLLARS,"1 " BUT DO NOT GIVE THE $ SIGN AS PART OF"2 " YOUR ANSWER. IVE THE NUMBER ONLY.G2 " OU WILL NOW BE GIVEN 5 PROBLEMS, ANDr2 " THEN YOU MAY RESELECT IF YOU WISH.2 4500:UG$"UESTION"2 L15:UPL1:8502 37602 S%4(TI)1:S%4230,4260,4290,43202 45302 L2 13603 850:" OU WILL NOW BE GIVEN A RANDOM"B3 " MIXTURE OF PROBLEMS. LEASE"X3 " REMEMBER TO:"3 " -GIVE NUMERICAL ANSWERS (NO UNITS)3 " -GIVE TIME IN HOURS (EG 4.65)3 " -GIVE ENERGY IN MEGAJOULES3" " -GIVE COSTS IN DOLLARS (EG 5.31)$4, " HERE WILL BE 10 PROBLEMS TO A ROUND."B4@ 4500:CQ0:UG$"UESTION"X4J L116:FL(L)0:p4T L110:UPL1:850z4^ 37604h S%16(TI)1:FL(S%)129204r FL(S%)14| S%1029704 S%3880,3910,3940,3970,4010,4050,4080,4110,4130,41504 2980+5 S%S%10:S%4180,4200,4230,4260,4290,432055 4530<5 LK5 CQ73020U5 13605 850:" ELL BRAINS, YOU SEEM TO FIND THAT5 " STUFF PRETTY SIMPLE.5 " HAVE PREPARED SOME SPECIAL QUES-5 " TIONS FOR YOU. LET'S SEE JUST HOW%6 " GOOD YOU ARE WHEN THE QUESTIONS GET AB6 " LITTLE BIT HARDER...m6 " HERE WILL BE 5 OF THEM BUT YOU'LL6 " EVER GET THAT FAR.6 " HEN YOU DECIDE TO QUIT, ENTER -9996& " AS YOUR ANSWER.60 45006: L15:8506D 37607N S%4(TI)1:S%4350,4390,4430,4470=7X TR0: ROUTINE TO CHECK ANSWERi7b UL9:US$"H+-.0123456789":35:AN(UR$){7l AN99934707v (ANZ).05Z34007 TRTR1:TR132407 " OUR ANSWER ISN'T WITHIN 5%. RY AGAIN.";7 5000:36107 31708 TR23280+8 " OPE, STILL WRONG. RY AGAIN";;8 5000:3610E8 3170T8 TR33320z8 " OT SO EASY EH??? RY AGAIN.";8 5000:36108 31708 TR433608 " OT YET. RY AGAIN.";8 5000:36108 31708 TR934309* " ANT TO QUIT YET? RY AGAIN.";94 5000:3610)9> 3170X9H " ELL DONE! HAT WAS NOT EASY.":DCDC1i9R D2:3870:Ls9\ 35209f " O, THE ANSWER IS";Z9p 45009z L9 35209 850:" ELL, HOPE WASN'T TOO HARD ON: " YOU. T'S BEEN FUN, AND NOW 'LL,: " GIVE YOU A CHANCE TO RESELECT.6: 4500@: 1360O: DC53620^: DC23700: 850:" ELL YOU GOT TO THE END. OU FAILED: " THE REALLY HARD PART BUT YOU DID WELL: " TO GET THAT FAR. O YOU WANT TO DO: " SOME MORE? ";; UL1:US$"HYN":35:G$UR$-;G$"Y"13606;300U;D2:3870:(150);:"":r;$850:" !!! ERFECT!!;." DECLARE YOU TO BE KNOWLEDGEABLE;8" IN ELECTRICITY PROBLEMS.;B" AKE THE REST OF THE DAY OFF!;L835<`850:"OU DID IT AGAIN!"/2" APPLIED ACROSS A";R;"OHM RESISTOR, "L><" WHAT CURRENT IN AMPERES WILL RESULT?":ZI%:t>F" F A POTENTIAL DIFFERENCE OF"V%>P" VOLTS PRODUCES A CURRENT OF";I%>Z" AMPERES WHAT IS THE RESISTANCE OF THE">_" CIRCUIT?":ZR:?d" HAT POTENTIAL DIFFERENCE IS REQUIRED>?n" TO PRODUCE A CURRENT OF";I%;"AMPERESj?x" THROUGH A";R;"OHM RESISTOR?":ZV%:?" OW MANY ARE NEEDED TO PRODUCE?" A CURRENT OF";I%;"AMPERES, FOR?"";T;"HOURS IF THE APPLIED VOLTAGE IS@"";V%;"VOLTS?":ZEM:,@" OW LONG WILL IT TAKE TO CONSUMEW@"";EM;" IF THE APPLIED VOLTAGE OF"@"";V%;"VOLTS PRODUCES A CURRENT OF"@"";I%;"AMPERES?":ZT:@" HAT CURRENT MUST FLOW TO DELIVER@"";E;" IN";T;"HOURS IF THEA" APPLIED VOLTAGE IS";V%;"VOLTS?":ZI%:BA" HAT VOLTAGE MUST BE APPLIED TO"gA" DELIVER "E;" IN";T;"HOURS "A" THROUGH A CIRCUIT WITH A";I%A " AMPERE FUSE?":ZV%:A" HAT IS THE POWER RATING ON A MOTORB" THAT DRAWS";EM;" IN";T;"HOURS?":ZP:-B"" F A MOTOR LABELLED AS";R;"OHMSoB," DRAWS";I%;"AMPERES, WHAT IS ITS POWER":" RATING?":ZP:B6" HAT SIZE FUSE IS REQUIRED FOR AB@"";P;"WATT MACHINE ON A";V;"VOLTBJ" CIRCUIT?":ZI%:CT" OW LONG WILL IT TAKE A";P;"WATT$C^" MOTOR TO USE";E;"?":ZT:QCh" N A";V%;"VOLT CIRCUIT,";I%;"AMPERES{Cr" ARE DRAWN FOR";T;"HOURS. HAT IS"C|" THE POWER RATING?":ZP:C" HAT IS THE COST OF DRAWING"C"";I%;"AMPERES ON A";V%;"VOLT CIRCUITD" FOR";T;"HOURS AT $";C;"PER ?":ZTC:CD" HAT DOES IT COST TO OPERATE AjD"";P;"WATT DEVICE FOR";T;"HOURS,D" AT $";C;"PER ?":ZTC:D" F 1 COSTS $";C;", AND";I;"D" FLOWS THROUGH A";R;"OHM RESISTOR E" FOR";T;"HOURS, WHAT IS THE COST?":ZTC:9E" HAT DOES IT COST TO RUN A";P;"WATTZE" HEATER FOR";T;"HOURS, ATE" A COST OF $";C;"PER ?":ZTC:E" F ENERGY COSTS $";C;"PER . $";TCE" WILL ALLOW THE OPERATION OF A MACHINEF" ON A";V%;"VOLT CIRCUIT FOR";T;"H.=F" HAT IS THE RESISTANCE OF THE MACHINE?":ZR:kF&" F $";TC;"WILL ALLOW THE OPERATION OFF0" A DEVICE USING A";I%;"AMP FUSE FORF:"";T;"HOURS, AND IF THE TOTAL RESISTANCEFD" IS";R;"OHMS, WHAT IS THE COST PER ?":ZC:%GN" HAT IS THE MAXIMUM FUSE NEEDED TOPGX" ALLOW ALL THE ENERGY PURCHASED FORwGb" $";TC;"AT $";C;"PER THROUGHGl" A";R;"OHM CIRCUIT IN";T;"HOURS?":ZI%:Gv" T $";C;"PER , IN A";V%;"V CIRCUIT,G" WHAT IS THE COST TO RUN A";R;"OHM%H" DEVICE FOR";T;"HOURS?":ZTC:>H WAIT FOR SPACE BARGH835MHpHTR0: ROUTINE TO CHECK ANSWERH" NSWER? ";HUL5:US$"H+-.0123456789":35:AN(UR$)H(ANZ).05Z4620HTRTR1:TR14600I(ANZ).5Z46800I" NSWER IS NOT WITHIN 5%. RY AGAIN.eI5000:" "xI"":4535I" OUR ERROR IS STILL GREATER THAN 5%.":" HE CORRECT ANSWER IS";ZI4500:I  SELECTING SUITABLE COMMENTJI(20(TI)1):F(I)146300J F(I)1:CCCC1:CC154670JJ*CQCQ1:" ";CM$(I)[J4D2.5:835:{J>I120:F(I)0::CC0:4650JH" OW! ORE THAN A 50% ERROR. RY AGAIN.JM5000:" "JO"":4535