home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. CD ROM (Annual Premium Edition)
/
premium.zip
/
premium
/
IBMOS2_2
/
KATCAL.ZIP
/
k0000001.pgm
< prev
next >
Wrap
Text File
|
1990-05-11
|
352b
|
20 lines
* - Compressed char for long prints
* this is a slightly oblong comment
:Begin
CLRS
WD What is your age?
RD r1
:Proccess
MOV r2, 44.32
MUL r1, r2
:Report
WD Your age modified by *44.32 is:
WD r1
:Again
WD Run this program again?
WD 1=YES, 0=NO
RD r1
MOV r2, 1
clrs
JE r1,r2, Begin
halt