8bitfiles.net/archives/archives.tar/archives/genie-commodore-file-library/GEOSApps/GBMINIDEMO

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

GBMiniDemo
SEQ formatted GEOS file V1.0
Star NX-10
GBMINIDEMO
BLASTER'S CONVERTER V2.5
Notes
note pad
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`
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
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
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
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_GBMiniDemoV1.0
GBMiniD
] )# 1k
 &cH8
 &cL,c
;9>9>
GBMiniDemo
GBD-33
Lxp '
 K\XhhL
!<@DILPTX\`dhly
qLTpL
qLFpL(tLntL`tLfsL6tL
pL|t
X` /#
X` 6t
H prh
[ 6t
X` 6t
oLXpL
pLSqL
w and to the right
of the first point.
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
`Sprites
`Clock
`Drawing
`Text
`Bitmaps
@DrawLine
@DrawBox
curve
@FollowMous
patrn
@Pattern
erase
@Erase
color
@UseColor
blank
@StopProc
blank
@StopProc
stSpn
LoadScX
Mark1
Mark2
Patter
ProgIBit
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
@SprtOff
"r":
"it":
"s2":es
1:
@SprtOff:
"R":
"S2":es
: 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:
in$(2)
sp$:             in$(3)
in$(3)
sp$:
"info":
@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
in$(2)
sp$:             in$(3)
in$(3)
sp$:
"info":
 @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:
 @HideMenu

"info":
in$(2)
sp$:             in$(3)
in$(3)
sp$:
"info":
@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

"info":
in$(2)
sp$:             in$(3)
in$(3)
sp$:
"info":
 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":