home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Party 1994: Try This At Home
/
disk_image.bin
/
source
/
mythic
/
request.inc
< prev
next >
Wrap
Text File
|
1994-08-26
|
13KB
|
384 lines
; Konstanten für EGA-Farben
;
PABLACK = 000H
PABLUE = 0C7H
PAGREEN = 087H
PACYAN = 0A7H
PARED = 047H
PAMAGENTA = 0E7H
PABROWN = 067H
PALTGRAY = 02AH
PADKGRAY = 015H
PALTBLUE = 0CCH
PALTGREEN = 08CH
PALTCYAN = 0ACH
PALTRED = 04CH
PALTMAGENTA = 0ECH
PAYELLOW = 06CH
PAWHITE = 03FH
PADKBLUE = 0C5H
; Liste der EGA-Farben
;
ABACKCOLOR DB PABLACK
DB PABLUE
DB PAGREEN
DB PACYAN
DB PARED
DB PAMAGENTA
DB PABROWN
DB PALTGRAY
DB PADKGRAY
DB PALTBLUE
DB PALTGREEN
DB PALTCYAN
DB PALTRED
DB PALTMAGENTA
DB PAYELLOW
DB PAWHITE
CHBACK = '░'
CHTEXT = '▒'
CHPATTERN = '▓'
CHFONT = ''
; Fenster zur Auswahl der Hintergrundfarbe
;
BACKREQUESTER DW 8, 2, 30, 22
DB CHBACK, PADKBLUE
DB CHTEXT, COGRAY
DB CHPATTERN, PTFADE1
DB CHFONT, FOBIG
DB ' '
DB ' Background color: '
DB ' '
DB CHTEXT, COWHITE
DB CHBACK, PADKBLUE, ' ', CHBACK, PABLACK, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PABLUE, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PAGREEN, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PACYAN, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PABLACK, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PABLUE, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PAGREEN, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PACYAN, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PABLACK, ' 0'
DB CHBACK, PADKBLUE, ' ', CHBACK, PABLUE, ' 1'
DB CHBACK, PADKBLUE, ' ', CHBACK, PAGREEN, ' 2'
DB CHBACK, PADKBLUE, ' ', CHBACK, PACYAN, ' 3'
DB CHBACK, PADKBLUE, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PARED, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PAMAGENTA, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PABROWN, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTGRAY, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PARED, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PAMAGENTA, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PABROWN, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTGRAY, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PARED, ' 4'
DB CHBACK, PADKBLUE, ' ', CHBACK, PAMAGENTA, ' 5'
DB CHBACK, PADKBLUE, ' ', CHBACK, PABROWN, ' 6'
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTGRAY, ' 7'
DB CHBACK, PADKBLUE, ' '
DB CHTEXT, COBLACK
DB CHBACK, PADKBLUE, ' ', CHBACK, PADKGRAY, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTBLUE, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTGREEN, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTCYAN, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PADKGRAY, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTBLUE, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTGREEN, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTCYAN, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PADKGRAY, ' 8'
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTBLUE, ' 9'
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTGREEN, ' A'
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTCYAN, ' B'
DB CHBACK, PADKBLUE, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTRED, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTMAGENTA, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PAYELLOW, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PAWHITE, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTRED, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTMAGENTA, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PAYELLOW, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PAWHITE, ' '
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTRED, ' C'
DB CHBACK, PADKBLUE, ' ', CHBACK, PALTMAGENTA, ' D'
DB CHBACK, PADKBLUE, ' ', CHBACK, PAYELLOW, ' E'
DB CHBACK, PADKBLUE, ' ', CHBACK, PAWHITE, ' F'
DB CHBACK, PADKBLUE, ' '
; Zusammenstellungen von 16 Farben
;
AABCOLOR EQU ABCOLORRED
CORED = 000H
COYELLOW = 001H
COGREEN = 002H
COCYAN = 003H
COBLUE = 004H
COMAGENTA = 005H
COBLACK = 006H
COGRAY = 007H
COWHITE = 008H
CORAINBOW = 009H
CORY = 00AH
COYG = 00BH
COGC = 00CH
COCB = 00DH
COBM = 00EH
COMR = 00FH
ABCOLORRED DB 040H, 041H, 042H, 043H, 044H, 045H, 046H, 047H
DB 048H, 049H, 04AH, 04BH, 04CH, 04DH, 04EH, 04FH
ABCOLORYELLOW DB 060H, 061H, 062H, 063H, 064H, 065H, 066H, 067H
DB 068H, 069H, 06AH, 06BH, 06CH, 06DH, 06EH, 06FH
ABCOLORGREEN DB 080H, 081H, 082H, 083H, 084H, 085H, 086H, 087H
DB 088H, 089H, 08AH, 08BH, 08CH, 08DH, 08EH, 08FH
ABCOLORCYAN DB 0A0H, 0A1H, 0A2H, 0A3H, 0A4H, 0A5H, 0A6H, 0A7H
DB 0A8H, 0A9H, 0AAH, 0ABH, 0ACH, 0ADH, 0AEH, 0AFH
ABCOLORBLUE DB 0C0H, 0C1H, 0C2H, 0C3H, 0C4H, 0C5H, 0C6H, 0C7H
DB 0C8H, 0C9H, 0CAH, 0CBH, 0CCH, 0CDH, 0CEH, 0CFH
ABCOLORMAGENTA DB 0E0H, 0E1H, 0E2H, 0E3H, 0E4H, 0E5H, 0E6H, 0E7H
DB 0E8H, 0E9H, 0EAH, 0EBH, 0ECH, 0EDH, 0EEH, 0EFH
ABCOLORBLACK DB 000H, 000H, 000H, 000H, 000H, 000H, 000H, 000H
DB 000H, 000H, 000H, 000H, 000H, 000H, 000H, 000H
ABCOLORGRAY DB 003H, 007H, 00BH, 00FH, 013H, 017H, 01BH, 01FH
DB 023H, 027H, 02BH, 02FH, 033H, 037H, 03BH, 03FH
ABCOLORWHITE DB 03FH, 03FH, 03FH, 03FH, 03FH, 03FH, 03FH, 03FH
DB 03FH, 03FH, 03FH, 03FH, 03FH, 03FH, 03FH, 03FH
ABCOLORRAINBOW DB 0F4H, 0F7H, 0FAH, 04AH, 05AH, 06AH, 07AH, 08AH
DB 09AH, 0AAH, 0BAH, 0CAH, 0DAH, 0EAH, 0E7H, 0E4H
ABCOLORRY DB 041H, 043H, 045H, 047H, 049H, 04BH, 04DH, 04FH
DB 06FH, 06DH, 06BH, 069H, 067H, 065H, 063H, 061H
ABCOLORYG DB 061H, 063H, 065H, 067H, 069H, 06BH, 06DH, 06FH
DB 08FH, 08DH, 08BH, 089H, 087H, 085H, 083H, 081H
ABCOLORGC DB 081H, 083H, 085H, 087H, 089H, 08BH, 08DH, 08FH
DB 0AFH, 0ADH, 0ABH, 0A9H, 0A7H, 0A5H, 0A3H, 0A1H
ABCOLORCB DB 0A1H, 0A3H, 0A5H, 0A7H, 0A9H, 0ABH, 0ADH, 0AFH
DB 0CFH, 0CDH, 0CBH, 0C9H, 0C7H, 0C5H, 0C3H, 0C1H
ABCOLORBM DB 0C1H, 0C3H, 0C5H, 0C7H, 0C9H, 0CBH, 0CDH, 0CFH
DB 0EFH, 0EDH, 0EBH, 0E9H, 0E7H, 0E5H, 0E3H, 0E1H
ABCOLORMR DB 0E1H, 0E3H, 0E5H, 0E7H, 0E9H, 0EBH, 0EDH, 0EFH
DB 04FH, 04DH, 04BH, 049H, 047H, 045H, 043H, 041H
; Fenster zur Auswahl der Zeichenfarbe
;
FRONTREQUESTER DW 8, 5, 31, 18
DB CHBACK, PABLACK
DB CHTEXT, COWHITE
DB CHPATTERN, PTFADE2
DB CHFONT, FOBIG
DB ' '
DB ' Character color: '
DB ' '
DB CHTEXT, COWHITE, ' 0 ', CHTEXT, CORED, 'Red '
DB CHTEXT, COWHITE, ' 8 ', CHTEXT, COWHITE, 'White '
DB CHTEXT, COWHITE, ' 1 ', CHTEXT, COYELLOW, 'Yellow '
DB CHTEXT, COWHITE, ' 9 ', CHTEXT, CORAINBOW, 'Rainbow '
DB CHTEXT, COWHITE, ' 2 ', CHTEXT, COGREEN, 'Green '
DB CHTEXT, COWHITE, ' A ', CHTEXT, COMR, 'M > R '
DB CHTEXT, COWHITE, ' 3 ', CHTEXT, COCYAN, 'Cyan '
DB CHTEXT, COWHITE, ' B ', CHTEXT, CORY, 'R > Y '
DB CHTEXT, COWHITE, ' 4 ', CHTEXT, COBLUE, 'Blue '
DB CHTEXT, COWHITE, ' C ', CHTEXT, COYG, 'Y > G '
DB CHTEXT, COWHITE, ' 5 ', CHTEXT, COMAGENTA, 'Magenta '
DB CHTEXT, COWHITE, ' D ', CHTEXT, COGC, 'G > C '
DB CHTEXT, COWHITE, ' 6 ', CHTEXT, COBLACK
DB CHBACK, PADKGRAY, 'Black', CHBACK, PABLACK, ' '
DB CHTEXT, COWHITE, ' E ', CHTEXT, COCB, 'C > B '
DB CHTEXT, COWHITE, ' 7 ', CHTEXT, COGRAY, 'Gray '
DB CHTEXT, COWHITE, ' F ', CHTEXT, COBM, 'B > M '
DB ' '
AAPATTERN DB 001H, 003H, 005H, 007H, 009H, 00BH, 00DH, 00FH
DB 003H, 005H, 007H, 009H, 00BH, 00DH, 00FH, 00DH
DB 005H, 007H, 009H, 00BH, 00DH, 00FH, 00DH, 00BH
DB 007H, 009H, 00BH, 00DH, 00FH, 00DH, 00BH, 009H
DB 009H, 00BH, 00DH, 00FH, 00DH, 00BH, 009H, 007H
DB 00BH, 00DH, 00FH, 00DH, 00BH, 009H, 007H, 005H
DB 00DH, 00FH, 00DH, 00BH, 009H, 007H, 005H, 003H
DB 00FH, 00DH, 00BH, 009H, 007H, 005H, 003H, 001H
DB 00FH, 00DH, 00BH, 009H, 007H, 005H, 003H, 001H
DB 00DH, 00FH, 00DH, 00BH, 009H, 007H, 005H, 003H
DB 00BH, 00DH, 00FH, 00DH, 00BH, 009H, 007H, 005H
DB 009H, 00BH, 00DH, 00FH, 00DH, 00BH, 009H, 007H
DB 007H, 009H, 00BH, 00DH, 00FH, 00DH, 00BH, 009H
DB 005H, 007H, 009H, 00BH, 00DH, 00FH, 00DH, 00BH
DB 003H, 005H, 007H, 009H, 00BH, 00DH, 00FH, 00DH
DB 001H, 003H, 005H, 007H, 009H, 00BH, 00DH, 00FH
DB 00FH, 00EH, 00DH, 00CH, 00BH, 00AH, 009H, 008H
DB 00EH, 00DH, 00CH, 00BH, 00AH, 009H, 008H, 007H
DB 00DH, 00CH, 00BH, 00AH, 009H, 008H, 007H, 006H
DB 00CH, 00BH, 00AH, 009H, 008H, 007H, 006H, 005H
DB 00BH, 00AH, 009H, 008H, 007H, 006H, 005H, 004H
DB 00AH, 009H, 008H, 007H, 006H, 005H, 004H, 003H
DB 009H, 008H, 007H, 006H, 005H, 004H, 003H, 002H
DB 008H, 007H, 006H, 005H, 004H, 003H, 002H, 001H
DB 001H, 002H, 003H, 004H, 005H, 006H, 007H, 008H
DB 002H, 003H, 004H, 005H, 006H, 007H, 008H, 009H
DB 003H, 004H, 005H, 006H, 007H, 008H, 009H, 00AH
DB 004H, 005H, 006H, 007H, 008H, 009H, 00AH, 00BH
DB 005H, 006H, 007H, 008H, 009H, 00AH, 00BH, 00CH
DB 006H, 007H, 008H, 009H, 00AH, 00BH, 00CH, 00DH
DB 007H, 008H, 009H, 00AH, 00BH, 00CH, 00DH, 00EH
DB 008H, 009H, 00AH, 00BH, 00CH, 00DH, 00EH, 00FH
PTDIAG1 = 0
PTDIAG2 = 1
PTFADE1 = 2
PTFADE2 = 3
; Fenster zur Auswahl des Zeichenmusters
;
PATTERNREQUESTER DW 8, 6, 31, 18
DB CHBACK, PABLACK
DB CHTEXT, COWHITE
DB CHPATTERN, PTFADE1
DB CHFONT, FOBIG
DB ' '
DB ' Character pattern: '
DB ' '
DB CHTEXT, COGRAY
DB CHPATTERN, PTDIAG1, ' 0 █ █ Diagonal Nr: 1 '
DB ' '
DB CHPATTERN, PTDIAG2, ' 1 █ █ Diagonal Nr: 2 '
DB ' '
DB CHPATTERN, PTFADE1, ' 2 █ █ Fade Nr: 1 '
DB ' '
DB CHPATTERN, PTFADE2, ' 3 █ █ Fade Nr: 2 '
DB ' '
; Fenster zur Auswahl des Objekttyps
;
OBJECTREQUESTER DW 12, 8, 27, 15
DB CHBACK, PABLACK
DB CHTEXT, COWHITE
DB CHPATTERN, PTFADE2
DB CHFONT, FOBIG
DB ' '
DB ' Object Types '
DB ' '
DB CHPATTERN, PTFADE1, CHTEXT, CORED
DB ' 0 Stars '
DB CHPATTERN, PTDIAG1, CHTEXT, COGRAY
DB ' 1 Hearts '
DB ' '
FOBIG = 0
FOSMALL = 1
FOTINY = 2
FOVGA = 3
; Schriftfenster
;
FONTREQUESTER DW 13, 8, 27, 17
DB CHTEXT, COBLUE
DB CHBACK, PABLACK
DB CHPATTERN, PTFADE1
DB CHFONT, FOBIG
DB ' '
DB ' Select Font '
DB ' '
DB CHFONT, FOBIG, ' 0 Big '
DB CHFONT, FOSMALL, ' 1 Small '
DB CHFONT, FOTINY, ' 2 Tiny '
DB CHFONT, FOVGA, ' 3 VGA '
DB ' '
; Cursorfenster
;
CURSORREQUESTER DW 12, 9, 28, 16
DB CHTEXT, COGRAY
DB CHBACK, PABLACK
DB CHPATTERN, PTFADE1
DB CHFONT, FOSMALL
DB ' '
DB ' Select Cursor '
DB ' '
DB CHTEXT, COBLUE, ' 0 Blue '
DB CHTEXT, CORAINBOW, ' 1 Rainbow '
DB ' '
; Informationsfenster
;
ENDREQUESTER DW 11, 10, 28, 14
DB CHTEXT, CORAINBOW
DB CHBACK, PABLACK
DB CHPATTERN, PTFADE2
DB CHFONT, FOSMALL
DB ' '
DB ' End of File !! '
DB ' '
; Informationsfenster
;
INFOREQUESTER DW 8, 7, 32, 17
DB CHTEXT, COBLUE
DB CHBACK, PABLACK
DB CHPATTERN, PTFADE1
DB CHFONT, FOSMALL
DB ' '
DB ' Mythic-Writer '
DB ' '
DB ' Version 1.0 '
DB ' '
DB ' Copyright (C) 1993 by '
DB ' '
DB ' xToto '
DB ' '
; Hilfefenster
;
HELP1REQUESTER DW 8, 4, 32, 21
DB CHTEXT, COMAGENTA
DB CHBACK, PABLACK
DB CHPATTERN, PTFADE1
DB CHFONT, FOSMALL
DB ' '
DB ' Mythic-Writer Help 1 '
DB ' '
DB ' Key Option '
DB ' --------------------- '
DB ' Alt-B Select Backgr. '
DB ' Alt-F Select Font '
DB ' Alt-H Show Help '
DB ' Alt-I Show Info '
DB ' Alt-L Insert Line '
DB ' Alt-O Select Object '
DB ' Alt-P Select Pattern '
DB ' Alt-R Restart '
DB ' Alt-T Select Text '
DB ' Alt-Z Delete Line '
DB ' '
HELP2REQUESTER DW 8, 4, 32, 21
DB CHTEXT, COMAGENTA
DB CHBACK, PABLACK
DB CHPATTERN, PTFADE1
DB CHFONT, FOSMALL
DB ' '
DB ' Mythic-Writer Help 2 '
DB ' '
DB ' Key Option '
DB ' --------------------- '
DB ' Cursor movement '
DB ' Del Delete Char '
DB ' Escape Quit '
DB ' F-1 Show Help '
DB ' F-2 Show Stars '
DB ' F-3 Show Cursor '
DB ' F-4 Show Sprites '
DB ' F-5 Clear Screen '
DB ' Ins Insert Mode '
DB ' Space Read fast '
DB ' '