20 lines
441 B
Plaintext
20 lines
441 B
Plaintext
Procedure.s Suffix(n.i)
|
|
Select n%10
|
|
Case 1 : If n%100<>11 : ProcedureReturn "st" : EndIf
|
|
Case 2 : If n%100<>12 : ProcedureReturn "nd" : EndIf
|
|
Case 3 : If n%100<>13 : ProcedureReturn "rd" : EndIf
|
|
EndSelect
|
|
ProcedureReturn "th"
|
|
EndProcedure
|
|
|
|
Procedure put(a.i,b.i)
|
|
For i=a To b : Print(Str(i)+Suffix(i)+" ") : Next
|
|
PrintN("")
|
|
EndProcedure
|
|
|
|
If OpenConsole()=0 : End 1 : EndIf
|
|
put(0,25)
|
|
put(250,265)
|
|
put(1000,1025)
|
|
Input()
|