home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Comunic / CHMENUS.ZIP / CHMENU.PPS < prev    next >
Encoding:
Text File  |  1996-09-17  |  694 b   |  33 lines
  1. ; CHAOSE Menu System
  2. ; (c) 1996 BM&TMD
  3.  
  4. ; This program is divided basically in two files: this one, with the program
  5. ; itself (which is about six lines long) and the header file, with lots of
  6. ; procedures, which is the backbone of the thing.
  7.  
  8.  
  9. ; Include FIles
  10.  
  11. *$USEFUNCS              
  12. *$INCLUDE:CHMENU.H
  13.  
  14. ; Variables
  15.  
  16. BEGIN
  17.  
  18. INT     COLUMN          ; Current Column
  19. INT     LINE            ; Current Line
  20.  
  21. ; Init Variables
  22.  
  23. COLUMN=1                ; Initialize Column to 1
  24. LINE=1                  ; Initialize Line to 1
  25.  
  26. ; Main Body
  27.  
  28.  
  29. MENUSYSTEM(LINE, COLUMN)        ; Call the menu system procedure
  30.  
  31. END                             ; End the program :)
  32.  
  33.