home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / tutor / l1p050 < prev    next >
Encoding:
Text File  |  1990-05-16  |  3.5 KB  |  95 lines
  1.       ╔═══════════════════════════════════════════════════════╗
  2.       ║   Lesson 1 Part 5.0  F-PC 3.5 Tutorial by Jack Brown  ║
  3.       ╚═══════════════════════════════════════════════════════╝
  4.  
  5. Welcome back.  In this lesson we will take a look at how to use F-PC's
  6. built in editor.
  7.  
  8. Our first program will is going to display a checker board on the
  9. display screen.  Instead of typing the program directly line by line as
  10. we did with our simple databases we will type the program into a
  11. separate text file using the EDitor.  The advantage is that it will be
  12. easier to fix our mistakes, (won't have to retype the whole program) and
  13. we will have a permanent copy of our final working program.
  14.  
  15. In F-PC the default extension for Forth source code files is SEQ.
  16.  
  17. Lets call the file that we will contain our checker board program
  18. BOARD1.SEQ  where the 1 is for our first attempt (there may be many!).
  19.  
  20. Before we start the EDitor let's make sure that the current directory is
  21. the work directory.  Type:
  22.  
  23. CD  C:\WORK <enter>  <----  or what ever you called your work directory.
  24.  
  25. If you wanted to keep your files on the A: drive instead you could just
  26. type:
  27.  
  28. A: <enter>
  29. CD  A:\WORK  <enter>   <---- if you have a WORK sub directory on A:
  30.  
  31. To start editing a new file called BOARD1.SEQ, Press <ESC> and select
  32. the New File option and enter the file name BOARD1 when prompted to do
  33. so.   You can begin editing a new file by pressing  <ALT> N and entering
  34. the file name when prompted to do so.  Do this now and you should see
  35. something like the display below.
  36.  
  37. ╔══INSERT  Line=1  Column=0  Page#=1  Lines=2   Characters=2  ══════╗
  38. ║                                                                   ║
  39. ║             ( this takes up the full screen!)                     ║
  40. ║                                                                   ║
  41. ╚══HELP=F1═══════════File = C:\WORK\board1.seq ═════MENU=ESC════════╝
  42.  
  43. The graphics display here is no match for Zimmer's!
  44.  
  45. The editor is for the most part uses commands similar to the wordstar
  46. editor, sidekick editor, and those included with the Borland Turbo
  47. products.  Use the Help function key F1 to get HELP screen and choose
  48. the SED-Help menu item for further help with the editor commands. Enter
  49. the following program using the editor.
  50.  
  51. \ CHECKER BOARD PROGRAM
  52. \ Version Number: 1
  53. \ Date: September 18, 1988
  54. \ Author:  <your name>
  55.  
  56. : BLACK ( -- )
  57.         SPACE SPACE ;
  58.  
  59. : WHITE ( -- )
  60.         177 EMIT 177 EMIT ;
  61.  
  62. : ROW1  ( -- )
  63.       CR BLACK WHITE BLACK WHITE
  64.          BLACK WHITE BLACK WHITE ;
  65.  
  66. : ROW2  ( -- )
  67.        CR WHITE BLACK WHITE BLACK
  68.           WHITE BLACK WHITE BLACK ;
  69.  
  70. : BOARD ( -- )
  71.        CR ROW1  ROW2  ROW1  ROW2
  72.           ROW1  ROW2  ROW1  ROW2  ;
  73.  
  74. : CHECKER_BOARD  ( -- )
  75.           BOARD  CR CR ;
  76. ----- end of program -----------<don't type this line!
  77.  
  78. To leave the editor and save the program press SHIFT F10
  79. and you will be back in Forth with the " ok " prompt.
  80. To load the program type:
  81.  
  82. FLOAD BOARD1.SEQ <enter>  and you will see:
  83.  
  84. BLACK isn't unique        <--- don't worry about this it means
  85. WHITE isn't unique  ok    <--- the Forth also has words BLACK and WHITE
  86.  
  87. To test the program type:
  88. CHECKER_BOARD <enter>    and you will see the checker board!
  89. If you have an error re-edit BOARD1.SEQ and fix it! and repeat
  90. the above process.  That's all the room this time!
  91.  
  92. ┌────────────────────────────────────┐
  93. │  Please move to Lesson 1 Part 6.0  │
  94. └────────────────────────────────────┘
  95.