1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        CLOCKS:   CLOCKS
4  REM
5  REM        36657 REV  A   10/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
1000  REM - CLOCKS
1020  REM - PEOPLES COMPUTER CENTER , MENLO PARK , CA.
1040  REM - CONCEPT :     BOB ALBRECHT
1060  REM - PROGRAMER :     RAY COOP
1080  REM - THANKS TO PETE SESSIONS AND GREG YOB
1100  REM - **************** 3/5/73**************************
1120  PRINT "DO YOU WANT INSTRUCTIONS";
1140  INPUT Q$[1,1]
1160  IF Q$="N" THEN 1620
1180  REM *************INTRO.*******
1200  PRINT '10'10;
1220  PRINT "I'M THINKING OF A TIME BETWEEN 0:01 (1 MIN.AFTER MIDNIGHT)"
1240  PRINT "AND 12:00 NOON. YOUR JOB IS TO TRY TO GUESS THE TIME I'M"
1260  PRINT "THINKING OF ."
1280  PRINT 
1300  PRINT "AFTER YOU ENTER YOUR GUESS ,A SET OF CODE WORDS WILL"
1320  PRINT "TELL YOU HOW FAR YOUR GUESS IS FROM MY TIME."
1340  PRINT 
1360  PRINT "CODE WORDS :"
1380  PRINT "     MEGA  - HOURS CORRECT."
1400  PRINT "     KILO  - MINUTES CORRECT."
1420  PRINT "     HECTO - HOURS OFF BY AT MOST + OR - 2."
1440  PRINT "     DECA  - MIN. OFF BY AT MOST + OR - 2."
1460  PRINT "     DECI  - HOURS OFF BY AT MOST + OR - 5."
1480  PRINT "     CENTI - MIN. OFF BY AT MOST + OR - 5."
1500  PRINT "     MILLI - MIN. OFF BY AT MOST + OR - 10."
1520  PRINT "     MICRO - MIN. OFF BY AT MOST + OR - 20."
1540  PRINT "     BLA   - COMPLETELY OFF IN HOURS OR MIN."
1560  PRINT 
1580  PRINT "  FORMAT : HH:MM OR H:MM ONLY."
1600  PRINT '10'10'10;
1620  D1=INT(RND(0)*720)+1
1640  D=INT(D1/60)
1660  E=D1-D*60
1680  IF D=12 AND E=1 THEN 1620
1700  PRINT "O.K. I HAVE THOUGHT OF A TIME."
1720  DIM A[4]
1740  MAT A=ZER
1760  DIM T$[10]
1780  R=M=0
1800  DIM C$[72]
1820  DIM Q$[1]
1840  T$="0123456789"
1860  DIM D$[10]
1880  REM ***************INPUT*********
1900  IF M>0 THEN 1960
1920  T=13
1940  GOTO 1980
1960  T=0
1980  PRINT TAB(T)"     YOUR GUESS";
2000  INPUT C$
2020  R=R+1
2040  M=M+1
2060  REM ***************PARSER************
2080  LET I=1
2100  LET J=1
2120  D$=""
2140  IF I>LEN(C$) THEN 2280
2160  IF C$[I,I]=" " THEN 2240
2180  IF C$[I,I]=":" THEN 2240
2200  D$[J,J]=C$[I,I]
2220  J=J+1
2240  I=I+1
2260  GOTO 2140
2280  IF LEN(D$)=4 THEN 2360
2300  C$[1,1]="0"
2320  C$[2]=D$
2340  D$=C$
2360  FOR I=1 TO 4
2380  Q$=D$[I,I]
2400  FOR J=1 TO 10
2420  IF Q$#T$[J,J] THEN 2460
2440  A[I]=J-1
2460  NEXT J
2480  NEXT I
2500  REM *************CONVERTED INPUT TIME*********
2520  A5=10*A[1]+A[2]
2540  A6=10*A[3]+A[4]
2560  REM **************CODE WORDS********
2580  REM **************HOURS*************
2600  IF A5=D AND A6=E THEN 3240
2620  IF A5=D THEN 2820
2640  F=ABS(A5-D)
2660  IF F<3 THEN 2780
2680  IF F<6 THEN 2740
2700  PRINT "BLA  ";
2720  GOTO 2860
2740  PRINT "DECI ";
2760  GOTO 2860
2780  PRINT "HECTO";
2800  GOTO 2860
2820  PRINT "MEGA ";
2840  REM ***************MINUTES*********
2860  IF A6=E THEN 3180
2880  G=ABS(A6-E)
2900  IF G<3 THEN 3140
2920  IF G<6 THEN 3100
2940  IF G<11 THEN 3060
2960  IF G<21 THEN 3020
2980  PRINT "   BLA  ";
3000  GOTO 1880
3020  PRINT "   MICRO";
3040  GOTO 1880
3060  PRINT "   MILLI";
3080  GOTO 1880
3100  PRINT "   CENTI";
3120  GOTO 1880
3140  PRINT "   DECA ";
3160  GOTO 1880
3180  PRINT "   KILO ";
3200  GOTO 1880
3220  REM ****************HUMAN ELEMENT*********
3240  PRINT "**************  YOU GOT IT"'7'7'7'7'7'7'7'7'7'7'7'7'7'7'7'7'7"!!!!!!!"
3260  IF R=1 THEN 3460
3280  IF R<5 THEN 3400
3300  IF R<10 THEN 3360
3320  PRINT "FINALLY, AFTER";R;" GUESSES YOU GOT IT!"
3340  GOTO 3420
3360  PRINT "   "R;"GUESSES THAT'S ABOUT PAR FOR THE COURSE."
3380  GOTO 3420
3400  PRINT R;"GUESSES: AREN'T WE GETTING GOOD!"
3420  PRINT "TRY TO BETTER YOUR SCORE NEXT TIME .."
3440  GOTO 3600
3460  PRINT "INCREDIBLE , YOU GOT IT IN  O N E  GUESS , THAT'S A"
3480  PRINT "PERFECT SCORE."
3500  PRINT "WE WOULD LIKE TO TELL YOU THAT: "
3520  PRINT "     THE WORLD IS PROUD OF YOU."
3540  PRINT "     YOUR COUNTRY IS PROUD OF YOU."
3560  PRINT "     DYMAX IS PROUD OF YOU."
3580  PRINT "     AND MOST OF ALL I'M PROUD OF YOU."
3600  PRINT '10'10;
3620  PRINT "ONE MORE TIME";
3640  INPUT Q$
3660  IF Q$="Y" THEN 1620
3680  PRINT '10'10;
3700  PRINT "SEE YOU LATER"
3720  END 
