1 line
22 KiB
NASM
1 line
22 KiB
NASM
|
STRING ASIS
BLANKS OFF
;---------------------------------------------------------
; ImageWriter Driver Version 2.2
; Copyright Apple Computer, Inc. 1986-88
; All rights reserved.
;---------------------------------------------------------
MACRO
&lab str &string
EXPORT &lab ; export the label
LCLC &EIB ; declare a temporary var to hold current string setting
&EIB SETC &SETTING('STRING') ; put current string setting into temp
STRING PASCAL ; Set string type to pascal.
&lab DC.B &string ; make the string
STRING &EIB ; restore orig string settings
MEND
include 'e16.dialog'
US equ 1
FR equ 2
Pays equ US
IMPORT ScreenPort
DialogData PROC EXPORT
IF Pays=US GOTO .US
IF Pays=FR GOTO .FR
.US
SlashStr str '/'
namestr str 'ImageWriter'
Paperstr str 'Paper:'
P1str str 'US Letter'
P2str str 'US Legal'
p3str str 'A4 Letter'
p4str str 'International Fanfold'
p5str str 'Computer Paper'
VsizeStr str 'Vertical Sizing:'
Vsize1Str str 'Normal'
VSize2Str str 'Condensed'
SpeStr str 'Printer Effects:'
Spe1str str '50% Reduction'
Spe2str str 'No Gaps Between'
GapPageStr str 'Pages'
Orientstr str 'Orientation:'
Okstr str 'OK'
Cancelstr str 'Cancel'
ColorStr str 'Color'
DarkerStr str 'Darker'
releaseStr str 'v2.2.2' ; d3
Qstr str 'Quality:'
q1str str 'Better Text'
q2str str 'Better Color'
q3str str 'Draft'
Pagestr str 'Page range:'
pr1str str 'All'
pr2str str 'From:'
pr3str str 'To:'
copstr str 'Copies:'
PFeedstr str 'Paper Feed:'
Pf1str str 'Automatic'
Pf2str str 'Manual'
Export InfoStrPrep
InfoStrPrep DC.B EndInfoStrPrep-InfoStrPrep-1
DC.B 'Preparing Data ...'
DC.B $0D
EndInfoStrPrep ;
EXPORT InfoStrDraft
InfoStrDraft DC.B EndInfoStrDraft-InfoStrDraft-1
DC.B 'Printing in Draft mode ...'
DC.B $0D
EndInfoStrDraft ;
EXPORT LowMemMsg
LowMemMsg DC.B EndMSL1-LowMemMsg-1
DC.B 'There is not enough memory to print. '
DC.B $0D
EndMSL1 ;
EXPORT PrintProcess
Printprocess ;
EXPORT InfoStrPrint
InfoStrPrint DC.B EndInfoStrPrint-InfoStrPrint-1
DC.B 'Printing in progress ...'
DC.B $0D
EndInfoStrPrint ;
EXPORT CancelStrPrint
CancelStrPrint DC.B EndCancelStrPrint-CancelStrPrint-1
DC.B '(Type ',$11,'. to cancel.)'
;
EndCancelStrPrint ;
GOTO .suite
.FR
SlashStr str '/'
namestr str 'ImageWriter'
Paperstr str 'Papier:'
P1str str 'Lettre US'
EXPORT P2str
P2str DC.B 8
DC.B 'L'
DC.B $8E
DC.B 'gal US'
p3str str 'Continu International'
p4str str 'Format A4'
p5str str 'Papier Informatique'
VsizeStr str 'Vertical Sizing:'
Vsize1Str str 'Normal'
VSize2Str str 'Condensed'
SpeStr str 'Printer Effects'
Spe1str str 'Reduction 50 %'
Spe2str str 'Pas de saut'
GapPageStr str 'de page'
Orientstr str 'Orientation'
Okstr str 'OK'
Cancelstr str 'Annuler'
ColorStr str 'Couleur'
releaseStr str ' vF1-2.2'
EXPORT Qstr
Qstr DC.B 8
DC.B 'Qualit'
DC.B $8E
DC.B ':'
q1str str 'Superieure' ?
q2str str 'Normale' ?
q3str str 'Brouillon'
Pagestr str 'Pages :'
pr1str str 'Toutes'
pr2str str 'De :'
EXPORT pr3str
pr3str DC.B 1
DC.B $88
copstr str 'Copies :'
PFeedstr str 'Chargement :'
Pf1str str 'Automatique'
Pf2str str 'Manuel'
EXPORT InfoStrPrep
InfoStrPrep DC.B EndInfoStrPrep-InfoStrPrep-1
DC.B 'Preparation de l' 'impression ...',h'0D'
EndInfoStrPrep ;
EXPORT InfoStrDraft
InfoStrDraft DC.B EndInfoStrDraft-InfoStrDraft-1
DC.B 'Impression en mode brouillon ...'
DC.B $0D
EndInfoStrDraft ;
EXPORT PrintProcess
Printprocess ;
EXPORT InfoStrPrint
InfoStrPrint DC.B EndInfoStrPrint-InfoStrPrint-1
DC.B 'Impression en cours ...'
DC.B $0D
EndInfoStrPrint ;
.suite
EXPORT PaperOutStr
PaperOutStr DC.B EndPaperOutStr-PaperOutStr-1
DC.B 'The ImageWriter is out of paper.'
DC.B $0D
EndPaperOutStr ;
EXPORT CoverOpenStr
CoverOpenStr DC.B EndCoverOpenStr-CoverO
|