home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
GEOSApps
/
GEOCINQUAIN.CVT
(
.txt
)
< prev
next >
Wrap
GEOS ConVerT
|
2019-04-13
|
37KB
|
412 lines
GeoCinquain
PRG formatted GEOS file V1.0
Epson24pinColor
OP V2.0 or higherAIN
BLASTER'S CONVeRTER V2.5
GeoCinqua V1.0
J. E. Sears
basic
geoBasic
Copyright (c) 1988, Berkeley Softworks
R
. )
GeoCinqua
E!F F
GeoCINQUIAN
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
CONVERT(DA)
photo manager.80
?Extra ignored?RedoT
GeoCinqua V1.0
(LX*
P+L.*
|L<TL
OL!SL
OL!SL
basic data V1.0
basic
GeoCinqua V1.0
J. E. Sears
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_GeoCinqua V1.0
GeoCinq
] )# 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
ORIGINAL PROGRAM WRITTEN FOR
TRS 80 MODEL 111.
STOP
CONVERSION AND UPGRADING DONE
BY J J URSANO & GeoBasic BY JES
SPRINGDALE PARK ROAD
STOP
ORIGINAL PROGRAM WRITTEN FOR
TRS 80 MODEL 111.
STOP
CONVERSION AND UPGRADING DONE
BY J J URSANO & GeoBasic BY JES
SPRINGDALE PARK ROAD
STOP
BRACEBRIDGE, ONTARIO (84/04/28)
================================
53280,0
" CINQUAIN POETRY"
" "
1);" "
50:
ZZ:
DELAY
2000:
DELAY
16)"BY J URSANO"
DELAY
1000:
DELAY
53280,6
;" A CINQUAIN IS A FIVE LINE POEM.":
;" HERE IS ONE ABOUT A COMPUTER.":
" PRESS SPACE BAR TO GO ON."
DELAY$:
DELAY$
" "
98,52:
" COMPUTER":
" BUSY,FAST":
" FLASHING,COUNTING,TEACHING":
" LO/
" PRESS SPACE BAR TO GO ON."
DELAY$:
DELAY$
" "
98,52:
" COMPUTER":
" BUSY,FAST":
" FLASHING,COUNTING,TEACHING":
" LOVES TO WORK WITH CHILDREN":
" MACHINE":
" PRESS SPACE BAR TO GO ON.":
DELAY$:
DELAY$
320
" NOW I'LL HELP YOU WRITE YOUR OWN POEM!":
" IT CAN BE ABOUT YOU,A PET,NATURE OR ANYTHING ELSE.":
" WRITING CINQUAINS IS EASY!":
" JUST TYPE IN THE WORDS THAT I ASK FOR.":
" WHEN YOU ARE DONE I WILL PRINT YOUR POEM!":
" PRESS SPACE BAR TO GO ON."
DELAY$:
DELAY$
**************************
STOP
STOP
LIST OF VARIABLES
STOP
N1$=FIRST NOUN
A1$=FIRST ADJECTIVE
A2$=SECOND ADJECTIVE
A3$=THIRD ADJECTIVE
STOP
V1$=THE FIRST 'ING' VERB
V2$=THE SECOND'ING' VERB
STOP
STOP
LIST OF VARIABLES
STOP
N1$=FIRST NOUN
A1$=FIRST ADJECTIVE
A2$=SECOND ADJECTIVE
A3$=THIRD ADJECTIVE
STOP
V1$=THE FIRST 'ING' VERB
V2$=THE SECOND'ING' VERB
V3$=THE THIRD 'ING' VERB
V4$=THE ACTION VERB
P$ =THE SHORT PHRASE
N2$=THE SECOND NOUN
STOP
**************************
53280,11:
" A NOUN IS A PERSON PLACE OR THING."
"TYPE A NOUN .":
1150:
" ADJECTIVES ARE WORDS THAT DESCRIBE"
"NOUNS."
"TYPE AN ADJECTIVE THAT DESCRIBES ";N1$;"."
1150:
" TYPE AN OTHER ADJECTIVE THAT DESCRIBES "
N1$;"."
1150:
A2$:
"TYPE A VERB THAT ENDS IN 'ING' SUCH AS "
"JUMPING,SINGING AND LAUGHING."
1150:
" TYPE ANOTHER VERB THAT ENDS IN 'ING'"
1150:
" AND ONE MORE VERB THAT ENDS IN 'ING'"
1150:
" "
" ACTION VERBS TELL WHAT NOUNS DO."
"JUMPING,SINGING AND LAUGHING."
1150:
" TYPE ANOTHER VERB THAT ENDS IN 'ING'"
1150:
" AND ONE MORE VERB THAT ENDS IN 'ING'"
1150:
" "
" ACTION VERBS TELL WHAT NOUNS DO."
"KICKS,DIVES,SLIDES ARE ACTION VERBS."
" TYPE AN ACTION VERB THAT ENDS IN 'S' AND THAT ";N1$;" CAN DO."
1150:
"TYPE A PHRASE THAT STARTS WITH ";V4$
"AND TELLS ABOUT ";N1$;".";" No COMMA (,) Please :)"
1150:
" MACHINE IS A NOUN THAT STANDS"
" FOR COMPUTER."
" TYPE A NOUN THAT STANDS FOR ";N1$;"."
1150:
N2$ :
5000:
1200
1000:
" A SPECIAL CINQUAIN ABOUT ";N1$
(((40
(N1$))
8),64:
(((41
A2$))
8),(64
A1$;" ";A2$
(((43
(V1$
V3$))
8),(64
V1$;" ";V2$;" ";V3$
(((50
(P$))
8),(64
PRINTTAB((40-LEN(V4$+1+P$))/2)V4$;" ";P$
(((41
(N2$))
8),(64
"Or Press (P) to PRINT your Poem"
" WOULD YOU LIKE TO WRITE ANOTHER CINQUAIN?(Y/N)":
" ";REPLY$
(REPLY$,1)
(REPLY$,1)
(REPLY$,1)
(REPLY$,1)
53280,12
" GOOD-BYE!!"
PAUSE
3500:
PAUSE
" GOOD-BYE!!"
" PRINTING"
" A SPECIAL CINQUAIN ABOUT ";N1$:
" ":SP%
((70
(N1$))
ER(4):
" ";N1$:
A2$))
ER(4):
" ";A1$;" ";A2$:
(V1$
V3$))
ER(4):
" ";V1$;" ";V2$;" ";V3$:
(P$))
ER(4):
" ";P$:
(N2$))
ER(4):
" ";N2$:
ER(0):
1300
" A SPECIAL CINQUAIN ABOUT ";N1$
(((40
(N1$))
8),64:
(((41
A2$))
8),(64
A1$;" ";A2$
(((43
(V1$
V3$))
8),(64
V1$;" ";V2$;" ";V3$
(((50
(P$))
8),(64
PRINTTAB((40-LEN(V4$+1+P$))/2)V4$;" ";P$
(((41
(N2$))
8),(64
" A SPECIAL CINQUAIN ABOUT ";N1$
(N1$))
2);N1$
A2$))
2);A1$;" ";A2$
(((41
(N2$))
8),(64
" A SPECIAL CINQUAIN ABOUT ";N1$
(N1$))
2);N1$
A2$))
2);A1$;" ";A2$
(V1$
V3$))
2);V1$;" ";V2$;" ";V3$
(P$))
2);P$
PRINTTAB((60-LEN(V4$+P$))/2)V4$;" ";P$
(N2$))
2);N2$: