Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LRHYLRX

LRHYLRX.m

Go to the documentation of this file.
  1. LRHYLRX ;DALOI/HOAK - Playing inside the BOX ;8/28/2005
  1. ;;5.2;LAB SERVICE;**405**;Sep 27, 1994;Build 93
  1. ;
  1. ;
  1. W @IOF F V=2:2:20 S XX="TXT"_V D @XX D LRBOX(10,V,V,60,TXT)
  1. Q
  1. ;
  1. ;
  1. LRBOX(X,Y,SIDE,LRHYHZ,TXT) ;This sub routine will draw a box on a VT100 terminal
  1. N LRHYI
  1. K DX,DY
  1. ;X and Y are the 1st coord.
  1. ;SIDE is the length vertical leg
  1. ;LRHYHZ is the length of the horozontal leg
  1. ;TXT is what you put in the box
  1. D GSET^%ZISS W IOG1
  1. S DY=Y,DX=X D XY
  1. W IOTLC
  1. F LRHYI=1:1:LRHYHZ W IOHL
  1. W IOTRC
  1. S DY=Y+1,DX=X D XY F LRHYI=1:1:SIDE W IOVL S DY=DY+1 D XY
  1. S DY=Y+1,DX=LRHYHZ+X+1 D XY F LRHYI=1:1:SIDE W IOVL S DY=DY+1 D XY
  1. S DY=Y+SIDE+1,DX=X D XY
  1. W IOBLC F LRHYI=2:1:LRHYHZ+1 W IOHL
  1. W IOBRC
  1. W IOG0 D GKILL^%ZISS
  1. Q
  1. XY ;
  1. X IOXY
  1. Q
  1. LRGLIN ;
  1. N LRHYHZ
  1. D GSET^%ZISS W IOG1
  1. F LRHYHZ=1:1:79 W IOHL
  1. W !,IOG0 D GKILL^%ZISS
  1. Q