: F83-USER message ; \s                               19DEC19:04Dear F83 user,                                  December 9, 1984                                                                   The improvements in F83 version 2.1.0 are:                      A prerequisite is 2.0.0 Laxen/Perry F83.                                                                                       Improved documentation on screen 57 of Utility.blk              Increase the maximum number of files in the VIEW-FIELD          Add titles to separate chapters of the list of WORDS            Compiled from source presented by Mike Perry Dec 2, 1984        Additional changes by John Peters.                                                                                            FUTURE IMPROVEMENTS                     Collected by John Peters  Improved factoring of WORDS and add START/STOP via space bar    A compiled version called TUTORIAL.COM on local BBS(s)          Other changes are being tested as an overlay in TOOLS.BLK.    \ TYPE THE UPDATE LETTER                              19dec84jap: VERSION210  ( -- )                                              cr cr printing on                                               2 read cr cr           \ letter                                 3 read cr              \ stamp & form-feed                      4 list printing off ;  \ documentaton                         : META190K  ( -- )                                                cr cr printing on                                               8 read cr cr          \ screen display                          9 read cr             \ meta instructons                        printing off ;                                                : TITLE-INST  ( -- )                                              cr printing on                                                  6 list cr                                                       7 read cr                                                       printing off ;                                                                                                      19dec84jap �  �  �                                                                                                                                                                                                 \S Change STAMP and FORM-FEED in UTILITY.BLK          15dec84jap                              ________ ___ ____                                 The over bars INDICATE NEW CODE                 UTILITY.BLK, scr 16, line 12.                                   : ?STAMP   (S -- )   CHANGED @ IF  STAMP                          ___ _   _ ___ _ _____ ______   ___ _                            SCR @   0 SCR ! STAMP UPDATE   SCR !    CHANGED OFF  THEN  ;   Add stamping of screen zero to date the file.                                                                                  UTILITY.BLK, scr 44, line 7.                                                            _______ _ ____                          : FORM-FEED   (S -- )   CONTROL M EMIT   CONTROL L EMIT  ;        Add a CR to empty the printer buffer on to the paper.^                                                                          continued..                                                                                                                   \S Change DOCUMENTATION in UTILITY.BLK scr 57.        15dec84japUTILITY.BLK scr 57                                              Lines 1 thru 7 are changed to improve the documentation.        #                                                               1 Set FUDGE to adjust period of MS.                             2 MS delays about n MilliSeconds.                               3   This clearly depends on your system clock speed.            4   Adjust FUDGE until the delay is right.                      4 U<=   Unsigned less than or equal.                            5 U>=   Unsigned greater than or equal.                         7 <=    Less than or equal.                                                                                                     To update your system to version 2.1.x type the following:      FORGET UTILITY.BLK                                              OPEN UTILITY.BLK OK SAVE-SYSTEM F83.BLK                         The above can be all on one line if you want. �  �  �  �                    \  Add TITLE code to EXTEND80.BLK on scr 14.          19DEC17:32)                ( FROM VERSION.BLK 6 )                         : TITLE                                           ( 10jan84dj )   CAPS @ ( save state of caps ) CAPS OFF ( allow lower case )     ,VIEW HERE 0 , HERE LAST ! 3 ALLOT ( for extra cr's )           DEFINED DROP ( we don't care if it exists already )             -3 ALLOT ( restore dict. ptr. ) DROP HERE CURRENT @ HASH        DUP @ HERE 2- ROT ! SWAP !                                      HERE 3 + ( skip past first 3 cr's & lf's ) C@ ( count byte )    DUP 6 + ( add # of cr's & lf's )                                128 OR ( hi bit on ) C, ( add count byte )                      13 C, 10 C, 10 C, ( add first 3 cr's and lf's )                 ALLOT ( save room in dict. for string )                         13 C, 10 C, 10 C, ( and add the final cr's and lf's. )          CAPS ! ; ( restore state of CAPS )                            TITLE Basic.system                                              \S Add TITLES to the WORDS vlist.                     19dec84japFile        Scr Lin                                             EXTEND80    14  0   Copy TITLE on to this screen                EXTEND80    1   4   14 LOAD           was blank                 EXTEND80    1   5   Title xxx                                   EXTEND80    1   6   Title xxx                                   CPU8080     1   #   Add Title xxx 4 times                       UTILITY     1   #   Add Title xxx 10 times                                                                                         xxx means change the  '.(' to TITLE and the ')' gets erased         also fill in the spaces in each title with dashes               to make them in to one forth word. �                        \S Minor IMPROVEMENTS                                 19dec84jap                                                                NLOAD              Fill the screen with numbers, don't schroll.    Meta80   1 ()   Remove the CR                                                                                                "CREATE            Stacks the list and saves CRs in  .( Notes)     Kernel80 76 6   Add a CR after -> "Isn't unique"                                                                             BYE                Hide data.  It is not needed with SAVE-SYTEM    KERNEL80 84 6   Kill the whole line containing   ." Pages"                                                                                      The above require meta compiltion.^ �           META instructions 1                                   15DEC84JAP  Arainge files on three disks as follows:                      Disk 1A = KERNEL80.BLK  (Used in the first pass dirve A:)       Disk 2A = CPU88080.BLK, EXTEND80.BLK, UTILITY.BLK               Disk  B = META80.BLK F82.BLK  ( Needs 12K free for KERNEL.COM )   This disk is used twice hence the double name.                Edit KERNEL80.BLK screen 1 line 11 and change the A: to B: so     it will work on a small system with two 190K disks.           Place 1A in A and B in B.   From CP/M do a CTRL-C and type:     A>B:F83 B:META80.BLK        Type OK (it means initial load)                                 Creates KERNEL.COM on B drive 12K   Leave disk B, put 2A in A   and type:                           BYE                         (does a warm boot.)  then type:     A>B:KERNEL EXTEND80.BLK     next type:                          START OK                    ( Creates new F83.COM 24K on B )                                Try it out, back it up.             META instructions 2                                   15DEC84JAPFile        Scr Lin                                                                                                             EXTEND80    1   11  Remove the -->                              EXTEND80    1   12 Add  2 LOAD                                  EXTEND80    1   13  Add     SAVE-SYSTEM  B:F83.COM              EXTEND80    2   13  Add     EXIT                                             -- OR--                                            EXTEND80    2   12,13,14 Delete all three lines.                                                                                                                                                   The above will require meta compiltion to activate.^ �          mike                                                  08dec84japDear Mike,                                      December 9, 1984                                                                   Please look over the enclosed realese for version 2.1.0      If you approve I will include it in a mailing or other form of  publication to the list of users I have.                        Maybe instead it will be better to submit it to Forth Dimensions                                                                What do you think?                                                                 ^ �                                                                                                                                                                                                                                   17dec84jap �  �  �                                                                                                                                                                                                 \ NEXT-VISA                                          117dec84japINCREMENTER NEXT-VISA                                           : VISA  ( -- )                                                    NEXT-VISA   [ DOS ]  ?DEFINE 2DUP  40 + !                       BODY> SWAP 2* VIEW-FILES ; �  �                                                                                                                                                                                                                                     \S Change VIEW-FIELD allotment.                       19dec84japWord       File        Scr Lin NEW                    WAS NUMBE                                                                 HEADER     META80.BLK  10  9   256 + ,-T              was 4096  ,VIEW      KERNEL80    76  1   256 * + THEN           was 4096             The above will require meta compiltion               VERSION    KERNEL80    65  7   211 CONSTANT           was 200   @VIEW      UTILITY     7   9   255 AND                was 4095  @VIEW      UTILITY     7   10  256 /                  was 4096  @VIEW      UTILITY     7   10  255 AND                was 15    VIEW-FILES EXTEND80    12  1   512 ALLOT              was 32    VIEWS      EXTEND80    12  1   Add some code...                            Add VISA as per the the example on the next screen.             The above will compile on top of the KERNEL.         ^                                                                                                                               ( Viewing Source Screens FROM VERSION.BLK 15          19DEC19:04)    ( <-REQUIRED )                                             CREATE VIEW-FILES   32 ALLOT                                    : VIEWS   ( n -- )   [ DOS ]                                       ?DEFINE 2DUP  40 + !   BODY> SWAP 2* VIEW-FILES + !  ;       : INCREMENTOR  ( -- )                                             CREATE    0 ,    DOES>    1 OVER +! @ ;                       INCREMENTOR NEXT-VISA                                           : VISA    ( n -- )   [ DOS ]                                       NEXT-VISA  DUP 255 > IF BEEP ." VISA EXPIRED" THEN              ?DEFINE 2DUP  40 + !   BODY> SWAP 2* VIEW-FILES + !  ;       : VIEWS   ( n -- )   DROP VISA ; \  Change to VISA later.       1 VIEWS KERNEL80.BLK                                            2 VIEWS EXTEND80.BLK                                            3 VIEWS CPU8080.BLK                                             4 VIEWS UTILITY.BLK �  �  �  �                                              \S Minor IMPROVEMENTS    backup copy                1819dec84japWord... File...... Scr Lin  NEW code or description                                                                             NLOAD     META80    1       Remove the CR  ( Horizontal output )          I like the screen to fill with numbers, not schroll.                                                                  "CREATE   KERNEL80  76  6   Add a CR after -> Isn't unique"               Lines up words and saves CRs in ->  .( Explainatons)                                                                     The above will require meta compiltion to activate.^ �                                                                                                                                          in a mailing or other form of  publication to the list of users I