---
uuid: "7214278779888908435"
title: "QBasic Drawings"
date: "1997-04-12"
permalink: "/1997/04/qbasic-drawings.html"
description:
categories:
---

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
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
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
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
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
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
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
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