home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
GEOSApps
/
UNLOCK.SRC.ARC
/
unLockTables
(
.txt
)
< prev
Wrap
GEOS ConVerT
|
2019-04-13
|
2KB
|
79 lines
unLockTables
PRG formatted GEOS file V1.0
Epson FX-80
unLock.lnk
LASTER'S
ONVERTER
unLockTable0+
unLock
Write Image V2.0
Red Storm
geoWrite V1.1
This file was created with
Wrong is Write.
Written by Joe Buckley.
@unLockTables
secbox: .byte DEF_DB_POS | 1
.byte DBTXTSTR,16,16
.word firstxt1
.byte DBTXTSTR,16,32
.word firstxt2
.byte DBTXTSTR,16,48
.word APP_VAR
.byte YES,16,6
.byte DISK,16,28
.byte CANCEL,16,74
.byte DBUSRICON,16,50 ;drive
.word drivetable
.byte 0
rambox: .byte DEF_DB_POS | 1
.byte DBTXTSTR,16,16
.word firstxt1
.byte DBTXTSTR,16,32
.word firstxt2
.byte DBTXTSTR,16,48
.word APP_VAR
.byte CANCEL,16,74
.byte DBUSRICON,16,50 ;drive
.word drivetable
.byte 0
firstbox: .byte DEF_DB_POS | 1
.byte DBTXTSTR,16,16
.word firstxt1
.byte DBTXTSTR,16,32
.word firstxt2
.byte DBTXTSTR,16,48
.word APP_VAR
.byte YES,16,6
.byte DISK,16,28
.byte CANCEL,16,74
.byte 0
chgdiskbox: .byte DEF_DB_POS | 1
.byte DBTXTSTR,16,16
.word chgtext
.byte OK,16,72
.byte 0
endbox: .byte DEF_DB_POS | 1
.byte DBTXTSTR,60,16
.word endtext1
.byte NO,17,72
.byte YES,1,72
.byte 0
;______________________________________
firstxt1: .byte BOLDON,"Unlock the files",0
firstxt2: .byte "on this disk?",PLAINTEXT,0
chgtext: .byte BOLDON,"Insert new disk into drive.",PLAINTEXT,0
endtext1: .byte BOLDON,"Another disk?",PLAINTEXT,0
@__________________________________
drivetable: .word driveicon
.byte 0,0
.byte icon_d_width
.byte
icon_d_height
.word driveroutine
@__________________________________
driveicon:
icon_d_width==picW
icon_d_height==picH
@TABLES DATE Page--PAGE .