Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Need to have basic prog. converted to "Palm Basic"

kroman35kroman35 Posts: 1Member
Hello,
I am looking to have the following basic prog. converted to "Palm Basic" so I will be able to run this prog. on a Palm Pilot.
Please take a look and tell me if it is possible and if someone can do it or if I can do it myself. I am not to knowledgeable in programming so that could be a challenge.
Thank in advance.

Tony

2000 PRINT "VACUUM TEST PROGRAM"
2010 PAUSE
2020 OPEN #1,"12.",OUTPUT
2030 A=0
2040 INPUT "BASKET WT IN WATER = ";B
2050 INPUT "WATER TEMP = ";C
2060 GOSUB 2500
2070 INPUT "HEAT/SERIAL # = ";E$
2080 INPUT "WT IN AIR = ";F
2090 INPUT "WT IN WATER = ";G
2100 PRINT #1,"HEAT/SERIAL # = ";E$
2140 PRINT #1,"WT IN AIR = ";F
2150 PRINT #1,"WT IN WATER = ";G
2160 H=F/(F-G-B)*D
2170 I=(INT((H+.0005)*1000))/1000
2180 PRINT #1,"COMP. DENSITY = ";I
2190 J=F/(F-G)*.999254
2200 K=(INT(J*1000))/1000
2210 PRINT #1,"OLD DENSITY = ";K
2220 PRINT #1," "
2230 PRINT #1," "
2240 PRINT #1," "
2250 A=A+1
2260 INPUT "MORE TO DO ? ";Z$
2270 IF Z$="Y"AND A<10 THEN GOTO 2070
2280 IF Z$="Y"AND A=10 THEN GOTO 2030
2290 IF Z$="N"THEN GOTO 2330
2300 PRINT "BAD ENTRY - TRY AGAIN"
2310 PAUSE 1
2320 GOTO 2260
2330 PRINT #1," "
2340 CLOSE #1
2350 RETURN
2500 C2=(C-32)*5/9
2510 IF C2<=54 THEN D=.9881
2520 IF C2<=44 THEN D=.9922
2530 IF C2<=34 THEN D=.9957
2540 IF C2<=24 THEN D=.9982
2550 IF C2<=17.5 THEN D=.9991
2560 IF C2<=12.5 THEN D=.9997
2570 IF C2<=7.5 THEN D=1
2580 IF C2<=0 THEN PRINT "BAD TEMP ENTRY":PAUSE:D=.999254
2590 RETURN
Sign In or Register to comment.