24 lines
371 B
QBasic
24 lines
371 B
QBasic
|
SUB MAIN
|
||
|
|
||
|
DIM STOP AS BOOLEAN
|
||
|
DIM A, R AS INTEGER
|
||
|
DIM TEMP AS DOUBLE
|
||
|
DIM ITEMS(2) AS STRING
|
||
|
|
||
|
ITEMS(1)="START"
|
||
|
ITEMS(2)="EXIT"
|
||
|
|
||
|
WHILE NOT STOP
|
||
|
R = SELECT("SELECT ACTION",ITEMS,FALSE)
|
||
|
IF R = 1 THEN
|
||
|
PRINT("WAIT...")
|
||
|
SLEEP 1000
|
||
|
TEMP = ROUND(RND(60)*6,2)
|
||
|
A = ALERT(STR$(TEMP),"DONE", "OK","","", TRUE)
|
||
|
ELSE
|
||
|
STOP = TRUE
|
||
|
END IF
|
||
|
END WHILE
|
||
|
|
||
|
END SUB
|