1: DECLARE SUB TextBox (SX!, SY!, eX!, Ey!, t$, r!, l!, pw$, tb$, del!, mln!) 2: DECLARE SUB PopMenu (x!, y!) 3: DECLARE SUB PutBack () 4: DECLARE SUB ProClk (x!, y!) 5: DECLARE SUB LoadMouse () 6: DECLARE SUB PutMouse () 7: DECLARE SUB LoadFont (f$) 8: DECLARE SUB BackGround (a!) 9: DECLARE SUB MsgBox (ms$, Tit$) 10: DECLARE SUB InputBox (x!, y!, t$, Prm$) 11: DECLARE SUB Window2 (Length!, Height!, Row!, Column!, tt$) 12: DECLARE SUB Print2 (x!, y!, cv!, t$) 13: DECLARE SUB UnLoadFont () 14: DECLARE SUB opencom () 15: DECLARE SUB connect () 16: DECLARE SUB Font (t$, cl!) 17: DECLARE SUB TextBx (SX!, SY!, eX!, Ey!, t$, r!, l!, pw$, tb$, del!) 18: DECLARE SUB Button2 (x1!, Y1!, x2!, y2!, p!, t$) 19: DECLARE SUB SLEEP2 (t!) 20: DECLARE SUB SCapt (f$) 21: DECLARE SUB SLoad (f$) 22: DIM SHARED txt(255) AS STRING 23: DIM SHARED C 24: DIM SHARED Wxyz(4) 25: DIM SHARED Mouse(100) 26: DIM SHARED Msx, Msy 27: DIM SHARED Clx, Cly, Clk 28: KEY 15, CHR$(0) + CHR$(82) 29: ON KEY(1) GOSUB Capt: KEY(1) ON 30: ON KEY(2) GOSUB Load: KEY(2) ON 31: ON KEY(11) GOSUB UpArow: KEY(11) ON 32: ON KEY(12) GOSUB LtArow: KEY(12) ON 33: ON KEY(13) GOSUB RtArow: KEY(13) ON 34: ON KEY(14) GOSUB DnArow: KEY(14) ON 35: ON KEY(15) GOSUB Click: KEY(15) ON 36: ON TIMER(3) GOSUB Clkn: TIMER ON 37: SCREEN 12 38: CLS 39: Msx = POINT(0) 40: Msy = POINT(1) 41: Xi = 5 42: Yi = 5 43: LoadFont "C:\ASCIN.FNT" 44: BackGround 3 45: MsgBox "Pentagon Terminal", "** Turbo Version **" 46: InputBox 50, 50, pw$, "Enter the password" 47: GOTO 10 48: pw$ = "Miz K." 49: 10 IF pw$ = CHR$(73) + CHR$(32) + CHR$(3) + CHR$(32) + CHR$(85) THEN ELSE MsgBox "*** Unauthorized Access ***", ":-) :-| :-(": END 50: BackGround 1 51: Window2 320, 300, 10, 10, "Main Menu" 52: LoadMouse 53: Button2 30, 285, 60, 300, 0, "END" 54: TextBox 18, 43, 243, 218, null$, 1, 69, "", "", 1, 0 55: DO UNTIL INKEY$ = CHR$(13) 56: IF Clk = 1 THEN Clk = 0: ProClk Clx, Cly 57: LOOP 58: UnLoadFont 59: END 60: '**************************************************************************** 61: '* GoSUBs * 62: '**************************************************************************** 63: Capt: 64: SCapt "Win1.BSV" 65: RETURN 66: 67: Load: 68: SLoad "Win1.BSV" 69: RETURN 70: 71: UpArow: 72: PutBack 73: Msy = Msy - Yi 74: IF Msy < 0 THEN Msy = Msy + Yi 75: PutMouse 76: RETURN 77: 78: DnArow: 79: PutBack 80: Msy = Msy + Yi 81: IF Msy > 459 THEN Msy = Msy - Yi 82: PutMouse 83: RETURN 84: 85: LtArow: 86: PutBack 87: Msx = Msx - Xi 88: IF Msx < 0 THEN Msx = Msx + Xi 89: PutMouse 90: RETURN 91: 92: RtArow: 93: PutBack 94: Msx = Msx + Xi 95: IF Msx > 619 THEN Msx = Msx - Xi 96: PutMouse 97: RETURN 98: 99: Click: 100: TIMER ON 101: Clx = Msx 102: Cly = Msy 103: Clk = 1 104: ProClk Clx, Cly 105: RETURN 106: 107: Clkn: 108: IF Clk = 1 THEN ELSE GOTO 1 109: Clk = 0 110: TIMER OFF 111: 1 RETURN 112: 113: SUB BackGround (a) 114: C = a 115: LINE (0, 0)-(640, 480), a, BF 116: END SUB 117: 118: SUB Button1 (x, y, s, p, tle$) 119: IF p = 0 THEN clr1 = 15: clr2 = 8 ELSE clr1 = 8: clr2 = 15 120: eX = x + s: Ey = y + s 121: LINE (x, y)-(eX, Ey), 1, BF 122: LINE (x, y)-(eX, Ey), 0, B 123: LINE (x + 5, y + 5)-(eX - 5, Ey - 5), 1, BF 124: LINE (x + 4, y + 4)-(eX - 4, Ey - 4), 0, B 125: LINE (x, Ey)-(x + 4, Ey - 4), 0 126: LINE (eX, y)-(eX - 4, y + 4), 0 127: PAINT (x + 1, y + 1), clr1, 0 128: PAINT (eX - 1, Ey - 1), clr2, 0 129: END SUB 130: 131: SUB Button2 (x1, Y1, x2, y2, p, t$) 132: IF p = 1 OR p = 4 THEN q = 1: GOTO PUSHED 133: LINE (x1, Y1)-(x1, y2 - 1), 15 134: LINE (x1, Y1)-(x2 - 1, Y1), 15 135: LINE (x2 - 1, Y1 + 1)-(x2 - 1, y2 - 1), 8 136: LINE (x2 - 1, y2 - 1)-(x1 + 1, y2 - 1), 8 137: LINE (x1, y2)-(x2, y2), 0 138: LINE (x2, y2)-(x2, Y1), 0 139: LINE (x1 + 1, Y1 + 1)-(x2 - 2, y2 - 2), 7, BF 140: IF p = 3 THEN Print2 INT(((x2 - x1) / 2) - ((LEN(t$) / 2) * 8) + x1), Y1 + 14, 0, t$: DO UNTIL INKEY$ = CHR$(13): LOOP: q = 1 ELSE GOTO ssd 141: PUSHED: 142: LINE (x1, Y1)-(x1, y2), 0 143: LINE (x1, Y1)-(x2, Y1), 0 144: LINE (x1 + 1, Y1 + 1)-(x1 + 1, y2 - 1), 8 145: LINE (x1 + 1, Y1 + 1)-(x2 - 1, Y1 + 1), 8 146: LINE (x1 + 1, y2)-(x2, y2), 15 147: LINE (x2, y2)-(x2, Y1 + 1), 15 148: LINE (x1 + 2, Y1 + 2)-(x2 - 1, y2 - 1), 7, BF 149: ssd: 150: IF LEN(t$) * 8 > x2 - x1 THEN EXIT SUB 151: wdt = x2 - x1 152: Print2 INT((wdt / 2) - ((LEN(t$) / 2) * 8) + x1), Y1 + 14 + q, 0, t$ 153: IF p = 3 OR p = 4 THEN SLEEP2 .13 154: IF p = 3 OR p = 4 THEN Button2 x1, Y1, x2, y2, 0, t$ 155: END SUB 156: 157: SUB CheckBox (x1, Y1, cc, t$, cl) 158: x2 = x1 + 10 159: y2 = Y1 + 10 160: LINE (x1, Y1)-(x2, y2), cl, B 161: m$ = "BM" + LTRIM$(RTRIM$(STR$(x1))) + "," + LTRIM$(RTRIM$(STR$(Y1))) + "C" + LTRIM$(RTRIM$(STR$(cl))): DRAW "X" + VARPTR$(m$) 162: IF cc = 1 THEN DRAW "F9BH9BR10G9" 163: Print2 x2 + 5, y2 + 2, cl, t$ 164: END SUB 165: 166: SUB connect 167: 'Window2 639,479,0,0,"Terminal Emulation 168: a = 20: a = a + 17 169: Print2 10, a, 0, "Start Typing when modems connect... Press <Esc> to hang up:" 170: a = a + 17: Print2 10, a, 0, "" 171: DO UNTIL ch$ = CHR$(27) 172: ch$ = INKEY$ 173: IF ch$ <> "" THEN PRINT #1, ch$; 174: IF LOC(1) <> 0 THEN inchar$ = INPUT$(1, #1) ELSE inchar$ = "" 175: IF inchar$ = CHR$(8) AND POS(0) <> 1 THEN 176: LOCATE , POS(0) - 1 177: PRINT " "; 178: LOCATE , POS(0) - 1 179: ELSEIF inchar$ = CHR$(8) AND POS(0) = 1 AND CSRLIN <> 1 THEN 180: LOCATE CSRLIN - 1, 80 181: PRINT " "; 182: LOCATE , POS(0) - 1 183: 'ELSEIF inchar$ = CHR$(8) THEN 184: END IF 185: IF inchar$ = CHR$(13) THEN a = a + 17: Print2 10, a, 0, "" ELSE Print2 -1, -1, 0, inchar$ 186: IF inchar$ = CHR$(1) THEN END 187: LOOP 188: FOR r = 1 TO 5 189: PRINT #1, "ATH" 190: NEXT r 191: PRINT #1, "ATS0=0" 192: CLOSE #1 193: END SUB 194: 195: SUB Font (t$, cl) 196: IF cl = -1 THEN ELSE f$ = "C" + LTRIM$(RTRIM$(STR$(cl))): DRAW "X" + VARPTR$(f$) 197: IF txt(32) = "" THEN LOCATE 1, 1: PRINT "System Error. Unable to continue.": END 198: FOR qww = 1 TO LEN(t$) 199: IF ASC(MID$(t$, qww, 1)) = 0 THEN DRAW "X" + VARPTR$(txt(32)) ELSE DRAW "X" + VARPTR$(txt(ASC(MID$(t$, qww, 1)))): DRAW "BL": GOTO 1011 200: 1011 NEXT qww 201: END SUB 202: 203: SUB InputBox (x, y, t$, Prm$) 204: Z = 90 205: s = 50 206: DIM back(1 TO 9998) 207: GET (x, y)-(x + 100 + Z, y + 50 + Z), back 208: LINE (x, y)-(x + 100 + Z, y + 50 + Z), 0, BF 209: LINE (x + 2, y + 2)-(x + 98 + Z, y + 48 + Z), 1, BF 210: LINE (x + 10, y + 10)-(x + 90 + Z, y + 40 + Z), 0, BF 211: LINE (x + 12, y + 12)-(x + 88 + Z, y + 38 + Z), 7, BF 212: Xy = x + 15 213: yX = y + 67 - s + Z 214: Xx = x + 85 + Z 215: yY = y + 82 - s + Z 216: Xyz$ = "BM" + STR$(x + 14) + "," + STR$(y + 25) 217: DRAW "X" + VARPTR$(Xyz$) 218: Font Prm$, 0 219: TextBx Xy, yX, Xx, yY, t$, 1, 17, "", "", 0 220: PUT (x, y), back, PSET 221: END SUB 222: 223: SUB LoadFont (f$) 224: OPEN f$ FOR INPUT AS #1: t = 0 225: DO UNTIL EOF(1) 226: LINE INPUT #1, a$ 227: txt(t) = a$ 228: t = t + 1 229: LOOP 230: CLOSE 1 231: END SUB 232: 233: SUB LoadMouse 234: GET (Msx, Msy)-(Msx + 10, Msy + 10), Mouse 235: PutMouse 236: END SUB 237: 238: SUB MsgBox (ms$, Tit$) 239: wt$ = "Ok" 240: s = 17 241: v = 15 242: s = s + v 243: FOR w = 1 TO LEN(ms$): l = l + 1: IF MID$(ms$, w, 1) = CHR$(13) THEN s = s + v 244: NEXT w 245: IF LEN(Tit$) >= LEN(ms$) THEN pix = INT(LEN(Tit$) * 8.4) ELSE pix = INT(LEN(ms$) * 8) 246: IF INT(LEN(wt$) * 8.4) > pix THEN pix = INT(LEN(" (Press ENTER to continue.)") * 8.4) 247: x = 320 - INT(pix / 2) 248: y = 175 - s 249: DIM back(1 TO 9998) 250: GET (x, y)-(x + pix, y + s + v), back 251: LINE (x + 1, y + 1)-(x + pix - 1, y + v), 1, BF 252: m$ = "BM" + RTRIM$(LTRIM$(STR$(x + 5))) + ", " + RTRIM$(LTRIM$(STR$(y + v + 1))) 253: DRAW "X" + VARPTR$(m$) 254: Font Tit$, 15 255: LINE (x, y)-(x + pix, y + s + v), 0, B 256: LINE (x, y + v)-(x + pix, y + s + v), 0, B 257: LINE (x + 1, y + v + 1)-(x + pix - 1, y + s + v - 1), 7, BF 258: m$ = "BM" + RTRIM$(LTRIM$(STR$(x + 2))) + ", " + RTRIM$(LTRIM$(STR$(y + v + v + 1))) 259: DRAW "X" + VARPTR$(m$) 260: j = y 261: FOR a = 1 TO LEN(ms$) 262: IF MID$(ms$, a, 1) = CHR$(13) THEN j = j + v: m$ = "BM" + RTRIM$(LTRIM$(STR$(x + 2))) + ", " + RTRIM$(LTRIM$(STR$(j + v + v + 1))): DRAW "X" + VARPTR$(m$) 263: Font MID$(ms$, a, 1), 0 264: NEXT a 265: j = j + v: m$ = "BM" + RTRIM$(LTRIM$(STR$(INT(x + (pix / 2) + (LEN(wt$) / 2) - 30)))) + ", " + RTRIM$(LTRIM$(STR$(j + v + v + 1))): DRAW "X" + VARPTR$(m$) 266: 'Font wt$ 267: d = INT(x + (pix / 2) + (LEN(wt$) / 2) - 30) 268: j = INT(j + v + v + 1) 269: m = 117 270: n = -107 271: Button2 j - n, d - m, j + 35 - n, d + 14 - m, 3, wt$ 272: PUT (x, y), back, PSET 273: END SUB 274: 275: SUB opencom 276: OPEN "Term.CFG" FOR INPUT AS #2 277: INPUT #2, comport$ 278: CLOSE #2 279: OPEN comport$ + ",N,8,1" FOR RANDOM AS #1 LEN = 4800 280: END SUB 281: 282: SUB PopMenu (x, y) 283: Ox = POINT(0): Oy = POINT(1): Oc = POINT(Ox, Oy) 284: DIM Behnd(1 TO 4500) 285: GET (x, y)-(x + 100, y + 100), Behnd 286: LINE (x, y)-(x + 100, y + 100), 14, BF 287: LINE (x, y)-(x + 100, y + 100), 0, B 288: LINE (x + 100, y)-(x, y + 100), 0 289: PAINT (x + 1, y + 2), 15, 0 290: PAINT (x + 96, y + 5), 8, 0 291: LINE (x + 2, y + 2)-(x + 98, y + 98), 7, BF 292: SLEEP 5 293: PUT (x, y), Behnd, PSET 294: PSET (Ox, Oy), Oc 295: END SUB 296: 297: SUB Print2 (x, y, cv, t$) 298: IF x = -1 AND y = -1 THEN d$ = "C" + LTRIM$(RTRIM$(STR$(cv))): GOTO 3 299: IF x = -2 THEN x = (POS(0) * 8) - 7: g = -2 300: IF y = -2 THEN y = CSRLIN * 16: n = -2 301: IF x = -3 THEN x = Wxyz(2) + 7 302: IF y = -3 THEN y = Wxyz(1) + 35 303: d$ = "BM" + LTRIM$(RTRIM$(STR$(x))) + "," + LTRIM$(RTRIM$(STR$(y))) + " C" + LTRIM$(RTRIM$(STR$(cv))) 304: 3 DRAW "X" + VARPTR$(d$) 305: Font t$, cv 306: IF g = -2 THEN LOCATE CSRLIN, POS(0) + LEN(t$) 307: IF n = -2 THEN LOCATE CSRLIN + 1, 1 308: END SUB 309: 310: SUB ProClk (x, y) 311: 'LOCATE 1, 1: PRINT x, y 312: IF x > 13 AND x < 32 AND y > 13 AND y < 32 THEN PopMenu x, y 313: IF x > 30 AND x < 61 AND y > 284 AND y < 301 THEN Button2 30, 285, 60, 300, 4, "END": UnLoadFont: END 314: END SUB 315: 316: SUB PutBack 317: Ox = POINT(0): Oy = POINT(1): Oc = POINT(Ox, Oy) 318: PUT (Msx, Msy), Mouse, PSET 319: PSET (Ox, Oy), Oc 320: END SUB 321: 322: SUB PutMouse 323: Ox = POINT(0): Oy = POINT(1): Oc = POINT(Ox, Oy) 324: n1 = 14: n4 = 8: n2 = 4: n3 = 4: u1 = 2: r1 = 2: l1 = 1: u3 = 3: r2 = 3 325: GET (Msx, Msy)-(Msx + 20, Msy + 20), Mouse 326: LINE (Msx, Msy)-(Msx, Msy + n1), 0 327: LINE (Msx, Msy + n1)-(Msx + n2, Msy + n1 - u3), 0 328: LINE (Msx + n2, Msy + n1 - u3)-(Msx + n2 + n3, Msy + n1 + n4 - u3), 0 329: LINE (Msx + n2 + n3, Msy + n1 + n4 - u3)-(Msx + n2 + n3 + r1, Msy + n1 + n4 - u1 - u3), 0 330: LINE (Msx + n2 + n3 + r1, Msy + n1 + n4 - u1 - u3)-(Msx + n2 + n3 - l1, Msy + n1 - u3), 0 331: LINE (Msx + n2 + n3 - l1, Msy + n1 - u3)-(Msx + n2 + n3 + r2, Msy + n1 - u3), 0 332: LINE (Msx + n2 + n3 + r2, Msy + n1 - u3)-(Msx, Msy), 0 333: PAINT (Msx + 2, Msy + 5), 15, 0 334: PSET (Ox, Oy), Oc 335: END SUB 336: 337: SUB SCapt (f$) 338: DEF SEG = &HA000 339: BSAVE f$, 0, 64000 340: END SUB 341: 342: SUB setmodemoption 343: COLOR 2 344: InputBox 70, 70, portno$, "COM(1 or 2): " 345: InputBox 70, 70, speed$, "Modem Speed: " 346: comport$ = "COM" + portno$ + ":" + speed$ 347: OPEN "BASTerm.CFG" FOR OUTPUT AS #2 348: PRINT #2, comport$ 349: CLOSE #2 350: END SUB 351: 352: SUB SLEEP2 (t) 353: a = TIMER 354: DO UNTIL TIMER >= a + t: LOOP 355: END SUB 356: 357: SUB SLoad (f$) 358: DEF SEG = &HA000 359: BLOAD f$, 0 360: END SUB 361: 362: SUB TextBox (SX, SY, eX, Ey, t$, r, l, pw$, tb$, del, mln) 363: crln = 1 364: mY = SY 365: IF LEN(tb$) > l AND r = 1 THEN tb$ = MID$(tb$, 1, l) 366: w = LEN(tb$) 367: IF del = 1 THEN ds = 0 ELSE ds = LEN(tb$) 368: IF LEN(pw$) > 1 THEN pw$ = LEFT$(pw$, 1) 369: LINE (SX - 1, SY - 1)-(eX + 1, Ey + 1), 0, B 370: LINE (SX, SY)-(eX, Ey), 15, BF 371: MX$ = "M" + STR$(SX + 2) + "," + STR$(SY + 13) 372: DRAW "BX" + VARPTR$(MX$) 373: IF pw$ = "" THEN Font tb$, 0 ELSE Font STRING$(LEN(tb$), pw$), 0 374: IF r = 1 THEN ELSE EXIT SUB 375: 12 a$ = INKEY$ 376: IF a$ = "" GOTO 12 377: MX$ = "M" + STR$(SX + 2) + "," + STR$(mY + 13) 378: IF a$ = CHR$(8) AND mln = 0 THEN IF LEN(t$) - ds = 0 THEN GOTO 12 ELSE t$ = LEFT$(t$, LEN(t$) - 1): w = w - 1: LINE (SX - 1, SY - 1)-(eX + 1, Ey + 1), 0, B: LINE (SX, SY)-(eX, Ey), 15, BF: DRAW "BX" + VARPTR$(MX$): IF pw$ = "" THEN Font t$, 0: GOTO 12 ELSE Font STRING$(LEN(t$), pw$), 0: GOTO 12 379: IF a$ = CHR$(8) AND mln > 0 THEN IF sss - ds = 0 THEN GOTO 12 ELSE t$ = LEFT$(t$, LEN(t$) - 1): LINE (POINT(0) - 9, POINT(1) - 13)-(POINT(0) - 1, POINT(1)), 15, BF: DRAW "BL8": w = w - 1: sss = sss - 1: GOTO 12 380: IF a$ = CHR$(13) AND mln = 0 OR (mln > 0 AND crln = mln AND a$ = CHR$(13)) THEN EXIT SUB 381: IF a$ = CHR$(13) AND mln > 0 AND crln < mln THEN mY = mY + 16: MX$ = "M" + STR$(SX + 2) + "," + STR$(mY + 13): DRAW "BX" + VARPTR$(MX$): crr = 1: sss = -1: crln = crln + 1: Font tb$, 0 382: IF sss >= l THEN GOTO 12 383: t$ = t$ + a$: w = w + LEN(a$) 384: sss = sss + 1 385: B$ = a$ 386: IF pw$ = "" THEN Font B$, 0 ELSE Font pw$, 0 387: GOTO 12 388: END SUB 389: 390: SUB TextBx (SX, SY, eX, Ey, t$, r, l, pw$, tb$, del) 391: IF LEN(tb$) > l AND r = 1 THEN tb$ = MID$(tb$, 1, l) 392: t$ = tb$: w = LEN(tb$) 393: IF del = 1 THEN ds = 0 ELSE ds = LEN(tb$) 394: IF LEN(pw$) > 1 THEN pw$ = LEFT$(pw$, 1) 395: LINE (SX - 1, SY - 1)-(eX + 1, Ey + 1), 0, B 396: LINE (SX, SY)-(eX, Ey), 15, BF 397: MX$ = "M" + STR$(SX + 2) + "," + STR$(Ey - 0) 398: DRAW "BX" + VARPTR$(MX$) 399: IF pw$ = "" THEN Font tb$, 0 ELSE Font STRING$(LEN(tb$), pw$), 0 400: IF r = 1 THEN ELSE EXIT SUB 401: 21 a$ = INKEY$ 402: IF a$ = "" GOTO 21 403: IF a$ = CHR$(8) THEN IF LEN(t$) - ds = 0 THEN GOTO 21 ELSE t$ = LEFT$(t$, LEN(t$) - 1): w = w - 1: LINE (SX - 1, SY - 1)-(eX + 1, Ey + 1), 0, B: LINE (SX, SY)-(eX, Ey), 15, BF: DRAW "BX" + VARPTR$(MX$): IF pw$ = "" THEN Font t$, 0: GOTO 21 ELSE Font STRING$(LEN(t$), pw$), 0: 404: IF a$ = CHR$(13) THEN EXIT SUB 405: IF w >= l THEN GOTO 21 406: t$ = t$ + a$: w = w + LEN(a$) 407: B$ = a$ 408: IF pw$ = "" THEN Font B$, 0 ELSE Font pw$, 0 409: GOTO 21 410: END SUB 411: 412: SUB UnLoadFont 413: FOR q = 0 TO 255 414: txt(q) = "" 415: NEXT q 416: END SUB 417: 418: SUB waitforcall 419: CLS : BackGround C 420: Window2 630, 470, 0, 0, "Terminal Emulation" 421: COLOR 3 422: opencom 423: PRINT #1, "ATS0=1" 424: connect 425: END SUB 426: 427: SUB Window2 (Length, Height, Row, Column, tt$) 428: Wxyz(1) = Row 429: Wxyz(2) = Column 430: Wxyz(3) = Row + Height 431: Wxyz(4) = Column + Length 432: LINE (Column, Row)-(Column + Length, Row + Height), 0, B 433: FOR i% = 1 TO 2 434: Row = Row + 1: Column = Column + 1: Height = Height - 1: Length = Length - 1 435: LINE (Column, Row)-(Column + Length, Row), 7 436: LINE (Column, Row)-(Column, Row + Height), 7 437: NEXT i% 438: Row = Row + 1: Column = Column + 1: Height = Height - 1: Length = Length - 1 439: LINE (Column, Row)-(Column + Length, Row), 0 440: LINE (Column, Row)-(Column, Row + Height), 0 441: LINE (Column, Row)-(Column + 18, Row + 18), 7, BF 442: LINE (Column, Row)-(Column + 18, Row + 18), 0, B 443: LINE (Column + 18, Row - 2)-(Column + 18, Row + 5), 0 444: LINE (Column - 2, Row + 18)-(Column + 5, Row + 18), 0 445: LINE (Column + 5, Row + 7)-(Column + 13, Row + 9), 15, BF: LINE (Column + 5, Row + 7)-(Column + 13, Row + 9), 0, B 446: LINE (Column + 14, Row + 7)-(Column + 14, Row + 9), 8 447: LINE (Column + 6, Row + 10)-(Column + 14, Row + 10), 8, B 448: LINE (Column + 18, Row)-(Column + Length, Row + 18), 9, BF 449: LINE (Column + 18, Row)-(Column + Length, Row + 18), 0, B 450: LINE (Column + Length, Row - 3)-(Column + Length + 2, Row + Height), 7, BF 451: LINE (Column + Length, Row - 3)-(Column + Length + 3, Row + Height), 0, B 452: LINE (Column + Length, Row - 2)-(Column + Length, Row - 1), 7 453: LINE (Column + Length - 18, Row - 2)-(Column + Length - 18, Row - 1), 0 454: LINE (Column + Length, Row + 18)-(Column + Length + 2, Row + 18), 0 455: LINE (Column, Row + Height - 3)-(Column + Length, Row + Height - 3), 0, B 456: LINE (Column, Row + Height - 2)-(Column + Length + 2, Row + Height), 7, BF 457: LINE (Column - 2, Row + Height)-(Column + Length + 2, Row + Height), 0, B 458: LINE (Column - 2, Row + Height - 18)-(Column, Row + Height - 18), 0 459: LINE (Column + Length - 2, Row + Height - 18)-(Column + Length + 2, Row + Height - 18), 0 460: LINE (Column + 18, Row + Height)-(Column + 18, Row + Height - 2), 0 461: LINE (Column + Length - 18, Row + Height)-(Column + Length - 18, Row + Height - 2), 0 462: LINE (Column + 1, Row + 19)-(Column + Length - 1, Row + Height - 4), 7, BF 463: mm$ = "BM" + RTRIM$(LTRIM$(STR$(Column + 20))) + "," + LTRIM$(RTRIM$(STR$(Row + 17))) 464: DRAW "X" + VARPTR$(mm$) 465: Font tt$, 0 466: END SUB 467: |