**TI92P*cal"gE4@g1l,."gEgET?g1Revent Z 4(action,m,d,y) Prgm Local i,datarec,textbloc,x,empty,linect2,linelim,os,ns Lbl start 0updated name(m,y)datarec string(action)action If action"delete" and action"add" and action"edit" and action"view" Then Goto end Else Goto #action EndIf Lbl delete PopUp {"Confirm Delete of"," "&string(m)&"/"&string(d)&"/"&string(y),"Cancel"},menu If menu=3 Then Return Else If getType(#datarec)"NONE":Unarchiv #datarec undef#datarec[d] Archive #datarec trueempty 1i While i31 and empty If #datarec[i]undef falseempty 1+ii EndWhile If empty Then If getType(#datarec)"NONE":Unarchiv #datarec DelVar #datarec EndIf 1updated EndIf Goto end Lbl view If #datarec[d]=undef Then Goto add Else Archive #datarec 9linelim For r,1,linelim ""#("line"&string(r)) EndFor explode(";",#datarec[d],"text",linelim) 1linect2 For r,1,expldct-1 wrapstr("?"&#("text"&string(r)),"line",35,linect2) DelVar #("text"&string(r)) lines+linect2linect2 EndFor Dialog Title months[m]&" "&string(d)&" "&string(y) Text line1 Text line2 Text line3 Text line4 Text line5 Text line6 Text line7 Text line8 Text line9 DropDown "Action",{"Add/Edit events","Delete today","BACK TO CALENDAR","Prev.Day w/ Event","Next Day w/ Event","Previous Day","Next Day"},menu EndDlog For r,1,linelim DelVar #("line"&string(r)) EndFor If menu=1:editaction If menu=2:deleteaction If menu=3:Return If menu=4 Then For i,1,2 name(m,y)test If getType(#test)="NONE":Return While d>1 d-1d If getType(test)"UNDEF":If #test[d]undef Then:testdatarec:Goto view:EndIf EndWhile m-im If m=0 Then 12m:y-1y:EndIf 31-k[m]d EndFor EndIf If menu=5 Then For i,1,2 d+1d name(m,y)test If getType(#test)="NONE":Return While d