/* gsplpn.tc - lrb - original by ceb - 1/14/9

gsplpn [

/* Print an introductory message.
/* Reads a 'pi-like' string of characters (like 3.14159).
/* Determines the integer to the left of the decimal point. 
/* If what's read isn't "pi-atable" (i.e. "compatable w/ pi"), 
/* prints "Decimal number (examples ...) required" and exits.
/* Adds 1 to the integer.
/* Prints the integer + f = x (e.g. 3 + 1 = 4)

pl "3.14159 i love you 365.25 days of da yeah.  Can we have pi 2day?"
pl "";pl "Enter a decimal number like 3.14";pl "";pl ""

char w(5)
int f,x,d
int i(0)

gs w
f=1
d=atoi(w,i)
if (!d) [pl "Decimal number (like 3.141 or 100.12) required.";pl"";exit]
x=i(0)+f
pl "";pn i(0);ps " +";pn f;ps " =";pn x;pl ""

]