home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / apan1.zip / register.cmd < prev    next >
OS/2 REXX Batch file  |  1998-09-11  |  631b  |  27 lines
  1. /* 
  2.  * AutoPAN 1.0 for BlueCAD 1.0 for OS/2
  3.  *
  4.  * (C) 1998 Yuri Dario <mc6530@mclink.it> 
  5.  *
  6.  */
  7. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  8. call SysLoadFuncs
  9.  
  10.  
  11.       /* add data to BlueCADs ini */
  12.    BCINI = SysBootDrive()'\OS2\BLUECAD.INI'
  13.  
  14.    say "Enter your name: "
  15.    parse pull Name
  16.    
  17.    say "Enter your registration code: "
  18.    parse pull Code
  19.    
  20.    say 'Saving your registration data...'
  21.  
  22.    call SysIni BCINI, 'AutoPAN', 'Name', Name||x2c('00')
  23.    call SysIni BCINI, 'AutoPAN', 'Code', Code||x2c('00')
  24.   
  25.    say
  26.    say 'Now AutoPAN is registered. Thanks for registering AutoPAN.'
  27.