SBP t SET DISPLAY MIN "Calendar"::0 Cal() NoMenu() 80,10,385,400 Cal() s3 "SCalend",7999,10593 "*%","*$" Yr%%,Calendar%%,Calendar$,Mon$(12),Prev$,Nex$,x%%,FirstDay$,Mon%(12),TxtMon$ Yr%%6(Q) FillMonth() FillNumMonth() 1,200,16,1,0,3,0,0S0,0,0 eee |G"Calendar",6,7,511,511,0,0,1,1,0 1,95,16,1,0,2 o"EngraversGothic BT,12,1,34,0" |7,230,396,396,396,Calendar$,1 G 37,54,1,0,3 |8,230,3448,563,167,Prev$,44,"Call PrvButton()","&<<<" |8,3125,3459,563,167,Nex$,45,"Call NxtButton()","&>>>" 432,16,1,0,2 o"PTBarnum BT,14,1,82,0" |5,303,73,261,240,"Sun" 1 |5,792,73,292,240,"Mon" |5,1323,73,250,240,"Tue" |5,1803,73,323,240,"Wed" |5,2334,73,271,240,"Thu" |5,2875,73,209,240,"Fri" |5,3375,73,230,240,"Sat" BuildCal()  BuildCal() x%%0p x%%5(Q)  1,233,18 TxtMon$Mon$(x%%)" "(Yr%%) |7,1178,3448,1563,250,TxtMon$,43 TestString$H((x%%))"/1/"H((Yr%%)) FirstDay$2(TestString$) StartingDay() x%1(TestString$) Calendar%%Calendar%%q41k1 Calendar$(Calendar%%)H((3(x%))) x%x%1  StartingDay() _e102 Calendar%%(Calendar%%1)q0k1 Calendar$(Calendar%%)""  _102  StartingDay() FirstDay$ "Sunday" Calendar%%0 "Monday" Calendar%%1 "Tuesday" Calendar%%2 "Wednesday" Calendar%%3 "Thursday" Calendar%%4 "Friday" Calendar%%5 "Saturday" Calendar%%6  x% = DAYS (( STR$ ( MONTH ( TODAY )) + "/1/" + LTRIM$ ( STR$ ( YEAR ( TODAY )))))  PrvButton() x%%x%%1 x%%0p x%%12 Yr%%Yr%%1  BuildCal()  NxtButton() x%%x%%1 x%%13p x%%1 Yr%%Yr%%1  BuildCal()  FillMonth() n%%1q12 MON%(n%%) 1,2,3,4,5,6,7,8,9,10,11,12  FillNumMonth() xxxx n%%1q12 MON$(n%%) xxx: "January","February","March","April","May","June" "July","August","September","October","November","December"  NoMenu() "USER.exe","FindWindow","HCJ" "USER.EXE","GetMenu","HH" "USER.EXE","DestroyMenu","AH" t%("FindWindow","SBV2DATACLASS"(sys(17),""),0) m%("GetMenu",t%) a%("DestroyMenu",m%) SysMenu%%1 Maximize%%0 Minimize%%0 hWnd%%,LongWord% "USER.EXE","GetFocus","H" "USER.EXE","SetWindowLong","JHIJ" hWnd%%("GetFocus") LongWord%382664704 LongWord%LongWord%(SysMenu%%0,0,524288) LongWord%LongWord%(Maximize%%0,0,65536) LongWord%LongWord%(Minimize%%0,0,131072) OldWord%("SetWindowLong",hWnd%%,16,LongWord%)