home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / games / yam11src / YAM.OPL < prev    next >
Text File  |  1995-07-27  |  2KB  |  61 lines
  1. REM MODULE YAM
  2. REM Copyright (c) 1995 Bermuda Software Publishing
  3. REM Written by Bruno Essmann (bessmann@iiic.ethz.ch)
  4.  
  5. APP YAM
  6.     TYPE $1000
  7.     REM ICON "M:\APP\YAM\SOURCE\ICON.PIC"
  8.     ICON "ICON.PIC"
  9. ENDA
  10.  
  11. #include "yam.oph"
  12. #define  VersionStr "Version 1.10 (07/27/1995)"
  13.  
  14. PROC Init
  15.     REM All global variables are declared here because only
  16.     REM subroutines know of global variables and we're calling
  17.     REM the various initialisation routines already here...
  18.     GLOBAL TimerHandle                REM Timer I/O Handle
  19.     GLOBAL TimerError                 REM Timer result code
  20.     GLOBAL TimerTime                  REM Timer in 1/10 sec
  21.     GLOBAL TimerStatus                REM Timer status
  22.     GLOBAL PlaybackStatus             REM Playback status
  23.     GLOBAL SystemStatus               REM System status (GETEVENT)
  24.     GLOBAL Preferences                REM TRUE if prefs loaded
  25.     GLOBAL GamePict                   REM ID of picture window
  26.     GLOBAL GameType                   REM Game type
  27.     GLOBAL GameStatus                 REM Game status
  28.     GLOBAL ScrX, ScrY                 REM Screen drawing offset
  29.     GLOBAL GameW, GameH               REM Game width and height
  30.     GLOBAL GameMines                  REM Game number of mines
  31.     GLOBAL NoFree                     REM Number of free fields
  32.     GLOBAL NoFlags                    REM Number of correct flags
  33.     GLOBAL NoFalseFlags               REM Number of incorrect flags
  34.     GLOBAL MarkX, MarkY               REM Marker position
  35.     GLOBAL TimeMin, TimeSec           REM Game timer
  36.     GLOBAL Minefieldtype(MaxWH)       REM Minefield for minetype
  37.     GLOBAL Minefieldnumber(MaxWH)     REM Minefield for minenumber
  38.     GLOBAL PauseWin                   REM Pause window id
  39.     GLOBAL PauseWinOpen               REM Pause window open counter
  40.  
  41.     Util_Init
  42.     Disp_Init
  43.     YAM_Init
  44.     YAM_Loop
  45. ENDP
  46.  
  47. PROC Term
  48.     REM Terminate program, make shure everything is cleaned up
  49.  
  50.     Disp_Term
  51.     YAM_Term
  52.     STOP
  53. ENDP
  54.  
  55. #include "util.opl"
  56. #include "main.opl"
  57. #include "game.opl"
  58. #include "disp.opl"
  59.  
  60. REM END YAM.
  61.