home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / prog1 / 4th_86.lzh / SQUARE.DEM < prev    next >
Text File  |  1989-02-15  |  2KB  |  56 lines
  1. ( This file creates a simple turnkey demonstration of line drawing
  2.    routine.
  3.    ---- it also shows a simple way of positioning the cursor 
  4.          (see WORM.4TH for the proper use of ANSI sequences)
  5.    ---- and a way of introducing delays )
  6.  
  7. OFF PRINTLOAD
  8. brkon
  9.  
  10.     iload kernel23.img   " kernel23.img loaded" ." crlf
  11.  
  12. g0load 7egam3.bin " 7egam3 loaded " ." crlf
  13.  
  14. : dy1 10000 0 do loop ;
  15. : dly 3 0 do dy1 loop ;
  16. : centr 10 0 do crlf loop 24 ;
  17.  
  18. fload sq.4th                  " sq.4th" ." crlf
  19.  
  20.  
  21. ( define a constant that is the def adr of the last word)
  22. LAST @ DUPB@ + 2+ @ CONST ENTRYPOINT
  23.  
  24.  : MYPROGRAM  norm centr 24 spcs
  25.            " This is a demonstration UCC-4th PROGRAM" ." crlf 5 spcs
  26.            "         for EGA Graphics only" ;
  27.  
  28.  
  29. : BOOT  ( bootstrap)
  30.   1000h setmem brkoff myprogram dly ENTRYPOINT EXEC dly norm 
  31.         centr 24 spcs " that's all folks" ." centr q-u-it  ;
  32.  
  33. 1000 ( 128)  CONST SYSIZE    ( stack space for program)
  34. '' SYSIZE BLOCK SYSTK ( define stack)
  35.  
  36.  100H
  37.  CODE GOFORTH
  38.   HEAD @ SWAP GETLOC SWAP ORG JMP, HEAD !
  39.   ( That patched the startup jump into the given location)
  40.  
  41.   SP '' SYSTK '' SYSIZE + 10 - LXI, ( SET SP)
  42.   H '' SYSTK LXI,  ( '' CSP SHLD, )
  43.         df89h head! ( mov di,bx) ( SET CSP)
  44.  
  45.  
  46.   :ENTER BOOT  ( enter forth and execute user bootstrap)
  47. ; 
  48.  
  49. STATUS ( print code size)
  50.  
  51.         " SQUARE.COM" SAVE
  52. " COM file written^13 10^" ."
  53.  
  54. q-u-it
  55.  
  56.