Return to bufio.fs CVS log | Up to [gforth] / gforth |
Initial revision
1: \ BUFOUT.STR Buffered output for Debug 13jun93jaw 2: 3: CREATE O-Buffer 4000 chars allot align 4: VARIABLE O-PNT 5: 6: : O-TYPE O-PNT @ over chars O-PNT +! 7: swap move ; 8: 9: : O-EMIT O-PNT @ c! 1 chars O-PNT +! ; 10: 11: VARIABLE EmitXT 12: VARIABLE TypeXT 13: 14: : O-INIT What's type TypeXT ! 15: What's emit EmitXT ! 16: O-Buffer O-PNT ! 17: ['] o-type IS type 18: ['] o-emit IS emit ; 19: 20: : O-DEINIT EmitXT @ IS Emit 21: TypeXT @ IS Type ; 22: 23: : O-PNT@ O-PNT @ O-Buffer - ; 24: