git @ Cat's Eye Technologies Illgol-Grand-Mal / master 4. Open Sores Illgol## / prj / i3stuff.ill
master

Tree @master (Download .tar.gz)

i3stuff.ill @master — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
NB i3stuff.ill
NB (c)2001 Cat's Eye Technologies.
NB All rights reserved.  All liability disclaimed.
NB See the file COPING for license information.

NB  Features planned (but never implemented) for Illgola-3.

NB  Databases and data entry!

BEGIN FIELDS = * customer
  ID         = 2  @ 0 @{ yield #0 <> 0; } @(5, 10) @" Customer ID"
  LastName   = 20                         @(6, 10) @"   Last Name"
  FirstName  = 10                         @(7, 10) @"  First Name"
  Phone      = 16                         @(8, 10) @"Phone Number"
END FIELDS

0200 data(customer) = "customer.idb";
record(customer) = 0;
in data customer;
out form customer;
in form customer;
out data customer;
close(customer) = 1;

FIN