--- uuid: "7214278779888908435" title: "QBasic Drawings" date: "1997-04-12" permalink: "/1997/04/qbasic-drawings.html" description: categories: ---
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