CP/M/CPM_CDROM.iso/enterprs/c64/geos/tracker1.lnx/tracker1.0

GEOS ConVerT | 1993-05-15 | 40KB | 641 lines

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