/*›              SET_SCRN.C›   ›   ›   Copyright 1990 by MAX Systems and›   Marty Albert. May be freely used›   and distributed by all so long as›   credit is given.›   ›   ›   ›   ›   This routine allows for a simple›   way to set a number of values for›   the graphics 0 screen. Included›   are setting:›   ›          Left Margin        ›          Colors (all 5 color›                  registers) ›          Cursor Inhibit Flag›   ›   ›   The calling format is:›   ›   set_scrn(lm,c0,c1,c2,c3,c4,c5,ci)›   ›   where:›   ›     lm = Left Margin Value›     c0 = Color 0 (peek 708)›     c1 = Color 1 (peek 709)›     c2 = Color 2 (peek 710)›     c3 = Color 3 (peek 711)›     c4 = Color 4 (peek 712)›     ci = Cursor Inhibit›           (0=on 1=off)›   ›   Note that ALL parameters MUST be›   passed or unexpected results WILL›   be had!›   ›   ›   As an added function, the set_scrn›   routine saves all values in›   temporary locations from where›   they can be restored by the sister›   routine res_scrn.›   ›   ›   By calling set_scrn at the start›   of your program and res_scrn at›   the end, you can set the screen to›   your own colors, margin, etc. and›   then restore those that the user›   had set before running your›   program.›   ›   ›*/›››char * lmar=0x0052;›char * col0=0x02c4;›char * col1=0x02c5;›char * col2=0x02c6;›char * col3=0x02c7;›char * col4=0x02c8;›char * crsinh=0x02f0;›char tlmar;›char tcol0;›char tcol1;›char tcol2;›char tcol3;›char tcol4;›char tcrsinh;›››set_scrn(lm,c0,c1,c2,c3,c4,ci)›  $(›    tcol0=*col0;›    tcol1=*col1;›    tcol2=*col2;›    tcol3=*col3;›    tcol4=*col4;›    tlmar=*lmar;›    tcrsinh=*crsinh;››    *lmar=lm;›    *col0=c0;›    *col1=c1;›    *col2=c2;›    *col3=c3;›    *col4=c4;›    *crsinh=ci;›return;›  $)›››res_scrn()›  $(›    *lmar=tlmar;›    *col0=tcol0;›    *col1=tcol1;›    *col2=tcol2;›    *col3=tcol3;›    *col4=tcol4;›    *crsinh=tcrsinh;›return;›  $)››