ZXTape! 0Created with Ramsoft MakeTZXREVISION 6 68 20:0::"":0,0;"":"" REV @2m6lmm6mmm6lmm6mmm mammammm mammammm6lmm6mmm6lmm6mm` ma lal` ma lalmm`6mmmmmm`6mmmm` ma lal` ma lalm amlaml` ma lalmmammlm amlamlm `mlalmmamml` alalm `mlal` ma lal` alalm amlaml` ma lalm6l`mmlm amlaml ` lalm6l`mml` alaml ` lalm mamlal` alamlm `mlamlm mamlalm6l`lmlm `mlaml` ma lalm6l`lml|B<><<|~B><>B<BBD@B@B@B@Bb@BBDbBB~(<@<B|B<BR@BBBR@|B@|@BBJ@B~BJN@BBBBD@$BBF@BBDFB@B<><<B~><>B<8888888888888888888888888888888888888888888888888888888888888888v[PROG1 /,AM/5:5:1:  B=1 zG$=" O *************** PHYSICS *************** " (8,10 ;1;" REVISION"  B=B+1 B=40 20 )8,10 ;1;" REVISION " 5 E18,16;" SCISOFT 1983":200:0,0;"" S=111 M=17 ";M;1;0;"SCISOFT"; M S  100H S=118 S  !^6,0;1;"PLEASE KEY IN YOUR NAME THEN PRESS ENTER. " "A$ #A$=""34 $A$>1834": %4:2,0;6;"HELLO THERE ";A$;"." &I4,0;"SO YOU THINK THIS WILL PASS YOUREXAMINATION FOR YOU?" '17,0;"WELL SORRY ,BUT IT WILL NOT." (B,,"WHAT IT WILL DO IS SHOW YOU WHATYOU CAN DO TO HELP YOURSELF." )'13 ,10 ;1;"HOWEVER" *d16,0;"THE MOST IMPORTANT LESSON IS THAT THERE IS NO SUBSTITUTE FOR HARD WORK." -?20,0;4;" PRESS ANY KEY TO CONTINUE. " .""46. /=""47/ 0 2,6;"PLEASE KEY ONE OF THE FOLLOWING" 4A4,0;1;"1.";0;" >6 MONTHS TO EXAM" 6B6,0;1;"2.";0;" 3-6 MONTHS TO EXAM" 8B8,0;1;"3.";0;" 2-3 MONTHS TO EXAM" <@10 ,0;1;"4.";0;" 1 MONTH TO EXAM" A;12 ,0;1;"5.";0;" THE BIG DAY" F""70 G=""71 H<"1"Ŧ>"5"70 IZ= JZ<1Z>5 70 KZ*1000z   9000(# !,,"From a LESS dense to a MORE" "Dense medium, light is bent" "TOWARDS the NORMAL"  40;1;"Sin i/Sin r = REFRACTIVE INDEX" ,,"(SNELLS LAW)" *",,"WORDS : Angles of incidence," 4"Reflection + Refraction" H',,1;"(BETWEEN RAY AND NORMAL)" Q""849Q R=""850R    4;G$ (17,5;1;0;A$ A=16@ S=110 -15,10 ;1;2;"FAIL" S S=110 -15,10 ;1;4;"PASS" S A C21,0;7;1;"ITS MAKE YOUR MIND UP TIME." ""1014 =""1015  R0,0;"I WOULD SUGGEST THAT IT IS TOO EARLY TO BEGIN YOUR REVISION." Y,,,,"ARE YOU SURE THAT YOU ARE DEVOTING SUFFICIENT TIME TO SOLVING PROBLEMS?" 7,,,,"IS YOUR TEACHER HAPPY WITH YOUR MARKS IN TESTS?" A,,,,"YOU COULD BEGIN WORK ON MAKING ABOOKLET OF CONCISE NOTES." 721,0;1;"KEY X TO SEE AN EXAMPLE." =""1054 !="x"400 "="X"400H $ )90,0;7;"MAKE YOUR REVISION BOOKLET." .64,4;1;"1.";0;" CONCISE." 6T7,4;1;"2.";0;" INTERESTING. (USE COLOUR TO UNDERLINE)" =Q11 ,0;"REMEMBER A CLEAR DIAGRAM IS OFTEN WORTH PAGES OF NOTES." GD16,0;"TRY TO SPEND SOME TIME DOING EXTRA READING." L M*1;"YOU WILL NOT FIND TIME LATER." N03:40(,100d:180,0 O/3:40(,99c:180,0 P/3:40(,98b:180,0 R 1 S""1107S T=""1108T V [86,4;0;7;"BUT! ABOVE ALL." ` 80 e:10 ,0;6;"UNDERSTAND THE WORK NOW!!!!" j516,0;"IT WILL BE SO MUCH HARDER LATER" o"IN THE COURSE TO CATCH UP." t""1140t u=""1141u ~ 48@  m6;"THIS IS THE BEST POSSIBLE TIME TO BEGIN A SERIOUS PROGRAMME OF REVISION. "  [,,,,1;"1.";0;" FIND A PLACE WHERE YOU CAN WORK REGULARLY UNDISTURBED."  V1;"2.";0;" GET FROM YOUR TEACHER A BREAKDOWN OF THE SYLLABUS."  Y1;"3.";0;" WRITE DOWN A TIMETABLE OF TOPICS TO REVISE WEEK BY WEEK"   1;"4.";0;" WHEN YOU HAVE LEARNED EACH TOPIC THOROUGHLY AND ARE ABLE TO ANSWER PROBLEMS SET THEN YOU SHOULD MAKE BRIEF NOTES IN YOUR REVISION NOTEBOOK."  ""2070 =""2071  400H 4 >S"USE THE REVISION NOTES INCLUDED AS EXAMPLES, NOT SUBSTITUTES FORYOUR OWN NOTES." C Hn"BY CONDENSING FROM TEXT BOOKS AND FROM YOUR CLASS NOTES YOU WILL EXTRACT AND REMEMBER THE KEY FACTS." R \"MAKE YOUR NOTES INTERESTING-USE PLENTY OF COLOUR TO UNDERLINE THINGS(E.G.FORMULAE)THAT YOU PARTICULARLY WANT TO LEARN." aD"REMEMBER A CLEARLY LABELLED DIAGRAM IS WORTH PAGES OF NOTES." f k8"ANSWER AS MANY PAST PAPERS AS YOU CAN GET HOLD OF." p ""2200 =""2201  7000Z   4;G$ (17,5;1;0;A$ -15,10 ;1;4;"PASS" A21,0;1;7;"THIS SHOULD THEN BE YOURS" ""2994 =""2995  50H  *6;"SO YOU HAVE WOKEN UP AT LAST."  &6;"EH? ";1;0;A$ {6,0;1;"YOU";0;" REALLY HAVE GOT YOUR WORK CUT OUT IF YOU ARE TO STAND MUCHCHANCE OF A PASS."  K"THEY DO NOT HAND OUT PASSES JUSTBECAUSE YOU HAVE ATTENDED THE COURSE."  *"YOUR FUTURE LIES WITH ";1;"YOU."  M1;"STOP KIDDING";0;" YOURSELF- YOU ARE ALMOST AN ADULT NOW."  \"STOP WATCHING THE TV. USE THE ";1;"TIME WISELY";0;" EG.ON REVISION NOTES" ""3060 =""3061  2025}    4;G$ -15,10 ;1;2;"FAIL" (17,6;1;0;A$ H21,0;1;7;"THIS IS WHAT YOU ARE HEADING FOR" ""4005 =""4006  06;"PANICKING EH? ";1;0;A$  ]"IF THIS IS THE FIRST TIME YOU HAVE THOUGHT ABOUT REVISING THENWE SUGGEST YOU TRY PRAYER"  "HOWEVER IF YOU HAVE: "  91;"1.";0;" MADE OUT A REVISION TIMETABLE"  91;"2.";0;" ANSWERED LOTS OF PAST PAPERS."  41;"3.";0;" PREPARED + LEARNED SOME " 3;"REVISION NOTES."  51;"4.";0;" REDUCED YOUR SOCIAL LIFE." ""4046 =""4047 A=1100d ,17,8;0;7;"THEN" ,17,8;2;0;"THEN" A -17,14;1;"AND ONLY THEN"  ',,"MY DEAR ";A$;" DO ";1;"YOU" /,,"STAND MUCH CHANCE OF ";1;"PASSING." ""4115 =""4116  M6;"YOUR REVISION TIMETABLE WILL HAVE TO BE DRASTICALLY BRIEF. "   !-4;"E.G. WEEK 1 MAGNETISM " " $17;5;"WEEK 2 HEAT " ' ):3;0;5;"WEEK 3 ELECTRICITY " , .#"PICK A SINGLE TOPIC EACH NIGHT." / 1-"LEARN THE KEY FACTS DIAGRAMS ANDFORMULAE." 2 32"THEN DO ";1;"SOME";0;" PROBLEMS." 4 5n"REMEMBER THAT EXAMINATIONS ARE ACOMPETITION AND ONLY THOSE WHO KNOW THE WORK WILL WIN THE PRIZEOF A PASS." 6""41506 7=""41517 : ; 7040\ E 50H  =0,6;6;"GOOD LUCK ";1;0;A$ ?4,0;"REMEMBER TO ";1;"READ THE QUESTION."  @,,"CHECK THAT YOU HAVE ANSWERED THERIGHT NUMBER OF QUESTIONS."  ;,,"PACE YOURSELF AND LEAVE TIME AT THE END FOR CHECKING."   n,,"BUT ABOVE ALL DO SUFFICIENT REVISION SO THAT YOU GO INTO THEEXAM ROOM FEELING ";1;"CONFIDENT." ""5100 =""5101  B"MOST EXAM BOARDS ADVISE YOU ON HOW LONG TO SPEND PER SECTION."  ,"TRY TO STICK TO THIS + OR - 10 MINUTES."   n"USE ";1;"THE MARKS PER";0;" QUESTION WHICHARE OFTEN PRINTED AT THE SIDES AS AN EXTRA GUIDE."  }"IF YOU WISH TO CHANGE AN ANSWER THEN DO SO CLEARLY IF THE MARKERCANNOT DECIPHER WHAT YOU HAVE WRITTEN THEN ZERO MARKS."  "LEAVE SOME TIME AT THE END FOR CHECKING 1) THAT YOU HAVE ANSWERED THE CORRECT SECTIONS 2) THE RIGHT NUMBER OF QUESTIONSC)CHECK FOR OBVIOUS ERRORS." (""5160( )=""5161) 2 < 50H X Y11;0,6;"REVISION TIMETABLE." ] b7,,,,"BREAK THE SYLLABUS DOWN INTO SENSIBLE PARTS." g lO,,7;"E.G. WEEK 1 LIGHT REFLECTION PLUS REFRACTION. " q v0,,4 ;" WEEK 2 LENSES + MIRRORS " x {8,,0;2;" WEEK 3 PROPERTIES OF WAVES." |""7036| }=""7037}  *0,6;1;"PAST PAPERS."   >,,"CHECK THAT IT IS RECENT. (MANY SYLLABUSES HAVE CHANGED)"  C,,"DO NOT FOOL YOURSELF BY ONLY ANSWERING THE EASY QUESTIONS."  1;"WORK ON YOUR OWN."  1,,"YOUR FRIENDS WILL NOT BE THERE ON THE DAY." ""7090 =""7092  -0,6;1;"REVISION NOTES."  ?,,,,"AS THE DAY GETS CLOSER THESE WILL BECOME INVALUABLE."  .,,"USE THE ONES WE PROVIDE ONLY AS A GUIDE."  O,,4;"MAKE YOURS THOROUGH,COLOURFUL AND ABOVE ALL INTERESTING. "  /,,1;"BUT DO NOT FOOL YOURSELF. "  O,,6;"ONLY IF YOU LEARN THEM PROPERLY ARE THEY ANY USE TO YOU. " ""7155 =""7156  *0,6;1;"SOCIAL LIFE."  Q,,,,6;"THIS IS WHERE IT SHOWS IF YOU REALLY WANT TO PASS. "   G,,"AS THE EXAMS APPROACH THEN 2 EVENINGS MAXIMUM PER WEEK OUT."  #,,"AND IN THE LAST FEW WEEKS...."   %8,,2;0;"EXPECT NO SOCIAL LIFE AT ALL. " *""7210* +=""7211+ 0 4 #( #2'40(,140:180,0 #<6 100d,140:0,35# #F)100d,140:-30,35# #P(100d,140:30,35# #Z(100d,140:0,-35# #d)100d,140:13 ,-35# #i 1 #n&0,0;2;"Incident" #p(0,17;2;"Reflected" #r!1,0;2;"ray" #t"1,17;2;"ray" #v"3,23;7;"AIR" #x$5,23;0;"GLASS" #z 2,11 ;0;"i" #|G8,5;"Normal":8,15;2;"Refracted ray" #} 0 #~8,13 ;"r" # b zedGs O *************** PHYSICS *************** A > EQUNIT ( L( 5:5:1: &5,11 ;1;"SCISOFT" *14,5;"EDUCATIONAL PROGRAMS" (16,14;"FOR" 2&18,7;"SCIENCE STUDENTS" < 200 F d&6,11 ;1;"PHYSICS" n21,0;" 1983" x 200  |'8,6@;"REVISION QUESTIONS" 10 ,13P;"UNITS"  100H 918,3;6;"PRESS ANY KEY TO CONTINUE." ""420R =""430W L Q=0 V G=0 ` Y=0 j Z=0  &6@,7`;"TYPE IN YOUR NAME" 28,1;"THEN PRESS ENTER TO CONTINUE." A$ A$=""1240 A$>181240 92,7;1;"HELLO ";6;0;A$ =6,1;1;"FIRST TYPE IN YOUR POINT SCORE." 512@,1;"IF THIS IS YOUR FIRST TIME THEN"  14`,12@;"TYPE 0" B$ B$=""1310   "#B$(1)>5791340< ('B$0ưB$100H1370+@ 2 <&"YOU HAVE PUSHED ";B$;", YOU SHOULD" F12,1;"HAVE PUSHED A NUMBER BETWEEN" I4,10 ;"0 AND 100" K;16,1;1;"NOW PRESS YOUR CORRECT GRADE" P118,5;1;"FOLLOWED BY ENTER." U 1310# ZB=B$ d n82,3;1;"YOU WILL NOW BE GIVEN SOME" x84,3;1;"MULTIPLE CHOICE QUESTIONS." ;7,2;4;"TO GAIN POINTS YOU MUST SCORE" 89 ,3;4;"AT LEAST SEVEN OUT OF TEN." B>014404 111 ,7;4;"YOU BEGIN AT ZERO." 515p,0;"WHEN YOU REACH 100 PTS YOU HAVE" 517,1;"COMPLETED THIS REVISION SERIES." 919,3;6;"PRESS ANY KEY TO CONTINUE." ""14707 =""14809  23@,2;"YOU ARE ADVISED NOT TO SPEND" 05 ,2;"TOO LONG AT ANY ONE SESSION" 49,1;"IF YOU DO THEN YOU WILL BE ABLE" 6110,1;"TO ANSWER THE QUESTIONS WITHOUT" 313 ,2;"REALLY KNOWING THE EQUATIONS." 917,3;6;"PRESS ANY KEY TO CONTINUE." ""1560C "=""1570D@ # $*0,10 ;1;"POINT SCORE" %A=120 &45 ,0;"7 OUT OF 10 ......... 6 POINTS" '47`,0;"8 OUT OF 10 .........10 POINTS" (49,0;"9 OUT OF 10 .........16 POINTS" )5110,0;"10 OUT OF 10 .........20 POINTS" *A ,E$(238,35 ) -M$(5 ,35 ) .D$(238,30p) /C$(5 ,35 ) 0 F=1 2 Y1=1 3 Y2=2 4 Y3=3@ 5 Y4=4 6 Y5=5 8 :C=(*5)+1 <C=Y11604H =C=Y21606H >C=Y31608I ?C=Y41610I@ @C=Y51612I B 1594G@ D Y1=0 E 1614I F Y2=0 G 1614I H Y3=0 I 1614I J Y4=0 K 1614I L Y5=0 M 1614I N Z=Z+1 PZ=1W1=C RZ=2W2=C TZ=3@W3=C VZ=4W4=C XZ=5 W5=C YZ<5 1594G@ Z Z=0 \!D$(1)=" PLANE ANGLE =" ^D$(2)=" LENGTH =" hD$(3@)=" AREA =" rD$(4)=" VOLUME =" |D$(5 )=" TIME =" D$(6@)=" VELOCITY =" "D$(7`)=" ACCELERATION =" D$(8)=" FREQUENCY =" D$(9)=" MASS =" D$(10 )=" DENSITY =" D$(110)=" FORCE =" &D$(12 )=" MOMENT OF FORCE =" D$(13P)=" PRESSURE =" D$(14`)=" ENERGY =" D$(15p)=" POWER =" "D$(16)=" TEMPERATURE =" -D$(17)=" SPECIFIC HEAT CAPACITY =" +D$(18)=" SPECIFIC LATENT HEAT =" 'D$(19)=" ELECTRIC CURRENT =" &D$(20)=" ELECTRIC CHARGE =" +D$(21)=" POTENTIAL DIFFERENCE =" !D$(220)=" RESISTANCE =" "D$(238)=" CAPACITANCE =" E$(1)="DEGREE" &E$(2)="METRE" 0E$(3@)="SQUARE METRE" :E$(4)="CUBIC METRE" DE$(5 )="SECOND,HOUR" N E$(6@)="METRE PER SECOND" X(E$(7`)="METRE PER SECOND SQUARED" bE$(8)="HERTZ" lE$(9)="KILOGRAM" v)E$(10 )="KILOGRAM PER CUBIC METRE" E$(110)="NEWTON" E$(12@)="NEWTON METRE" (E$(13P)="NEWTON PER SQUARE METRE" E$(14`)="JOULE" E$(15p)="WATT" E$(16)="DEGREE CELSIUS" *E$(17)="JOULE PER KILOGRAM KELVIN" #E$(18)="JOULE PER KILOGRAM" E$(19)="AMPERE" E$(20 )="COULOMB" E$(21()="VOLT" E$(220)="OHM" E$(238)="FARAD" B100H3100A D=(238*)+1  1;D$(D) M$(1)=E$(D)  f=1 E=(238*)+1 E=D2040  F=F+1  M$(F)=E$(E)  F<5 2040 m$(2)=m$(3)m$(2)=m$(4)m$(2)=m$(5)m$(3)=m$(4)m$(3)=m$(5)m$(4)=m$(5)2037 C$(W1)=M$(1) C$(W2)=M$(2) C$(W3)=M$(3@) C$(W4)=M$(4) C$(W5)=M$(5 ) >$3@,1;"1. ";C$(1) H$6@,1;"2. ";C$(2) R$9,1;"3. ";C$(3@) \%12@,1;"4. ";C$(4) f%15p,1;"5. ";C$(5 ) p:18,1;6;"TYPE IN THE NUMBER THAT YOU" z019,7;6;"THINK IS CORRECT." ""2180@ =""2190 C<"1"Ŧ>"5""YOU MUST PRESS A KEY BETWEEN 1 AND 5" <"1"Ŧ>"5"2160 H= C$(H)=E$(D)2410 A=110  ?3,3;6;2;"N0 YOUR ANSWER IS WRONG." A  Q=Q+1 -7`,1;"THE CORRECT ANSWER IS :-" 110,3@;D$(D) 14`,1;E$(D) 918,3;6;"PRESS ANY KEY TO CONTINUE." ""2330 $=""2340@ ) 3G+Q=10 4000z 8G+Q=10 2500@ ` 1584F j o>6,0;4;"WELL DONE YOUR ANSWER IS CORRECT" tA=15 ~A G=G+1 Q+G=10 4000z Q+G<10 1584F  B100H3100A Y=Y+Q Z=G+Z (0,7;1;"YOUR SCORE" W4,1;7;"RIGHT ANSWERS":4,17;7;"WRONG ANSWERS" 8,6@;G;238;Q (?16,0;6;"WOULD YOU LIKE FURTHER EQUATIONS" 2218,2;"PRESS Y FOR YES OR N FOR NO" <""2620# A=""2625$ P Q=0 U G=0 Z="Y"Ŧ="y"15840 d="N"Ŧ="n"2900T n,1;" YOU MUST PRESS EITHER Y OR N." x 2600" T ^*1;" WOULD YOU LIKE A LIST OF THE" h=2,0;1;"EQUATIONS USED IN THIS PROGRAM?" r08,2;"PRESS Y FOR YES OR N FOR NO" |""29407 =""29508` ="N"Ŧ="n"3100 ="Y"Ŧ="y"3000 <14,1;6;"YOU MUST PRESS EITHER Y OR N." 29407 A=1238  D$(A) 4,4;E$(A) 918,2;6;"PRESS ANY KEY FOR THE NEXT" )20,14;6;"EQUATION." ""3060?@ =""3070? A  &!7`,7`;"GOODBYE ";A$ 0?B100d15,1;"YOU HAVE REACHED 100 POINTS." 5 3110&   502:  G<7` *4,11 ;7;"WELL DONE" 16,1;"YOU HAVE GAINED SOME POINTS." (4,11 ;3;"WELL DONE" :6,1;1;"YOU HAVE GAINED SOME POINTS." G=7`X=6@ G=8X=10 G=9X=16 G=10 X=20 >13 ,0;1;"YOUR POINT SCORE IS NOW :- ";B+X B=B+X <21,0;4;" PRESS ANY KEY TO CONTINUE."  0 B<100H4170P ",17,5 ;"YOU HAVE NOW COMPLETED" ,,19,5;"THIS REVISION PROGRAM." JA=150H TA h qgy z AKENB0b @ t *#DEGREE METRE SQUARE METRE CUBIC METRE SECOND,HOUR METRE PER SECOND METRE PER SECOND SQUARED HERTZ KILOGRAM KILOGRAM PER CUBIC METRE NEWTON NEWTON METRE NEWTON PER SQUARE METRE JOULE WATT DEGREE CELSIUS JOULE PER KILOGRAM KELVIN JOULE PER KILOGRAM AMPERE COULOMB VOLT OHM FARAD ʹ#JOULE PER KILOGRAM KELVIN SECOND,HOUR METRE PER SECOND SQUARED DEGREE DEGREE CELSIUS ķ PLANE ANGLE = LENGTH = AREA = VOLUME = TIME = VELOCITY = ACCELERATION = FREQUENCY = MASS = DENSITY = FORCE = MOMENT OF FORCE = PRESSURE = ENERGY = POWER = TEMPERATURE = SPECIFIC HEAT CAPACITY = SPECIFIC LATENT HEAT = ELECTRIC CURRENT = ELECTRIC CHARGE = POTENTIAL DIFFERENCE = RESISTANCE = CAPACITANCE = ô#JOULE PER KILOGRAM KELVIN DEGREE CELSIUS DEGREE SECOND,HOUR METRE PER SECOND SQUARED f cdehx PROBLEMS 1E1Z0UG1Z5:5:1: d&5,11 ;1;"SCISOFT" n F=0 x G=0  *14`,5 ;"EDUCATIONAL PROGRAMS" 16,14`;"FOR" &18,7`;"SCIENCE STUDENTS"  200 ; @I=110 T&6,11 ;1;"PHYSICS" ^*10 ,10 ;6;"PROBLEMS 1" m21,0;" 1983" r 200 |  A=0 B=115p A,0;"" *7;" " *6;" " +2;" " +3;" " A=0100H  A=A+1  .2~L,B B 3,-8  200  37`,1;"PLEASE TYPE IN YOUR NAME, THEN" ,,8;"PRESS ENTER." C$ C$=""1030  C$>181030  :2,8;1;"HELLO ";6;0;C$ $$,,,," YOU WILL NOW BE GIVEN SOME" .",," PHYSICS PROBLEMS TO SOLVE." B(,,,,,,"AFTER YOU HAVE GIVEN 5 ANSWERS" L$,," YOU WILL BE GIVEN A PROGRESS" V,,12 ;"REPORT." `921,2;4;"PRESS ANY KEY TO CONTINUE." j""1130 @ t=""1140  -6;"PLEASE NOTE THAT IN THIS PROGRAM" /,,6;"THE FOLLOWING ABBREVIATIONS HAVE" ,,,4,11 ;6;"BEEN USED:-"  19 ,0;" DEGREES CELSIUS....DEG. C" H921,2;4;"PRESS ANY KEY TO CONTINUE." R""2130 \=""2140  PROB=((*5 )+1) (PROB*1000z)+2505 RDM R, I AND MU I$=((*30p)+30p) R$=((*10 )+5 ) R$=((I$)-(R$)) 5O$=((((I$))*/1804)/(((R$))*/1804)) O$=O$(15 ) N$=(1/(O$)) N$=N$(15 ) M=((*2)+1) R=(R$) I=(I$) O=(O$) N=(N$) C=(*3@)+1 C=1I$="XX" C=2R$="XX" C=3@N$="XX"  C=3@O$="XX" M=1F$="1" M=2F$="2" tCALCS. ~C=1D=I C=2D=R C=3@M=1D=N C=3@M=2D=O  6@,15p;"," ,10 ;2;0;"SNELL S LAW"  250z  '40(,140:180,0 '100d,140:0,35# )100d,140:-30,35# (100d,140:30,35# (100d,140:0,-35# )100d,140:13 ,-35#  1 &0,0;2;"Incident" (0,17;2;"Reflected" !1,0;2;"ray" "1,17;2;"ray" '3,23;7;"MEDIUM 1" '5,23;0;"MEDIUM 2"  2,11 ;0;"i" G8,5;"Normal":8,15;2;"Reflected ray"  0 8,13 ;"r" &,,,,"ANGLE OF INCIDENCE i = ";I$ $,,"ANGLE OF REFRACTION r = ";R$ 4M=1,,"REFRACTIVE INDEX-MEDIUM ";F$;"= ";N$ "4M=2,,"REFRACTIVE INDEX-MEDIUM ";F$;"= ";O$ ,6f$="1"16,0;"(In respect to medium 2)" -6f$="2"16,0;"(In respect to medium 1)" h]19,0;6;"KEY IN THE VALUE OF THE UNKNOWN CORRECT TO TWO DECIMAL PLACES," m021,7;1;"THEN PRESS ENTER." rJ$ sJ$=""4210r tJ$>5794210r u ANS=J$ w  9015  VARIABLES P=(*80 )+7204 %A=((*10 )+20 )*10 %M=((*10 )+20 )*10 E=(*98D)+1 B=(*98D)+1 H=(*3@)+1 +H=1T$="TURNED VERTICAL (UPRIGHT)" ,H=2T$="TURNED VERTICAL (INVERTED)" !H=3@T$="KEPT HORIZONTAL" CALCS. H=1P2=P+M  H=2P2=P-M H=3@P2=P \*D=(P*A*(B+273))/((E+273)*P2)  17,11 ;2;0;"GAS LAWS"  250z  " AIR SPACE MERCURY" 28`;"FINE" [0;"";7;"";5;"":2,27;" TUBE" (0;"" " <----A----><----M---->" $,,,,"ATMOS. PRESSURE = ";P;"mmHg." "AIR SPACE = ";A;"mm" "MERCURY = ";M;"mm" ""TEMPERATURE = ";E;" DEG. C"  F,,,,"WHAT WOULD BE THE LENGTH OF THE AIR COLUMN IF THE TEMPERATURE " '"IS ALTERED TO ";B;" DEGREES CELSIUS" "AND THE TUBE IS ";T$;"?" P]19,0;6;"KEY IN THE VALUE OF THE UNKNOWN CORRECT TO TWO DECIMAL PLACES," U021,7;1;"THEN PRESS ENTER." ZJ$ [J$=""5210Z \J$>5795210Z ] ANS=J$  9015  VARIABLES *L$=(((*30p)+1)/10E5t$) T$=((*10 )+15p) F$=((*2)+97B) ,R$=(((*400H)+100H)/100H) *M$=(((*904)+10 )/100H) M$=((R$)+(M$)) )B$=(((*20 )+1)/100H) B$=((B$)+0.9ffff) C=(*5 )+1 C=1L$="XX" C=2T$="XX" C=3@F$="XX" C=4R$=" XX " C=5 M$=" XX " CALCS. =C=1D=((M$)-(R$))/(((F$)-(T$))*(B$)*1000z) =C=2D=(F$)-(((M$)-(R$))/((L$)*(B$)*1000z)) =C=3@D=(T$)+(((M$)-(R$))/((L$)*(B$)*1000z)) =C=4D=(M$)-(((F$)-(T$))*((L$)*(B$)*1000z)) =C=5 D=(R$)+(((F$)-(T$))*((L$)*(B$)*1000z)) D$C=2D-2735505,  87,7;2;0;"LINEAR EXPANSION"  250z o p$"METAL BAR WITHIN A HEATED JACKET" z,," - ----------" &" BAR ";6;"" Q" ";0;"";1;"";6;"";1;" MICRO-" !" ---------- - METER" " " " " $2;" " #,,"LINEAR EXPANSIVITY = ";L$;"/K" ,," READINGS INITIAL FINAL" -,,"TEMPERATURE = ";T$;" ";F$;" DEG. C" ""MICROMETER = ";M$;" ";R$;"mm"  "BAR LENGTH = ";B$;" - m" 8C=1D$="SEVEN" BC>1D$="TWO" `19,0;6;"KEY IN THE VALUE OF THE UNKNOWN CORRECT TO ";D$;" DECIMAL PLACES," 021,7;1;"THEN PRESS ENTER." J$ J$=""6400 J$>5796400  ANS=J$  C>19015 3DANS+(5E-8hV)9050 h  9032 iRDM R,I AND V nR$=((*5 )+1) xS$=((*10 )+1) T$=((*10 )+1) A$=((*10 )+1) V$=((*10 )+110) )((V$)/(A$))-(R$)=06510Kp C=(*5 )+1 C>16570MP C=1R$="XX" C=2S$="XX" C=3@T$="XX" C=4A$="XX" C=5 V$="XX" BC=5 D=(1/(1/(S$)+1/(T$))+(R$))*(A$) LC=4D=1/((1/(1/(S$)+1/(T$))+(R$))/(V$)) DC=1D=((V$)/(A$))-(1/(1/(S$)+1/(T$))) FC=2D=1/((1/(((V$)/(A$))-(R$)))-1/(T$)) FC=3@D=1/((1/(((V$)/(A$))-(R$)))-1/(S$)) D<04510  7`,14`;"," 28,11 ;2;0;"OHM S LAW"  250z W X15p;"R2" ]10 ;"" b35;"R1";10 ;" ";22;"" l"" (A)" v." ";15p;"R3";220;" " #" ";10 ;" " '" ";14`;"";24@;"" " ";24@;"" " ";24@;"" " ";24@;"" " (V)" ),,"RESISTOR R1 =";R$;" OHMS" '"RESISTOR R2 =";S$;" OHMS" '"RESISTOR R3 =";T$;" OHMS" '"CURRENT A =";A$;" AMPS" ("POTENTIAL DIFFERENCE V =";V$;" VOLTS" ]19,0;6;"KEY IN THE VALUE OF THE UNKNOWN CORRECT TO TWO DECIMAL PLACES," 021,7;1;"THEN PRESS ENTER." *J$ +J$=""7210* ,J$>5797210* - ANS=J$ / R 9015 QRDM DIT AND LOAD V'D$=(((*5 )+1)/10 ) `'E$=(((*5 )+1)/10 ) e'F$=(((*5 )+1)/10 ) jL$=((*5 )+4) oM$=((*9)+110) tN$=((*5 )+4) C=(*6@)+1 C=1D$="X" C=2E$="X" C=3@F$="X" C=4L$="X" C=5 M$="X" C=6@N$="X" CALCS. 2C=1D=(((E$)*(M$))-((F$)*(N$)))/(L$) 2C=2D=(((L$)*(D$))+((N$)*(F$)))/(M$) 2C=3@D=(((E$)*(M$))-((D$)*(L$)))/(N$) 2C=4D=(((E$)*(M$))-((F$)*(N$)))/(D$) 2C=5 D=(((L$)*(D$))+((N$)*(F$)))/(E$) 2C=6@D=(((E$)*(M$))-((D$)*(L$)))/(F$) x /7,12 ;2;0;"MOMENTS"  250z 6D=07510j ? @;" ";1;"O";0;"<---PULLEY NB THIS DIAGRAM" J%1,16;"IS NOT TO SCALE" N&15,120x:0,502 P'25,167:0,-25 ^"4,2;0;"L1" r6,3;"<---D1-->" |#6;"" " <--D2-->^<--D3-->" '17,111o:0,-25 (161,111o:0,-25 '90Z,103g:0,-17 '91[,103g:0,-17 '92\,103g:0,-17 611 ,0;0;" L2 FULCRUM L3" <14,0;"LOAD L1= ";L$;"N DISTANCE D1= ";D$;"m" )"LOAD L2= ";M$;"N DISTANCE D2= ";E$;"m" *"LOAD L3= ";N$;"N DISTANCE D3= ";F$;"m" ]19,0;6;"KEY IN THE VALUE OF THE UNKNOWN CORRECT TO TWO DECIMAL PLACES," 021,7;1;"THEN PRESS ENTER." J$ J$=""8210 J$>5798210  ANS=J$  9015 #7 #<ANS RIGHT OR WRONG #F-DANS+.05|L9050 h #H #K F=F+1 #LI=17 #M84,10 ;2;"YOU ARE RIGHT":.1}L,I #N54,10 ;2;1;"YOU ARE RIGHT" #OI #P.2~L,I+1:20 #QI #R 5 #S 40( #TF+G=5 9200 #U 9240` #Z #[I=110 #\A4,10 ;7;"YOU ARE WRONG":.2~L,I-20 #]54,10 ;0;7;"YOU ARE WRONG" #^I #_40(:G=G+1 #`Y$=D #a #b-D>0.0001sQXƱY$>6@Y$=Y$(6@) #cb5,0;1;" WOULD YOU LIKE TO KNOW THE ",,," CORRECT ANSWER. " #d110 ,2;"PRESS Y FOR YES OR N FOR NO" #e""9061 #f=""9062 #g="N"Ŧ="n"9074r# #h"Y"Ʀ"y"9061e# #i #j02,0;"THE CORRECT ANSWER IS : ";Y$ #ka5,0;1;"DO NOT FORGET THE APPROPRIATE ",,," UNITS IN THE EXAMINATION. " #l PROB=2D=(P*A*B)/(E*P2) #mPROB29074 #n-DANS+.05|L9074 #p/,,,,"TUT TUT YOU FORGOT TO CONVERT TO KELVIN" #r 250z #sF+G=5 9200 #tT,,,,6;"WOULD YOU LIKE TO HAVE ANOTHER",,," GO AT THE PROBLEM? " #v!,," PRESS Y FOR YES N FOR NO" #x""9080 #=""9090 #="Y"Ŧ="y"D=0 #+="Y"Ŧ="y"(PROB*1000)+26102 #="N"Ŧ="n"9240$ #"N"Ʀ"n"9080x# # #'7;1;"YOUR SCORE SO FAR" $M4,1;6;"RIGHT ANSWERS";4,17;"WRONG ANSWERS" $ 8,6@;F;238;G $ F=0 $ G=0 $ 400H $ $?16,0;1;" WOULD YOU LIKE MORE QUESTIONS? " $"118,2;"PRESS Y FOR YES OR N FOR NO" $,""9260 $6=""9270 $@="N"Ŧ="n"9310^$ $J="Y"Ŧ="y"3010 $O"Y"Ʀ"y"9260,$ $T$,," YOU MUST PRESS EITHER Y OR N" $W 9260 $^ $h*7,7;1;"GOODBYE ";C$ fg @appCKENro@L.00003T17F97R1.05B1.02c M XX d_;cDTWOH PROBLEMS 2;Z:;Z5:5:1: d&5,11 ;1;"SCISOFT" n F=0 x G=0  *14`,5 ;"EDUCATIONAL PROGRAMS" 16,14`;"FOR" &18,7`;"SCIENCE STUDENTS"  200 ; T&6,11 ;1;"PHYSICS" ^)9 ,10 ;6;"PROBLEMS 2" m21,0;" 1983" r 200 |  A=0 B=115p A,0;"" *7;" " *6;" " +2;" " +3;" " A=0100d  A=A+1  .2~L,b B 3,-8  200  37`,1;"PLEASE TYPE IN YOUR NAME, THEN" ,,8;"PRESS ENTER." C$ C$=""1030  C$>181030  :2,8;1;"HELLO ";6;0;C$ $$,,,," YOU WILL NOW BE GIVEN SOME" .",," PHYSICS PROBLEMS TO SOLVE." B(,,,,,,"AFTER YOU HAVE GIVEN 5 ANSWERS" L$,," YOU WILL BE GIVEN A PROGRESS" V,,12 ;"REPORT." `921,2;4;"PRESS ANY KEY TO CONTINUE." j""1130 @ t=""1140  -6;"PLEASE NOTE THAT IN THIS PROGRAM" /,,6;" THE FOLLOWING ABBREVIATION HAS " $,,11 ;6;"BEEN USED:-"  19 ,0;" DEGREES CELSIUS....DEG. C" H921,2;4;"PRESS ANY KEY TO CONTINUE." R""2130 \=""2140  PROB=((*5 )+1) (PROB*1000z)+2505 VARIABLES R$=((*9)+1) S$=((*9)+1) (T$=(((*19)+2)/10 ) (I$=(((*50H)+1)/10 ) E$=((*12@)+1) C=(*5 )+1 C=1R$="XX" C=2S$="XX" C=3@T$="XX" C=4I$="XX" C=5 E$="XX" CALCS. HC=1D=1/(1/(((E$)/(I$))-((T$)))-(1/(S$))) $HC=2D=1/(1/(((E$)/(I$))-((T$)))-(1/(R$))) .DC=3@D=((E$)/(I$))-(1/(1/(R$)+1/(S$))) 8DC=4D=(E$)/((1/(1/(R$)+1/(S$)))+(T$)) BFC=5 D=((1/(1/(R$)+1/(S$))+(T$)))*((I$)) tD03505[  E7,0;2;0;"E.M.F. AND INTERNAL RESISTANCE" -12 ,8;6;"PROBLEM TYPE 3"  250z  10 ;"" " (A)" " ";25H;"" " ";25H;"" " ";25H;"" %" R1";25H;"" '" ";25H;"" " " 9;" R2 " 9;"" ),,"INTERNAL RESISTANCE =";T$;" OHMS"  ),,"RESISTOR R1 =";R$;" OHMS" '"RESISTOR R2 =";S$;" OHMS" "),,"CURRENT A =";I$;" AMPS" 1("E.M.F. =";E$;" VOLTS" 6_19,0;6;"KEY IN THE VALUE OF THE UNKNOWN CORRECT TO TWO DECIMAL PLACES, " @021,7;1;"THEN PRESS ENTER." rJ$ sJ$=""4210r tJ$>5794210r u ANS=J$ w  9015  VARIABLES (T$=(((*19)+2)/10 ) (I$=(((*50H)+1)/10 ) E$=((*12@)+1) V=E$-((*5 )+1) V$=V C=(*4)+1 C=1T$="XX" C=2I$="XX" C=3@E$="XX" C=4V$="XX" CALCS. "C=1D=((E$)-(V$))/(I$)  "C=2D=((E$)-(V$))/(T$) *"C=3@D=((I$)*(T$))+(V$) 4"C=4D=(E$)-((I$)*(T$)) \D04505  E7,0;2;0;"E.M.F. AND INTERNAL RESISTANCE" -12 ,8;6;"PROBLEM TYPE 1"  250z  10 ;"" " (A)" " ";25H;"" " ";25H;"" " RESISTOR " " " " " 8;"";220;"" 8;"";220;"" 8;"(V)" +,,,,"INTERNAL RESISTANCE =";T$;" OHMS" ("POTENTIAL DIFFERENCE V =";V$;" VOLTS" '"CURRENT A =";I$;" AMPS" ("E.M.F. =";E$;" VOLTS" `19,0; 6;"KEY IN THE VALUE OF THE UNKNOWN CORRECT TO TWO DECIMAL PLACES, " (021,7;1;"THEN PRESS ENTER." ZJ$ [J$=""5210Z \J$>5795210Z ] ANS=J$ _  9015  VARIABLES R$=((*9)+1) S$=((*9)+1) (T$=(((*19)+2)/10 ) (I$=(((*50H)+1)/10 ) E$=((*12@)+1) C=(*5 )+1 C=1R$="XX" C=2S$="XX" C=3@T$="XX" C=4I$="XX" C=5 E$="XX" CALCS. (C=1D=((E$)/(I$))-(T$)-(S$) (C=2D=((E$)/(I$))-(T$)-(R$) (C=3@D=((E$)/(I$))-(S$)-(R$) (C=4D=(E$)/((R$)+(S$)+(T$)) (C=5 D=(I$)*((T$)+(R$)+(S$)) DD05505,  E7,0;2;0;"E.M.F. AND INTERNAL RESISTANCE" -12 ,8;6;"PROBLEM TYPE 2"  250z o p10 ;"" u" (A)" z" ";25H;"" " ";25H;"" " R1 R2 " " " " " +,,,,"INTERNAL RESISTANCE =";T$;" OHMS" ),,"RESISTOR R1 =";R$;" OHMS" '"RESISTOR R2 =";S$;" OHMS" ),,"CURRENT A =";I$;" AMPS" ("E.M.F. =";E$;" VOLTS" _19,0;6;"KEY IN THE VALUE OF THE UNKNOWN CORRECT TO TWO DECIMAL PLACES, " 021,7;1;"THEN PRESS ENTER." BJ$ CJ$=""6210B DJ$>5796210B E ANS=J$ G j 9015 iRDM G AND DEG. n)M$=(((*40 )+10 )*10 ) s)N$=(((*20 )+10 )*10 ) }T$=((*40 )+20 ) U$=((*40 )+20 ) V$=((*40 )+20 ) O$=((*100H)+50H) C=(*6@)+1 C=1M$="XX" C=2N$="XX" C=3@O$="XX" C=4T$="XX" C=5 U$="XX" C=6@V$="XX" CALC. jC=1D=(((N$)*4.2fff*((U$)-(V$)))-((O$)*0.4L*((V$)-(T$))))/(((V$)-(T$))*4.2fff) jC=2D=(((O$)*0.4L*((V$)-(T$)))+((M$)*4.2fff*((V$)-(T$))))/(4.2fff*((U$)-(V$))) jC=3@D=(((N$)*4.2fff*((U$)-(V$)))-((M$)*4.2fff*((V$)-(T$))))/(((V$)-(T$))*0.4L) C=4D=((0.4L*(O$)*(V$))+(4.2fff*(M$)*(V$))+(4.2fff*(N$)*(V$))-(4.2fff*(N$)*(U$)))/((0.4L*(O$))+(4.2fff*(M$))) xC=5 D=(((O$)*0.4L*((V$)-(T$)))+((M$)*4.2fff*((V$)-(T$)))+(N$)*4.2fff*(V$))/((N$)*4.2fff) C=6@D=((4.2fff*(N$)*(U$))+(0.4L*(O$)*(T$))+(4.2fff*(M$)*(T$)))/((0.4L*(O$))+(4.2fff*(M$))+(4.2fff*(N$))) ,D<06505KH  =7,5;2;0;"SPECIFIC HEAT CAPACITY"  250z W X ,,,,,"" Y J=0 ]6;" " ^ 0 b" X X" g" X X" l/" X X";1;" A LAGGED COPPER" q" X X" v+" XX";1;" CALORIMETER" {" XX" 0" XX";1;" CONTAINING WATER" " XX" " XXXXXXX" " "  1 J=17260\  50H  N=6@ M=16@ %3,N;6;" "  N=N-1 M  50H %0,16;"*** BEAKER OF" %1,12@;"******* WATER" 2,12@;""  100H  N=1  W=0  Y=18 M=113P M97145_H N,110;"*"  W,Y;" "  Y=Y-1  N=N+1 M=3@Y=18 M=3@W=1 M 8,9;""  W=2 M=15 W,110;" "  W=W+1  M %7`,9;"" * 50H /M=13@ 9M > N=0 CM=12 HN,M;6;" " MM R J=J+1 SI=010 T!I,15;" " UI W11 ,6;" " X12 ,6;" " Z0,0;"" [ 7006^ \!4,9 ;1;" " ]!5,9 ;1;" " ^!6,9 ;1;" " _!7,9 ;1;" " a'11 ,16;"MASS TEMPERATURE" f#12 ,18;"g DEG. C" p0,,"WATER INITIALLY ";M$;14`,26P;T$ z."WATER ADDED ";N$;15p,26P;U$ -"WATER FINALLY -";16,26P;V$ 0"CALORIMETER ";O$;17,26P;"-" &0,15;" SPECIFIC HEAT" &1,15;" CAPACITIES IN" '2,15;" JOULES PER GRAM" %3@,16;" KELVIN " &5 ,15p;" WATER = 4.2" '7`,15p;" COPPER = 0.4 " _19,0;6;"KEY IN THE VALUE OF THE UNKNOWN CORRECT TO TWO DECIMAL PLACES, "  021,7;1;"THEN PRESS ENTER." J$ J$=""7440 J$>5797440  ANS=J$   9015 QRDM G AND DEG. VM$=((*20 )+10 ) [)N$=(((*30p)+20 )*10 ) eT$=((*10 )-10 ) jU$=((*30p)+50H) tV$=((*19)+30p) C=(*5 )+1 C=1M$="XX" C=2N$="XX" C=3@T$="XX" C=4U$="XX" C=5 V$="XX" CALCS. C=1D=((((N$)*4.2fff*((U$)))-((N$)*4.2fff*(V$))))/((2.1fff*(T$)*-1)+(318)+(4.2fff*(V$))) āC=2D=(((M$)*318)+((M$)*2.1fff*(T$)*-1)+((M$)*4.2fff*(V$)))/((4.2fff*(U$))-(4.2fff*(V$))) wC=3@D=((((N$)*4.2fff*((U$)-(V$)))-((M$)*318)-((M$)*4.2fff*(V$)))/((M$)*2.1fff))*-1 ؅C=4D=(((M$)*318)+((M$)*2.1fff*(T$)*-1)+((M$)*4.2fff*(V$))+((N$)*4.2fff*(V$)))/(4.2fff*(N$)) C=5 D=(((N$)*4.2fff*(U$))-((M$)*318)-((M$)*2.1fff*(T$)*-1))/(((N$)*4.2fff)+((M$)*4.2fff)) $C=3@D<-100H7505j !C3@D<07505j x 37,12 ;2;0;"LATENT HEAT"  250z ? @ ,,,,,"" A J=0 E6;" " F 0 J" X X" O" X X" Q" X X" T-" X X";1;" A POLYSTYRENE" Y" X X" ^+" XX";1;" CALORIMETER" c" XX" h0" XX";1;" CONTAINING WATER" m" XX" r" XXXXXXXX" w" " x 1 yJ=18260D | 50H  N=6@ M=16@ %3,N;6;" "  N=N-1 M 3@,9;" "  50H  N=13P  W=0 M=14 *W,N;" ";0,17;"DRIED ICE" W+1,N;" "  N=N-1 2,110;"" M 0,110;" " 1,110;" " M=110 )W,N;"";0,17;"DRIED ICE" W+1,N;"" W-1,N;" "  W=W+1 M  50H 10 ,9;""  50H 9,8;""  N=3@ M=12 N,M;6;" " M : J=J+1 ? C 8005E D'12@,16;"MASS TEMPERATURE" I"5,8;1;" " J"6,8;1;" " K"7,8;1;" " N#13 ,18;"g DEG. C" X1,,"ICE INITIALLY ";M$;15p,26P;T$ b."WATER INITIALLY ";N$;16,26P;U$ l-"WATER FINALLY -";17,26P;V$ {#0,15;" S.H.C." }%1,17;"JOULES PER GRAM" ~2,20 ;"KELVIN" &4,15p;" WATER = 4.2" '5 ,15p;" ICE = 2.1 " %6@,15p;" " "7,16;" S.L.H." &8,16;" JOULES PER GRAM" '9,15p;" " %10 ,15p;" ICE = 318 " _19,0;6;"KEY IN THE VALUE OF THE UNKNOWN CORRECT TO TWO DECIMAL PLACES, " 021,7;1;"THEN PRESS ENTER." J$ J$=""8440 J$>5798210 ANS=J$  ! 9015 #7 #<ANS RIGHT OR WRONG #F-DANS+.05|L9050 h #H #K F=F+1 #LI=17 #M84,10 ;2;"YOU ARE RIGHT":.1}L,I #N54,10 ;2;1;"YOU ARE RIGHT" #OI #P.2~L,I+1:20 #QI #R 5 #S 40( #TF+G=5 9200 #U 9240` #Z #[I=110 #\A4,10 ;7;"YOU ARE WRONG":.2~L,I-20 #]54,10 ;0;7;"YOU ARE WRONG" #^I #_40(:G=G+1 #`Y$=D #a #b-D>0.0001sQXƱY$>6@Y$=Y$(6@) #cb5,0;1;" WOULD YOU LIKE TO KNOW THE ",,," CORRECT ANSWER. " #d110 ,2;"PRESS Y FOR YES OR N FOR NO" #e""9061 #f=""9062 #g="N"Ŧ="n"9074r# #h"Y"Ʀ"y"9061e# #i #j02,0;"THE CORRECT ANSWER IS : ";Y$ #ka5,0;1;"DO NOT FORGET THE APPROPRIATE ",,," UNITS IN THE EXAMINATION. " #n 250z #rF+G=5 9200 #tT,,,,6;"WOULD YOU LIKE TO HAVE ANOTHER",,," GO AT THE PROBLEM? " #v!,," PRESS Y FOR YES N FOR NO" #x""9080 #=""9090 #="Y"Ŧ="y"D=0 #+="Y"Ŧ="y"(PROB*1000)+26102 #="N"Ŧ="n"9240$ #"N"Ʀ"n"9080x# # #'7;1;"YOUR SCORE SO FAR" $M4,1;6;"RIGHT ANSWERS";4,17;"WRONG ANSWERS" $ 8,6@;F;238;G $ F=0 $ G=0 $ 400H $ $?16,0;1;" WOULD YOU LIKE MORE QUESTIONS? " $"118,2;"PRESS Y FOR YES OR N FOR NO" $,""9260 $6=""9270 $@="N"Ŧ="n"9310^$ $J="Y"Ŧ="y"3010 $O"Y"Ʀ"y"9260,$ $T%,," YOU MUST PRESS EITHER Y OR N." $W 9260 $^ $h*7,7;1;"GOODBYE ";C$ $r 9320h$ fgapprocd;Mjn@Cw`n;7KL#vCGyR6S2I3.2EXXM280N270U58V34O114TXXY11.721J11.721Q