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
