Lbl Expand all Collapse all
Parents | Children | Code

Expand/Collapse Parents (3 / 4)
Expand/Collapse Children (1 / 1)

Code Expand all Collapse all
  SUB Lbl(X,Y,L$,O,S)      ! LABEL
    +IF L$<>"" THEN
      Ldir(90)
      MOVE X,ABS(Y)
      IF S=2 THEN CSIZE 2.4,.63
      IF S=3 THEN CSIZE 2.4,.4
      LORG O
      LABEL L$
      IF Y<0 THEN LDIR 0

END IF SUBEND
Top | Parents | Children | Code


Copyright © (c) TransEra

Project : TransEra Demo Program
File : F:\temp\htbdemo\Demo.BAS [Lbl]
Last Update : 17.12.2009 14:35:33

[View in frames]