PC SCHEME UTILITIES AND ON-LINE HELP

[Clyde <Camp%ti-csl.csnet@CSNET-RELAY.ARPA>]

For anyone  seriously  (or  unseriously)  using PCS  on  the  TI  Professional
Computer, I have a written a set  of utilities which make some of the  systems
functions easier to use.  The utilities include procedures to:

    - easily create/delete popup and non-popup windows as well as manipulate
      their attributes  
    - pretty-print or verbatum-print source files to the screen or printer	
    - set-up the 850 or 855 printer modes
    - easily interact with the keyboard at the keystroke level 
    - edit files with the editor of your choice (PFM, WS, PMATE, whatever) and
      then load, compile, or fsl them automatically.

Online HELP and user's manual are included.  The procedures are:

[8] (help1)
              SCHEME UTILITY PACKAGE #1 (c)     Clyde R. Camp                
                           v 3.0   12-18-85

 SCREEN:  (pp_file source-filespec [output-port/file [line-length]])
	  (show_file source-filespec [output-port/file [line-length]])

 WINDOWS: (make-static-window name top left bot right [text border])
	  (inside window)  (window-pixil-size window)  (clear-text [window])
	  (make-popup-window name top left bot right [text [border]])
	  (delete-popup-window name)   (set-text attr1 [attr2 [window]])
	  (set-border attr1 [attr2 [window]])

 CONSOLE: (split-console at-line) (reset-console) (get-console-key [port])
	  (wait-for-key [port]) (getchar [port]) (was-key? char [port])

 PRINTER: (print_file source-filespec [line-length])
	  (set850! 'parm ['parm.....])   (set855! 'mode ['parm.....])

 MISC:	  (beep) (help1) (ed/ld/cmp/el/ec/ef/cf/fsl [filename])

***default-editor***: edit.exe     ***default-memory-size***: 8190
***default-file***  : test.s

===============================================================================
For new  scheme'ers using  the TIPC  I  have an  on-line help  facility  which
condenses the language reference  manual into a (approx)  60K byte syntax  and
information manual.

The procedures  are organized  into generic  classes such  as WINDOWS,  LISTS,
NUMBERS, GRAPHICS, I/O, etc.  A transcript of a typical usage follows:

[3] (help)

         PCS ON-LINE VERBOSE HELP   Version 1.2   01-09-86
              (C) Copyright 1985 by Texas Instruments
                       All Rights Reserved

  (help 'foo) where foo is a valid symbol will return the proper syntax
              for the function foo or a notification that it is unbound or
              bound in a specific environment

  (help 'class) where class is one of the following classes of procedures
                will return the syntax of all functions within that class

    CONTROL      ENVIRONMENTS       FLUIDS          GLOBALS       SYSTEM
    DEBUG        PREDICATES         LISTS           SYMBOLS       NUMBERS
    VECTORS      CHARACTERS         STRINGS         WINDOWS       I/O
    GRAPHICS     STREAMS            SCOOPS          ENGINES       AUTOLOAD


  (help 'taciturn) will load a smaller help file with syntax only



[4] (help 'fluids)

(FLUID VAR)
(FLUID-BOUND? VAR)
(FLUID-LAMBDA (VAR ...) EXP1 ...)
(FLUID-LET ((VAR FORM) ...) EXP1 ...)
(SET-FLUID! VAR OBJ)
(SET! (FLUID VAR) EXP)
INPUT-PORT
OUTPUT-PORT
SCHEME-TOP-LEVEL

[5] (help 'scheme-top-level)

SCHEME-TOP-LEVEL

This fluid variable is bound to the value of the standard read-eval-print
loop.
It can be re-bound to a user-defined read-eval-print loop if desired. (reset)
will return to this binding.  To return the binding to the standard r-e-p
loop,
use (reset-scheme-top-level).

        (define user-loop (lambda (...)
            (fluid-let ((scheme-top-level #!false))
              (call/cc (lambda (k)
                 (set! (fluid scheme-top-level)
                       (lambda () (k '())))))
              ... body of REP loop ...  

[6] (help 'graphics)

All of the graphics functions are autoloaded.  See AUTOLOAD.
 
(CLEAR-GRAPHICS)
(CLEAR-POINT X Y)
(DRAW-BOX-TO X Y)
(DRAW-FILLED-BOX-TO X Y)
(DRAW-LINE-TO X Y)
(DRAW-POINT X Y)
(GET-VIDEO-MODE)
(IS-POINT-ON? X Y)
(POSITION-PEN X Y)
(SET-PALETTE! VALUE DISPLAY-VALUE)
(SET-PEN-COLOR! COLOR)
(SET-VIDEO-MODE! N)
*GRAPHICS-COLORS*

For those with smaller systems there is a smaller version (about 20K bytes)
which has syntax only.  

- Clyde Camp
  Texas Instruments  MS238
  P.O.Box 226015
  Dallas, TX  75266
  (214) 995-0407


-------