8bitfiles.net/archives/archives.tar/archives/canada-remote-systems/geos/utils/rolodex.arc/ROLODEX

GEOS ConVerT | 2019-04-13 | 42KB | 665 lines

Rolodex
PRG formatted GEOS file V1.0
Super NX-1000
GB DRAW
BLASTER'S CONVERTER V2.5
ANIMATION
ROLODEX
Rolodex   V1.0
(C) 1991 RUN Mag.
basic
geoBasic
Copyright (c) 1988, Berkeley Softworks
                                        R
.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  )
Rolodex
6#7#8
Roledexsrc
`,H004
`,H004
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
MiniDesk
geoWizDump
?Extra ignored?RedoT
Rolodex   V1.
(LX*
 P+L.*
OL!SL
basic data  V1.0
basic
Rolodex   V1.0
(C) 1991 RUN Mag.
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
L1Y )#
& zY
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`
 ;  /"
`UUUUUUUUUUUU
UUUUUUUUUUUUUUUUUUUUUUUUU
UUUUUUUUUUUUUUUUUUUUUUUUU
UUUUUUUUUUUUUUUUUUUUUUUUU
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
hhhhh
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_Rolodex   V1.0
Rolodex
] )# 1k
 &cH8
 &cL,c
Rolodex
6#7#8
Roledexsrc
Lxp '
 K\XhhL
!<@DILPTX\`dhly
qLTpL
qLFpL(tLntL`tLfsL6tL
pL|t
X` /#
X` 6t
H prh
[ 6t
X` 6t
oLXpL
pLSqL
info$
By William Coleman
Copyright 1990 RUN Magazine
Delete this Record?
Delete this Record?
>$@KillSprite
Are You Ready to Print?
Roladex Info
@InfoBox
close
@ClMenu
update
@UpMenu
recover
@ReMenu
@QuMenu
@DecRec
@AddRec
@DelRec
@SeaRec
@IncRec
prntr
@PrintAll
There was a Disk Error!
Please make a selection:
$creat
$quit
plain$
a new Rolodex
an existing Rolodex
to the deskTop
AddRec
ClMenup
DError
DecRec
DelRecx
DisplaN
DoProc*
EButtoV    EditBo
GetRec
GetStr
IncRec
    InfoBoh
InitScX
KillSp
MakeBo.
NewAdd
NewCit:
NewFon
NewNam
PrintA
PrtStrj
QuMenu
    ReMenu
Redraw
Resume
SeaLoo
SeaRec"
Searchd
Start
TopDB
UpMenu
Update
error    1
plane
creat
prntr
 FALSE
 ebLeft
 ebOffs
 ebLeft
 ebRight
 bxL
 ebLeft
 bxR
 ******************************
 *      geoBasic Roladex      *
 *     Copyright (c) 1990     *
 *       RUN Publications     *
 ******************************
 Constants
 plain$
 outln$
 bold$
 DEL$
 COMD$
("d")
 YES
 OLD
 NEW
 QUIT
 TRUE
 FALSE
 ebLeft
 ebOffs
 ebLeft
 ebRight
 bxL
 ebLeft
 bxR
 ebRight
 nmt
 50:nmb
 adt
 65:adb
 cit
 80:cib
 pht
 95:phb
 MAXREC
 BCKP
 7,"roladex",1
 info$
bold$
outln$
"Roladex V1.0"
            plain$
10,10
 %%% Program Starts Here %%%
 @Start
 @RedrawScreen
 @DError
 @InitScreen
 @TopDB
   curRec
 book$
 @GetRec
 @Resume
 @EditBox
 @Display
 @EButton
 %%% Initialize the Screen %%%
 @InitScreen
 BCKP
 0,0,319,199
 0,0,319,199
 204,0,319,14
 204,0,319,14
 216,11
 info$
 "main"
 @DoProc,255
 %%% Redraw Screen After DA %%%
 @RedrawScreen
 @InitScreen
  @Resume
 %%% Fly the Airplane (proc) %%%
 @DoProc
   proc
 proc
   proc
 "plane"
 1,700,13
10,10
 @KillSprite
 1,0,0,0
 %%% Do Opening DB %%%
 @TopDB

 "top",choice

 choice
 QUIT

 choice
 NEW

 "Name of new Book:",                     book$:
 book$

 @MakeBook

 choice
 OLD

 book$
 book$
 %%% Create a New book$ %%%
 @MakeBook
 book$
 MAXREC

 %%% Disk Error Trap %%%
 @DError
 6,derr
 derr
 "error"
 @Start
 %%% Insert a New Record %%%
 @UpdateRec
 newrec
 dirty

 curRec
 newrec
                            key$
name$:
 @Search
 curRec
 name$,addr$,city$,phnum$
 curRec
   newrec
FALSE
   dirty
FALSE
 %%% Do a Binary Search %%%
 @Search
   left
0:right
MAXREC
(key$)
 @SeaLoop
   mid
(((right
left)
left)
left
                          found
FALSE:                            curRec
                                  right
(left
 last$
key$):
   last$
plain$
 last$
   last$
(last$,l)
 ebLeft,nmt
 plain$;bold$;                           "Searching: ";mid
1;"  "
 last$
key$
                        found
TRUE:                             curRec
mid:
 last$
last$
plain$
          right
mid:
 @SeaLoop
   left
 @SeaLoop
 %%% Search Icon Routine %%%
 @SeaRec
 @UpdateRec
 "Enter Search String:",            key$
 key$
 @Search
 @GetRec
 @Display
 %%% Read in a book$ File %%%
 @GetRec
 curRec
   name$
plain$:addr$
plain$
   city$
plain$:phnum$
plain$

 name$,addr$,city$,phnum$
 %%% Draw the Edit Box %%%
 @EditBox
 bxL,32,bxR,127
1,33,bxR
1,126
8,127,bxR
8,135
 bxR,40,bxR
8,135
 "edit"
ne Nbr: "plain$ph
 @Display
 ebLeft,nmt
 newrec
FALSE

 plain$;bold$;                        "Record #";curRec
1;"   "
 newrec
TRUE

 plain$;bold$;                           "New Record"
  ebLeft,nmt,ebRight,nmb
 ebLeft,nmt,ebRight,nmb
 ebLeft
1,nmt
 bold$"Name:     "name$
  ebLeft,adt,ebRight,adb
 ebLeft,adt,ebRight,adb
 ebLeft
1,adt
 bold$"Address:   "plain$addr$
  ebLeft,cit,ebRight,cib
 ebLeft,cit,ebRight,cib
 ebLeft
1,cit
 bold$"City/State: "plain$city$
  ebLeft,pht,ebRight,phb
 ebLeft,pht,ebRight,phb
 ebLeft
1,pht
 bold$"Phone Nbr: "plain$phnum$
 @NewFone
 %%% Menu Routines %%%
 @ClMenu
 @UpdateRec
 @Start
 @UpMenu
 @UpdateRec
 @Display
 @ReMenu
   newrec
 FALSE
   dirty
 FALSE
 @GetRec
 @Display
     @QuMenu
$
 @UpdateRec
.
 %%% Button Handler %%%
V     @EButton
;`
(ebLeft,nmt,                   ebRight,phb)
[j
(ebLeft,nmt,                             ebRight,nmb)

 @NewName:
[t
(ebLeft,adt,                             ebRight,adb)

 @NewAddr:
[~
(ebLeft,cit,                             ebRight,cib)

 @NewCity:
(ebLeft,pht,                             ebRight,phb)

 @NewFone
 %%% Move to Next Record %%%
     @IncRec
 @UpdateRec
       curRec
 curRec
 curRec
MAXREC
 curRec
 @GetRec
 @Display
 %%% Move to Prev. Record %%%
 @DecRec
 @UpdateRec
 curRec
 curRec
curRec
 @GetRec
 @Display
 %%% Delete a Record %%%
 @DelRec
   TMP$
bold$
"Delete Record? "
 "qstn",i
 curRec
 MAXREC
 @GetRec
 @Display
 %%% Add a Record %%%
 @AddRec
 @UpdateRec
 "Enter record (1-126):",                 TMP$
   curRec
(TMP$)
 curRec
 curRec
            curRec
 @GetRec
"bar"
 @Display
 %%% Info Box %%%
 @InfoBox
 "info"
 %%% Edit Fields %%%
 @NewName
ebRight
ebOffs
   s$
name$:
 @GetString
 3030
name$
                         newrec
TRUE:                            name$
 @Display
 @NewAddr
ebRight
ebOffs
   s$
addr$:
 @GetString
                            addr$
s$:                               dirty
 TRUE
 @Display
 @NewCity
ebRight
ebOffs
   s$
city$:
 @GetString
                            city$
s$:                               dirty
 TRUE
 @Display
 "bar"
 @NewFone
ebRight
ebOffs
   s$
phnum$:
 @GetString
                            phnum$
s$:                              dirty
 TRUE
 @Display
 %%% Print All Records %%%
 @PrintAll
   TMP$
bold$
"Ready to Print? "
 "qstn",i
   temp
curRec
   curRec

 @GetRec

 name$

 addr$

 city$

 phnum$

     curRec
curRec
 curRec
 name$
plain$
   curRec
 @GetRec
 @Display
 %%% String Input Routine %%%
 @GetString
plain$
 ebOffs,ty
7,ebRight
 "bar"
 3,4,ty
 @PrtStr
 @GSL
 IFa$=""THEN GOTO @GSL
(13)

 "bar":
DEL$
                s$
COMD$
                          s$
"":
 @GetString
(31)
              s$
 @PrtStr
 @GSL
 @PrtStr
 tx,ty
 s$"  ";
   cx
 3,3,cx