30 lines
662 B
Modula-2
30 lines
662 B
Modula-2
|
NAME FreeCell
|
||
|
|
|
||
|
|
EXETYPE WINDOWS
|
||
|
|
|
||
|
|
STUB 'WINSTUB.EXE'
|
||
|
|
|
||
|
|
CODE PRELOAD MOVEABLE DISCARDABLE
|
||
|
|
|
||
|
|
DATA PRELOAD MOVEABLE MULTIPLE
|
||
|
|
|
||
|
|
|
||
|
|
HEAPSIZE 1024
|
||
|
|
STACKSIZE 5120
|
||
|
|
|
||
|
|
|
||
|
|
EXPORTS
|
||
|
|
MainWndProc @1 ; name of window processing function
|
||
|
|
MoveColDlg @2 ; movecoloptions dialog
|
||
|
|
GameNumDlg @3 ; select game number dialog
|
||
|
|
YouLoseDlg @4 ; choices when game is lost
|
||
|
|
StatsDlg @5 ; display statistics
|
||
|
|
YouWinDlg @6 ; choices when you win
|
||
|
|
OptionsDlg @7 ; display options
|
||
|
|
|
||
|
|
IMPORTS
|
||
|
|
CARDS.cdtInit
|
||
|
|
CARDS.cdtDrawExt
|
||
|
|
CARDS.cdtTerm
|
||
|
|
SHELL32.ShellAbout
|