QBasic Drawings

image: LOGO21.PJH

LOGO21.PJH

SCREEN 7
N = 0
COLOR 14, 9
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "              INTEGER"
PRINT "              SOFTWARE"
PRINT "             PRESENTS..."
COLOR 14, 9
SLEEP 1
LINE (50, 10)-(50, 185)
LINE (250, 10)-(250, 185)
LINE (50, 10)-(250, 10)
LINE (50, 185)-(250, 185)
SLEEP 1
PAINT (150, 150), 8, 14
1
N$ = INKEY$
IF N$ = "" GOTO 1
SYSTEM
PATWORLD.PJH

PATWORLD.PJH

REM ***********************
REM * PAT'S WORLD GRAFIC  *
REM *                     *
REM *  (C) 1997 PAT HAWKS *
REM ***********************
REM
SCREEN 7
COLOR 8, 14
PRINT
PRINT
PRINT " ISRS"
PRINT "   G"
COLOR 14, 14
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "           PAT'S WORLD PIX"
PRINT
PRINT "              (C) 1997"
COLOR 14
CIRCLE (150, 100), 100
PAINT (151, 101), 2, 14
COLOR 8
SLEEP
CLS
SYSTEM
PJTALK.PJH

PJTALK.PJH

REM ***********************
REM * PAT'S WORLD GRAFIC  *
REM *                     *
REM *  (C) 1997 PAT HAWKS *
REM ***********************
SCREEN 7
CLS
COLOR 15, 1
REM ******************
REM *                *
REM *     START      *
REM *                *
REM ******************
CIRCLE (150, 50), 30
X1! = 120
Y2! = 130
X2! = 50
Y1! = 120
LINE (X1!, X2!)-(Y1!, Y2!)
X1! = 75
X2! = 140
Y1! = 120
Y2! = 130
LINE (X1!, X2!)-(Y1!, Y2!)
X1! = 75
X2! = 140
Y1! = 65
Y2! = 110
LINE (X1!, X2!)-(Y1!, Y2!)
LINE (160, 75)-(60, 75)
REM     *************************
REM     *                       *
REM     *        PAINT          *
REM     *                       *
REM     *************************
PAINT (150, 50), 9, 15
SLEEP
SYSTEM
PJTALK21.PJH

PJTALK21.PJH

REM ***********************
REM * PAT'S WORLD GRAFIC  *
REM *                     *
REM *  (C) 1997 PAT HAWKS *
REM ***********************
SCREEN 7
CLS
COLOR 15, 12
REM ******************
REM *                *
REM *     START      *
REM *                *
REM ******************
CIRCLE (150, 50), 30
X1! = 120
Y2! = 130
X2! = 50
Y1! = 120
LINE (X1!, X2!)-(Y1!, Y2!)
X1! = 75
X2! = 140
Y1! = 120
Y2! = 130
LINE (X1!, X2!)-(Y1!, Y2!)
X1! = 75
X2! = 140
Y1! = 65
Y2! = 110
LINE (X1!, X2!)-(Y1!, Y2!)
LINE (160, 75)-(60, 75)
REM     *************************
REM     *                       *
REM     *        PAINT          *
REM     *                       *
REM     *************************
PAINT (150, 50), 4, 15
SLEEP
SYSTEM
SUN.PJH

SUN.PJH

REM ***********************
REM * PAT'S WORLD GRAFIC  *
REM *                     *
REM *  (C) 1997 PAT HAWKS *
REM ***********************
SCREEN 7
COLOR 14, 9
CIRCLE (150, 100), 60
PAINT (150, 100), 14, 14
SLEEP
SYSTEM
HOUSE1.PJH

HOUSE1.PJH

REM ***********************
REM * PAT'S WORLD GRAFIC  *
REM *                     *
REM *  (C) 1997 PAT HAWKS *
REM ***********************
SCREEN 7
COLOR 8, 9
LINE (100, 100)-(150, 50)
LINE (150, 50)-(200, 100)
LINE (90, 100)-(210, 100)
LINE (90, 100)-(90, 150)
LINE (90, 150)-(210, 150)
LINE (210, 150)-(210, 100)
LINE (125, 125)-(125, 150)
LOCATE (17), (17)
PRINT "@"
LINE (125, 125)-(140, 125)
LINE (140, 125)-(140, 150)
LINE (0, 150)-(400, 150)
COLOR 14
CIRCLE (23, 20), 19
COLOR 15
CIRCLE (100, 23), 21
CIRCLE (141, 20), 21
PAINT (110, 110), 14, 8
PAINT (150, 60), 8, 8
PAINT (139, 126), 4, 8
PAINT (151, 151), 10, 8
PAINT (20, 20), 14, 14
PAINT (141, 20), 15, 15
PAINT (100, 23), 15, 15
SLEEP
SYSTEM
EARTH.PJH

EARTH.PJH

REM ***********************
REM * PAT'S WORLD GRAFIC  *
REM *                     *
REM *  (C) 1997 INTEGER   *
REM ***********************
SCREEN 7
COLOR 8, 9
PRINT
PRINT
PRINT
PRINT "            SAVE THE EARTH!"
COLOR 10
CIRCLE (150, 100), 60
PAINT (150, 100), 10, 10
SLEEP
SYSTEM
NIGHTDAY.PJH

NIGHTDAY.PJH

SCREEN 7
COLOR 14, 9
CLS
LINE (150, 78)-(150, 160)
CIRCLE (150, 119), 50
PAINT (160, 120), 14, 14
PRINT
PRINT
PRINT
PRINT "             NIGHT AND DAY"
PAINT (145, 78), 8, 14
SLEEP
SYSTEM