10 CLS
COLOR 1, 0
PRINT "±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±"
PRINT "±± ±±± ± ±±± ±   ±±   ±± ±    ±±     ±±  ±±± ±±    ±±±±±±±±±±±±±±±±±±±±±±±±±±±±"
PRINT "±± ±±± ± ±±± ± ±± ± ±± ± ± ±±±±± ±±± ±± ± ±± ±± ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±"
PRINT "±±     ± ±±± ±    ±    ± ± ±±±±±     ±± ±  ± ±±  ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±"
PRINT "±± ±±± ± ±±± ± ± ±± ± ±± ± ±±±±± ±±± ±± ±±   ±± ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±"
PRINT "±± ±±± ±±   ±± ±± ± ±± ± ±    ±± ±±± ±± ±±±  ±±    ±±±± A D V I S O R Y ±±±±±±±"
PRINT "±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±"
PRINT "±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±"
PRINT "±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±"
PRINT "±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±"
PRINT "±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±"
PRINT "±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±"
COLOR 3, 0
PRINT ""
PRINT ""
PRINT ""
COLOR 7, 0
PRINT "                              Designed and created by:"
COLOR 1, 0
PRINT "                                                         Benjamin BOYRARD"
COLOR 7, 0
PRINT "Do You want to continue ? [1] yes  [0] no"
INPUT Z
IF Z = 1 THEN GOTO 54
IF Z = 0 THEN GOTO 9002

54 CLS
55 SCREEN 12, 0
PRINT "Enter present coordinates ..."
PRINT "longitude [from 53 W to 68 W]"
INPUT A
PRINT "latitude [from 10 N to 24 N]"
INPUT B
PRINT "      Enter old coordinates"
PRINT "longitude [from 53 W to 68 W]"
INPUT C
PRINT "latitude [from 10 N to 24 N]"
INPUT D
PRINT "Enter range of hurricane conditions [winds above 73 m.p.h]"
INPUT H
PRINT "Enter range of storm conditions [winds from 38 to 73 m.p.h]"
INPUT S
PRINT "      Please enter date and time ..."
INPUT "      DATE:         ", AE$' LECTURE ENTREES DEPUIS LE CLAVIER
INPUT "      TIME:         ", AGE$' LECTURE ENTREES DEPUIS LE CLAVIER
PRINT "      Enter system's name ..."
INPUT "      NAME:         ", NAME$' LECTURE ENTREES DEPUIS LE CLAVIER
PRINT "      Enter motion direction"
INPUT "      DIRECTION:         ", NAE$' LECTURE ENTREES DEPUIS LE CLAVIER
PRINT "     Enter period (or time) between 2 positions"
INPUT T
PRINT "         Enter average wind speed (maximum sustained winds)"
INPUT W


CLS
SCREEN 12, 0
LINE (10, 10)-(10, 250), 4
LINE (10, 250)-(300, 250), 4
LINE (8, 15)-(300, 15), 4
LINE (8, 30)-(300, 30), 4
LINE (8, 45)-(300, 45), 4
LINE (8, 60)-(300, 60), 4
LINE (8, 75)-(300, 75), 4
LINE (8, 90)-(300, 90), 4
LINE (8, 105)-(300, 105), 4
LINE (8, 120)-(300, 120), 4
LINE (8, 135)-(300, 135), 4
LINE (8, 150)-(300, 150), 4
LINE (8, 165)-(300, 165), 4
LINE (8, 180)-(300, 180), 4
LINE (8, 195)-(300, 195), 4
LINE (8, 210)-(300, 210), 4
LINE (8, 225)-(300, 225), 4
LINE (8, 245)-(300, 245), 4
                                                    
LINE (25, 10)-(25, 255), 4
LINE (45, 10)-(45, 255), 4
LINE (65, 10)-(65, 255), 4
LINE (85, 10)-(85, 255), 4
LINE (105, 10)-(105, 255), 4
900 LINE (125, 10)-(125, 255), 4
LINE (145, 10)-(145, 255), 4
LINE (165, 10)-(165, 255), 4
LINE (185, 10)-(185, 255), 4
LINE (205, 10)-(205, 255), 4
LINE (225, 10)-(225, 255), 4
LINE (245, 10)-(245, 255), 4
LINE (265, 10)-(265, 255), 4
LINE (285, 10)-(285, 255), 4
LINE (300, 10)-(300, 255), 4

Y = (24 - B) * 15 + 15
X = (68 - A) * 20 + 5
O = H / 3
T = S / 3

CIRCLE (X, Y), 2
CIRCLE (X + 8, Y - 8), O, 9
CIRCLE (X + 8, Y - 8), T, 14

LOCATE 1, 8
PRINT "65"
LOCATE 1, 21
PRINT "60"
LOCATE 1, 33
PRINT "55"

LOCATE 5, 1
PRINT " 20"
LOCATE 10, 1
PRINT "15"
LOCATE 15, 1
PRINT "10"

LOCATE 1, 50
COLOR 3
PRINT "model #3 -HURRICANE ADVISORY-"

LOCATE 4, 43
COLOR 5
PRINT "Date: "; AE$
LOCATE 5, 43
PRINT "Time: "; AGE$
LOCATE 6, 43
PRINT "Name: "; NAME$
LOCATE 7, 43
PRINT B, ; A,
LOCATE 7, 47
PRINT " N "
LOCATE 7, 62
PRINT "W"
LOCATE 8, 39
PRINT "Maximum sustained wind speed [m.p.h]:"; W
LOCATE 9, 39
PRINT "Wind gusts + turbulences [m.p.h]:"; (W / 100) * 35 + W
LOCATE 10, 39
PRINT "Motion direction: "; NAE$
LOCATE 11, 39
PRINT "Motion speed [m.p.h]"; (((((B - D) ^ 2 + (A - C) ^ 2) ^ .5) * 59.4) / T) * 10
LOCATE 12, 39
PRINT "Minimum central pressure [mb]: "; -.657 * W + 1034 - (W / 80)
LOCATE 13, 39
PRINT "Wave height + storm surge: "; (.05 * W + .3) / .3048 + (S / 30)
LOCATE 14, 39
PRINT "Hurricane conditions (range miles):"; H
LOCATE 15, 39
PRINT "Storm conditions (range miles):"; S
LOCATE 16, 39
PRINT "Rain fall potential  (inches):"; .05 * W + (10 / ((((B - D) ^ 2 + (A - C) ^ 2) ^ .5) * 59.4) / T) + (S / 100)
LOCATE 17, 39
PRINT "     The center is about ..."
LOCATE 18, 39
PRINT ((63 - A) ^ 2 + (18 - B) ^ 2) ^ .5 * 59.4; "      miles from St Martin. "
PRINT ""
COLOR 8
LOCATE 25, 12
PRINT "                                    By Benjamin BOYRARD."
PRINT "                                          (c) 1997."




LINE (100, 101)-(103, 101), 2
LINE (105, 97)-(102, 98), 2
LINE (101, 103)-(103, 102), 2
LINE (115, 107)-(116, 106), 2
LINE (108, 113)-(111, 116), 2
CIRCLE (109, 114), 1, 2
CIRCLE (113, 119), 1, 2
LINE (133, 119)-(135, 119), 2
CIRCLE (135, 120), 1, 2
LINE (130, 129)-(132, 137), 2
LINE (130, 129)-(133, 130), 2
LINE (133, 130)-(135, 136), 2
LINE (132, 138)-(135, 136), 2

LINE (23, 95)-(52, 95), 2
LINE (52, 95)-(51, 97), 2
LINE (51, 97)-(48, 99), 2




LINE (115, 107)-(116, 106), 2
LINE (115, 107)-(116, 106), 2
LINE (115, 107)-(116, 106), 2
LINE (115, 107)-(116, 106), 2
LINE (115, 107)-(116, 106), 2
LINE (115, 107)-(116, 106), 2


                                                 

LINE (25, 10)-(25, 255), 4
LINE (45, 10)-(45, 255), 4
LINE (65, 10)-(65, 255), 4
LINE (85, 10)-(85, 255), 4
LINE (105, 10)-(105, 255), 4
LINE (125, 10)-(125, 255), 4
LINE (145, 10)-(145, 255), 4
LINE (165, 10)-(165, 255), 4
LINE (185, 10)-(185, 255), 4
LINE (205, 10)-(205, 255), 4
LINE (225, 10)-(225, 255), 4
LINE (245, 10)-(245, 255), 4
LINE (265, 10)-(265, 255), 4
LINE (285, 10)-(285, 255), 4
LINE (300, 10)-(300, 255), 4


LOCATE 1, 8
PRINT "65"
LOCATE 1, 21
PRINT "60"
LOCATE 1, 33
PRINT "55"

LOCATE 5, 1
PRINT " 20"
LOCATE 10, 1
PRINT "15"
LOCATE 15, 1
PRINT "10"


LINE (100, 101)-(103, 101), 2
LINE (105, 97)-(102, 98), 2
LINE (101, 103)-(103, 102), 2
LINE (115, 107)-(116, 106), 2
LINE (108, 113)-(111, 116), 2
CIRCLE (109, 114), 1, 2
CIRCLE (113, 119), 1, 2
LINE (133, 119)-(135, 119), 2
CIRCLE (135, 120), 1, 2

LINE (130, 129)-(132, 137), 2
LINE (130, 129)-(133, 130), 2
LINE (133, 130)-(135, 136), 2
LINE (132, 138)-(135, 136), 2
LINE (136, 132)-(137, 130), 2
CIRCLE (137, 129), 2, 2
LINE (139, 131)-(142, 132), 2

LINE (136, 143)-(140, 150), 2
LINE (136, 143)-(138, 143), 2
LINE (138, 143)-(140, 144), 2
LINE (140, 144)-(143, 150), 2
CIRCLE (142, 149), 1, 2

LINE (143, 155)-(144, 160), 2
LINE (144, 160)-(143, 161), 2
LINE (143, 155)-(141, 155), 2
LINE (141, 155)-(141, 161), 2
CIRCLE (143, 162), 1, 2
CIRCLE (141, 160), 1, 2

LINE (140, 168)-(139, 172), 2
LINE (140, 168)-(142, 172), 2
LINE (140, 173)-(142, 172), 2

CIRCLE (138, 177), 1, 2
CIRCLE (138, 179), 1, 2

CIRCLE (173, 177), 1, 2
CIRCLE (172, 176), 1, 2

CIRCLE (130, 192), 1, 2
CIRCLE (131, 191), 1, 2

LINE (132, 215)-(145, 213), 2
LINE (145, 213)-(145, 215), 2
LINE (145, 215)-(142, 216), 2
LINE (142, 216)-(141, 222), 2
LINE (141, 222)-(131, 223), 2
LINE (131, 223)-(135, 220), 2
LINE (135, 220)-(135, 215), 2



LINE (10, 217)-(49, 215), 2
LINE (49, 215)-(50, 217), 2
LINE (50, 217)-(52, 220), 2
LINE (52, 220)-(75, 220), 2
LINE (75, 220)-(80, 219), 2
LINE (80, 219)-(92, 218), 2
LINE (92, 218)-(92, 217), 2
LINE (92, 217)-(82, 216), 2
LINE (82, 216)-(82, 215), 2
LINE (82, 215)-(96, 215), 2
LINE (96, 215)-(128, 214), 2
LINE (128, 214)-(128, 216), 2
LINE (128, 216)-(115, 218), 2
LINE (115, 218)-(116, 221), 2
LINE (116, 221)-(119, 221), 2
LINE (119, 221)-(127, 224), 2
LINE (127, 224)-(130, 228), 2
LINE (130, 228)-(155, 240), 2
LINE (155, 240)-(160, 246), 2
LINE (160, 246)-(166, 250), 2







LINE (23, 95)-(52, 95), 2
LINE (52, 95)-(51, 97), 2
LINE (51, 97)-(48, 99), 2
LINE (48, 99)-(45, 105), 2
LINE (45, 105)-(43, 106), 2
LINE (43, 106)-(36, 105), 2
LINE (36, 105)-(28, 106), 2
LINE (28, 106)-(25, 106), 2
LINE (25, 106)-(22, 104), 2
LINE (22, 104)-(22, 100), 2
LINE (22, 100)-(21, 99), 2
LINE (21, 99)-(22, 95), 2



LINE (10, 280)-(40, 280), 9
LINE (10, 300)-(40, 300), 14
COLOR 9
LOCATE 18, 8
PRINT "range of hurricane winds"
COLOR 14
LOCATE 19, 8
PRINT "range of storm conditions"

COLOR 7
LINE (20, 320)-(20, 340)
LOCATE 20, 3
PRINT "N"
COLOR 4
LINE (20, 340)-(20, 360)
LOCATE 24, 3
PRINT "S"
COLOR 7
LOCATE 22, 1
PRINT "W"
LOCATE 22, 5
PRINT "E"

COLOR 15



COLOR 6
LOCATE 28, 25
PRINT "continue ? [Y-yes/N-no]"
LOCATE 29, 33
INPUT M3$
IF CHR$(89) = M3$ THEN GOTO 54 ELSE GOTO 9001
9001 IF CHR$(78) = M3$ THEN GOTO 9002 ELSE GOTO 9002
9002
RUN "C:\welcome.bas"