home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / wps / progs / calc / katcalc / k0000001.pgm < prev    next >
Encoding:
Text File  |  1990-05-11  |  352 b   |  20 lines
  1. *  - Compressed char for long prints
  2.     * this is a slightly oblong comment
  3. :Begin
  4.    CLRS
  5.    WD What is your age?
  6.    RD r1
  7. :Proccess
  8.    MOV r2, 44.32
  9.    MUL r1, r2
  10. :Report
  11.    WD Your age modified by *44.32 is:
  12.    WD r1
  13. :Again
  14.    WD Run this program again?
  15.    WD 1=YES, 0=NO
  16.    RD r1
  17.    MOV r2, 1
  18.    clrs
  19.    JE r1,r2, Begin
  20.    halt