home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / lines / lines.bas
BASIC Source File  |  1994-06-17  |  1KB  |  58 lines
  1. CLS
  2. PRINT "║                 │  │     ║   ║     ║"
  3. PRINT "                  │        ║          "
  4. PRINT "║                 │     │  ║      ║  ║"
  5. PRINT
  6. PRINT
  7.  
  8. CALL HLine(2,1,38,2)
  9.  
  10. SUB HLine(Row%,Col%,Length%,Dbl%)
  11.     SaveRow% = CSRLIN
  12.     SaveCol% = POS(0)
  13.   Single$="─┴┬┼╨╥───╫═╧╤╪╩╦═══╬"
  14.   T1%=SCREEN(Row%,Col%)
  15.   T2%=SCREEN(Row%-1,Col%)
  16.   T3%=SCREEN(Row%+1,Col%)
  17.   IF T2%=179 AND T3%=179 THEN T1%=179
  18.   IF T2%=186 AND T3%=186 THEN T1%=186
  19.   IF T2%=186 AND Dbl%<2 THEN
  20.     LOCATE Row%,Col%
  21.     PRINT "╟";
  22.     INCR Col%
  23.     DECR Length%
  24.    ELSEIF T2%=186 AND Dbl%=2 THEN
  25.     LOCATE Row%,Col%
  26.     PRINT "╠";
  27.     INCR Col%
  28.     DECR Length%
  29.   END IF
  30.   IF T1%=179 AND Dbl%<2 THEN
  31.     LOCATE Row%,Col%
  32.     PRINT "├";
  33.     INCR Col%
  34.     DECR Length%
  35.    ELSEIF T1%=179 AND Dbl%=2 THEN
  36.     LOCATE Row%,Col%
  37.     PRINT "╞";
  38.     INCR Col%
  39.     DECR Length%
  40.   END IF
  41.   FOR I%=Col% TO Col%+Length%-1
  42.     IF Dbl%=2 THEN C%=11 ELSE C%=1
  43.     T1%=SCREEN(Row%-1,I%)
  44.     T2%=SCREEN(Row%+1,I%)
  45.     IF T1%=179 THEN INCR C%
  46.     IF T2%=179 THEN INCR C%,2
  47.     IF T1%=186 THEN INCR C%,4
  48.     IF T2%=186 THEN INCR C%,5
  49.     C$=MID$(Single$,C%,1)
  50.     LOCATE Row%,I%
  51.     PRINT C$;
  52.     NEXT I%
  53.     LOCATE SaveRow%, SaveCol%
  54. END SUB
  55.  
  56.  
  57.  
  58.