CBM Funet Archive/cbm-funet-archive-2003.iso/cbm/geos/programming/geoBasic-minidemo.cvt

GEOS ConVerT | 1998-01-13 | 41.5 KB | 535 lines

gbmINIdEMO
prg FORMATTED geos FILE v1.0
gbmINIdEMOv1.0
dENNIS eLLIS
BASIC
GEObASIC
cOPYRIGHT (C) 1988, bERKELEY sOFTWORKS
    return                              650
esp:
$(1)="":
$(2)="s
":
$(3)="
.":gosub
:     goto
                          660
:
$(1)="t
":
$(2)="
":
$(3)="
.":              gosub
:goto
              670
:
$(2)=chr$(26)+                        "
"+chr$(27):
$(3)="
":
$(1)="":goto
                680
:
$(1)=chr$(24)+
$(1)+
$:
$(2)=chr$(24)+
$(2)+
$:
$(3)=chr$(24)+
$(3)+
$:             dialog"
":return                                                         r
.                                                                          )
;9>9>
gbmINIdEMO
gbd-33
K/00)7
eRROR i:
9)l/)
VQVRVSVTVU
U&T&S&R&Q$Q0
FQFRFSFTFU{$60}
F{$7c}F{$7d}F{$7e}F
Z&Y&X&W
p%P8)
Q4x>v
 ;  /"
8# )#
a! l*0
*l{$7b}!
* 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
gbmINIdEMOv1.0
(lx*
 p+l.*
ol!sl
BASIC DATA  v1.0
BASIC
gbmINIdEMOv1.0
dENNIS eLLIS
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
{$60}GEObASIC
cANNOT INSTALL GEObASIC ON
@THIS DISK.  pLEASE REFER TO
pINSTALLATION DIRECTIONS IN
{$60}THE MANUAL.
cANNOT INSTALL GEObASIC ON A
@WRITE PROTECTED DISK.
eRROR INSTALLING GEObASIC
GEObASIC INSTALLED.
xlCVx{$60}
 ;  /"
lwGlitl]
l ]l,]l
tljNl
rh k\
 )# zt
Chl)#
Chl)#l
u e\ ?
 2ul9
<{$60} pul$
 pul*
 k\ .K
 +_x{$60}
 )#l<w
] )#
Tl/#l
  h\
w k\
x ?\
; m\ cF
  TF
l+[,=
l/z 'yH
 +_ /#
X k\,
x* Z*
q )#
HHl{$7e}w
w h\
h UO 9]h
 \\ b!
[ 9]h
]  ]l
Hlzt )#
 k\h #KH
 8K /#
 )# {$60}{$60}
[ 9]h
gHHH /#l
6^ #K
H g]l
6^ #K
HHHHH{$60}H
[ 9]h
l ]lzt( \\
h b!
L{$7b}vVv{$7e}^
L!JmJ
sj^@uY
u+uiu:uxL
Bx]?N5NA
 cF /#lhD
E )#lhD )#
bF MG
bFlMG 6F
 DH VH
Hl9w
[ e\H
{$60} /#h #KH
J )#8
] IO 1K OO
 ;  /"
 h\ pu e\
-N{$60} .N
M JNP
d_gbmINIdEMOv1.0
gbmINId
] )# 1K
 &Ch8
 &Cl,C
lXP '
 k\xHHl
!<@dilptx\{$60}DHLY
QltPl
QlfPl(TlNTl{$60}TlFSl6Tl
Pl{$7c}T
x{$60} /#
x{$60} 6T
h PRH
[ 6T
x{$60} 6T
OlxPl
PlsQl
GEObASIC DEMOLITION BY
dENNIS eLLIS
tHE SECOND POINT MUST BE
BELOW AND TO THE RIGHT
OF THE FIRST POINT.
!@lASTsPRITE
c@eNDsPRITE
@eNDsPRITE
@eNDsPRITE
@eNDsPRITE
@eNDsPRITE
sOME SORT OF ERROR
HAS OCCURRED.
dO YOU REALLY WANT TO QUIT?
IN$(1)
IN$(2)
IN$(3)
PROGRAM INFO
@pROGiNFO
cLEAR sCREEN
@cLEARjUNK
lOAD FROM dISK
@lOADsCREEN
sAVE TO dISK
@sAVEsCREEN
sPRITES oN/oFF
@sPRToN
cLOCK oN/oFF
@sTARTcLOCK
dRAWING oN/oFF
@dRAW
mENU oN/oFF
@sHOWmENU
@fONT
sTYLE
@sTYLE
eNTER tEXT
@eNTERtEXT
pLACE tEXT
@tEXTbUTTON
cLOUD
@cLOUD
fIRE hYDRANT
@hYDRANT
sCREEN
{$60}sPRITES
{$60}cLOCK
{$60}dRAWING
{$60}tEXT
{$60}bITMAPS
@dRAWlINE
@dRAWbOX
CURVE
@fOLLOWmOUS
PATRN
@pATTERN
ERASE
@eRASE
COLOR
@uSEcOLOR
BLANK
@sTOPpROC
BLANK
@sTOPpROC
bITmAPH
bOXeRR
cLEARjX
cLOUD
dOmOUS,
dRAWbO
dRAWlI
eNDbOX
eNDcOL
eNDlIN
eNDmOU6
eNDpAT
eNDsPR
eNTERt0
eRASE
fOLLOW
gEToLD
hIDEmE
hYDRAN^
lASTsPN
lOADsCx
mARK1
mARK2
pATTER
pROGiN
sAVEsCn
sEToLD
sHOWcL
sHOWmEL
sPRToFz
sPRToNf
sTcOLO
sTARTb
sTARTc
sTARTl
sTARTm
sTARTp
sTOPcL
sTOPpRj
sTYLE
tEXTbU:
tEXThEd
uSEcOL
MENU1
ZAPITG<
BLANKH8
CLOUDb7
COLOR?8
CURVE
ERASE
PATRN
: THIS IS A GEObASIC MINIDEMO BY                                                  dENNIS eLLIS                            5102 hOWARD lANE                        nAMPA, id 83687                                                        .
                                         AS PRESENTED TO THE                     tREASURE vALLEY/bOISE uSER gROUP        mARCH 2, 1995                                                          .
0,0,319,14
 "MENU1"
 @mAIN:
@sPRToN:
 OFF:
@sPRToFF
"R":
"IT":
"S2":ES
1:
@sPRToFF:
"r":
"s2":ES
@lASTsPRITE:
"it":
@cLEARjUNK:
 191:
 0,0,39,24:
 0,15,319,199:
 OFF:
 0,0,319,199:
@sTARTcLOCK:
 OFF:
0:
 @sTOPcLOCK
"bsw",9:
(24);:
 @sHOWcLOCK,15:
@sHOWcLOCK:
@gEToLDpOS:
15,C$:           C
 256,9:
SP$:
 @sEToLDpOS
:button @cLEARjUNK:return
@sTOPcLOCK:
 @sHOWcLOCK:
 0:
 239,1,318,13:

@gEToLDpOS:                              XP
(0):YP
@sEToLDpOS:
 XP,YP:
@eNDsPRITE:
@dRAWlINE:
 @sTOPpROC:
 @sTARTlINE:
@sTARTlINE:
 OFF:
 @mARK1:
1:
 X1,Y1:
 @eNDlINE:
@eNDlINE:
 OFF:
 @mARK2:
1:
 X1,Y1
 X2,Y2:
 @dRAWlINE
@dRAW:
"DRAW":
 @mAIN
 "ZAPIT":
 @mAIN
@fOLLOWmOUS:
 OFF:
@dOmOUS:ME
1:
 @sTARTmOUS:
@eRASE:
 OFF:
@dOmOUS:ME
0:
 @sTARTmOUS:
@sTARTmOUS:
 OFF:
 @mARK2:
 @eNDmOUS:
 @dOmOUS,1:
@dOmOUS:
 @mARK1:
 ME:
X1,Y1
 X2,Y2:X2
X1:Y2
Y1:
@eNDmOUS:
 OFF:
 @dOmOUS:
 @eRASE
 @fOLLOWmOUS
@sTOPpROC:
 @dOmOUS:
@cLOUD:                                  BIT$
"CLOUD":
 @bITmAP
@hYDRANT:                                BIT$
"FIRE":
 @bITmAP
@bITmAP:
 @bIT:
@bIT:
 OFF:
 @mARK1
BIT$,
8),Y1:
@mARK1:                                  X1
(0):Y1
@mARK2:                                  X2
(0):Y2
@dRAWbOX:
 OFF:
 @sTOPpROC:
 @sTARTbOX:
@sTARTbOX:
 OFF:
 @mARK1:
1:
 X1,Y1:
 @eNDbOX:
@eNDbOX:
 OFF:
 @mARK2:
255:
 X1,Y1,X2,Y2:
 @dRAWbOX
@pATTERN:
 @sTOPpROC:
 OFF:
 @sTARTpAT:
@sTARTpAT:
 OFF:
 @mARK1:
1:
 X1,Y1:
 @eNDpAT:
@eNDpAT:
 OFF:
 @mARK2:
"pATTERN NUMBER (0-31) ",A:
 X1,Y1,X2,Y2:
 @pATTERN
@uSEcOLOR:
 @sTOPpROC:
 @sTcOLOR:
@sTcOLOR:
 OFF:
 @mARK1:                X1
8):Y1
8):
 @eNDcOLOR:
@eNDcOLOR:
 OFF:
 @mARK2:                X2
8):Y2
8):
"fOREGROUND COLOR (0-15) ",FG:
"bACKGROUND COLOR (0-15) ",BG:
 X1,Y1,X2,Y2:
@fONT:
"fONT nAME",F$:
"bsw"
"fONT sIZE (UP TO 12)",FS:
@sTYLE:                                  C
 @sTARTcLOCK:
"sTYLE (14,15,18,19,24-27)",SS    :
(SS):
@eNTERtEXT:
"eNTER TEXT",A$:
@tEXTbUTTON:
 @tEXThERE:
@tEXThERE:
 OFF:C
 @sTARTcLOCK:
 @mARK1:
F$,FS:
 X1,Y1:
@sAVEsCREEN:
 OFF:
"fILE NAME TO SAVE",FL$:
 FL$,40960,8000:FL$
"/C":
 FL$,35840,1024:
@lOADsCREEN:
 OFF:
 FL$:
 FL$,40960:FL$
"/C":
 FL$,35840:
@sHOWmENU:
 @hIDEmENU
 0,0,39,1:        M
@hIDEmENU:
 0,0,39,1:
@esp:                                    IN$(1)
"":                              IN$(2)
"sOME KIND OF ERROR":            IN$(3)
"HAS OCCURRED.":
 @iNFO:
 @mAIN
@bOXeRROR:                               IN$(1)
"tHE SECOND POINT MUST BE":      IN$(2)
"BELOW AND TO THE RIGHT OF":     IN$(3)
"THE FIRST POINT.":
 @iNFO:
 @mAIN
@pROGiNFO:                               IN$(2)
                        "GEObASIC MINIDEMO"
(27):           IN$(3)
"BY dENNIS eLLIS":               IN$(1)
 @iNFO
@iNFO:                                   IN$(1)
IN$(1)
SP$:             IN$(2)
IN$(2)
SP$:             IN$(3)
IN$(3)
SP$:
"INFO":