' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`* R ***** E5ĺ"CONTROL C HAS BEEN DISABLED":20900: CONTROL C IS DISABLED &N(222)6(222)11Č3288:1160: ON ERROR AT ATTEMPT TO VERIFY FILE, OR ON FILE NAME ENTRY, ASK FOR FILE NAME AGAINpN216,0: RESTORE NORMAL ERRROR MESSAGESQR ****"THE FIRST TIME THERE WILL BE NOK)"ASSIGNMENT. THIS IS YOUR CHANCE TOt*"GET USED TO HOW THE PROGRAM WORKS.z**"PRESS RETURN TO BEGIN THE PROGRAM ";Q$&** ***** ؊ N ERROR HANDLING ROUTINE"N"***** ERROR *****"B$N(222)25GE BY PRESSING<)"THE 'R' KEY AND THEN THE 'RETURN' KEY."g)"IF YOU WANT TO QUIT PROGRAM AT THIS )"POINT ENTER A 'Q'.))"THESE STEPS ARE REPEATED WITH 10ˉ)"DIFFERENT ASSIGNMENTS."щ))"PRESS RETURN TO CONTINUE ";Q$)!)THE TRIP IS COMPLETED, THE FINAL"K|)"VALUES ARE COMPARED TO THE ASSIGNEDY)"VALUES._))"AFTER YOU HAVE STUDIED YOUR RESULTS)"YOU MAY GO ON TO THE NEXT CHALLENGE BY∮)"PRESSING THE 'RETURN' KEY OR YOU MAY")"REPEAT THE SAME CHALLENN TO CONTINUE ";Q$));")"3. PLOTTING OF MOTION:e,)"NOW THE MOTION OF THE TRUCK WILL BE6)"DISPLAYED. IT MOVES ACROSS THE SCREEN@)"FOLLOWING YOUR INSTRUCTIONS, PAINTINGՇT)"DOTS AS IT GOES.ۇ^)h)"4. CHECK RESULTS:!r)"AFTER (" -STARTING SPEED0(" -ACCELERATION](" -TIME FOR THE ACCELERATION TO BEGINz(" -TOTAL TIME OF TRIP("THESE VALUES SHOULD BE SELECTED̆("CAREFULLY TO MAKE THE TRUCK MOVE JUST("AS YOU WERE ASSIGNED.()"PRESS RETURE.)d("THIS INFORMATION MAY BE SPECIFICOn("NUMERICAL DATA (SUCH AS AVERAGEux("SPEED = 20 M/SEC) OR IT MAY BE ("A REQUIREMENT LIKE 'UNIFORM ("ACCELERATION THROUGHOUT.'(Ӆ("2. ENTER DATA:("YOU WILL NOW BE ASKED TO ENTER VALUES:ONTINUE ";Q$(9("THE PROGRAM PROCEEDS AS FOLLOWS:?((h2("1. PRESENTATION OF THE ASSIGNMENT:<("YOU WILL BE PRESENTED WITH ANF("ASSIGNMENT. THIS CONSISTS OF ׄP("SOME SPECIFIC INFORMATION ABOUTZ("THE TRUCK MOTION YOU ARE TO PRODUCERY 1.0 SECONDS.'G'"AS THE TRUCK MOVES ACROSS THE SCREEN THE";x'"ELAPSED TIME, SPEED, DISTANCE, ACCELERA-";'"TION, AND AVERAGE SPEED OF THE TRUCK҃'"WILL BE DISPLAYED AT THE BOTTOM OF THE "'"SCREEN. ( ("PRESS RETURN TO CPTS OF KINEMATICS: TIME,A~'"DISTANCE, SPEED AND ACCELERATION.G't'"YOU WILL CONTROL THE MOTION OF A TRUCK'"WHICH MOVES ACROSS THE SCREEN. THISʂ'"TRUCK IS EQUIPPED WITH AN APPARATUS"'"WHICH PAINTS A WHITE SPOT ON THE ROAD '"EV INSTRUCTIONS'!' ***** 8' INSTRUCTIONS >'D$'M.'(5)n8'" KINEMATICS II B'" *************L'V'"THIS PROGRAM IS DESIGNED TO PROVIDE`'"YOU WITH AN OPPORTUNITY TO EXPERIMENT"t'"WITH THE CONCED$;" CLOSE ";FILE$C%:"STUDENT RECORDS SAVED IN A FILE NAMED:"PN%:FILE$H&103,1:104,8:216,0:: END OF MAIN PROGRAM AFTER RESETTING POINTERS Ѐ&::"WOULD YOU LIKE ON-SCREEN INSTRUCTIONS?"〶&Q$:Q$(Q$,1) &Q$"Y"10000: DISPLAY***** $(# ENTER NEW STUDENT NAME/Z#::5Cd#"KINEMATICS IIYn#"COPYRIGHT 1983"qx#"VERNIER SOFTWARE"#:"ENTER YOUR NAME: ":NAME$#C0:R0:J1MAX:C(J)0:R(J)0:J: INITIALIZE COUNTERS#NAME$"END"9900: ROUTINE $ILE$""8990: SKIP THE SAVING OF STUDENT RECORDS IF THEY ARE NOT REQUESTEDp~l UPDATE STUDENT RESULTS FILE:v~v ~ D$;"APPEND ";FILE$~ D$;"WRITE ";FILE$~ NAME$~ J1MAX~ R(J)~ C(J)~ J~ D$;" CLOSE ";FILE$~#'# AVE TIME:}LH100}`K1000)}tHA0.5/}6>}? ***** U}@ RESULTS SUMMARY`}r::5}}|"SUMMARY OF RESULTS:":}:"NAME: ";NAME$}}C;" SUCCESSFUL RUNS OUT OF ";R;" TRIES "}} "PRESS RETURN TO RESTART PROGRAM ";Q$L~: F45,46,60,41,45,45,46,60(|< 41,17,00U|232,1:233,8: POKE SHAPETABLE POINTER[|Nj|W ***** }|X INITIALIZE |MAX10| R(MAX),C(MAX): RESULTS REPORT ARRAYS|1|0 } THE CONSTANTS BELOW ARE USED IN THE GRAPHICS LOOP TO S{p POKE SHAPETABLE FOR DRAWING TRUCK{{ USE 30 BYTES STARTING AT 2049 WHICH IS THE NORMAL START OF A BASIC PROGRAM{M20492079{SHAPE{M,SHAPE{M{ 01,00,04,00,60,36,63,36,63,54,63,63{ 63,33,45,45,30,27,27,54|( IF "R" IS ENTERED, SET UP TO REPEAT THIS RUNVzlJMAX5998: ALL RUNS COMPLETED zmQ$"Q"āQJ1MAX:C(Q)0:R(Q)0:Q:JMAX: IF 'Q' IS ENTERED, GIVE RESULTS OF ZERO FOR ALL LATER CHALLENGES AND INDICATE STUDENT IS FINISHED.znzo ***** )INTED, SO PRINT "GOOD JOB" MESSAGEJy|RR1:R(J)R(J)1: NUMBER OF RUNSyf23:36,25: SET CURSOR IN PROPER POSITION TO ADD TO THE MESSAGE AT THE BOTTOM OF THE SCREENyi"OR ENTER 'R'"yj"TO REPEAT OR ENTER 'Q' TO QUIT ";Q$,zkQ$"R"JJ1: 99(AA1)(.01A1)ĺ"ACCELERATION IS NOT WHAT WAS SPECIFIEDx@FAV99(VAFAV).01FAVĺ"AVERAGE SPEED IS NOT WHAT WAS SPECIFIED"yr(37)Pĺ"GOOD JOB, ALL VALUES WITHIN 1 % !":CC1:C(J)C(J)1: IF CURSOR HAS NOT MOVED, NO ERROR MESSAGES WERE PR COMPARE RESULTS TO SEE IF WITHIN 1% OF ASSIGNED:swT399(TT3).01T3ĺ"TOTAL TIME IS NOT WHAT WAS SPECIFIEDw"FV99(VFV).01FVĺ"FINAL SPEED IS NOT WHAT WAS SPECIFIEDw,FD99(DFD).01FDĺ"DISTANCE IS NOT WHAT WAS SPECIFIED=x6A1v RESULTS/v16303,0: SET TEXT MODE7vP16hv"----------------------------------------";v"HERE ARE YOUR RESULTS:"vJ05990: IF THIS IS THE FIRST RUN THROUGH, SKIP THE COMMENTS.vP(37): VERTICAL CURSOR POSITION1w A(VAHHA)H u2D(DHHA)H2u3V(VKHA)K:u^23Duc868luh4);T;12);V;19);D;27);A;33);VA{u0TT34900ubT3TDTDTT3Tu4100u ===== BOTTOM OF MAIN GRAPHICS LOOPu$24:"PRESS RETURN TO CONTINUE ";Q$u~v ***** TDT t AA1!tTT1TT2A08tDP15YP1594130Kt0:1DP,YP:3dt"DDVDT0.5ADTDTzt%DPD2.515:YP80t&DP270DPDP250:YPYP25:4134t'DP15YP1594140t)1DP,YPt*T(T)4140t+DP,YP2t,VVADTt/VADTu1Vs15,82: PUT DOT AT START8s INITIALIZE VALUES:CsDT.25KsD0SsT0\sVV0ds21s" TIME SPEED DISTANCE ACC. AV.SPEED": TABLE HEADINGSs" (S) (M/S) (M) (M/S*S) (M/S)"s ===== TOP OF MAIN GRAPHICS LOOPtT: ACC. CONTINUES TO END OF RUNPrFT911000:T9: DELAY TO LOOK AT TABLEVrer ***** vr GRAPHICSr: SET HI-RES PAGE ONE GRAPHICSr768: CALL MACHINE LANGUAGE ROUTINE TO MOVE BACKGROUND TO PAGE ONE r3: SET COLOR WHITEP1:P6q"ACCELERATION BEGINS AT T = ";T1;:958:GqT3993780lq"ENTER TOTAL TIME FOR TRIP ";T3qT30ĺ"IMPROPER VALUE ":3770qT330ĺ"MAXIMUM TIME IS 30 SECONDS":3770qPP1:Pq"TOTAL TIME OF TRIP = ";T3;:958:"rT2T3"ENTER ACCELERATION ";A1Yp[(A1)5ĺ"MAXIMUM ALLOWED ACCELERATION IS 5 M/S*S":3670fp`PP1:Ppj"ACCELERATION = ";A1;:958:pT1993740p"ENTER TIME FOR ACCELERATION TO BEGIN ";T1pT130ĺ"MAXIMUM TIME IS 30 SECONDS":3730qPRSOR POSITIONo$V0993640>o."ENTER STARTING SPEED ";V0{o1V00ĺ"NEGATIVE STARTING SPEEDS ARE NOT ALLOWED";:3630o3V030ĺ"MAXIMUM ALLOWED STARTING SPEED IS 30 M/S":3630o8PP1:PoB"STARTING SPEED = ";V0;:958:oLA1993680pVX INDICATES NOT SPECIFIED) "RnR "ADDITIONAL TRIP REQUIREMENTS: "XnY an\ R1$jnf R2$n: RETURN TO "WHITE ON BLACK" PRINTING nn CHECK EACH INPUT TO SEE IF IT WAS ASSIGNED. IF NOT ASK FOR INPUT. oP11: VERTICAL CU PRINT OUT ASSIGNMENT:m [m "#"J;" TRY TO OBTAIN THESE FINAL VALUES:";39(36)):mC " TIME SPEED DISTANCE ACC. AV.SPEED"mE " (S) (M/S) (M) (M/S*S) (M/S) "mG 4);T$;12);V$;19);DI$;27);A$;35);VA$;39(36)):#nM " (Xl INPUT ROUTINE l Bl : DRAW ASSIGNMENT IN INVERSE l CHECK TO SEE IF ANY INPUTS HAVE BEEN DETERMINED IN ASSIGNMENT:l T399T$(T3)l FV99V$(FV)l FD99DI$(FD)l A199A$(A1)l FAV99VA$(FAV)l m TING SPEED = 0"k 2k T315:FD100: RUN 9 @k V05:T15bk R1$"STARTING SPEED = 5 M/SECk R2$"ACCELERATION BEGINS AT T = 5 SECk k( T320:FD100:V02:A11: RUN 10 k2 R1$"STARTING SPEED = 2 M/SEC"k< R2$""kF l ***** j V00jt T10.j~ R1$"STARTING SPEED = 0 Mj R2$"UNIFORM ACCELERATION"Sj tj T320:FD100:V08: RUN 7j R1$"STARTING SPEED = 8 M/SEC"j R2$""j j T10:A13:FD100: RUN 8 j V00j R1$"UNIFORM ACCELERATION"k R2$"STARiR2$""i5iT320:FD100::V00:T10: RUN 4Ri R1$"STARTING SPEED = 0"qi R2$"UNIFORM ACCELERATION"wi- i. T10:A14:FD100: RUN 5i8 V00iB R1$"UNIFORM ACCELERATION"iL R2$"STARTING SPEED = 0"iV i` T310:FAV5: RUN 6j0:A10: RUN 1,hpR1$"ZERO ACCELERATION"7hzR2$""=hXhT310:FD100: RUN 2ahT10jhV00hR1$"CONSTANT ACCELERATION THROUGHOUT"hR2$"STARTING SPEED ZERO"hhT310:FD100:V020: RUN 3hR1$"STARTING SPEED = 20 M/SEC" ISTING FILE WITH THE SAME NAME4gD$;"OPEN ";FILE$Lg D$;"CLOSE ";FILES$Rgag ***** }g SELECT ASSIGNMENTS:g4 TRIAL RUN (NUMBER 0)g>R1$"TRIAL RUN: THERE ARE NO REQUIREMENTSgHR2$"ON THIS FIRST RUN. "gRhfT10:T310:FD10T RECORDS FILE";R1$"TRIAL RUN: THERE ARE NO REQUIREMENTSgHR2$"ON THIS FIRST RUN. "gRhfT10:T310:FD10T RECORDS FILE";;f"ENTER 'C' TO SEE A CATALOG OF FILES "FfFILE$ifFILE$"C"ĺD$;"CATALOG":1160zfQ$"N"1240fD$;"VERIFY ";FILE$: CHECK TO SEE IF SUCH A FILE EXISTSf1250fD$;"OPEN ";FILE$gD$;"DELETE ";FILE$: DELETE ANY EX USE ONLY FIRST CHARACTER6e`Q$"Y"FILE$"":1990Fet:"SELECT:eey:"N = CREATE A NEW FILE"e~"O = ADD TO AN OLD FILEe:Q$:Q$(Q$,1)eQ$"O"Q$"N"1140ee20000: ERROR HANDLING ROUTINEf:"ENTER FILE NAME FOR STUDENRECORD OF 0d)"STUDENT PROGRESS ON THE VARIOUS [d."ASSIGNMENTS PRESENTED. FOR COMPLETEd3"INFORMATION SEE THE TEACHER'S GUIDEd8"PORTION OF THE MANUAL.dGdL"DO YOU WANT TO SET UP A STUDENT RECORDS"dQ"FILE? "dSeVQ$:Q$(Q$,1):FERENT ASSIGNMENT$cn3000: INPUT;cx4000: GRAPHICSYc5000: DISPLAY RESULTS`cJc8000: REPORT RESULTS SUMMARYc,96c END OF MAIN PROGRAMc ***** c SET UP STUDENT RECORDSc::5 d$"KINEMATICS II WILL KEEP A MEbdJ0MAXNbiT$"XX":V$T$:DI$T$:A$T$:VA$T$: SET ALL STRINGS=XXbkV099:A199:T199:T399:FV99:FD99:FAV99: SET ALL NUMERICAL VALUES =99cmJ12100,2150,2200,2250,2300,2350,2400,2450,2500,2550,2600: EACH ROUTINE SETS UP A DIF LOAD SHAPETABLEPaUD$;"BLOAD BACKGROUND,A$4000": LOAD BACKGROUND GRAPHICSaWD$;"BLOAD SCREEN MOVER.OBJ0": LOAD MACHINE LANGUAGE ROUTINE AT $300aZ7000: INITIALIZEa_1000: SET UP STUDENT RECORDS FILEb`9000: ENTER NEW STUDENT NA+_` KINEMATICS II, COPYRIGHT 1983, VERNIER SOFTWARE, 2920 S.W. 89TH ST., PORTLAND, OR 97225` THIS PROGRAM COMES WITH AN EXTENSIVE MANUAL WITH COMPLETE INSTRUCTIONS AND SUGGESTIONS ON ITS USE IN PHYSICS CLASSES`FD$(4): CONTROL DaP6000:            @pqpp@@@` p $$d x80@ xgp~p?@s@  @ p@Ca@a0p@~p?x@ @ x@@C@a000@H`w~~@00x?@@a<?`Op|~@ `@ESSAGES WERE PRINTED, SO PRINT "GOOD JOB" MESSAGEXy|RR1:R(J)R(J)1: NUMBER OF RUNSyf23:36,25: SET CURSOR IN PROPER POSITION TO ADD TO THE MESSAGE AT THE BOTTOM OF THE SCREENyi"OR ENTER 'R'"yj"TO REPEAT OR ENTER 'Q' TO QUIT ";Q$:zlQ$IFIEDKx6A199(AA1)(.01A1)ĺ"ACCELERATION IS NOT WHAT WAS SPECIFIEDx@FAV99(VAFAV).01FAVĺ"AVERAGE SPEED IS NOT WHAT WAS SPECIFIED0yr(37)Pĺ"GOOD JOB, ALL VALUES WITHIN 1 % !":CC1:C(J)C(J)1: IF CURSOR HAS NOT MOVED, NO ERROR MPOSITION?w COMPARE RESULTS TO SEE IF WITHIN 1% OF ASSIGNED:wT399(TT3).01T3ĺ"TOTAL TIME IS NOT WHAT WAS SPECIFIEDw"FV99(VFV).01FVĺ"FINAL SPEED IS NOT WHAT WAS SPECIFIEDx,FD99(DFD).01FDĺ"DISTANCE IS NOT WHAT WAS SPECv ***** v RESULTS=v16303,0: SET TEXT MODEEvP16vv"----------------------------------------";v"HERE ARE YOUR RESULTS:"vJ05990: IF THIS IS THE FIRST RUN THROUGH, SKIP THE COMMENTS.wP(37): VERTICAL CURSOR u/VADTu1VA(VAHHA)H.u2D(DHHA)H@u3V(VKHA)KHu^23Ruc868zuh4);T;12);V;19);D;27);A;33);VAu0TT34900ubT3TDTDTT3Tu4100u ===== BOTTOM OF MAIN GRAPHICS LOOPu$24:"PRESS RETURN TO CONTINUE ";Q$u~ICS LOOPtTTDTt AA1/tTT1TT2A0FtDP15YP1594130Yt0:1DP,YP:3rt"DDVDT0.5ADTDTt%DPD2.515:YP80t&DP270DPDP250:YPYP25:4134t'DP15YP1594140t)1DP,YPt*T(T)4140t+DP,YP2t,VVADTET COLOR WHITE-s15,82: PUT DOT AT STARTFs INITIALIZE VALUES:QsDT.25YsD0asT0jsVV0rs21s" TIME SPEED DISTANCE ACC. AV.SPEED": TABLE HEADINGSs" (S) (M/S) (M) (M/S*S) (M/S)"t ===== TOP OF MAIN GRAPH958:0rT2T3: ACC. CONTINUES TO END OF RUN^rFT911000:T9: DELAY TO LOOK AT TABLEdrsr ***** r GRAPHICSr: SET HI-RES PAGE ONE GRAPHICSr768: CALL MACHINE LANGUAGE ROUTINE TO MOVE BACKGROUND TO PAGE ONE s3: SP1:P5q"ACCELERATION BEGINS AT T = ";T1;:958:FqT3993780kq"ENTER TOTAL TIME FOR TRIP ";T3qT30ĺ"NEGATIVE TIMES ARE NOT ALLOWED ":3770qT330ĺ"MAXIMUM TIME IS 30 SECONDS":3770qPP1:Pr"TOTAL TIME OF TRIP = ";T3;:"ENTER ACCELERATION ";A1Xp[(A1)5ĺ"MAXIMUM ALLOWED ACCELERATION IS 5 M/S*S":3670ep`PP1:Ppj"ACCELERATION = ";A1;:958:pT1993740p"ENTER TIME FOR ACCELERATION TO BEGIN ";T1pT130ĺ"MAXIMUM TIME IS 30 SECONDS":3730qPRSOR POSITIONo$V0993640=o."ENTER STARTING SPEED ";V0zo1V00ĺ"NEGATIVE STARTING SPEEDS ARE NOT ALLOWED";:3630o3V030ĺ"MAXIMUM ALLOWED STARTING SPEED IS 30 M/S":3630o8PP1:PoB"STARTING SPEED = ";V0;:958:oLA1993680pVX INDICATES NOT SPECIFIED) "QnR "ADDITIONAL TRIP REQUIREMENTS: "WnY `n\ R1$inf R2$n: RETURN TO "WHITE ON BLACK" PRINTING nn CHECK EACH INPUT TO SEE IF IT WAS ASSIGNED. IF NOT ASK FOR INPUT. oP11: VERTICAL CU PRINT OUT ASSIGNMENT:m Zm "#"J;" TRY TO OBTAIN THESE FINAL VALUES:";39(36)):mC " TIME SPEED DISTANCE ACC. AV.SPEED"mE " (S) (M/S) (M) (M/S*S) (M/S) "mG 4);T$;12);V$;19);DI$;27);A$;35);VA$;39(36)):"nM " (Xl INPUT ROUTINE l Al : DRAW ASSIGNMENT IN INVERSE l CHECK TO SEE IF ANY INPUTS HAVE BEEN DETERMINED IN ASSIGNMENT:l T399T$(T3)l FV99V$(FV)l FD99DI$(FD)l A199A$(A1)l FAV99VA$(FAV)l m TING SPEED = 0"k 1k T315:FD100: RUN 9 ?k V05:T15ak R1$"STARTING SPEED = 5 M/SECk R2$"ACCELERATION BEGINS AT T = 5 SECk k( T320:FD100:V02:A11: RUN 10 k2 R1$"STARTING SPEED = 2 M/SEC"k< R2$""kF k ***** j V00jt T10-j~ R1$"STARTING SPEED = 0 Lj R2$"UNIFORM ACCELERATION"Rj sj T320:FD100:V08: RUN 7j R1$"STARTING SPEED = 8 M/SEC"j R2$""j j T10:A13:FD100: RUN 8 j V00j R1$"UNIFORM ACCELERATION"k R2$"STAR' KEY AND THEN THE 'RETURN' KEY."K)"IF YOU WANT TO QUIT PROGRAM AT THIS d)"POINT ENTER A 'Q'.j))"THESE STEPS ARE REPEATED WITH 10)"DIFFERENT ASSIGNMENTS.")ى)"PRESS RETURN TO CONTINUE ";Q$߉))"THE FIRST TIME THERE WILLFINAL"/|)"VALUES ARE COMPARED TO THE ASSIGNED=)"VALUES.C)m)"AFTER YOU HAVE STUDIED YOUR RESULTS)"YOU MAY GO ON TO THE NEXT CHALLENGE BYƈ)"PRESSING THE 'RETURN' KEY OR YOU MAY")"REPEAT THE SAME CHALLENGE BY PRESSING )"THE 'R)")"3. PLOTTING OF MOTION:I,)"NOW THE MOTION OF THE TRUCK WILL BEv6)"DISPLAYED. IT MOVES ACROSS THE SCREEN@)"FOLLOWING YOUR INSTRUCTIONS, PAINTINGT)"DOTS AS IT GOES.^)ׇh)"4. CHECK RESULTS:r)"AFTER THE TRIP IS COMPLETED, THE (" -ACCELERATIONA(" -TIME FOR THE ACCELERATION TO BEGIN^(" -TOTAL TIME OF TRIP("THESE VALUES SHOULD BE SELECTED("CAREFULLY TO MAKE THE TRUCK MOVE JUST̆("AS YOU WERE ASSIGNED.҆()"PRESS RETURN TO CONTINUE ";Q$)AY BE SPECIFIC3n("NUMERICAL DATA (SUCH AS AVERAGEYx("SPEED = 20 M/SEC) OR IT MAY BE |("A REQUIREMENT LIKE 'UNIFORM ("ACCELERATION THROUGHOUT.'(("2. ENTER DATA:䅪("YOU WILL NOW BE ASKED TO ENTER VALUES:(" -STARTING SPEEDE PROGRAM PROCEEDS AS FOLLOWS:#((L2("1. PRESENTATION OF THE ASSIGNMENT:p<("YOU WILL BE PRESENTED WITH ANF("ASSIGNMENT. THIS CONSISTS OF P("SOME SPECIFIC INFORMATION ABOUTZ("THE TRUCK MOTION YOU ARE TO PRODUCE. d("THIS INFORMATION M"AS THE TRUCK MOVES ACROSS THE SCREEN THE";\'"ELAPSED TIME, SPEED, DISTANCE, ACCELERA-";'"TION, AND AVERAGE SPEED OF THE TRUCK'"WILL BE DISPLAYED AT THE BOTTOM OF THE "ƃ'"SCREEN. ̃( ("PRESS RETURN TO CONTINUE ";Q$(("TH~'"DISTANCE, SPEED AND ACCELERATION.+'X'"YOU WILL CONTROL THE MOTION OF A TRUCK'"WHICH MOVES ACROSS THE SCREEN. THIS'"TRUCK IS EQUIPPED WITH AN APPARATUS"ۂ'"WHICH PAINTS A WHITE SPOT ON THE ROAD '"EVERY 1.0 SECONDS.'+'***** ' INSTRUCTIONS "'($'1.'(5)R8'" KINEMATICS II rB'" *************xL'V'"THIS PROGRAM IS DESIGNED TO PROVIDEρ`'"YOU WITH AN OPPORTUNITY TO EXPERIMENT"t'"WITH THE CONCEPTS OF KINEMATICS: TIME,%"STUDENT RECORDS SAVED IN A FILE NAMED:"4N%:FILE$H&103,1:104,8:216,0:: END OF MAIN PROGRAM AFTER RESETTING POINTERS &::"WOULD YOU LIKE ON-SCREEN INSTRUCTIONS?"ǀ&Q$:Q$(Q$,1)&Q$"Y"10000: DISPLAY INSTRUCTIONS'' DENT NAMEZ#::5'd#"KINEMATICS II=n#"COPYRIGHT 1983"Ux#"VERNIER SOFTWARE"w#:"ENTER YOUR NAME: ":NAME$#C0:R0:J1MAX:C(J)0:R(J)0:J: INITIALIZE COUNTERS#NAME$"END"9900: ROUTINE $D$;" CLOSE ";FILE$'%:VING OF STUDENT RECORDS IF THEY ARE NOT REQUESTEDT~l UPDATE STUDENT RESULTS FILE:Z~v r~ D$;"APPEND ";FILE$~ D$;"WRITE ";FILE$~ NAME$~ J1MAX~ R(J)~ C(J)~ J~ D$;" CLOSE ";FILE$~#~'# ***** (# ENTER NEW STU000 }tHA0.5}6"}? ***** 9}@ RESULTS SUMMARYD}r::5a}|"SUMMARY OF RESULTS:":w}:"NAME: ";NAME$}}}C;" SUCCESSFUL RUNS OUT OF ";R;" TRIES "}} "PRESS RETURN TO RESTART PROGRAM ";Q$0~: FILE$""8990: SKIP THE SA 41,17,009|232,1:233,8: POKE SHAPETABLE POINTER?|NN|W ***** a|X INITIALIZE l|MAX10| R(MAX),C(MAX): RESULTS REPORT ARRAYS|1|0| THE CONSTANTS BELOW ARE USED IN THE GRAPHICS LOOP TO SAVE TIME:|LH100}`K1 DRAWING TRUCK_{ USE 30 BYTES STARTING AT 2049 WHICH IS THE NORMAL START OF A BASIC PROGRAMp{M20492079{{SHAPE{M,SHAPE{M{ 01,00,04,00,60,36,63,36,63,54,63,63{ 63,33,45,45,30,27,27,54{( 45,46,60,41,45,45,46,60 |<"R"JJ1: IF "R" IS ENTERED, SET UP TO REPEAT THIS RUN zmQ$"Q"āQJ1MAX:C(Q)0:R(Q)0:Q:JMAX: IF 'Q' IS ENTERED, GIVE RESULTS OF ZERO FOR ALL LATER CHALLENGES AND INDICATE STUDENT IS FINISHED.znzo ***** {p POKE SHAPETABLE FOR(HG<qxBBHAHBOfGxqB<8ppaGC~ g@@""""@D@H"$ @ @            BLED":20900: CONTROL C IS DISABLED &N(222)6(222)11Č3288:1160: ON ERROR AT ATTEMPT TO VERIFY FILE, OR ON FILE NAME ENTRY, ASK FOR FILE NAME AGAINҋpN216,0: RESTORE NORMAL ERRROR MESSAGES؋QR ***** D BE NO/)"ASSIGNMENT. THIS IS YOUR CHANCE TOX*"GET USED TO HOW THE PROGRAM WORKS.^**"PRESS RETURN TO BEGIN THE PROGRAM ";Q$&** ***** N ERROR HANDLING ROUTINEՊ"N"***** ERROR *****"&$N(222)255ĺ"CONTROL C HAS BEEN DISAIO$,q<g @ @@ "`(* "@T@G (`S"%HHH@$2 @B K @ @@ "I2@"B|8xq`aBCh N ERROR HANDLING3h*N(222)256Ā: CONTROL Ch4N(222)5Č3288:LASTN1:NSN:590: ON A 'END OF DATA ERROR, EXIT READ FILE LOOP h>N(222)11(222)6ĺ"ERROR IN FILE NAME":3288:240: ON ERROR WITH FILE NAME ASK AGAIN2iCN(222)77ĺ:)gJ5g" TOTAL: ";CC;"/";CRIg RERUN PROGRAMOgqgD$;"PR#0": TURN OFF PRINTERg"ENTER 'R' TO RERUN THE PROGRAM OR g"'Q' TO QUIT"gQ$:Q$(Q$,1): TAKE ONLY FIRST CHARACTERgQ$"R"170gh  ***** TOTAL: ";C;"/";R+fNNCfXD$;" CLOSE ";FILE$_fb PRINT CLASS RESULTS:flCC0:CR0: INITIALIZE CLASS GRAND TOTALSfvf"CLASS SUMMARY (";LAST;" STUDENTS):"fJ1MAXfCC(J);"/";CR(J);" ";gCCCCCC(J):CRCRCR(JH STUDENT,eC0:R0: INITIALIZE COUNTERS:eNAME$(N)HeNAME$(N)teJ1MAX: REPEAT FOR EACH CHALLENGE e"";R(N,J)e"";C(N,J)eC(N,J);"/";R(N,J);" ";e&CCC(N,J):RRR(N,J)e0CC(J)CC(J)C(N,J):CR(J)CR(J)R(N,J)e:J$fD"" (CORRECT/ATTEMPTS)Ld" ";:J1MAX1:J;" ";:J:MAX|d"----------------------------------------"d READ STUDENT RESULTS FILE:dD$;"VERIFY ";FILE$dD$;"OPEN ";FILE$dD$;"READ ";FILE$ eN1SN: REPEAT FOR EAC'RETURN' TO SEE REPORT ON THE SCREEN."BcTQ$:Q(Q$):D$;"PR#";Qc^Q0ĺ:"(YOU MAY STOP AND START SCROLLING BY":"USING 'CONTROL S')"ch:cr PRINT TABLE HEADINGS:c|"FILE NAME: ";FILE$c:"NAME INDIVIDUAL CHALLENGE RESULTS %dER SOFTWAREb:8b"ENTER NAME OF FILE TO BE READ"cb"(ENTER 'C' TO SEE CATALOG OF FILES)"ibtbFILE$zb"b,FILE$"C"ĺD$;"CATALOG":240b6:"IF YOU WANT TO PRINT THE REPORT, ENTER"b@"THE SLOT NUMBER OF THE PRINTER. PRESS&cJ"aSN200: MAXIMUM ALLOWED NUMBER OF STUDENTSHaR(SN,MAX),C(SN,MAX)UaJ1MAXaCR(J)0:CC(J)0: INITIALIZE CLASS TOTAL FOR EACH ASSIGNMENTaJa:: CLEAR SCREENa(10)a" STUDENT REPORT PROGRAM b" VERNId x`d KINEMATICS II STUDENT REPORT PROGRAM, COPYRIGHT 1983, VERNIER SOFTWARE, 2920 S.W. 89TH ST., PORTLAND, OR 97225`n20000: ERROR HANDLING ROUTINE`xD$(4): CONTROL D`MAX10: NUMBER OF CHALLENGES IN THE PROGRAM`CR(MAX),CC(MAX)/" @`` @ @ @@ b &`g@L@H 2bd3:HP,HP3VP6DZ(ȎHP,HP1VP3.ȱ;(ȍHP,VP6APȱHֲ (,VP6HP3LDZV`ǎHP,HP3VP:VP,VP6HP3:HP3,HPVP6:VP6,VPHP:HP,HP3VP3\tDZǎHP3,HPVP3:VP3,VPHP:HP,HP3VP:VP,VP6HP3DZǎHP,HP3VP:VP,VP6HP3:HP3,HPVP6:VP,VP6HPDZǎHP3,HPVP:VP,VP6HP:HP,HP3VPƱ0ƏVP,VP3HP:HP,HP3VP3:VP,VP6HP36Ʊ~ƎHP3,HPVP:VP,VP3HP:HP3,HPVP3:VP3,VP6HP3:HP3,HPVP6ƱǎHP3,HPVP:VP,VP3HP:HP,HP3VP3:VP3,VP6HP3:HP,HP3VP6:VP6,VP3HP$DZ 8ǏVP1,VPHP:HP,HP3VP:VPLOOPNCƲ LINES 50760 - 51280 CONTAIN THE INSTRUCTIONS FOR DRAWING EACH DIGIT`HƏVP,VP6HP1f\ƱpƎHP,HP3VP:VP,VP3HP3:HP3,HPVP3:VP3,VP6HP:HP,HP3VP6ƱƎHP,HP3VP:VP,VP3HP3:HP3,HPVP3:VP3,VP6HP3:HP3,HPVP6 CASESMŭAC13HPHP2:50680: ONLY A LITTLE SPACE IS NEEDED FOR THE '.'mHPHP4: SPACE 4 FOR A '1'ŭHP35HP35: NEVER MOVE PAST HP 35 TO AVOID DRAWING 'OFF THE SCREEN' ƂCHƱƲ ============================ END OF DIGIT DRAWING  lŭAC3AC12: '-'. ŭAC2AC13: '.'X ŭAC1AC1350620: ILLEGAL CHARACTER ŴAC50760,50800,50840,50880,50920,50960,51000,51040,51080,51120,51160,51200,51240ŭAC12AC1HPHP6:50680: MOVE OVER 6 SPACES FOR THE NEXT LETTER IN MOSTT HORIZONTAL AND VERTICAL STARTING POSITIONSO IJ============================= Ų THE LOOP BELOW GOES THROUGH THE STRING DIGIT BY DIGIT AND DRAWS THEM ON THE SCREEN ŁCH1(PR$) 0ŪAC((PR$,CH,1))48 DŭAC0AC10: '0' XŭAC21AC11: 'E'THE LARGE PRINT SUBROUTINE# 440Y  *********************** END OF MAIN PROGRAMw Pò LARGE PRINT SUBROUTINE dò VARIABLES USED: PR$, HP, VP, AC, CH xÈ: ENTER LO-RES GRAPHICS à15: SET COLOR FOR LARGE PRINT LETTERS, êHP0:VP10: SE* "INCLUDING NEGATIVES AND SCIENTIFIC "W "NOTATION. ONLY THE FIRST SEVEN DIGITS "WILL BE DISPLAYED CLEARLY IN MOST CASES.   "ENTER A NUMBER" N PR$(N):50000: TRANSLATE THE NUMBER TO BE PRINTED TO A STRING, AND CALL "THIS IS A SHORT PROGRAM DEMONSTRATINGR "THE USE OF LARGE BLOCK NUMBERS WHICH ~ "ARE DRAWN WITH THE SUBROUTINE IN LINE "NUMBERS 50000 TO 60000. YOU MAY WANT "TO USE THIS SUBROUTINE IN YOUR OWN "PROGRAMS. MOST NUMBERS MAY BE DRAWN,J ), SAMPLE PROGRAM USING LARGE PRINT 16::@(5)ZE" LARGE PRINTzG" ***********H:J" VERNIER SOFTWARET" 2920 S.W. 89TH ST.^" PORTLAND, OR 97225 hr& |  ΠōҮԍҮǍҮōӮōҮč  :" TYPE POKE 104,8 ":" RUN STUDENT REPORT":::]iHN216,0: RESTORE NORMAL ERROR HANDLINGcipNRUCTIONS FOR DRAWING EACH DIGIT1HƏVP,VP6HP17\ƱpƎHP,HP3VP:VP,VP3HP3:HP3,HPVP3:VP3,VP6HP:HP,HP3VP6ƱƎHP,HP3VP:VP,VP3HP3:HP3,HPVP3:VP3,VP6HP3:HP3,HPVP6ƱƏVP,VP3HP:HP,HP3VP3:VP,VP6HP SPACE IS NEEDED FOR THE '.'>HPHP5: SPACE 5 FOR A '1'ŭHP35HP35: NEVER MOVE PAST HP 35 TO AVOID DRAWING 'OFF THE SCREEN' ƂCHƱƲ ============================ END OF DIGIT DRAWING LOOPCƲ LINES 50760 - 51280 CONTAIN THE INSTHPHP5:50680: IF A "0" IS PRINTED ONLY STEP OVER 5 SPACES OR ALL EIGHT DIGITS ON A BINARY NUMBER MAY NOT FIT ACROSS SCREENŭAC12AC1HPHP6:50680: MOVE OVER 6 SPACES FOR THE NEXT LETTER IN MOST CASESŭAC13HPHP2:50680: ONLY A LITTLE0ŪAC((PR$,CH,1))48/DŭAC0AC10: '0'FXŭAC21AC11: 'E']lŭAC3AC12: '-'tŭAC2AC13: '.'ŭAC1AC1350620: ILLEGAL CHARACTERŴAC50760,50800,50840,50880,50920,50960,51000,51040,51080,51120,51160,51200,51240~ŭAC10Pò LARGE PRINT SUBROUTINE Edò VARIABLES USED: PR$, HP, VP, AC, CHrà15: SET COLOR FOR LARGE PRINT LETTERSIJ=============================Ų THE LOOP BELOW GOES THROUGH THE STRING DIGIT BY DIGIT AND DRAWS THEM ON THE SCREENŁCH1(PR$)GE DIGITS M4VP12:HP0: SET STARTING POSITION FOR DRAWING BINARY NOTATIONvHPR$B$:50000: DRAW BINARY NOTATION\VP22:HP14: SET STARTING POSITION FOR DRAWING DECIMAL NOTATIONfPR$(J):50000: DRAW DECIMAL NUMBER IN LARGE DIGITSz5vVP1,VP3HP1*VP1,VP3HP20M DRAW LAMP 'TURNED OFF'T0HP(7L)5: CALCULATE PLOTTING POSITION FROM NUMBER OF LAMPVP5VP1,VP3HP1VP1,VP3HP2   DRAW BINARY AND DECIMAL NOTATION IN LARRAW ALL EIGHT INDICATORS &2/VP5>HP0355NVP,VP4HP`HP,HP3VP4r&VP4,VPHP30HP3,HPVP:HPNX DRAW LAMP 'TURNED ON'b15lHP(7L)5: CALCULATE PLOTTING POSITION FROM NUMBER OF LAMP qVPB(NV): DIVIDE TO SEE IF THE DIGIT SHOULD BE A '1'B1B$B$"1":600:440: THIS DIGIT IS A "1" AND THIS LAMP SHOULD BE "ON"B$B$"0":700: THISDIGIT IS A "0" AND THE LAMP IS OFFNN(NV)V: CALCULATE REMAINDERL D:J: END OF COUNTING LOOP8 x100: REPEAT PROGRAM] , ERASE LARGE PRINT NUMBER AREA d @0r JVP1228 T0,39VP h   CALCULATE LAMPS 'ON' FOR A NUMBER B$"": INITIALIZE BINARY NOTATION STRING L701 V2L5 n400: CALCULATE THE BINARY NOTATION FORM OF THE NUMBER AND TURN ON THE APPROPRIATE LAMPS s800: DRAW OUT BINARY AND DECIMAL NOTATION tFLAGĺ"PRESS RETURN TO CONTINUE COUNTING, ANY":"OTHER KEY TO END COUNTING"::Q$:(Q$)13FLAG0 uFLAGR (0 TO 255)":"ENTER 256 TO START A COUNTING SEQUENCE":J fFLAG0: INITIALIZE A FLAG WHICH WOULD INDICATE COUNTING IS DESIRED gJ256FLAG1 hFLAGāJ0255: START COUNTING LOOP iJ256100: IMPROPER INPUT jNJ l300: CLEAR SCREEN\N OF 'ON' OR *"'OFF' LAMPS.R 2:"IF YOU ENTER THE NUMBER 256, THE PROGRAM"; 4"WILL BEGIN COUNTING THROUGH THE NUMBERS 6"FROM 0 TO 255. : <:" PRESS RETURN TO CONTINUE "::678 Z500: DRAW LAMP LOCATIONS _: d"ENTER A NUMBE BINARY3 "NUMBER SYSTEM. YOU ENTER A NUMBER IN_ "THE RANGE OF 0 TO 255 AND THE NUMBER ""WILL BE DISPLAYED IN BOTH DECIMAL AND $"BINARY FORM IN LARGE DIGITS. IN &"ADDITION, THE BINARY 'BIT' PATTERN WILL ("BE DISPLAYED IN A PATTER ::(5)+" BINARYH" ******n:" COPYRIGHT 1983":" VERNIER SOFTWARE" 2920 S.W. 89TH ST." PORTLAND, OR 97225 "THIS PROGRAM DEMONSTRATES THE      PRINT RESULT AT TOP OF SCREEN AS THE FIRST NUMBER360: START LOOP - THIS TIME WITH THE OLD RESULT AS THE NEW FIRST NUMBER GET NUMBER AND DISPLAY N$"": INITIALIZE N$:(21)"ENTER NUMBER "C$"C$(13)590: IF A REQ$"C"300: REPEAT MAIN LOOP UNLESS A 'C' IS ENTEREDN1(R$): SET THE VALUE OF THE FIRST NUMBER EQUAL TO THE OLD RESULTVP0:HP0: SET POSITION FOR DRAWING THE OLD RESULT AS THE NEW FIRST NUMBER: CLEAR SCREEN3PR$R$:50000:24: DRAW CALCULATION LINEOHP0:VP27: SET POSITION FOR DRAWING RESULTf700: DRAW RESULT::(24):" PRESS RETURN FOR NEW CALCULATION ";:" PRESS 'C' TO CONTINUE THIS CALCULATION ":Q$:Q$(3)ij: EXIT PROGRAM ON CONTROL C<9: SET POSITION TO DRAW MATH FUNCTION SIGNLr600: GET MATH FUNCTION~|HP0:VP16: SET POSITION FOR SECOND NUMBER500C$"R"300: IF ROUTINE WAS EXITED WITH 'R' N2(N$): DETERMINE THE VALUE OF THE SECOND NUMBER0,39PROGRAM DJHP0:VP0: START DISPLAYING DIGITS AT TOP LEFT CORNERlT: CLEAR SCREEN AND ENTER GRAPHICS^500: GET FIRST NUMBER`C$"R"300: IF ROUTINE WAS EXITED WITH 'R'cN1(N$): DETERMINE THE VALUE OF THE FIRST NUMBER/hHP0:VP"MATH FUNCTIONS : +,-,*,/ ONLY(T"IF YOU MAKE AN ERROR WHEN ENTERING A "NUMBER AND WISH TO START THE CALCULATION";"OVER, PRESS THE 'R' KEY (FOR RESTART).!:":" PRESS RETURN TO BEGIN CALCULATIONS "::678, MAIN OLVING MORE 0 "THAN TWO NUMBERS CAN BE DONE.8 :q :" PRESS RETURN CONTINUE INSTRUCTIONS "::678 :"THIS CALCULATOR HAS THE FOLLOWING "LIMITATIONS:  "NUMBER RANGE: -1E38 TO 1E38 "DISPLAY : FIRST SEVEN DIGITS ONLY""CALCULATION IN ANOTHER CALCULATION, YOU"Y "SHOULD PRESS THE 'C' KEY WHEN THE FIRST "CALCULATION IS COMPLETE. THIS WILL "CAUSE THE RESULT TO BE TAKEN AS THE "FIRST NUMBER OF THE NEW CALCULATION. IN"; "THIS WAY COMPUTATIONS INV '/' KEY IS USED FOR DIVISION.O "NEGATIVE NUMBERS MAY BE ENTERED BY USING";} "THE '-' KEY AS THE FIRST CHARACTER OF A "NUMBER. SCIENTIFIC NOTATION MAY BE " "ENTERED USING THE 'E' KEY. "IF YOU WANT TO USE THE RESULT OF ONE + YOU WOULD3 x"ANY ALGEBRAIC (NOT RPN) CALCULATOR.d }"FOR EXAMPLE, IF YOU WANT TO ADD 3 AND 4,"; "PRESS THE FOLLOWING KEYS: "; :"3";::" ";::"+";::" ";::"4";::" ";::"=": "THE '*' KEY IS USED FOR MULTIPLICATION, "AND THES THE COMPUTER TO BEE "USED AS A FOUR FUNCTION CALCULATOR, WITH";q "ALL NUMBERS AND SYMBOLS DISPLAYED IN ""LARGE PRINT. : <:" PRESS RETURN FOR INSTRUCTIONS "::678 d INSTRUCTIONS n s"USE THE COMPUTER KEYBOARD AS  ::(5)." CALCULATOR"M" **********s:" COPYRIGHT 1983":" VERNIER SOFTWARE" 2920 S.W. 89TH ST." PORTLAND, OR 97225::: "THIS PROGRAM ALLOW         (ȍHP,VP6Pȱֲ VHP3,HPVP6:VP6,VPHP:HP,HP3VP3-tDZeǎHP3,HPVP3:VP3,VPHP:HP,HP3VP:VP,VP6HP3kDZǎHP,HP3VP:VP,VP6HP3:HP3,HPVP6:VP,VP6HPDZǎHP3,HPVP:VP,VP6HP:HP,HP3VP3:HP,HP3VP6DZȎHP,HP1VP3ȱ3ƱOƎHP3,HPVP:VP,VP3HP:HP3,HPVP3:VP3,VP6HP3:HP3,HPVP6UƱǎHP3,HPVP:VP,VP3HP:HP,HP3VP3:VP3,VP6HP3:HP,HP3VP6:VP6,VP3HP$DZ8ǏVP1,VPHP:HP,HP3VP:VP,VP6HP3LDZ'`ǎHP,HP3VP:VP,VP6HP3:VP6 "Pȱ"ֲ Hֲ HVP6:VP6,VPHP:HP,HP3VP3%!tDZ]!ǎHP3,HPVP3:VP3,VPHP:HP,HP3VP:VP,VP6HP3c!DZ!ǎHP,HP3VP:VP,VP6HP3:HP3,HPVP6:VP,VP6HP!DZ!ǎHP3,HPVP:VP,VP6HP:HP,HP3VP3:HP,HP3VP6!DZ!ȎHP,HP1VP3!ȱ"(ȍHP,G ƎHP3,HPVP:VP,VP3HP:HP3,HPVP3:VP3,VP6HP3:HP3,HPVP6M Ʊ ǎHP3,HPVP:VP,VP3HP:HP,HP3VP3:VP3,VP6HP3:HP,HP3VP6:VP6,VP3HP $DZ 8ǏVP1,VPHP:HP,HP3VP:VP,VP6HP3 LDZ!`ǎHP,HP3VP:VP,VP6HP3:HP3,HP FOR DRAWING EACH DIGIT)HƏVP,VP6HP1/\ƱwpƎHP,HP3VP:VP,VP3HP3:HP3,HPVP3:VP3,VP6HP:HP,HP3VP6}ƱƎHP,HP3VP:VP,VP3HP3:HP3,HPVP3:VP3,VP6HP3:HP3,HPVP6ƱƏVP,VP3HP:HP,HP3VP3:VP,VP6HP3ƱNEEDED FOR THE '.'5HPHP4: SPACE 5 FOR A '1'ŭHP35HP35: NEVER MOVE PAST HP 35 TO AVOID DRAWING 'OFF THE SCREEN' ƂCHƱƲ ============================ END OF DIGIT DRAWING LOOPCƲ LINES 50760 - 51280 CONTAIN THE INSTRUCTIONSC1350620: ILLEGAL CHARACTERtŴAC50760,50800,50840,50880,50920,50960,51000,51040,51080,51120,51160,51200,51240ŭAC12AC1HPHP6:50680: MOVE OVER 6 SPACES FOR THE NEXT LETTER IN MOST CASESŭAC13HPHP2:50680: ONLY A LITTLE SPACE IS =====================nŲ THE LOOP BELOW GOES THROUGH THE STRING DIGIT BY DIGIT AND DRAWS THEM ON THE SCREENŁCH1(PR$)0ŪAC((PR$,CH,1))48DŭAC0AC10: '0'XŭAC21AC11: 'E'lŭAC3AC12: '-'ŭAC2AC13: '.'ŭAC1A DISPLAYING RESULTUR$(R$,7): ONLY PRINT THE FIRST SEVEN DIGITS OF THE RESULTzPR$R$:50000: DISPLAY RESULTSPò LARGE PRINT ROUTINE dò VARIABLES USED: PR$, HP, VP, AC, CHà15: SET COLOR FOR LARGE PRINT LETTERSIJ========( CALCULATE AND DISPLAY RESULT EM$"+"R$(N1N2):760bM$"-"R$(N1N2):760M$"*"R$(N1N2):760M$"/"N20R$".......":760: AVOID DIVISION BY 0 ERRORSM$"/"R$(N1N2):760HP0:VP26: SET POSITION FORIT ROUTINE<M$"-"ĎHP,HP4VP2:690: DRAW '-' SIGNM$"*"āJ04:HPJ,VPJ:J:J04:HPJ,VP4J:J:690: DRAW 'X' SIGNM$"/"ĎHP,HP4VP2:HP2,VP:HP2,VP4:690: DRAW '/' SIGN"IMPROPER SIGN, ENTER AGAIN ":610TH FUNCTION CHARACTER HAS ALREADY BEEN ENTERED, THEN SKIP THE MATH FUNCTION SECTION HERE^_b"ENTER MATH FUNCTION (+,-,*, OR /) "lM$qM$(3)ij: EXIT PROGRAM ON CNTRL C vM$"+"ĎHP,HP4VP2:VP,VP4HP2:690: DRAW '+' SIGN AND EX+,-,*,/, OR =)": ADD MESSAGE TO REMIND USER THAT MATH FUNCTIONS MAY BE TYPED NOWD520: REPEAT LOOP TO GET THE NEXT DIGIT OF THE NUMBER N(N$)0ī500SX DRAW MATH FUNCTION X]C$(13)M$C$:630: IF A MAT OF A NUMBERT#C$"E"(N$)0560: ACCEPT AN 'E' EXCEPT AS THE FIRST CHARACTER&" ILLEGAL CHARACTER, REENTER ":512: REPEAT LOOP0PR$C$:50000: DISPLAY DIGIT IN LARGE PRINT:N$N$C$: ADD DIGIT TO STRINGRB(22):"OR MATH FUNCTION (N$)0590: EXIT ROUTINE IF A '-' IS ENTERED EXCEPT AS THE FIRST CHARACTER (TO ALLOW FOR NEGATIVE ENTRY)(C$)47(C$)58560: IF A CHARACTER IS A NUMBER, ACCEPT INPUT !C$"-"C$"."560: ACCEPT OTHER POSSIBLE CHARACTERS WHICH COULD BE A PARTURN IS ENTERED, EXIT THIS ROUTINENC$(3)ij: END PROGRAM WITH CONTROL CC$"R"590: EXIT ROUTINE WITH 'R' SYMBOL AS RESTART MARKERC$"+"C$"*"C$"/"C$"="590: EXIT ROUTINE IF A MATH FUNTION IS ENTERED (ACCEPT AN '='iC$"-"(:" TYPE POKE 104,8 ":" RUN STUDENT RECORDS ":::_HN216,0: RESTORE NORMAL ERROR HANDLINGepND N ERROR HANDLING3*N(222)256Ā: CONTROL C4N(222)5Č3288:LASTN1:NSN:590: ON A 'END OF DATA ERROR, EXIT READ FILE LOOP >N(222)11(222)6ĺ"ERROR IN FILE NAME":3288:240: ON ERROR WITH FILE NAME ASK AGAIN4CN(222)77ĺ:)J5" TOTAL: ";CC;"/";CRI RERUN PROGRAMOqD$;"PR#0": TURN OFF PRINTER"ENTER 'R' TO RERUN THE PROGRAM OR "'Q' TO QUIT"Q$:Q$(Q$,1): TAKE ONLY FIRST CHARACTERQ$"R"170  ***** TOTAL: ";C;"/";R+NNCXD$;" CLOSE ";FILE$_b PRINT CLASS RESULTS:lCC0:CR0: INITIALIZE CLASS GRAND TOTALSv"CLASS SUMMARY (";LAST;" STUDENTS):"J1MAXCC(J);"/";CR(J);" ";CCCCCC(J):CRCRCR(JH STUDENT, C0:R0: INITIALIZE COUNTERS: NAME$(N)H NAME$(N)t J1MAX: REPEAT FOR EACH CHALLENGE "";R(N,J) "";C(N,J) C(N,J);"/";R(N,J);" "; &CCC(N,J):RRR(N,J) 0CC(J)CC(J)C(N,J):CR(J)CR(J)R(N,J) :J$D"" (CORRECT/ATTEMPTS)L " ";:J1MAX1:J;" ";:J:MAX| "----------------------------------------"  READ STUDENT RESULTS FILE: D$;"VERIFY ";FILE$ D$;"OPEN ";FILE$ D$;"READ ";FILE$ N1SN: REPEAT FOR EAC'RETURN' TO SEE REPORT ON THE SCREEN."B TQ$:Q(Q$):D$;"PR#";Q ^Q0ĺ:"(YOU MAY STOP AND START SCROLLING BY":"USING 'CONTROL S')" h: r PRINT TABLE HEADINGS: |"FILE NAME: ";FILE$ :"NAME INDIVIDUAL CHALLENGE RESULTS % ER SOFTWARE :8 "ENTER NAME OF FILE TO BE READ"c "(ENTER 'C' TO SEE CATALOG OF FILES)"i t FILE$z " ,FILE$"C"ĺD$;"CATALOG":240 6:"IF YOU WANT TO PRINT THE REPORT, ENTER" @"THE SLOT NUMBER OF THE PRINTER. PRESS& J" SN200: MAXIMUM ALLOWED NUMBER OF STUDENTSH R(SN,MAX),C(SN,MAX)U J1MAX CR(J)0:CC(J)0: INITIALIZE CLASS TOTAL FOR EACH ASSIGNMENT J :: CLEAR SCREEN (10) " STUDENT REPORT PROGRAM " VERNIf xd KINEMATICS II STUDENT REPORT PROGRAM, COPYRIGHT 1983, VERNIER SOFTWARE, 2920 S.W. 89TH ST., PORTLAND, OR 97225n20000: ERROR HANDLING ROUTINExD$(4): CONTROL DMAX10: NUMBER OF CHALLENGES IN THE PROGRAMCR(MAX),CC(MAX)/     !ōӍ