Code archives/Miscellaneous/reverse a type list

;HOW TO REVERSE A SERIES OF A CUSTOM TYPE

;example custom type
Type pt
	Field i
End Type

;create 10 instances
For i = 0 To 9

	p.pt = New pt
	p\i = i

Next

;reverse instance order
For p.pt = Each pt
	If p <> Last pt Then 
		q.pt = After p
		Insert p Before First pt		
		p = Before q
	Else
		Insert p Before First pt
		Exit
	End If
Next

;show result
For p.pt = Each pt
	Print p\i
Next

WaitKey()
End