home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
library
/
pb
/
lines
/
lines.bas
Wrap
BASIC Source File
|
1994-06-17
|
1KB
|
58 lines
CLS
PRINT "║ │ │ ║ ║ ║"
PRINT " │ ║ "
PRINT "║ │ │ ║ ║ ║"
PRINT
PRINT
CALL HLine(2,1,38,2)
SUB HLine(Row%,Col%,Length%,Dbl%)
SaveRow% = CSRLIN
SaveCol% = POS(0)
Single$="─┴┬┼╨╥───╫═╧╤╪╩╦═══╬"
T1%=SCREEN(Row%,Col%)
T2%=SCREEN(Row%-1,Col%)
T3%=SCREEN(Row%+1,Col%)
IF T2%=179 AND T3%=179 THEN T1%=179
IF T2%=186 AND T3%=186 THEN T1%=186
IF T2%=186 AND Dbl%<2 THEN
LOCATE Row%,Col%
PRINT "╟";
INCR Col%
DECR Length%
ELSEIF T2%=186 AND Dbl%=2 THEN
LOCATE Row%,Col%
PRINT "╠";
INCR Col%
DECR Length%
END IF
IF T1%=179 AND Dbl%<2 THEN
LOCATE Row%,Col%
PRINT "├";
INCR Col%
DECR Length%
ELSEIF T1%=179 AND Dbl%=2 THEN
LOCATE Row%,Col%
PRINT "╞";
INCR Col%
DECR Length%
END IF
FOR I%=Col% TO Col%+Length%-1
IF Dbl%=2 THEN C%=11 ELSE C%=1
T1%=SCREEN(Row%-1,I%)
T2%=SCREEN(Row%+1,I%)
IF T1%=179 THEN INCR C%
IF T2%=179 THEN INCR C%,2
IF T1%=186 THEN INCR C%,4
IF T2%=186 THEN INCR C%,5
C$=MID$(Single$,C%,1)
LOCATE Row%,I%
PRINT C$;
NEXT I%
LOCATE SaveRow%, SaveCol%
END SUB