::"A NOTETAKING APP
::"7FFF4001517D594555455345517D400140015F7D4441447D4441447D40017FFF
:If det([[42]])≠1337
:Then
:Disp "YOU NEED DOORS","CS TO USE THIS PROGRAM!","DCS.CEMETECH.NET
:Stop
:End
:If length(Ans)<6 or sub(Ans,1,6)≠"rowSwap(NOTES
:Then
:det(0,"rowSwap(NOTES",5
:det(6,"rowSwap(NOTES","NOTELIST",1
:End
:sum(9
:sum(7,1,"7000700070","Notes
:sum(7,5,32
:sum(7,9,3,2,68,60,"
:sum(7,7,72,2,"NOTE
:For(A,11,45,8
:sum(7,21,3,A,81,8,1
:End
:sum(7,19,85,11,29,1,1,1,10,0
:det(5,"rowSwap(NOTES",0)→I
:I+2→B
:If I>6
:8→B
:2→C
:For(A,12,45,8
:If C≠B
:Then
:det(5,"rowSwap(NOTES",C)→Str1
:sum(7,4,6,A,0,Str1
:C+1→C
:End
:End
:sum(12,30,30,10
:sum(10
:ClrHome