# Flooding Emergency!- Casio Pb 700

Basic Programming PB700 Software old

### #1 marcobiaggini

marcobiaggini

Newbie

• Members
• 5 posts
• Gender:Male
• Location:ITALY
• Interests:Marine engines, Programming on handel devices , Blackberry devices

• Calculators:
PB700
PB2000C
Z1- GR
BLACKBERRY PLAYBOOK
BLACKBERRY PASSPORT

Posted 15 February 2015 - 06:54 PM

During my last ship where i've worked i've take in hand a serious problem: what appen if the hull it's damaged? Flooding Emergency !. Do you know how much waten can enter to a ship just 4-5 meters of deep? discover now with that new app for your Casio Poket Computer PB 700 and image how many pumps you need to pump out all!.

!   FLOODING !

10   REM  FALLA PRG

20   CLS:BEEP:LOCATE 4,0:PRINT”! FLOODING !”

30   LOCATE 1,1:PRINT”1- RECTANGULAR”

35   LOCATE 1,2:PRINT”2- ROUND”

40   LOCATE 1,3:INPUT”3- TRIANGLE”;F

45   IF F=1 THEN GOTO 100

50   IF F=2 THEN GOTO 200

55   IF F=3 THEN GOTO 300 ELSE BEEP:GOTO 20

60   CLS:LOCATE 4,0:PRINT”! FALLA !”

70   LOCATE 0,1:INPUT”MIDDLE IMMERSION”;H

75   LET K=0,66 : LET G=9,80665

80   Q=K*S*SQR(2*G*H)

85   GOSUB 5000

90   CLS:BEEP1:LOCATE 1,1:PRINT”WATER FLOW Q= “;INT(Q*3600)

92   LOCATE 0,3:INPUT”again Y/N”;A\$

93   IF A\$=”Y” THEN GOTO 20 : IF A\$=”N” THEN GOTO 94 ELSE BEEP:GOTO 92

94   END

100 REM SUBROUTINE RECTANGULAR

110 CLS:LOCATE 4,0:PRINT”! FALLA !”

115 DRAW (130,10)-(130,1)-(130,1)-(158,1)

116 DRAW (158,1)-(158,10)-(158,10)-(130,10)

120 LOCATE 0,1:INPUT” LENGH mt”;L

130 LOCATE 0,2:INPUT” HEIGH mt”;J

140 LOCATE 0,3:INPUT” REDUCTION FACT 0,0-1,0”;R

145 S=(L*J)*R

150 GOTO 60

200  REM SUBROUTINE ROUND

210  CLS:LOCATE 4,0:PRINT”! FALLA !”

211  R=104:X=148:Y=12: REM CENTRE OF CIRCLE

212  A=360/20  :REM LIKE POLIGON OF 20 SIDE

213  FOR I=0 TO 360 STEP A

214  DRAW (X-SIN(I)*R,Y-COS(I)*R)-(X-SIN(I+A)*R,Y-COS(I+A)*R)

215  NEXT I

220  LOCATE 0,1:INPUT” MID.DIAMETER mt”;D

230  S=(PI*D^2)/4

240  GOTO 60

300  REM SUBROUTINE TRIANGLE

310  CLS:LOCATE 4,0:PRINT”! FALLA !”

312  DRAW (130,1)-(125,13)-(158,13)-(130,1)

320  LOCATE 0,1:INPUT”BASE mt”;B

330  LOCATE 0,2:INPUT”HEIGHT mt;L

340  S=(B*L)/2

350  GOTO 60

5000  CLS:LOCATE 0,1:PRINT “computing”:LOCATE 0,3

5001  FOR I=1 TO 19

5002  PRINT CHR\$(128);

5003  NEXT I

5004  RETURN

﻿

### #2 JerryCrary

JerryCrary

Newbie

• Members
• 3 posts

• Calculators:
[url=http://wertjw3erw.ru]wertjw3erw.ru[/url]

Posted 26 January 2018 - 09:58 PM

wertjw3erw.ru

### Also tagged with one or more of these keywords: Basic, Programming, PB700, Software, old

#### 0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users