option autorun on
Option Base 1

playtime = 4
Tries = 0

main:

Do
pause 100
Tries = Tries + 1
Print "Number of tries = "; Tries
GameStart
Loop

'******************** SUB - GameStart **********************
Sub GameStart
ShowTime = PlayTime * 10
SetTick 25, UpdateTim, 1
Do while ShowTime > 0
print "showtime = ";ShowTime
CheckScore
Loop
goto main
end sub

'******************** SUB - UpdateTimer **********************
Sub UpdateTim
ShowTime = ShowTime - 1
If ShowTime = 0 then
SetTick 0, 0, 1
ShowTime = 0
end if
End Sub

'******************** SUB - Check Score **********************
Sub CheckScore
Print ""
End Sub

' first you insert OPTION commands before any other commands
goto DAFYNITIONS

CONTINUE:
' here you insert thousands of lines of code which might do something useful
END

DAFYNITIONS:
'here you insert all of your DIM commands
goto CONTINUE

etq31:
if nbinfo>0 then 'if function MM.info exist
txdrvlcd=tminfo(3,2) 'lcdinfo
flgtouch=tmvinfo(5) 'flag touch installed
txt=tminfo(2,2) 'speed
goto etq2 'go to next step - this goto is not necessary, just for futur
else
txt="0" 'speed unkown

txdrvlcd="No driver" 'name of driver lcd'
flgtouch =0 'flag if touch active'
vnbus=0 'num of lcd bus'
if flgsavdb=0 then goto etq2 'if no saving datas function
input "What is your LCD driver (ex: ILI9341)",txdrvlcd
if txdrvlcd="" then txdrvlcd="No driver":goto etq2 'go to next step
etq1:
input "have-you Touch function active (Y or N)", rep$
rep$=Ucase$(rep$)
if (rep$<>"Y" and rep$<>"N") then
print "You must answer Y or N"
goto etq1
end if
if rep$="Y" then flgtouch=1
etq1a:
input "what type of bus (1=SPI,2=I2c,3=16b,4=8b,5=other)", rep$
vnbus=val(rep$)
if (vnbus<1 or vnbus>5) then
print "you have to answer number from 1 to 5"
goto etq1a
end if
end if
....

etq2: