InvisionFree - Free Forum Hosting
Fully Featured & Customizable Free Forums

Learn More · Register Now
Welcome to Wee Basic. We hope you enjoy your visit.


You're currently viewing our forum as a guest. This means you are limited to certain areas of the board and there are some features you can't use. If you join our community, you'll be able to access member-only sections, and use many member-only features such as customizing your profile, sending personal messages, and voting in polls. Registration is simple, fast, and completely free.


Join our community!


If you're already a member please log in to your account to access all of our features:

Name:   Password:


 

 quick paint
Track this topic | Email this topic | Print this topic
putzpie
Posted: Feb 9 2008, 04:59 PM


Member


Group: Members
Posts: 26
Member No.: 2
Joined: 9-September 07
It's not really even sophistacated enough to be called a paint program really as I haven't made a way to clear the screen after drawing on it, but here's a nice little app I decided to make.
CODE

cls1
keyhide

print1 "touch the screen to draw [b to quit]"

lab touchget:

let scrnt=stt()
while scrnt=0
let posx=stx()
let posy=sty()
let btrue=key()

if btrue=203
goto end:
endif

plot0 posx,posy,2
wend
goto touchget:

lab end:
end


I typed this by looking at the source, because right now I'm on my old computer, which doens't have drivers for my flashdrive so I can't get it off of my microSD card, so if you find any spelling errors tell me!
Top
marovada
Posted: Feb 9 2008, 09:51 PM


Administrator


Group: Admin
Posts: 39
Member No.: 1
Joined: 7-September 07
good one putzpie
Top
« Next Oldest | Code Samples | Next Newest »
InvisionFree - Free Forum Hosting
Free Forums. Reliable service with over 8 years of experience.
Learn More · Register Now

Topic Options



Hosted for free by InvisionFree* (Terms of Use: Updated 2/10/2010) | Powered by Invision Power Board v1.3 Final © 2003 IPS, Inc.
Page creation time: 0.1086 seconds | Archive