Data update

This commit is contained in:
Ingy döt Net 2023-09-01 09:35:06 -07:00
parent 61b93a2cd1
commit 5af6d93694
858 changed files with 20572 additions and 2082 deletions

View file

@ -1,3 +1,5 @@
01 Point.
05 x pic 9(3).
05 y pic 9(3).
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Point.
05 x USAGE IS BINARY-SHORT.
05 y USAGE IS BINARY-SHORT.

View file

@ -1,8 +1,8 @@
struct Point
{
prop int X;
int X : prop;
prop int Y;
int Y : prop;
constructor new(int x, int y)
{

View file

@ -0,0 +1,4 @@
CGRect r = {0, 0, 250, 100}
printf @"x = %.f : y = %.f : width = %.f : height = %.f", r.origin.x, r.origin.y, r.size.width, r.size.height
HandleEvents