home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 1843.dms / in.adf / Mandelbrot / byetext.jf < prev    next >
Encoding:
Text File  |  1992-03-31  |  1.5 KB  |  60 lines
  1. \ Copyright 1989 NerveWare
  2. \ No portion of this code may used for commercial purposes,
  3. \ nor may any executable version of this code be disributed for 
  4. \ commercial purposes without the author's express written permission.
  5. \ This code is shareware, all rights reserved.
  6. \ Nick Didkovsky
  7. \                 byetext.jf
  8.  
  9. \ used for final credits in MandelEdge.jf
  10. \ MOD: wait for mouse click to advance text screen        6/11/89
  11.  
  12. anew task_byetext
  13.  
  14. variable text-yline
  15.  
  16. : MANDEL.CLEAR.INFO ( -- , prepare screen for text)
  17.   clear.mandelscreen
  18.   8 gr.color!
  19.   20 text-yline !
  20. ;
  21.  
  22. : GCR ( $addr-- )
  23.   6 text-yline @ rot gr.xytext
  24.   10 text-yline +!
  25. ;
  26.  
  27. : BYETEXT ( -- )
  28.   mandel.clear.info
  29.   " Didkovsky's Mandelbrot Generator" gcr
  30.   " by Nick Didkovsky"  gcr
  31.   "  " gcr
  32.   " Copyright 1989, NerveWare" gcr
  33.   " all rights reserved" gcr
  34.   " This program may NOT be sold or" gcr
  35.   " distributed for commercial purposes" gcr
  36.   " without the author's express" gcr
  37.   " written permission" gcr
  38.   "  " gcr
  39.   " (click left mouse button to continue)" gcr
  40.   wait.for.click
  41.   mandel.clear.info
  42.   " This program is shareware." gcr
  43.   " Like it? Send $1O.OO to " gcr
  44.   "  " gcr
  45.   " 171 East 99th Street #2O" gcr
  46.   " NYC NY 1OO29" gcr
  47.   "  " gcr
  48.   " (212) 879-2625 bbs" gcr
  49.   " (212) 369-1733 voice" gcr
  50.   "  " gcr
  51.   " Coded in JForth v2.0" gcr
  52.   "  " gcr
  53.   " Coming soon:" gcr
  54.   " Didkovsky's Mandelbrot Animator" gcr
  55.   " Didkovsky's Mandelbrot Mural Maker" gcr
  56.   "  " gcr
  57.   " (click left mouse button to continue)" gcr
  58.   wait.for.click
  59. ;
  60.