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

GEOS ConVerT | 2019-04-13 | 33KB | 260 lines

PhotoAlbumLister4
PRG formatted GEOS file V1.0
Epson24pin
QWIKSTASH
PIK/STASHDOCS
PHOTOALBUMLISTER
AlbumCopy Doc
phtalblst V1.0
Jim Greek
basic
gBasic appl. to read photo names from V2.1 albums
 Berkeley Softworks
                                        R
.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  iI
phtalblst
T-2.1
PH-ALB-LIST-2.1
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
phtalblst V1.0
(LX*
 P+L.*
|L<TL
OL!SL
OL!SL
basic data  V1.0
basic
phtalblst V1.0
Jim Greek
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_phtalblst V1.0
phtalbl
] )# 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
DO YOU WANT HARDCOPY ?
DO YOU WANT TO CONTINUE
AND SEE MORE FILES ?
("NO" RETURNS YOU
TO THE DESKTOP)
{fetkey
finish
stprnt,
winduph
HDCPY
DO YOU WANT HARDCOPY ?
DO YOU WANT TO CONTINUE
AND SEE MORE FILES ?
("NO" RETURNS YOU
TO THE DESKTOP)
{fetkey
finish
stprnt,
winduph
HDCPY
MORFI*,
 nm$(59)
 @tofetkey
finish
stprnt,
winduph
HDCPY
MORFI*,
 nm$(59)
 @top
 3,dr1
"                     "
(18);" SELECT FILE ";
 7,"photo album V2.1",1
 @windup
(33943):
 # of files
 nm$(59)
 @top
 3,dr1
"                     "
(18);" SELECT FILE ";
 7,"photo album V2.1",1
 @windup
(33943):
 # of files used
 0,0,0
 ct$:
 count=number of photos
(0)):
 5,20:
"          ";ct;"  PHOTOS - WORKING ON PHOTO# ";x
 @nex1
 @nex1:
 nm$(x)
 nm$(x)
"(UN-NAMED)"
 1,160,100
 "HDCPY",hd
"  ";ct;" FILES in ALBUM: ";n$:

 @stprnt
"Press any key NOW to start printing":
 @fetkey
 @stprnt
" Photo# ";(z
1);": ";nm$(z)
(18);"PRESS ANY KEY FOR MORE FILES";
(19):q
 @fetkey
 @windup
"PRESS ANY KEY TO CONTINUE":
 @fetkey
 "MORFI",mo
 @finish
 @top
 @finish
3,dr2
 49840,dr1:
 49825:
 set device & open disk
 @fetkey: g$