French Flag

Everything related to BASIC version 1.x (Oric 1 and Atmos) or HYPERBASIC (Telestrat).
Don't hesitate to give your small program samples, technical insights, or questions...
Post Reply
User avatar
TheSpider
Pilot Officer
Posts: 71
Joined: Sat Jan 07, 2006 8:17 am
Location: Lexington, Kentucky, USA (Ex-Elgin, Scotland)
Contact:

French Flag

Post by TheSpider » Sat Jan 07, 2006 8:58 am

Hiya y'all,
On the NG I posted this program to show how easy it is to draw the French Flag on the Oric, with BASIC...

1 TEXT:PAPER0:INK2:HIRES
2 CURSET 6,0,3:FILL 200,1,20
3 CURSET 84,0,3:FILL 200,1,23
4 CURSET 162,0,3:FILL 200,1,17

Which gives us...

Image

Obviously, it would look a whole lot better if the background were in black!

(Was unsure which forum to post this in, so just picked one. Also wanted to test the Img function - which seems to work just great.)
Peter (TheSpider) Paterson
A Scotsman in Kentucky
http://thespider.oric.org
http://mintspider.blogspot.com

User avatar
Dbug
Site Admin
Posts: 2321
Joined: Fri Jan 06, 2006 10:00 pm
Location: Oslo, Norway
Contact:

Re: French Flag

Post by Dbug » Sat Jan 07, 2006 9:41 am

TheSpider wrote: (Was unsure which forum to post this in, so just picked one. Also wanted to test the Img function - which seems to work just great.)
I guess that the forum "BASIC coding" would be adequate :)

Post Reply

Who is online

Users browsing this forum: No registered users and 2 guests