Howdy, Stranger!

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

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

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.