Lottószám-generáló TI-Basic program Texas Instruments TI-92 programozható grafikus zsebszámológépre.
d darab véletlenszámot generál 1 és m között, majd rendezi is azokat (lottó-szaknyelven: "növekvő számsorrendbe").
lotto(m,d)
Prgm
{0} -> t
For i,1,d
Lbl a
rand(m) -> t[i]
1 -> s
For j,1,i-1
If t[i] = t[j]
0 -> s
EndFor
If s = 0 and i > 1
Goto a
EndFor
SortA t
Disp t
EndPrgm