1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        CONVRT:   TEMPERATURE SCALE CONVERSION
4  REM
5  REM        36685 REV  A   10/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
10  REM   <<<< CRAPS  >>>>>
20  REM
30  REM            JIM ALBRIGHT     JUNE 1973
40  REM
50  REM
60  PRINT '10'10"NEW PLAYER ON THE LINE"'7'7'7
70  M=100
80  PRINT "YOU HAVE"M"DOLLARS -- YOUR BET";
90  INPUT B
100  IF M >= B THEN 130
110  PRINT "**** THIS IS A CASH GAME ****"
120  GOTO 80
130  IF B=0 THEN 280
140  GOSUB 400
150  GOTO D-1 OF 300,300,160,160,160,340,160,160,160,340,300
160  LET D9=D
170  GOSUB 400
180  IF D=D9 THEN 210
190  IF D=7 THEN 240
200  GOTO 170
210  PRINT "YOU WIN -- BY MAKING YOUR POINT."
220  M=M+B
230  GOTO 80
240  PRINT "YOU LOSE -- BY FAILING TO MAKE YOUR POINT."
250  PRINT "SEVEN OUT ---- PASS THE DICE"
260  M=M-B
270  IF M=0 THEN 370
280  PRINT "YOU LEAVE WITH"M"DOLLARS"
290  GOTO 60
300  PRINT "YOU LOSE ON THE FIRST ROLL."
310  M=M-B
320  IF M=0 THEN 370
330  GOTO 80
340  PRINT "YOU WIN ON THE FIRST ROLL."
350  M=M+B
360  GOTO 80
370  PRINT '7'7'7"YOU'VE BEEN CLEANED OUT.  COME BACK WHEN YOU'RE LOADED."
380  GOTO 60
390  STOP 
400  REM ROLL DICE
410  D1=INT(6*RND(0)+1)
420  D2=INT(6*RND(0)+1)
430  D=D1+D2
440  PRINT D;
450  RETURN 
460  END 
1000  REM   PROG CONVRT
1010  REM
1020  DIM A$[72],T$[4]
1030  REM
1100  PRINT '10"TEMPERATURE CONVERSION"
1110  PRINT '10"ENTER TEMPERATURE AND SCALE AS:  37.56 C"
1120  PRINT "USE 'F', 'C', 'K', OR 'R' FOR THE SCALE."
1150  LET T$="FCKR"
1200  PRINT '10"ENTER TEMP ";
1210  INPUT A$
1220  LET Z0=1
1230  GOSUB 9010
1250  FOR I=1 TO 4
1260  IF A$[Z0,Z0]=T$[I,I] THEN 1300
1270  NEXT I
1280  PRINT "UNRECOGNIZED SCALE:  ";A$[Z0,Z0]
1290  GOTO 1200
1300  GOTO I OF 1400,1500,1600,1700
1400  LET F=Z
1410  LET C=5/9*(F-32)
1420  LET K=C+273.15
1430  LET R=9/5*K
1450  GOTO 1800
1500  LET C=Z
1510  LET F=9/5*C+32
1550  GOTO 1420
1600  LET K=Z
1610  LET C=K-273.15
1620  LET F=9/5*C+32
1630  LET R=9/5*K
1650  GOTO 1800
1700  LET R=Z
1710  LET K=5/9*R
1720  LET C=K-273.15
1730  LET F=9/5*C+32
1800  PRINT "T =","F ";F,"C ";C,"K ";K,"R ";R
1810  GOTO 1200
9000  REM *** ALFTOV ***
9009  DIM Z$[15]
9010  REM
9011  LET Z=Z4=Z5=0
9012  LET Z1=Z2=Z3=1
9013  LET Z$="0123456789+-.E "
9015  FOR Z9=Z0 TO LEN(A$)
9016  FOR Z8=1 TO 15
9017  IF A$[Z9,Z9]=Z$[Z8,Z8] THEN 9020
9018  NEXT Z8
9019  GOTO 9080
9020  IF Z8=15 THEN 9070
9021  IF Z8>10 THEN 9040
9022  GOTO Z2 OF 9025,9030,9035
9025  LET Z=10*Z+Z8-1
9028  GOTO 9070
9030  LET Z5=Z5+1
9031  GOTO 9025
9035  LET Z4=10*Z4+Z8-1
9037  GOTO 9070
9039  REM
9040  GOTO Z8-10 OF 9045,9045,9055,9060
9045  IF Z2<3 AND Z>0 THEN 9080
9046  IF Z2=3 THEN 9050
9047  LET Z1=23-2*Z8
9048  GOTO 9070
9050  IF Z4>0 THEN 9080
9051  LET Z3=23-2*Z8
9052  GOTO 9070
9055  IF Z2>1 THEN 9080
9056  LET Z2=2
9057  GOTO 9070
9060  IF Z2=3 THEN 9080
9061  LET Z2=3
9070  NEXT Z9
9075  REM
9080  LET Z0=Z9
9081  IF ABS(Z3*Z4-Z5)<50 THEN 9085
9082  LET Z5=Z3*(Z4-50)
9085  LET Z=Z1*Z*10^(Z3*Z4-Z5)
9087  RETURN 
9999  END 
