18 lines
334 B
Text
18 lines
334 B
Text
*KEY 1 |!|A
|
|
*KEY 2 |!|B
|
|
REPEAT
|
|
key% = INKEY(1)
|
|
CASE key% OF
|
|
WHEN &81: PROCmethod1
|
|
WHEN &82: PROCmethod2
|
|
ENDCASE
|
|
UNTIL FALSE
|
|
END
|
|
|
|
DEF PROCmethod1
|
|
PRINT "You pressed F1"
|
|
ENDPROC
|
|
|
|
DEF PROCmethod2
|
|
PRINT "You pressed F2"
|
|
ENDPROC
|