Need help with BASIC

slackr007 · 01-02-2005, 07:09 PM

Sorry that this is probably a simple question, but here goes. I'm teaching myself basic with "Just BASIC" and I can't figure out how to make input instant. I have a program that something when you hit a certain key, but you have to hit that key and then press enter. I want it to happen as soon as you hit that key. Anyone know how to do that. Just incase you need it, here's my source:

Code:

let x=0
let y=0
let w$="w"
let s$="s"
let a$="a"
let d$="d"
let exit$="end"
let zero$=""
Print "You are in cell 0,0"
print "Press W, A, S, or D, then [Enter] to move through cells."
print "Type 'end' to end the program"
input "Press [Enter] to continue."; dummyVariable
cls
[start]
    input "Which way would you like to go?"; key$
    If key$ = w$ then let x = x + 1
    If key$ = s$ then let x = x + -1
    If key$ = a$ then let y = y + -1
    If key$ = d$ then let y = y + 1
    If key$ = exit$ then goto [end]
    If key$ = zero$ then goto [help]
    Print "You are in cell: "; x; ","; y
    let key$=zero$
    goto [start]
[help]
    Print "Please press A, S, D, or W to change cells"
    input "Press [Enter] to continue."; dummyVariable
[end]

I'd also appreciate it if you could tell me if im doing anything inefficiently and how to fix it.
Thanks.

leonscape · 01-02-2005, 09:14 PM

Having had a quick look at the docs, this is what I'd of done ( though I can't check this )

Code:

[start]
    print "Which wat would you like to go?"
    key$ = input$(1)
    select case key$
        case w$
            let x = x + 1
        case s$
            let x = x - 1
        case a$
            let y = y + 1
        case d$
            let y = y - 1
        case exit$
            goto [end]
        case else
            goto [help]
        end select
    print "You are in cell:"; x; ","; y
    key$ = zero$
    goto [start]

I would recommend actually using a loop instead of a goto, check the documents on looping.