Power-Programmierung/CD1.mdf/forth/compiler/fpc/source/p4_14bs.seq

Text File | 1990-04-14 | 267 b | 14 lines

\ Balraj Sidhu   Set: 14D4
\ Comp 462 - Forth
\ Date: April 12, 1990
\ Problem 4.14

create data 20 allot   \ create an array of 10 16-bit numbers

: data@ ( i -- n )
        abs 10 mod 2* data + @ ;

: data! ( n i -- )
        abs 10 mod 2* data + ! ;