19 lines
393 B
Plaintext
Executable File
19 lines
393 B
Plaintext
Executable File
#!yab
|
|
sleep .01
|
|
window open 100,100 to 400, 200, "WView", "EvenMoreControls"
|
|
layout "none", "WView"
|
|
colorcontrol 10,10, "CC", "WView"
|
|
colorcontrol set "CC", 213,123,43
|
|
|
|
textcontrol 10,70 to 150,90, "TC", "Enter Password:","","WView"
|
|
textcontrol set "TC",1
|
|
|
|
inloop = true
|
|
while(inloop)
|
|
msg$ = message$
|
|
if(msg$<>"") print msg$
|
|
if(instr(msg$,"Quit")) inloop = false
|
|
wend
|
|
|
|
window close "WView"
|