: VER                  MESSAGE ; EXIT  OCT 20         16nov84japVER is the name of the high level command that calculates a     checksum for hand entered source screens.  It was published in  the Forth Dimensions Volume IV number 3 on page 15.  I am       looking for some one to help modify this program so it will     recognise the  \  ( back slash. )  Are you able to help?                  Let's Talk Forth                            16nov84jap                                                                     John A. Peters                                                  121 Santa Rosa Ave.                                             San Francisco, CA 94112                                                                                                         Phone (415) 239-5393 8-9 am or after 7 pm                       or Computer Language Mag. BBS 957-9370                                                                                     I am interested in collecting and exchanging F-83 code.         \ LOADER BLOCK                                        08DEC84JAP2 LOAD                                                          : CRC   VER ;                                                   EXIT                                                                                                                            : CHECK                                                           XOR DUP 0< IF 5260 XOR DUP +  (SHL) 1+     ELSE DUP + THEN ; �  �                                                                   2 (   )                                               09MAY84JAP: ACCUMULATE   ( Check sum for hand-enteres source screens )       256 * XOR  8 0 DO  DUP 0< IF  16386 XOR  DUP +  1+                                        ELSE DUP  + THEN   LOOP ;          : DISPOSE                                                          OVER DUP  C@  40 =  SWAP 1+ C@ BL = AND  OVER 1 = AND           IF  ( comment; skip it)   2DROP  41 WORD  DROP                  ELSE  1+ OVER + SWAP  DO I @ ACCUMULATE  LOOP                   THEN ;  ( carefull; LOOPS on addresses)                      : MORE? ( -- addr f )                                              BL WORD DUP C@ 2 < OVER 1+ C@ 33 < AND NOT ;                 : VERIFY  ( scr# -- crcvalue) BLK @ >R  >IN @ >R  BLK ! 0 >IN !    0  BEGIN  MORE? WHILE  BL OVER COUNT + C!  COUNT DISPOSE        REPEAT DROP  R> >IN !  R> BLK ! ;                            : VER   SCR @  VERIFY  U. ;                                                                                                     \ CHECK-SUM for hand-enteres source screens           28AUG83JAP: ACCUMULATE   ( Check sum for hand-enteres source screens )       256 * XOR  8 0 DO  DUP 0< IF  16386 XOR  DUP +  1+                                        ELSE DUP  + THEN   LOOP ;          : DISPOSE                                                          OVER DUP  C@  40 =  SWAP 1+ C@ BL = AND  OVER 1 = AND           IF  ( comment; skip it)   2DROP  41 WORD  DROP                  ELSE  1+ OVER + SWAP  DO I @ ACCUMULATE  LOOP                   THEN ;  ( carefull; LOOPS on addresses)                      : MORE? ( -- addr f )                                              BL WORD DUP C@ 2 < OVER 1+ C@ 33 < AND NOT ;                 : VERIFY  ( scr# -- crcvalue) BLK @ >R  >IN @ >R  BLK ! 0 >IN !    0  BEGIN  MORE? WHILE  BL OVER COUNT + C!  COUNT DISPOSE        REPEAT DROP  R> >IN !  R> BLK ! ;                            : VER   SCR @  VERIFY  U. ;                                                                                                                                                               Print SYSTEM-INDEX of MY vocabulary.