home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 12: Textmags & Docs / nf_archive_12.iso / MAGS / TEXTMAGS / ATOS / archive / ATOS9605.ZIP / ATOS9605 / SOFTWARE / FORTH / FORTH.INI next >
Encoding:
Text File  |  1996-09-28  |  841 b   |  40 lines
  1. /* =========================================================
  2.     FORTH.INI 
  3.     use file for default settings etc,...
  4.     ========================================================= */
  5.  
  6. include system\command.4th 
  7. include system\util.4th
  8. include system\extend.4th
  9.   bload bin\bios.bin >voc bios
  10.  
  11. cd source
  12.  
  13. mforth forth definitions gemdos also bios also command also
  14.  
  15. /* Show system */
  16. cr
  17. cr
  18. .( Current Directory: ) pwd cr
  19. .(    Free ST memory: ) -1 m_alloc . .(  bytes)
  20. cr
  21. bios also
  22. s" NVDI" get_cookie
  23. #if    cr .( NVDI Version: ) hex 
  24.         @ w@++ <# # # ascii . hold # #> drop type 
  25.         .(  Date: )
  26.         @ <# # # # # ascii . hold # # ascii . hold # # #> drop type
  27.         decimal
  28. #else cr .( NVDI not installed)
  29. #endif
  30.  
  31. s" Gnva" get_cookie 
  32. #if    cr .( Geneva cookie is set to: )    @ . #endif
  33. cr
  34. mforth command also
  35.  
  36. order
  37. forth
  38.  
  39.  
  40.