home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l078 / 1.img / MC.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-04-02  |  3.9 KB  |  97 lines
  1. '┌───────────────────────────────────────────────────────────────────────────┐
  2. '│                               MC.BAS                                   │
  3. '│                             VERSION 1.0                                   │
  4. '│                                                                           │
  5. '│                   Turbo Basic                     │
  6. '│        (C) Copyright 1987 by Borland International             │
  7. '│                                                                           │
  8. '│ System Requirements:                                                      │
  9. '│   - DOS Version 2.0 or later                                              │
  10. '│   - 320K                                                                  │
  11. '│                                                                           │
  12. '│   This  program is a simple spreadsheet program that is  provided as an   │
  13. '│ example of a simple application that can be done in Turbo Basic. You are  │
  14. '│ encouraged to study this program and make any enhancements or modifica-   │
  15. '│ tions you might want.                                                     │
  16. '│                                                                           │
  17. '│   In order to use this program do the following:                          │
  18. '│     1) At the DOS prompt type TB<ENTER> to load Turbo Basic               │
  19. '│     2) In the File pulldown select Main and specify MC as the main file   │
  20. '│     3) Select the Run option from the main menu.                    │
  21. '└───────────────────────────────────────────────────────────────────────────┘
  22.  
  23. $DYNAMIC                ' All arrays are DYNAMIC
  24. $STACK  10240           ' to prevent stack overflow
  25.  
  26. $INCLUDE "MC0.INC"      ' Global variables, named constant AND
  27.                         ' array definition
  28.  
  29. $INCLUDE "MC1.INC"      ' Miscellaneous commands AND utilities
  30.                         ' (Keyboard,screen,toggles)
  31.  
  32. $INCLUDE "MC2.INC"      ' Init, display AND clear SpreadSheet grid
  33.  
  34. $INCLUDE "MC3.INC"      ' Display Cells AND move around the Spreadsheet
  35.  
  36. $INCLUDE "MC4.INC"      ' Load, Save AND Print a spreadsheet
  37.                         ' display on-line manual
  38.                         ' DOS shell
  39.  
  40. $INCLUDE "MC5.INC"      ' Procedures to evaluate formulas AND recalculate
  41.                         ' the SpreadSheet
  42.  
  43. $INCLUDE "MC6.INC"      ' Procedures to read, update AND format cells
  44.                         ' Commands dispatcher
  45.  
  46. $INCLUDE "MC7.INC"      ' Some string functions
  47.  
  48. $INCLUDE "MC8.INC"      ' Procedures to Read/Write records to/from the
  49.                         ' data structure representing the SpreadSheet
  50.  
  51.  
  52. RANDOMIZE TIMER         ' init random number generator
  53. Begintimer=TIMER    ' initial time
  54.  
  55. '┌───────────────────────────── MAIN PROGRAM ────────────────────────────────┐
  56.  
  57.   CALL Init
  58.   FileName$=FNGetCmd$
  59.   IF FNExists%(FileName$) THEN
  60.      CALL load
  61.   ELSE
  62.      CLS
  63.      CALL Grid
  64.      CALL GotoCell(GlobFX%, GlobFY%)
  65.   END IF
  66.  
  67.   ' set up an LOOP UNTIL '/Q' command is chosen
  68.   DO
  69.     CALL ReadKBD(Ch$)
  70.     CALL IBMCh(Ch$)
  71.     SELECT CASE left$(Ch$,1)
  72.       CASE CHR$(5)                      '^E
  73.         CALL MoveUp
  74.       CASE CHR$(24), CHR$(10)           '^X, ^J
  75.         CALL MoveDown
  76.       CASE CHR$(4), CHR$(13)            '^D, ^M
  77.         CALL MoveRight
  78.       CASE CHR$(19)                     '^S
  79.         CALL MoveLeft
  80.       CASE CHR$(1)                      '^A
  81.         CALL MoveHome
  82.       CASE CHR$(6)                      '^F
  83.         CALL MoveEnd
  84.       CASE "/"                          ' Command Header
  85.         CALL Commands
  86.       CASE CHR$(%EditKey )              ' F2
  87.         CALL GetCell(GlobFX%, GlobFY%)
  88.       CASE ELSE
  89.         IF ( left$(Ch$,1) >= " " ) AND ( left$(Ch$,1) <= CHR$(255) ) THEN
  90.           CALL GetCell(GlobFX%, GlobFY%)
  91.         END IF
  92.     END SELECT
  93.   LOOP UNTIL CalcExit%
  94.  
  95.   END
  96. '└─────────────────────────── END MAIN PROGRAM ──────────────────────────────┘
  97.