|
DataMuseum.dkPresents historical artifacts from the history of: Regnecentalen RC-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Regnecentalen RC-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2819 (0xb03)
Types: TextFile
Notes: UNIX file
Names: »car.id«
└─⟦c93a30372⟧ Bits:30004169/disk3.imd Uniplex II+ V.6 release 1.0 (dansk)
└─⟦c93a30372⟧ UNIX Filesystem
└─⟦this⟧ »up/new/usr/UAP/demo/us_sales.frm/src/car.id«
:C U.S. Version
:C Demonstration form. Basic access to 'cars' table with
:C cross-reference to 'car type'.
:TITLE
CAR ID to MODEL
:TABLE
cars
:SCREEN
DAAAAAAAAAAREGISTRATIONAAAAAAAAAAAAEAAAAAAAAAAACAR MODELAAAAAAAAAAAAAAF@@
[[[[[[[[[[[AAAAAAAAAAAA[[[[[[[[[[[[[[[[[[[[[[[[AAAAAAAAA[[[[[[[[[[[[[[[
B License : [reg_____] B Make of car : [label-make__] B@@
[ [ [
B Car id : [id____] B Model of car : [label-mode] B@@
[ [ [
B Year : [year] B B@@
[ [ [
KAAAAAAAAAA CAR COSTS AAAAAAAAAAAACAAAAAAAAAAAHELP TEXT=AAAAAAAAAAAAAG@@
[[[[[[[[[[[AAAAAAAAAAAA[[[[[[[[[[[[[[[[[[[[[[[[AAAAAAAAA[[[[[[[[[[[[[[[
B Repairs : [repair] B This form allows editing of car B@@
[ [ [
B Cost : [cost___] B registrations with cross-refer' B@@
[ [ [
B Mileage : [miles___] B to the make and model table. B@@
[ [ [
B Petrol : [petrol__] B B@@
[ [ [
JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
:LABELS
id = Car_id, type char;
reg = License, type char, chars "DSU", minimum 6;
year = Yearmonth, type char, chars "D", minimum 4, display only,
prompt = "Enter as YYMM format";
cost = Cost, type dec, minimum 1000, maximum 30000, decimals 2,
prompt = "Enter number between 1000 - 30000";
repair = Repairs, type dec, minimum 0, maximum 10000, decimals 2,
prompt = "Enter number between 0 - 10000";
miles = Mileage, type dec, minimum 0, maximum 100000, decimals 0,
prompt = "Enter number between 0 - 100000";
petrol = Petrol, type dec, decimals 2;
:LABELS
table = car_type
Select Car_id = id;
label-make = Make, type char;
label-mode = Model, type char;
:HELP
This is the help section for this form.
Although it doesn't tell us anything useful about the form it does
give us an indication of how the help section can be used.
As can be seen this help section is totally free-form. The
contents may be as long as required. Paging is handled
automatically or ".PA" commands may be used.
:END