basic/thirdparty/dosgrbism.bas

basic/thirdparty/dosgrbism.bas · 5103 字节 · 下载原文
OPTION EXPLICIT
DEFINT A-Z

'*******************************************
'*** PROGRAM NAME: GRAPHICAL BISMILLAH   ***
'*** PROGRAM BY: FARHAN ALI QURESHI      ***
'*******************************************

DIM Border AS INTEGER
DIM Inside AS INTEGER
DIM BackGround AS INTEGER
DIM TextColor AS INTEGER
DIM TextBack AS INTEGER
DIM X1 AS INTEGER, Y1 AS INTEGER
DIM X2 AS INTEGER, Y2 AS INTEGER
DIM a AS INTEGER, b AS INTEGER, c AS INTEGER, d AS INTEGER
DIM i AS INTEGER
DIM Title$, Programmer$, PressKey$

Border = 10
Inside = 2
BackGround = 15
TextColor = 14
TextBack = 9
X1 = 0
Y1 = 0
X2 = 639 / 2
Y2 = 479 / 2

SCREEN 12: CLS
WIDTH 80, 60
KEY OFF: CLS : WINDOW (0, 0)-(512, 256)
DATA &h1ED,&h78,&h1ED,&hE1,&H1C2,&hCD,&H1ED,&hE1,&H1C2,&hCD,&h1CC,&hCD
DATA &h1CC,&h87,&h1CC,&hCD,&h1C2,&h87,&h1CC,&h87,&h1C2,&h87,&h1C2,&hAF
DATA &h168,&h91,&h1C2,&hAF,&h1A4,&hA5,&h1AE,&hA5,&h1AE,&h87,&h1AE,&hA5
DATA &h1A4,&h87,&h1AE,&h87,&h1A4,&h87,&h1A4,&hA5,&h186,&h9B,&H190,&h9B
DATA &h190,&h87,&h190,&h9B,&h186,&h87,&h190,&h87,&h186,&h87,&h186,&h9B
DATA &h168,&h91,&h172,&h91,&h172,&h87,&h172,&h91,&h168,&h87,&h172,&H87
DATA &h159,&h9B,&h168,&h87,&h14A,&h87,&h159,&h9B,&h136,&h87,&h14A,&h87
DATA &h12C,&h78,&h136,&h87,&h12C,&h78,&h14A,&h78,&h14A,&h78,&h159,&h69
DATA &H159,&H69,&h168,&H78,&H168,&H78,&H1ED,&H78,&H186,&HA5,&H186,&HF5
DATA &H186,&HF5,&H168,&HEB,&H168,&HEB,&H172,&HEB,&H172,&HEB,&H172,&H9B
DATA &H172,&H9B,&H186,&HA5,&H168,&H9B,&H168,&HF5,&H168,&HF5,&H14A,&HEB
DATA &H14A,&HEB,&H154,&HEB,&H154,&HEB,&H154,&HAA,&H154,&HAA,&H14A,&HAA
DATA &H14A,&HAA,&H14A,&HD7,&H14A,&HD7,&H12C,&HCD,&H12C,&HCD,&H136,&HCD
DATA &H136,&HCD,&H136,&HAA,&H136,&HAA,&H122,&HAA,&H122,&HAA,&H122,&HE1
DATA &H122,&HE1,&HF0,&HC3,&HF0,&HC3,&HF0,&HAF,&HF0,&HAF,&H10E,&HAF
DATA &H104,&HB9,&H10E,&HB9,&H10E,&HB9,&H10E,&HC3,&H10E,&HC3,&H104,&HB9
DATA &H10E,&HAF,&H10E,&H9B,&H10E,&H9B,&H168,&H9B,&H12C,&H4B,&H12C,&H9B
DATA &H12C,&H9B,&H10E,&H91,&H10E,&H91,&H118,&H91,&H118,&H91,&H118,&H4B
DATA &H118,&H4B,&H12C,&H4B,&H104,&H5F,&H104,&HAF,&H104,&HAF,&HE6,&HA5
DATA &HE6,&HA5,&HF0,&HA5,&HF0,&HA5,&HF0,&H6E,&HF0,&H6E,&HE6,&H6E
DATA &HE6,&H6E,&HE6,&H7D,&HE6,&H7D,&HC8,&H69,&HC8,&H69,&HD2,&H69
DATA &HD2,&H69,&HD2,&H5A,&HD2,&H5A,&HC8,&H5A,&HC8,&H5A,&HC8,&H5F
DATA &HC8,&H5F,&HB4,&H4B,&HB4,&H4B,&HE6,&H4B,&HE6,&H4B,&HE6,&H5F
DATA &HE6,&H5F,&H104,&H5F,&HE6,&H7D,&HE6,&H9B,&HE6,&H9B,&HB4,&HB9
DATA &HB4,&HB9,&HB4,&H96,&HB4,&H96,&HC8,&H96,&HC8,&H96,&HD2,&H8C
DATA &HD2,&H8C,&HB4,&H8C,&HB4,&H8C,&HA5,&H9B,&HA5,&H9B,&H96,&H8C
DATA &H96,&H8C,&H82,&H8C,&H82,&H8C,&H82,&HA0,&H82,&HA0,&H64,&H91
DATA &H64,&H91,&H6E,&H91,&H6E,&H91,&H6E,&H78,&H6E,&H78,&H5A,&H78
DATA &H5A,&H78,&H5A,&H91,&H5A,&H91,&H3C,&H7D,&H3C,&H7D,&H46,&H7D
DATA &H46,&H7D,&H46,&H69,&H46,&H69,&H82,&H69,&H82,&H69,&H82,&H7D
DATA &H82,&H7D,&H96,&H7D,&H96,&H7D,&HA5,&H6E,&HA5,&H6E,&HB4,&H7D
DATA &HB4,&H7D,&HE6,&H7D,&H168,&H19,&H168,&H69,&H168,&H69,&H14A,&H5F
DATA &H14A,&H5F,&H154,&H5F,&H154,&H5F,&H154,&H19,&H154,&H19,&H168,&H19
DATA &H14A,&H2D,&H14A,&H73,&H14A,&H73,&H12C,&H69,&H12C,&H69,&H136,&H69
DATA &H136,&H69,&H136,&H41,&H136,&H41,&HF0,&H41,&HF0,&H41,&HF0,&H50
DATA &HF0,&H50,&HD2,&H41,&HD2,&H41,&HDC,&H41,&HDC,&H41,&HDC,&H2D
DATA &HDC,&H2D,&HC8,&H2D,&HC8,&H2D,&HBE,&H32,&HBE,&H32,&HAA,&H19
DATA &HAA,&H19,&HF0,&H19,&HF0,&H19,&HF0,&H2D,&HF0,&H2D,&H14A,&H2D
DATA &HC3,&H37,&HAF,&H55,&HAF,&H55,&H87,&H69,&H87,&H69,&H87,&H50
DATA &H87,&H50,&H9B,&H50,&H9B,&H50,&HA5,&H46,&HA5,&H46,&H7D,&H46
DATA &H7D,&H46,&H7D,&H5F,&H7D,&H5F,&H5F,&H55,&H5F,&H55,&H69,&H55
DATA &H69,&H55,&H69,&H46,&H69,&H46,&H5F,&H46,&H5F,&H46,&H50,&H55
DATA &H50,&H55,&H41,&H46,&H41,&H46,&H2D,&H46,&H2D,&H46,&H2D,&H4B
DATA &H2D,&H4B,&H19,&H37,&H19,&H37,&H41,&H37,&H41,&H37,&H50,&H28
DATA &H50,&H28,&H5F,&H37,&H5F,&H37,&HC3,&H37
FOR i = 1 TO 134
READ a, b, c, d
LINE (a, b)-(c, d), Border
NEXT i

CIRCLE (430, 100), 20, Border
CIRCLE (150, 35), 20, Border
CIRCLE (105, 35), 20, Border
CIRCLE (90, 165), 20, Border

PAINT (345, 110), Inside, Border
PAINT (371, 156), Inside, Border
PAINT (321, 156), Inside, Border
PAINT (290, 76), Inside, Border
PAINT (190, 76), Inside, Border
PAINT (100, 111), Inside, Border
PAINT (355, 28), Inside, Border
PAINT (175, 26), Inside, Border
PAINT (80, 42), Inside, Border
PAINT (430, 100), Inside, Border
PAINT (90, 165), Inside, Border
PAINT (150, 40), Inside, Border
PAINT (105, 40), Inside, Border

Title$ = CHR$(34) + "In the name of ALLAH, the Beneficent, the Merciful" + CHR$(34)
Programmer$ = "Program by FARHAN ALI QURESHI"
PressKey$ = "Press any key to continue"
COLOR TextColor
LOCATE 2, (Screen.Width - LEN(Title$)) \ 2: PRINT Title$;
LOCATE 59, 3: PRINT Programmer$;
LOCATE 59, Screen.Width - LEN(PressKey$) - 1: PRINT PressKey$;

VIEW (0, 18)-(639, 458)
PAINT (0, 0), BackGround, Border
PAINT (270, 150), BackGround, Border
PAINT (265, 190), BackGround, Border
PAINT (310, 150), BackGround, Border
PAINT (395, 140), BackGround, Border
PAINT (425, 140), BackGround, Border

VIEW (0, 0)-(639, 19)
PAINT (0, 0), TextBack, TextColor
VIEW (0, 459)-(639, 479)
PAINT (0, 0), TextBack, TextColor
WINDOW
VIEW

WHILE INKEY$ <> "": WEND
WHILE INKEY$ = "": WEND

SCREEN 0
SYSTEM