Category : Forth Source Code
Archive   : FPCHERC.ZIP
Filename : HGDEMO.SEQ

 
Output of file : HGDEMO.SEQ contained in archive : FPCHERC.ZIP
\ HGDEMO.SEQ -- to show off HGTEXT.SEQ
\ Paul Snyder 2.4.90 18:00
\
needs HGTEXT.SEQ

: demo ( --)
gr \ set graphics mode & clear graphics screen
ge \ vector text output to herc graphics screen
20 35 80 39 twind \ set herc graphics text window
hgdark hghome cr \ clear text window & home the cursor
." TO RETURN TO NORMAL TEXT OUTPUT TYPE: " cr
." TE TXT " cr
." TO HALT SCROLLING PRESS ESCAPE KEY. "
20 5 60 30 twind \ set herc graphics text window
0 0 plot \ draw some diagonal lines across the screen
700 150 plot.to
0 300 plot.to
hgdark hghome \ clear the text window & home the cursor
words \ scroll some text through the window.
;
dark cr cr cr cr
.( HERCULES CARD TEXT & GRAPHICS ON SAME SCREEN )
cr cr
.( To run demo type DEMO followed by carriage return. )
cr cr




  3 Responses to “Category : Forth Source Code
Archive   : FPCHERC.ZIP
Filename : HGDEMO.SEQ

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/