home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / tasm / chapxmpl.arc / TDOUBLE.PRO < prev    next >
Encoding:
Text File  |  1988-10-09  |  238 b   |  11 lines
  1. /* Testprogramm für DOUBLE.ASM: TDOUBLE.PRO */
  2.  
  3. global predicates
  4.    double(integer,integer) - (i,o) language asm
  5.    
  6. goal
  7.    write("Eingabe einer Integer-Zahl "),
  8.    readint(I),
  9.    double(I,Y),
  10.    write(I," verdoppelt zu ",Y).
  11.