( PRELIMINARY GRAPHICS WORDS PTC, CLINE ,GON ,GOFF, GCLS ) DECIMAL : GTC 10 @ 512 - 32 / 3 C@ ; ( GTC --- y x cursor pos'n) : PTC DUP 03 C! OUT ! 32 * 512 + 10 ! ; ( y x --- put cursor) : CLINE 0 PTC 10 @ 1+ 31 BLANKS ; ( y --- clear line y) : IN# BLK @ >R IN @ >R 0 BLK ! QUERY BL WORD HERE NUMBER DROP R> IN ! R> BLK ! ; HEX : GON BFF0 C@ DROP ; ( CHUNKY GRAPHICS ON) : GOFF 0 BFF3 C! ; ( AND OFF ) : GCLS GON 200 200 ERASE GOFF ; DECIMAL ( CLS IN GRAPHICS) : GSET CHUNKS OR SWAP C! ; : GCLR CHUNKS -1 XOR AND SWAP C! ; : ?GPT CHUNKS AND SWAP DROP ; : PICK SP@ SWAP 2 * + @ ; DECIMAL ;S