6530 Programmer's Guide

Tandem NonStop Kernel Application Interface
4-8
6530 Programmer’s Guide
buffer^s ’:=’ [set^enhance^color] -> @e ; -- Set Enhanced
Color Field Mapping
CALL write ( fnum , buffer , @e ’-’ @buffer^s ) ;
buffer^s ’:=’ [order^sfe^color , %h20 , %h51 , %h40 , %h30
,%h32 ,
%h42 , %h21 , %h45 , %h24 ] -> @e ; --Start enhanced
color field
CALL write ( fnum , buffer , @e ’-’ @buffer^s ) ;
char := " ";
FOR R := 1 TO 24 DO
BEGIN
FOR C := 1 TO 80 DO
BEGIN
call SET^CURSO^ADDRESS (R,C);
call SET^BUFF^ADDRESS (R, C);
if (char = %h7F) then
char := " ";
buffer^s ’:=’ char for 1 BYTES -> @e;
CALL write ( fnum , buffer , @e ’-’ @buffer^s ) ;
char := char + 1;
END; ! END COL
END; ! END ROW
buffer^s ’:=’ [write^message," Reading the selected
page",CR] -> @e;
CALL write ( fnum , buffer , @e ’-’ @buffer^s ) ;
FOR R := 1 TO 24 DO
BEGIN
FOR C := 1 TO 80 DO
BEGIN
call SET^CURSO^ADDRESS (R,C);
if (C = 80) AND (R = 24) then
goto EXIT1;
if C = 80 then
call READ^BUFF(R,C,R+1,1)
else
call READ^BUFF(R,C,R,C+1);
END;