Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

DarkBASIC Professional Discussion / I need a bit of help with a small peice of code.....

Author

Message

Maverick

Years of Service

User Offline

Joined: 9th Oct 2002

Location:

Posted: 17th Oct 2002 02:30

Link

What I am trying to do Is create a simple notepad type program, But the Inkey$() command won't seem to take a value, any help would be greatly appreciated!
Thanks

+ Code Snippet

y=25
line=1
DIM block$(5)
WHILE ewrite=0
	INK rgb(255,255,255),1
	WAIT KEY
	ch$=INKEY$()
	WAIT KEY
	TEXT xc,y,ch$
	xc=xc+2
	IF xc>=300 
		xc=1
		y=y+20
		line=line+1
	ENDIF
	IF line>=5
		GOSUB itsdone
		SUSPEND FOR KEY
		END
	ENDIF
	block$(line)=block$(line)+ch$

ENDWHILE


ItsDone:

Text 200,200,"THATS IT THATS ALL"
TEXT 200,300,block$(1)

RETURN

Profile PM

Server time is: 2024-04-20 02:43:07
Your offset time is: 2024-04-20 02:43:07