1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 ;; buffers, blocks, etc...
3 ;; those words are of little use
4 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
9 ;; ( line block -- addr count )
12 >R LIT 64 B/BUF */MOD R>
13 B/SCR * + BLOCK + LIT 64
15 $FORTH_END_WORD (LINE)
17 ;; leave address of line n of current screen
18 ;; this address will be in the RAM-disc buffer area
22 DUP LIT #FFF0 AND LIT 23 ?ERROR SCR @ (LINE) DROP ;S
28 (LINE) -TRAILING XTYPE ;S
34 DECIMAL ENDCR DUP SCR ! (.") ~SCR #~ . ;;"
37 ENDCR I 3 .R SPACE I SCR @ .LINE ?BREAK 0BRANCH list1