Tracker1.0
PRG formatted GEOS file V1.0
Tracker1.0V1.0
Roy Trahan
basic
Enter & track hurricanes on a graphic map of the Gulf of Mexico!
                                        R
.                                  
 1100                               1100     FOR 	 = 1 TO 200                                                       R
.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  iI
Tracker1.0
Tracker
     
TO 200
P,80 4
P,80 4
Error I:   
9)L/) 
vqvrvsvtvu
u&t&s&r&q$q0	
fqfrfsftfu`
f|f}f~f
z&y&x&w
P%p8)
q4X>V
 ;  /"
8# )#
A! L*0
*L{! 
* X* 
 L*0:
On disk:
Insert new disk
swap error
geoBasic and data file
@must be on the same disk
Pin a one drive system
geoBasic Info   
?Extra ignored?RedoT
Tracker1.0V1.0
(LX* 
 P+L.*
|L<TL
OL!SL
OL!SL
basic data  V1.0
basic
Tracker1.0V1.0
Roy Trahan
basic
geoBasic
Copyright (c) 1988, Berkeley Softworks
Disk full, remove some files
Please Select Option:
new document
existing document
to deskTop
File exists, choose another.
Data file is beyond V1.0
WARNING!
This file is write protected.
Please enter new filename:
Please enter an author name
opening file
creating file
Not enough free space on
@disk for desk accessory.
running desk accessory
AQ.BQ
Please reboot your system
@using the same GEOS disk
Pthat was first used to run
`geoBasic
Cannot install geoBasic on
@this disk.  Please refer to
Pinstallation directions in
`the manual.
Cannot install geoBasic on a
@write protected disk.
Error installing geoBasic
geoBasic installed.
XLcvX`
 ;  /"
|LWgLITL]
L ]L,]L
TLJnL
LWgLITL]
L ]L,]L
TLJnL
RH K\
 )# ZT
cHL)#
cHL)#L
U E\ ?
 2UL9
<` PUL$
 PUL*
 K\ .k 
 +_X`
 )#L<W
] )# 
tL/#L
  H\ 
W K\ 
X ?\ 
; M\ Cf
  tf 
L+[,=
L/Z 'Yh
 +_ /#
x K\,
X* z*
Q )# 
hhL~W
W H\ 
	H uo 9]H
 \\ B!
[ 9]H
]  ]L
hLZT )# 
 K\H #kh
 8k /#
 )# ``
[ 9]H
Ghhh /#L
6^ #k
h G]L
6^ #k
hhhhh`h
[ 9]H
L ]LZT( \\
H B! 
l{VvV~^
l!jMj
SJ^@Uy
U+UIU:UXl
bX]?n5na
 Cf /#LHd
e )#LHd )# 
Bf mg
BfLmg 6f
 dh vh
hL9W 
[ E\h
` /#H #kh
j )#8
] io 1k oo
 ;  /"
 H\ PU E\ 
-n` .n
m jnp
D_Tracker1.0V1.0
Tracker
] )# 1k
 &cH8
 &cL,c
Lxp '
Lxp '
 K\XhhL
!<@DILPTX\`dhly
qLTpL
qLFpL(tLntL`tLfsL6tL
pL|t 
X` /#
qLTpL
qLFpL(tLntL`tLfsL6tL
pL|t 
X` /#
X` 6t 
H prh 
[ 6t 
X` 6t 
oLXpL
pLSqL
oLXpL
pLSqL
Hurricane Tracker v1.0
by Roy Trahan(Fizzbin)
Created using GeoBasic!
Hurricane Tracker v1.0
by Roy Trahan(Fizzbin)
Created using GeoBasic!
Please select an option:
$creat
$quit
new hurricane
existing hurricane
to Desktop
PPQTEE
UDdQET@DQ@U
program info
@Info
close
@Close
print map
print data
@PrtDat
@Done
@LstLoc
@AddLoc
delete
@DelLoc
update
@UpdLoc
animate
@Animate
`edit
`track
Shareware program. For free
instructions, upgrades, 
goodies, etc., send $5 to:
Roy Trahan
9850 Meadowglen, #56
Houston, TX  77042
kAddLoc
Animat
ClickOR
Close
Consta"
Conver
DelLoc
DrawBo
DrawLnt
FindX
FindY
GetDat
GetNewf
GetOld
GetOpt
GetXY
Handle*
AddLoc
Animat
ClickOR
Close
Consta"
Conver
DelLoc
DrawBo
DrawLnt
FindX
FindY
GetDat
GetNewf
GetOld
GetOpt
GetXY
Handle*
LstLoc
MoveSp
Parse
PrtDat
ReDraw
Title
UpdLoc^
info1
info2
messg
startN-
hurr1
creatd,
 @Init
 @GetOption
 @Done:
 @Init:
 mapXY%(20,2),xPt%(20),yPt%(20) 
 3,"tracker data"
 @Constants
 "Tracker.Map",40960
 "main
 @Init
 @GetOption
 @Done:
 @Init:
 mapXY%(20,2),xPt%(20),yPt%(20) 
 3,"tracker data"
 @Constants
 "Tracker.Map",40960
 "main"
 @ReDraw
 @Info:
 "info"
 "info1"
 "info2"
 @GetOption:
     
 "start",choice
     
 choice 
 quit 
 @Done
     
 choice 
 new 
               "Name of new hurricane:",               newFile$:                               
 newFile$ 
                    
 @GetNew
     
 choice 
 old 
                      
 newFile$:                        
 newFile$ 
                    
 @GetOld
 newFile$ 
 @Title
 @Constants:
   bold$  
   true 
1 : false 
   solid 
 1 : white 
   new 
 20 : old 
 5 : quit 
   prSc 
     
 mapXY%(i,1)
     
 mapXY%(i,2)
 0,319,60,312,65,275,70,242,             75,210,80,1
   true 
1 : false 
   solid 
 1 : white 
   new 
 20 : old 
 5 : quit 
   prSc 
     
 mapXY%(i,1)
     
 mapXY%(i,2)
 0,319,60,312,65,275,70,242,             75,210,80,180,85,150,90,117,            95,83,100,47
 105,12,120,0
 0,199,10,185,15,158,20,125,             25,90,30,50,35,8,50,0
 @Prt:
 1 : 
 "main"
 @PrtDat:
 nrRecs 
                        msg$
bold$
"No data found!":            
 "messg" : 
 16,sysDate$
 prSc
 "Hurricane Tracker for ";               newFile$;" printed on ";                sysDate$:
 " ";"Latitude(DD/MM)";"  ";            "Longitude(DDD/MM)";"    ";              "Date";"    ";"Loc #"
   pad$ 
 "     "
 newFile$
 nrRecs
     
     
 la$,ln$,dt$,x$,y$
     
 prSc 
                          
 pad$;la$;pad$;pad$;"  ";          ln$;pad$;"    ";dt$;pad$;j
     
 prSc 
   pad$ 
 "     "
 newFile$
 nrRecs
     
     
 la$,ln$,dt$,x$,y$
     
 prSc 
                          
 pad$;la$;pad$;pad$;"  ";          ln$;pad$;"    ";dt$;pad$;j
     
 prSc 
                          
 pad$;la$;pad$;pad$;ln$;           pad$;" ";dt$;pad$;j
 prSc 
 "hurr1"
 @ReDraw:
 @Title
 3,"tracker data"
 @ClickOff
 @Close:
 @GetOption
 @Animate:
 nrRecs 
                        msg$
bold$
"No data found!":            
 "messg" : 
 white,white
 @Title
 @HandleClick
 @MoveSprite
 @HandleClick:
 "hurr1"
 @ClickOff
 @ClickOff:
 @GetNew:
(newFile$) 
                newFile$ 
 "":                          msg$
bold$
"Name too long!":            
 "messg": 
 newFile$
   nrRecs 
(nrRecs)
 @Title
 @AddLoc
 @GetOld:
 nr$ : nrRecs 
(nr$)
 @MoveSprite:
 @GetXY
 nrRecs
     X%
xPt%(j) : Y%
yPt%(j)
     
 3,3,X%
     
 3,4,Y%
     
 @DrawLne
     
 @DrawBox
     
     
 @DrawLne:
                             Xprev%
X% : Yprev%
 solid
 Xprev%,Yprev% 
 X%,Y%
   Xprev%
X% : Yprev%
 @DrawBox:
 solid
 @GetXY:
 newFile$
 nrRecs
     
     
 la$,ln$,dt$,x$,y$
     xPt%(j) 
     yPt%(j) 
 @Title:
 "Tracker.Map",40960
 "main"
 200,20
 bold$ 
 newFile$;
 "hurr1"
 @LstLoc:
 nrRecs 
                       
 "hurr1"
   prSc 
 @PrtDat
   prSc 
 nrRecs 
 @ReDraw
 @DelLoc:
 "Loc # to delete?",lc$
   loc 
(lc$)
 loc 
 nrRecs 
 loc 
           msg$
bold$
"Invalid loc #!":            
 "messg" : 
 newFile$
   nrRecs 
 nrRecs 
(nrRecs)
 "hurr1"
 @UpdLoc:
 "Loc # to update?",lc$
 lc$ 
   loc 
(lc$)
 loc 
 nrRecs 
 loc 
           msg$
bold$
"Invalid loc #!":            
 "messg" : 
 @GetDat
 good 
 newFile$
 la$,ln$,dt$,x$,y$
 "hurr1"
 @AddLoc:
 "Loc # to add?",lc$
 lc$ 
   loc 
(lc$)
 loc 
 nrRecs
 loc 
            loc 
                          msg$
bold$
"Invalid loc #!":            
 "messg":
 nrRecs 
                     msg$
bold$
"Too many locations!":         
 "messg" : 
 @GetDat
 good 
 newFile$
   loc 
 loc 
 la$,ln$,dt$,x$,y$
   nrRecs 
 nrRecs 
(nrRecs)
 "hurr1"
 @GetDat
   good 
 false
                                   "Type DD/MM DDD/MM MM/DD/YY:",          dat$
 dat$ 
 @Parse
 good 
 @Convert
 @Convert:
     
 Lng 
 mapXY%(i,1) 
                  Lng 
 mapXY%(i
1,1) 
               
 @FindX : i
     
 Lat 
 mapXY%(i,1) 
                  Lat 
 mapXY%(i
1,1) 
               
 @FindY : i
   x$
(X%) : y$
 @FindX:
   z 
 mapXY%(i
1,1) 
 mapXY%(i,1)
   x1 
 Lng 
 mapXY%(i,1)
   xx 
 mapXY%(i,2) 
 mapXY%(i
   ip% 
( (x1
 xx )
   X% 
 mapXY%(i,2) 
 @FindY:
   z 
 mapXY%(i
1,1) 
 mapXY%(i,1)
   y1 
 Lat 
 mapXY%(i,1)
   yy 
 mapXY%(i,2) 
 mapXY%(i
   ip% 
( (y1
   Y% 
 mapXY%(i,2)
   ip% 
( (x1
 xx )
   X% 
 mapXY%(i,2) 
 @FindY:
   z 
 mapXY%(i
1,1) 
 mapXY%(i,1)
   y1 
 Lat 
 mapXY%(i,1)
   yy 
 mapXY%(i,2) 
 mapXY%(i
   ip% 
( (y1
   Y% 
 mapXY%(i,2) 
 @Parse:
(dat$) 
                  msg$
bold$
"Wrong! Try again!!":        
 "messg":
   la$ 
(dat$,5)
   ln$ 
(dat$,7,6)
	   dt$ 
(dat$,8)
	   Lat 
(la$,2))
                      
(la$,2))
	   Lng 
(ln$,3))
                      
(ln$,2))
$	   
 Lat 
 Lat 
                 Lng 
 Lng 
 105 
             msg$
bold$ 
 "Off map! ":               msg$
msg$ 
 "Try again!!":              
 "messg" : 
.	   good 
 true
8