mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-04 19:30:30 +00:00
1 line
824 B
Plaintext
Executable File
1 line
824 B
Plaintext
Executable File
load 'macros.dump'
|
|
include 'driver.equ'
|
|
include 'wp.equ'
|
|
|
|
;-----------------------------------------------
|
|
;
|
|
; Imported addresses
|
|
;
|
|
;-----------------------------------------------
|
|
|
|
IMPORT D_AlertBox
|
|
|
|
********************************************************************
|
|
*
|
|
*
|
|
* includes...
|
|
*
|
|
*
|
|
*
|
|
* Wednesday, May 3, 1989 4:54:13 AM
|
|
********************************************************************
|
|
|
|
|
|
ENTRY W_Thesaurus
|
|
ENTRY W_EditUserDict
|
|
|
|
|
|
|
|
|
|
****************************************************************
|
|
W_CheckSpelling PROC EXPORT
|
|
|
|
Case Object
|
|
EXPORT W_Thesaurus
|
|
EXPORT W_EditUserDict
|
|
W_Thesaurus ;
|
|
W_EditUserDict ;
|
|
Case Off
|
|
spaceword
|
|
pushword #OKBox
|
|
pushlong #FuckOff
|
|
jsl D_AlertBox
|
|
pla
|
|
rtl
|
|
|
|
FuckOff str 'The spelling checker and thesaurus are not available.'
|
|
|
|
ENDP
|
|
END
|
|
|