SKYDIVE@f15.n233.z1.FIDONET.ORG (SKYDIVE) (04/25/91)
Reply-to: Dave.Appel@p30.f30.n231.z1.fidonet.org (Dave Appel) Fido-To: scott ellentuch In a message to Skydive <23 Apr 91 18:18> uiucuxc!isis.cs.du.edu!se wrote: ui> From: uiucuxc!isis.cs.du.edu!sellentu (Scott J. Ellentuch) ui> To: ehsnet.fidonet.org!skydive ui> Date: 22 Apr 91 16:36:53 GMT ui> BTW: While I'm here, has anyone developed any skydiving software?? ui> Log Book/Manifest/DZ management package.. Etc. Or .GIF files? The manifester-guy at Skydive Deland has a manifest and receivables program for MS-DOS machines. Look up Skydive Deland's number in your Parachutist or SKYDIVING magazines, and give him a call. I saw his program 2 years ago, and he was thinking of marketing it. I wrote a small BASIC program to add up freefall time. It doesn't calculate it, just adds it. I also have a LOTUS spreadsheet that *does* calculate freefall time (based on your fall rate) and accumulates it for you. It also calculates all those numbers for you to plug into the USPA license application. It puts one jump on each ROW and totals the appropriate columns. All you have to enter is DATE, EXIT ALTITUDE, and OPENING ALTITUDE. I know how to send files via FIDONET, but I don't know how to send files via USENET or BITNET. If you can get access to a FIDONET bulletin board, send me net-mail via FIDONET and I'll send you the files. Here is the ridiculously simple program to add up seconds. It will work with GW-BASIC and QuickBasic. 10 PRINT 20 PRINT "Timecalc program" 25 REM Written by Dave Appel, July 25, 1990 30 DEFINT A, H, M, S 40 INPUT "starting hours"; hours 50 INPUT "starting min "; minutes 60 INPUT "starting sec "; seconds 70 PRINT 80 INPUT ; "seconds"; addseconds 90 ' 100 WHILE addseconds <> 0 110 ' 120 LET seconds = seconds + addseconds 130 WHILE seconds >= 60 140 LET seconds = seconds - 60 150 LET minutes = minutes + 1 160 WEND 170 WHILE minutes >= 60 180 LET minutes = minutes - 60 190 LET hours = hours + 1 200 WEND 210 ' 220 PRINT TAB(15); "time:"; 230 PRINT USING "##:"; hours; 240 PRINT USING "##:"; minutes; 250 PRINT USING "##"; seconds 260 ' 270 INPUT ; "seconds"; addseconds 280 ' 290 WEND 300 PRINT --- XRS!% 4.10 --- eecp 1.45 LM2 * Origin: The Drop Zone, Dave Appel, 1:231/30.30 (Quick 1:231/30.30) -- SKYDIVE - via FidoNet node 1:233/13 (ehsnet.fidonet.org)