( This file creates a simple turnkey demonstration of line drawing
   routine.
   ---- it also shows a simple way of positioning the cursor 
         (see WORM.4TH for the proper use of ANSI sequences)
   ---- and a way of introducing delays )

OFF PRINTLOAD

	iload kernel2.img   " kernel2.img loaded" ." crlf

 cload egam "             egam loaded " ." crlf

: dy1 10000 0 do loop ;
: dly 3 0 do dy1 loop ;
: centr 10 0 do crlf loop 24 ;
 fload sq



( define a constant that is the def adr of the last word)
LAST @ DUPB@ + 2+ @ CONST ENTRYPOINT

 : MYPROGRAM  norm centr 24 spcs
           " This is a demonstration UCC-4th PROGRAM" ." crlf 5 spcs
           "         for EGA Graphics only" ;


: BOOT  ( bootstrap)
  INITIO myprogram dly ENTRYPOINT EXEC dly norm 
        centr 24 spcs " that's all folks" ." centr quit  ;

1000 ( 128)  CONST SYSIZE    ( stack space for program)
'' SYSIZE BLOCK SYSTK ( define stack)

 100H
 CODE GOFORTH
  HEAD @ SWAP GETLOC SWAP ORG JMP, HEAD !
  ( That patched the startup jump into the given location)

  SP '' SYSTK '' SYSIZE + LXI, ( set SP)
  H '' SYSTK LXI,  '' CSP SHLD, ( set CSP)

  :ENTER BOOT  ( enter forth and execute user bootstrap)
; 

STATUS ( print code size)

        " SQUARE.COM" SAVE
" COM file written\13 10\" ."

QUIT