DataMuseum.dk

Presents historical artifacts from the history of:

Regnecentalen RC-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Regnecentalen RC-900

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T U c

⟦fd23b2d7c⟧ TextFile

    Length: 2761 (0xac9)
    Types: TextFile
    Notes: UNIX file
    Names: »car.costs«

Derivation

└─⟦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.costs«

TextFile

:C      U.S. Version.   Demonstration form.    Basic access to 'cars' table.


:TITLE
-- CAR UPDATE/INQUIRY --

:TABLE
cars

:SCREEN


              DAAAAAAAAAAAAAAAAA   CAR   AAAAAAAAAAAAAAAAAAAAAF@@
              [[[[[[[[[[[[[[[[[[AAAAAAAAA[[[[[[[[[[[[[[[[[[[[[[
              B         License number   : [l1______]         B@@
              [                                               [
              B         Car id           : [l2____]           B@@
              [                                               [
              B         Year             : [l7__]             B@@
              [                                               [
              KAAAAAAAAAAAAAAAAA  COSTS  AAAAAAAAAAAAAAAAAAAAAG@@
              [[[[[[[[[[[[[[[[[[AAAAAAAAA[[[[[[[[[[[[[[[[[[[[[[
              B         Costs            : [l3_____]          B@@
              [                                               [
              B         Repairs          : [l4____]           B@@
              [                                               [
              B         Mileage          : [l5______]         B@@
              [                                               [
              B         Petrol           : [l6______]         B@@
              [                                               [
              JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
              [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
:LABELS
table = cars
l1=License, type char, chars "DSU", minimum 6;
l2=Car_id,  type char,
    prompt="Enter three digits:  Id ranges from 001 to 020",
    default = "001";
l3=Cost,    type dec,  minimum -10, maximum 10000, decimals 2, default="0.00";
l4=Repairs, type dec,  minimum -10, maximum 5000,  decimals 2, default="0.00";
l5=Mileage, type dec,  minimum -10, maximum 100000, decimals 0;
l6=Petrol,  type dec,  decimals 2;
l7=Yearmonth,    type char, chars "D", minimum 4,
                     prompt = "Enter Year as YYMM for year/month";

: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.

     The help section is given as the default option when help is called
     during the execution of the form.  However all the normal help
     options are still available.  The user need never be at a loss for
     help information.

     The help section defined is entirely optional but any good forms
     designer will be aware of the problems of truly naive users and will
     provide the most appropriate text for aiding the user.