|
|
 | | From: | kroman35 | | Subject: | Basic prog. converted to "Palm OS" | | Date: | Fri, 14 Jan 2005 12:10:20 -0500 |
|
|
 | Hello,
I am looking to have the following basic prog. converted to "Palm OS" 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
|
|
|
