1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        MKS1:   COMPUTER-AUGMENTED PHYSICS TOPICS (CONVERTS
4  REM                ENGLISH UNITS TO MKS UNITS)
5  REM        36671 REV  A   10/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
8  LET X=Y=0
10  PRINT "IN THIS LESSON YOU WILL GAIN SOME FAMILIARITY"
20  PRINT "WITH THE MKS SYSTEM OF UNITS."
22  PRINT "TO USE THE CALCULATOR MODE (LATER ON) TYPE 999999."
30  PRINT 
40  PRINT "WHAT IS YOUR WEIGHT IN POUNDS";
45  INPUT A
60  LET A=A*9.8/2.2
70  PRINT "THEREFORE YOUR WEIGHT IS ";A;"NEWTONS."
80  IF A<200 THEN 200
90  IF A>900 THEN 250
100  LET M=A/9.8
110  PRINT "YOUR MASS IS ";M;" KILOGRAMS."
120  PRINT "WHILE I'M STILL BEING PERSONAL,"
130  GOTO 300
200  PRINT "CHECK THAT YOU TYPED IN YOUR CORRECT WEIGHT!"
210  PRINT "IF YOU DID MAYBE YOU SHOULD GO AND HAVE A BIG LUNCH!"
220  GOTO 100
250  PRINT "CHECK THAT YOU TYPED IN YOUR WEIGHT CORRECTLY"
260  PRINT "IF SO MAYBE YOU SHOULD SKIP LUNCH."
270  GOTO 100
300  PRINT "HOW LONG DOES IT TAKE YOU TO GET TO SCHOOL?"
310  PRINT "GIVE YOUR TIME IN MINUTES."
320  INPUT B
340  LET B=B*60
341  PRINT "THAT IS ";B;"SECONDS."
350  IF B<60 THEN 400
360  IF B>1800 THEN 500
370  PRINT "WELL, I GUESS THAT ISN'T TOO BAD!"
380  GOTO 600
400  PRINT "DO YOU HAVE A TENT ON THE FRONT LAWN?"
410  GOTO 600
500  PRINT "MAYBE YOU SHOULD APPLY FOR TRAVEL PAY!"
600  PRINT "NOW LET'S CONSIDER DISTANCES"
610  PRINT "HOW FAR DO YOU LIVE FROM SCHOOL?"
620  PRINT "ALLOW 10 BLOCKS PER MILE AND PRINT YOUR"
630  PRINT "ANSWER IN BLOCKS!"
640  INPUT C
650  LET C=C*176*36*.0254
660  PRINT "THAT IS A DISTANCE OF ";C;"METERS!"
670  LET D=C/B
680  PRINT "YOUR AVERAGE SPEED ON THE WAY TO SCHOOL IS ";D;"M/SEC."
690  PRINT "HOW DO YOU GET TO SCHOOL?"
700  PRINT "INDICATE BY 1 FOR WALKING, 2 FOR BUS, 3 FOR CAR, 4 FOR BICYCLE"
710  PRINT "AND 5 FOR OTHER";
720  INPUT E
730  IF E=1 THEN 800
740  IF E=2 THEN 900
750  IF E=3 THEN 1000
755  IF E=4 THEN 1100
760  IF E=5 THEN 1200
770  LET Y=Y+1
780  IF Y>1 THEN 5000
790  PRINT "TYPE ONLY ONE OF THE FOLLOWING, YOUR ANSWER IS NOT UNDERSTOOD!"
795  GOTO 700
800  PRINT "AS YOU WALK TO SCHOOL YOUR MAXIMUM SPEED WILL"
801  PRINT "BE ONLY ABOUT 4 MILES PER HOUR.  HOW FAST IS THIS"
802  PRINT "IN METERS PER SECOND";
803  INPUT F
804  IF F <> 999999. THEN 820
805  GOSUB 9000
806  GOTO 803
820  IF (F-1.78816)/1.78816<.03 THEN 2000
830  LET Y=Y+1
840  IF Y>1 THEN 870
850  PRINT "YOUR ANSWER DOES NOT EQUAL 4 MPH EXPRESSED IN M/SEC"
860  PRINT "CHECK YOUR ANSWER AND TRY AGAIN."
861  GOTO 803
870  PRINT "NO! 4 MPH IS EQUAL TO 1.78816 M/SEC."
880  LET F=1.78816
890  GOTO 2000
900  PRINT "THE CITY BUSSES MANAGE TO AVERAGE ABOUT 15 MPH"
901  PRINT "ON A GOOD DAY.  HOW MUCH IS THIS IN METERS PER SECOND";
903  INPUT F
904  IF F <> 999999. THEN 920
905  GOSUB 9000
906  GOTO 903
920  IF (F-6.7056)/6.7056<.03 THEN 2000
925  LET Y=Y+1
940  IF Y>1 THEN 970
950  PRINT "YOUR ANSWER IS NOT EQUAL TO 15 MPH!"
960  PRINT "CHECK YOUR ANSWER AND TRY AGAIN."
961  GOTO 903
970  PRINT "WRONG AGAIN.  15 MPH IS EQUAL TO 6.7056 M/SEC."
980  LET F=6.7056
990  GOTO 2000
1000  PRINT "THE SPEED LIMIT IN THE CITY IS 25 MPH."
1001  PRINT "WHAT IS THIS SPEED EXPRESSED IN METERS PER SECOND?"
1003  INPUT F
1004  IF F <> 999999. THEN 1020
1005  GOSUB 9000
1006  GOTO 1003
1020  IF (F-11.176)/11.176<.03 THEN 2000
1030  LET Y=Y+1
1040  IF T>1 THEN 1070
1050  PRINT "YOUR ANSWER IS NOT EQUAL TO 25 MPH."
1051  PRINT "CHECK YOUR ANSWER AND TRY AGAIN."
1060  GOTO 1003
1070  PRINT "SORRY! 25 MPH IS EQUAL TO 11.176 M/SEC."
1080  LET F=11.176
1090  GOTO 2000
1100  PRINT "IF YOU PEDAL HARD YOU MIGHT AVERAGE 10 MPH. CONVERT"
1101  PRINT "THIS TO A SPEED IN METERS PER SECOND AND ENTER IT BELOW."
1103  INPUT F
1104  IF F <> 999999. THEN 1120
1105  GOSUB 9000
1106  GOTO 1103
1120  IF (F-4.4704)/4.4704<.03 THEN 2000
1130  LET Y=U+1
1140  IF T>1 THEN 1170
1150  PRINT "YOUR ANSWER IS NOT EQUAL TO 10 MPH"
1160  PRINT "CHECK YOUR ANSWER AND TRY AGAIN."
1161  GOTO 1103
1170  PRINT "NO! 10 MPH IS EQUAL TO 4.4704 METERS PER SECOND."
1180  LET F=4.4704
1190  GOTO 2000
1200  PRINT "WHAT EVER MEANS OF TRANSPORTATION YOU USE, IN THE CITY"
1201  PRINT "YOU WILL NOT AVERAGE MORE THAN 20 MPH.  EXPRESS THIS SPEED"
1202  PRINT "IN METERS PER SECOND."
1203  INPUT F
1205  IF F <> 999999. THEN 1220
1206  GOSUB 9000
1207  GOTO 1203
1220  IF (F-8.9408)/8.9408<.03 THEN 2000
1230  LET Y=Y+1
1235  IF Y>1 THEN 1270
1240  PRINT "YOUR ANSWER IS NOT EQUAL TO 20 MPH."
1245  PRINT "CHECK YOUR ANSWER AND TRY AGAIN."
1260  GOTO 1203
1270  PRINT "SORRY! 20 MPH IS EQUAL TO 8.9408 M/SEC."
1280  LET F=8.9408
2000  PRINT "YOU HAVE JUST CALCULATED WHAT YOUR MAXIMUM"
2001  PRINT "SPEED SHOULD HAVE BEEN.  DO YOU EXCEED"
2002  PRINT "ANY SPEED LIMITS (1=YES, 0=NO)";
2010  INPUT G
2025  IF G=1 THEN 2100
2026  IF G=0 THEN 2200
2040  IF G=.5 THEN 2300
2045  LET Y=Y+1
2050  IF Y>2 THEN 5010
2060  GOTO 2010
2100  IF D>F THEN 2150
2110  PRINT "ACCORDING TO MY CALCULATIONS YOU ARE NOT A SPEEDER."
2120  PRINT "MAYBE YOU CAN BEAT THE NEXT LESSON"
2130  GOTO 5010
2150  PRINT "CORRECT. YOU MOVE TOO FAST. SLOW DOWN AND LIVE TO"
2160  PRINT "DO THE NEXT LESSON."
2170  GOTO 5010
2200  IF D>F THEN 2250
2210  PRINT "RIGHT! HOPE YOU HAD A GOOD TIME WITH THIS LITTLE"
2220  PRINT "PROGRAM. YOU HAVE COOPERATED TO THE FULLEST (I THINK)."
2230  PRINT "TRY THE NEXT LESSON (MKS2)."
2240  GOTO 5010
2250  PRINT "YOU ARE IN ERROR; YOUR DATA INDICATES THAT YOU MOVE FASTER"
2260  PRINT "THAN WOULD BE EXPECTED FOR YOUR MEANS OF TRAVEL. GO AND"
2270  PRINT "TRY THE NEXT LESSON (MKS2)."
2280  GOTO 5010
2300  IF D>F THEN 2350
2310  PRINT "YOUR DATA SHOWS THAT YOU MOVE SLOWER THAN EXPECTED,"
2320  PRINT "ADMIT IT. NOW TRY THE NEXT LESSON (MKS2)."
2330  GOTO 5010
2350  PRINT "YOU ARE A SPEEDER! NOW DO THE NEXT LESSON (MKS2)."
2360  GOTO 5010
5000  PRINT "I CAN'T FIGURE OUT YOUR ANSWER. SO LONG FOR NOW."
5010  PRINT "PEACE AND FAREWELL."
5020  STOP 
