home *** CD-ROM | disk | FTP | other *** search
/ Languages Around the World / LanguageWorld.iso / language / english / a_farm / header.bas < prev    next >
Encoding:
BASIC Source File  |  1990-03-21  |  1.3 KB  |  39 lines
  1. DECLARE SUB GamesMenu ()
  2. DECLARE SUB FormatShake (Q$, Tail$)
  3. DECLARE SUB DrawBox (row1%, col1%, row2%, col2%)
  4. DECLARE SUB PRINTNOTES (File$, Topic$)
  5. DECLARE SUB FormatString (Text$, Tail$, col%)
  6. DECLARE SUB PageDown (Topic$)
  7. DECLARE SUB PageUp (Topic$)
  8. DECLARE SUB WriteText (Text$, HorPos%, MaxLen%)
  9. DECLARE SUB ChangeDriveDirectory ()
  10. DECLARE SUB ChangeSpeed ()
  11. DECLARE SUB ChangeMenuColour ()
  12. DECLARE SUB ChangeTextColour ()
  13. DECLARE SUB ChangeChoice ()
  14. DECLARE SUB GetKey ()
  15. DECLARE SUB DrawMenu ()
  16. DECLARE SUB PrintMenu ()
  17. DECLARE SUB MENU ()
  18. COMMON SHARED M$(), NM, N, M, J, k, HJ, CM, Choice$, fg, bg, speed, mc, dd$, Q$(), CA$(), A1$(), A2$(), A3$()
  19. DECLARE SUB ShuffleArray (A!())
  20.  
  21. COMMON SHARED Text$, Book$, Context$(), Chapter(), PG()
  22.  
  23.  
  24. ' Function and control key constants
  25. CONST esc = 27, down = 80, up = 72, left = 75, right = 77
  26. CONST Enter = 13, SPBAR = 32, PGDN = 81, PGUP = 73
  27. CONST ctrls = 19
  28.  
  29. 'Colour Constants
  30. CONST black = 0, BLUE = 1, GREEN = 2, CYAN = 3, red = 4, MAGENTA = 5
  31. CONST BROWN = 6, white = 7, BRIGHT = 8, blink = 16
  32. CONST yellow = BROWN + BRIGHT
  33.  
  34. 'Variables used by Retrieve Module
  35. COMMON SHARED File$, Topic$, LC, NumScreen$, NumScreen, NumLine$(), NumLine(), T$()
  36. COMMON SHARED Page, PrevPAGE, FolPage, SCR, PPPage, x$(), NQ()
  37.  
  38.  
  39.