RE: Date Functions
Here is a newer 'all in one' programm hull
Code:
#pragma mode( separator(.,;) integer(h32) )
//
//__________________________________________________________________________________________
// AUTHOR: Wolfgang Kühn, Berlin, June 2014
// Version 1.2
// DFX is a multi functions program for HP PRIME simulating
// the HP50g's date functions DDAYS and Date+ (HP Prime = DPLUS).
// In addition there are further functions like JDN, N2J, DOW, CALD, DOE.
// DFX functions are designed to CALL THEM FROM CAS and HOME ENVIRONMENT,
// and via choosing prog functions with Softmenu-keys DTM!
// Caution: DESIGN of INPUT-SCREENS is bad.
// Algorithms and formulas are astronomical basics found in sources like
// - General Astronomy, H.Spencer Jones, London 1924
// - Berechnungsgrundlagen für Amateurastronomen, Otto Praxl or
// - Astronomical Algorithms, Jean Meeus or
// - Practical Astronomy with your Calculator, Duffet-Smith and Zwart,
// ...and others.....
// New: extended range for date now from January,1,-4712 to December,31,99999
// 6 output date display formats triggered by user selectable global variable
// 2 input date display formats,
// input check
// any errors, questions, hints,
// mailto: Wolfgang Kuehn <wolfgang.kuehn@vodafone.de>
//_________________________________________________________________________________________
//
//
//_________________________________________________________________________________________
// AUTHOR: Wolfgang Kühn, Berlin, April 2014
// Version 1.1
// DF is a program for HP PRIME setting the system variable for
// triggering the Date I/O Format
// DFT
// D.MY I/O, Standard, e.g. 21.062014
// D.MY day number O "21.062014 6"
// D.MY day text O "21.062014 SAT"
//
// M.DY day number O 6.212014
// M.DY day number O "6.212014 6"
// M.DY day text O "6.212014 SAT"
//
// Y.MD day number O 2014.0621
// Y.MD day number O "2014.0621 6"
// Y.MD day text O "2014.0621 SAT"
//________________________________________________________________________________________
//
//
EXPORT DFT;
EXPORT DF()
BEGIN
CHOOSE(
DFT, "date format",
"D.MY",
"D.MY day number",
"D.MY day text",
"M.DY",
"M.DY day number",
"M.DY day text",
"Y.MD",
"Y.MD day number",
"Y.MD day text"
);
RETURN DFT;
END;
//_________________________________________________________________________________________
//
//
//
//_________________________________________________________________________________________
// JDN (Julian Date Number) Function for HP Prime
// Version 0.95, April 2014
// Wolfgang Kuehn <wolfgang.kuehn@vodafone.de>
//
// Julian Date Number: Returns the Julian Date Number of an calendaric date
// Range of allowable dates is from October, 15, 1582 to December 31, 9999
// CAS & Home @ algebraic and textbook mode: JDN(D,M,Y)
// example1 JDN(1,1,2000) returns 2451545
// example2 JDN(17,3,2014) returns 2456734
// example3 JDN(17,3,2014) - JDN(1,1,2000) returns 5189
// CAUTION: @this version there is no recycling of input errors
EXPORT JDN(D, M, Y)
BEGIN
IF M <3 THEN
RETURN FLOOR(365.25*(Y-1))+FLOOR(30.6001*(M+13))+FLOOR(((Y-1)/400))-FLOOR(((Y-1)/100))+1720997+D;
ELSE
RETURN FLOOR(365.25*Y)+FLOOR(30.6001*(M+1))+FLOOR((Y/400))-FLOOR((Y/100))+1720997+D;
END;
END;
//________________________________________________________________________________________________
//
//
//
//________________________________________________________________________________________________
// N2J (Number Date to Julian Date Number)
// Version 0.96, April 2014
// Wolfgang Kuehn <wolfgang.kuehn@vodafone.de>
//
// Number Date to JDN: Returns the Julian Date Number of an calendaric number date
// Range of allowable dates is from January 1, -4712 to December 31, 9999
// CAS & Home @ algebraic and textbook mode: N2J([-]dd.mmyyyy)
// negative number date means B.C. !!
// Example 1 N2J(14.052004) returns 2453140
// Example 2 N2J(1.012000) returns 2451545
// Example 3 N2J(17.032014)-N2J(1,012) returns 5189
// Example 4 N2J(4.101582) returns 2299160
// Example 5 N2J(15.101582) returns 2299161
// Example 6 N2J(-1.014712) returns 0
// Note: @this version some input errors (e.g. limits of range) are checked
//
EXPORT N2J(nd)
BEGIN
LOCAL D,M,Y;
// nd in forbidden range
CASE
IF nd= 5.101582 THEN MSGBOX("Date between 5.101582 and 14.101582 not allowed, sorry!"); KILL;END;
IF nd= 6.101582 THEN MSGBOX("Date between 5.101582 and 14.101582 not allowed, sorry!"); KILL;END;
IF nd= 7.101582 THEN MSGBOX("Date between 5.101582 and 14.101582 not allowed, sorry!"); KILL;END;
IF nd= 8.101582 THEN MSGBOX("Date between 5.101582 and 14.101582 not allowed, sorry!"); KILL;END;
IF nd= 9.101582 THEN MSGBOX("Date between 5.101582 and 14.101582 not allowed, sorry!"); KILL;END;
IF nd= 10.101582 THEN MSGBOX("Date between 5.101582 and 14.101582 not allowed, sorry!");KILL;END;
IF nd= 11.101582 THEN MSGBOX("Date between 5.101582 and 14.101582 not allowed, sorry!");KILL;END;
IF nd= 12.101582 THEN MSGBOX("Date between 5.101582 and 14.101582 not allowed, sorry!");KILL;END;
IF nd= 13.101582 THEN MSGBOX("Date between 5.101582 and 14.101582 not allowed, sorry!");KILL;END;
IF nd= 14.101582 THEN MSGBOX("Date between 5.101582 and 14.101582 not allowed, sorry!");KILL;END;
END;
//
// nd is B.C.
//
IF nd < 0 THEN
nd:=nd*-1;
D:=IP(nd);
M:=IP(((nd-D)*100));
Y:=((FP(((nd-D)*100))*10000)*-1);
IF M <3 THEN
RETURN FLOOR(365.25*(Y-1))+FLOOR(30.6001*(M+13))+(-2)+1720997+D;
ELSE
RETURN FLOOR(365.25*Y)+FLOOR(30.6001*(M+1))+(-2)+1720997+D;
END;
ELSE
// CASE nd is positive
D:=IP(nd);
M:=IP(((nd-D)*100));
Y:=(FP(((nd-D)*100))*10000);
// Date < 15.10.1582
IF JDN(D,M,Y) <2299161 THEN
IF M <3 THEN
RETURN FLOOR(365.25*(Y-1))+FLOOR(30.6001*(M+13))+(-2)+1720997+D;
ELSE
RETURN FLOOR(365.25*Y)+FLOOR(30.6001*(M+1))+(-2)+1720997+D;
END;
// Date >15.10.1582 positive
ELSE
IF M <3 THEN
RETURN FLOOR(365.25*(Y-1))+FLOOR(30.6001*(M+13))+FLOOR(((Y-1)/400))-FLOOR(((Y-1)/100))+1720997+D;
ELSE
RETURN FLOOR(365.25*Y)+FLOOR(30.6001*(M+1))+FLOOR((Y/400))-FLOOR((Y/100))+1720997+D;
END;
END;
END;
END;
//______________________________________________________________________________________________________________
//
//
//
//______________________________________________________________________________________________________________
// DOW Function (Day of Week) for HP Prime
// Version 0.96, April 2014
// Wolfgang Kuehn <wolfgang.kuehn@vodafone.de>
//
// DOW Function: Returns the day of a week from 1(=Monday) to 7(=Sunday)
// CAS & Home @ algebraic and textbook mode: DOW(dd.mmyyyy)
// example1 DOW(5.042014) returns [6 (=Saturday)] "SAT"
// example2 DOW(8.051945) returns [2 (=Tuesday)] "TUE"
//
//______________________________________________________________________________________________________________
//
EXPORT DOW(edn)
BEGIN
LOCAL tag;
tag:=FLOOR(N2J(edn)MOD7)+1;
IF DFT = 2 THEN RETURN tag;END;
IF DFT = 5 THEN RETURN tag;END;
CASE
IF tag = 1 THEN RETURN "MON"; END;
IF tag = 2 THEN RETURN "TUE"; END;
IF tag = 3 THEN RETURN "WED"; END;
IF tag = 4 THEN RETURN "THU"; END;
IF tag = 5 THEN RETURN "FRI"; END;
IF tag = 6 THEN RETURN "SAT"; END;
IF tag = 7 THEN RETURN "SUN"; END;
END;
END;
//___________________________________________________________________________________________________________
//
//
//
//____________________________________________________________________________________________________________
// CALD (Calendaric Date) Function for HP Prime
// Version 0.95, April 2014
// Wolfgang Kuehn <wolfgang.kuehn@vodafone.de>
//
// CALD Function: Returns the calendaric date of a Julian Date Number
// Range of allowable JDN'S is from January,1,-4712 (JDN=0) to December 31, 9999 (JDN=5373484)
//
// CAS & Home @ algebraic and textbook mode: CALD(jdn)
// RPN mode: jdn >ENTER< CALD >ENTER<
//
// example1 CALD(2456737) returns 20.032014 HP50g european format DD.MMYYYY
// example2 CALD(2456737) returns 3.202014 HP50g american format MM.DDYYYY
// example3 CALD(2456737) returns 20,3,2014 THU advanced HP12C Format i.o. weekdaynumber-->weekday
//
// negative: example 4a HP50g: CALD(2451545) returns 1.012
// better: example 4b advanced HP12C form: CALD(2451545) returns "1,1,2000 SAT"
// + + + + + + + + + Standard Return Date Format is DD.MMYYYY + + + + + + + + +
//-------------------------------------------------------------------------------------------------------
EXPORT CALD(jdn)
BEGIN
LOCAL a,b,c,d,e,f;
LOCAL D,M,Y;
LOCAL edn;
IF jdn>5373484
THEN MSGBOX("jdn > 5373484, sorry!");
KILL;END;
IF jdn<0
THEN MSGBOX("jdn < 0, sorry!");
KILL;END;
IF jdn<2299161
THEN
a:= FLOOR(jdn+0.5);
c:= a+1524.0;
d:= FLOOR(((c-122.1)/365.25));
e:= FLOOR(365.25*d);
f:= FLOOR(((c-e)/30.6001));
D:=c-e-(FLOOR(30.6001*f));
M:=f-1-(12*FLOOR(f/14));
Y:=d-4715-FLOOR((7+M)/10);
IF jdn<1721058
THEN
edn:=-1*(D+M/100+((Y*-1)/1000000));
CASE
IF DFT = 0 THEN RETURN edn; END;
IF DFT > 6 THEN RETURN edn; END;
IF DFT = 1 THEN RETURN edn; END;
IF DFT = 2 THEN RETURN edn+" "+DOW(edn);END;
IF DFT = 3 THEN RETURN edn+" "+DOW(edn);END;
IF DFT = 4 THEN RETURN -1*(M+D/100+((Y*-1)/1000000)); END;
IF DFT = 5 THEN RETURN -1*(M+D/100+((Y*-1)/1000000))+" "+DOW(edn);END;
IF DFT = 6 THEN RETURN -1*(M+D/100+((Y*-1)/1000000))+" "+DOW(edn);END;
END;END;
edn:=D+M/100+Y/1000000;
CASE
IF DFT = 0 THEN RETURN edn; END;
IF DFT > 6 THEN RETURN edn; END;
IF DFT = 1 THEN RETURN edn; END;
IF DFT = 2 THEN RETURN edn+" "+DOW(edn);END;
IF DFT = 3 THEN RETURN edn+" "+DOW(edn);END;
IF DFT = 4 THEN RETURN M+D/100+Y/1000000; END;
IF DFT = 5 THEN RETURN M+D/100+Y/1000000+" "+DOW(edn);END;
IF DFT = 6 THEN RETURN M+D/100+Y/1000000+" "+DOW(edn);END;
END;END;
a:= FLOOR(jdn+0.5);
b:= FLOOR((a-1867216.25)/36524.25);
c:= a+b-(FLOOR(b/4))+1525;
d:= FLOOR(((c-122.1)/365.25));
e:= FLOOR(365.25*d);
f:= FLOOR(((c-e)/30.6001));
D:=c-e-(FLOOR(30.6001*f));
M:=f-1-(12*FLOOR(f/14));
Y:=d-4715-FLOOR((7+M)/10);
edn:=D+M/100+Y/1000000;
CASE
IF DFT = 0 THEN RETURN edn; END;
IF DFT >6 THEN RETURN edn; END;
IF DFT = 1 THEN RETURN edn; END;
IF DFT = 2 THEN RETURN edn+" "+DOW(edn);END;
IF DFT = 3 THEN RETURN edn+" "+DOW(edn);END;
IF DFT = 4 THEN RETURN M+D/100+Y/1000000;END;
IF DFT = 5 THEN RETURN M+D/100+Y/1000000+" "+DOW(edn);END;
IF DFT = 6 THEN RETURN M+D/100+Y/1000000+" "+DOW(edn);END;
END;
END;
//_________________________________________________________________________________________________________________
//
//
//
//_________________________________________________________________________________________________________________
//
// DDAYS Function for HP Prime
// Version 0.96, April 2014
// Wolfgang Kuehn <wolfgang.kuehn@vodafone.de>
//
// Delta Days Function: Returns the number of days between two dates
// Caution: Change according to HP 50g, WP 34s:
// If the 1st date (edn1) is chronologically later the result is negative
//
// Range of allowable dates is from January 1, -4712 to December 31,9999
// CAS & Home @ algebraic and textbook mode: DDAYS(edn1,edn2)
// example1 DDAYS(1.012,17.032014) returns 5189
// example2 DDAYS(14.101962,1.061926) returns -13284
// example3 DDAYS(15.101582,4.101582) returns -1
// example4 DDAYS(1.012014,1.010) returns -735601
// example5 DDAYS(1.010,-31.120001) returns -1
// example6 DDAYS(-1.014712,-31.124711) returns 730
// example7 DDAYS(-1.014712,31.129999) returns 5373484
//_________________________________________________________________________________________________________________
//
EXPORT DDAYS(edn1, edn2)
BEGIN
LOCAL xdays;
xdays:=N2J(edn2)-N2J(edn1);
RETURN xdays;
END;
//_________________________________________________________________________________________________________________
//
//
//
//_________________________________________________________________________________________________________________
// DPLUS(HP 50g: DATE+) Function (Date Addition Command) for HP Prime
// Version 0.96, April 2014
// Wolfgang Kuehn <wolfgang.kuehn@vodafone.de>
//
// DPLUS Function: Returns a future or past date, given a date and a number of days
// Range of allowable dates is from October, 15, 1582 to December 31, 9999
// CAS & Home @ algebraic and textbook mode: DPLUS(dd.mmyyyy,xdays)
//
// example1 DPLUS(1.012,5189) returns 17.032014
// example2 DPLUS(14.101962,-13284) returns 1.061926
// example3 DPLUS(-1,014712,1) returns -2.014712
// example4 DPLUS(1.012014,7) returns 8.014712
//++++++++++ Output: standard date form is dd.mmyyyy +++++++++++++++++++++
//
//__________________________________________________________________________________________________________________
//
//
EXPORT DPLUS(edn,xdays)
BEGIN
RETURN CALD((N2J(edn)+xdays));
END;
//___________________________________________________________________________________________________________________
//
//
//
//____________________________________________________________________________________________________________________
// DOE (Date of Easter)
// Version 0.99, June 2014
// modified gaussian function for calculus of date of easter
// TEXOUT_P instead of PRINT
// Example 1 DOE(2004) returns
// Jahr: 2004
// Rosenmontag: 23.022004 MON
// Ostersonntag: 11.042004 SUN
// CHr.Himmelfahrt: 20.052004 THU
// Pfingsten: 30.052004 SON
// Fronleichnam: 10.062004 THU
EXPORT DOE(yoe)
BEGIN
// ROSMON -48
// CHRIHIM +39
// PFING +49
// FRONLEI +60
LOCAL ODAT,ROSMON,CHRIHIM,PFING,FRONLEI;
LOCAL a,b,c,d,e,f,g;
LOCAL h,i,k,l,m,n,p;
a:=irem(yoe,19);
b:=iquo(yoe,100);
c:=irem(yoe,100);
d:=iquo(b,4);
e:=irem(b,4);
f:=iquo(b+8,25);
g:=iquo(b-f+1,3);
h:=irem(19*a+b-d-g+15,30);
i:=iquo(c,4);
k:=irem(c,4);
l:=irem(32+2*e+2*i-h-k,7);
m:=iquo(a+11*h+22*l,451);
n:=iquo(h+l-7*m+114,31);
p:=irem(h+l-7*m+114,31)+1;
//
ODAT:=CALD(JDN(p,n,yoe));
ROSMON:=CALD(JDN(p,n,yoe)-48);
CHRIHIM:=CALD(JDN(p,n,yoe)+39);
PFING:=CALD(JDN(p,n,yoe)+49);
FRONLEI:=CALD(JDN(p,n,yoe)+60);
//
//
RECT();
TEXTOUT_P("Jahr:",0,2,0);
TEXTOUT_P("Rosenmontag:",0,22,0);
TEXTOUT_P("Ostersonntag:",0,42,0);
TEXTOUT_P("Chr. Himmelf.:",0,62,0);
TEXTOUT_P("Pfingsten:",0,82,0);
TEXTOUT_P("Fronleichnam:",0,102,0);
TEXTOUT_P(yoe,120,2,0,#000000,130,#FFFFFF);
TEXTOUT_P(ROSMON,120,22,0,#000000,130,#FFFFFF);
TEXTOUT_P(ODAT,120,42,0,#000000,130,#FFFFFF);
TEXTOUT_P(CHRIHIM,120,62,0,#000000,130,#FFFFFF);
TEXTOUT_P(PFING,120,82,0,#000000,130,#FFFFFF);
TEXTOUT_P(FRONLEI,120,102,0,#000000,130,#FFFFFF);
WAIT(-1);
// RETURN ODAT;
END;
//
//
//
//_____________________________________________________________________________________________________________
//
// DT2DN Date to Day Number
// nd numberdate (dd.mmyyyy), Leafyear y/n? (0 or 1)
// example DT2DN(29.112014,0) returns 333
// WMWK 2014-11-12
//
EXPORT DT2DN(nd,L)
BEGIN
LOCAL D,M;
D:=IP(nd);
M:=IP(((nd-D)*100));
// Y:=((FP(((nd-D)*100))*10000));
CASE
IF M <3 THEN RETURN IP((M-1)*(63-L)/2)+D;END;
IF M >2 THEN RETURN D+(IP((M+1)*30.6)-(63-L)); END;
END;
END;
//_______________________________________________________________________________________________________________
//
// DMS(ddd.mmss)
// sexagesimal 2 decimal
EXPORT DMS(dms)
BEGIN
LOCAL D,M,S,t;
D:=IP(dms);
M:=IP(((dms-D)*100));
S:=FP((dms-D)*100)*100;
IF D==0 THEN
t:=1;
ELSE
t:=SIGN(D);
END;
RETURN (ABS(D)+ABS(M/60)+ABS(S/3600))*t;
END;
//________________________________________________________________________________________________________________
//
// HMS(ddd.dddd)
// decimal 2 sexagesimal
EXPORT HMS(ddeg)
BEGIN
LOCAL H,M,S;
H:=IP(ddeg);
M:=IP(((ddeg-H)*60));
S:=(((ddeg-H)*60)-M)*60;
RETURN H+M/100+S/10000;
END;
//________________________________________________________________________________________________________________
//AN2J Astronomical Number date including time (UTC!) to Julian date
//look at N2J
//usage: AN2J(DD.MMYYYY,hh.mmss)
// IMPORTANT: Enter time in degrees!
// Enter UTC!
//Example: AN2J(13.112014,18.2045) returns 2456975.26441 - decimal output
//
EXPORT AN2J(nd,tim)
BEGIN
RETURN N2J(nd)+(DMS(tim)/24)-0.5;
END;
//
//________________________________________________________________________________________________________________
//
// AJ2N Astronomical Julian Date including time (UTC!) to Number date
//usage: AJ2N(Ajdn.xxxxxx)
// IMPORTANT: Enter AJDN in UTC!
// Example: AJ2N(2456975.66594) returns {14.112014,6.5857} - time is sexagesimal output
EXPORT AJ2N(ajdn)
BEGIN
LOCAL jdn,tme;
tme:=FP(ajdn)+0.5;
jdn:=IP(ajdn+0.5);
RETURN {CALD(jdn), ROUND(HMS(tme*24) MOD 24,4)};
END;
//
//
//_______________________________________________________________________________________________________________
// DFX Main Menu
// WMWK 2014-09-19
EXPORT DTM
BEGIN
LOCAL m,m1,mx,my,n2ja,dd1,dd2,dp1;
LOCAL dp2, doey;
While Z ≠ 9999 DO
WHILE MOUSE(1)≥0 DO END;
RECT();
TEXTOUT_P("Date & time functions for Hp Prime V 0.97",1,1,3);
DRAWMENU("n2j","ddays","date+","doe","time","exit");
REPEAT
m:=MOUSE;
m1:=m(1);
UNTIL SIZE(m1)>0;
mx:=m1(1);
my:=m1(2);
IF my≥220 AND my≤239 THEN
IF mx≥0 AND mx≤51 THEN
INPUT (n2ja,"Number date to Julian Date number","dd.mmyyyy =", "Enter number date");
TEXTOUT_P("JDN = ",32,51,3);
TEXTOUT_P(N2J(n2ja),89,51,3);
WAIT(-1);
END;
IF mx≥53 AND mx≤104 THEN
INPUT ({dd1,dd2}, "Difference between two dates in days",{"1st Date","2nd Date"}, {"dd.mmyyyy =", "dd.mmyyyy ="});
TEXTOUT_P("DDAYS: ",5,81,3);
TEXTOUT_P(N2J(dd2)-N2J(dd1),65,81,3);
WAIT(-1);
END;
IF mx≥106 AND mx≤157 THEN
INPUT ({dp1,dp2},"Date+",{"date","xdays"},{"dd.mmyyyy =", "number"});
TEXTOUT_P("New Date:",1,81,3);
TEXTOUT_P(CALD((N2J(dp1)+dp2)),80,81,3);
WAIT(-1);
END;
IF mx≥159 AND mx≤210 THEN
INPUT (doey,"Year of Easter= ", "Enter year");
TEXTOUT_P(DOE(doey),1,161,3);
RECT();
WAIT(-1);
END;
IF mx≥212 AND mx≤263 THEN
RECT();
TEXTOUT_P("HONULULU: ",0,2,0);
TEXTOUT_P("LOS ANGELES: ",0,20,0);
TEXTOUT_P("CHICAGO: ",0,40,0);
TEXTOUT_P("NEW YORK: ",0,60,0);
TEXTOUT_P("UTC: ",0,80,0,#FF0000);
TEXTOUT_P("LONDON: ",0,100,0);
TEXTOUT_P("BERLIN: ",0,120,0);
TEXTOUT_P("MOSKAU: ",0,140,0);
TEXTOUT_P("PEKING: ",0,160,0);
TEXTOUT_P("TOKIO: ",0,180,0);
TEXTOUT_P("SYDNEY: ",0,200,0);
TEXTOUT_P("WELLINGTON: ",0,220,0);
TEXTOUT_P("ENTER to quit",225,220,0);
REPEAT
TEXTOUT_P(((Time-12) MOD 24),110,2,0,#000000,90,#FFFFFF);
TEXTOUT_P(((Time-9) MOD 24),110,20,0,#000000,90,#FFFFFF);
TEXTOUT_P(((Time-7) MOD 24),110,40,0,#000000,90,#FFFFFF);
TEXTOUT_P(((Time-6) MOD 24),110,60,0,#000000,90,#FFFFFF);
TEXTOUT_P(((Time-2) MOD 24),110,80,0,#FF0000,90,#FFFFFF);
TEXTOUT_P(((Time-1) MOD 24),110,100,0,#000000,90,#FFFFFF);
TEXTOUT_P(((Time+0) MOD 24),110,120,0,#000000,90,#FFFFFF);
TEXTOUT_P(((Time+2) MOD 24),110,140,0,#000000,90,#FFFFFF);
TEXTOUT_P(((Time+6) MOD 24),110,160,0,#000000,90,#FFFFFF);
TEXTOUT_P(((Time+7) MOD 24),110,180,0,#000000,90,#FFFFFF);
TEXTOUT_P(((Time+8) MOD 24),110,200,0,#000000,90,#FFFFFF);
TEXTOUT_P(((Time+10) MOD 24),110,220,0,#000000,90,#FFFFFF);
WAIT(1);
UNTIL GETKEY=30;
END;
END;
IF mx≥265 AND mx≤319 THEN
KILL;
END;
END;
END;
[code][code]
HP 33C 34C 11C 41CX 12C 15C HP71B 35s 50g Prime Rev. A, C, D. DM 41X, 42. TI 58C, 59, 74, 92-II, Voyage 200, nspire CX II-T, Sanyo ICC 82D and more
|
Search
Member List
Calendar
Help
