http://www.ousob.com --- Legacy Redefined #include <string.h> #include <extend50.h> CLIPPER b_ibm() { int gotAproblem = 0; if( PCOUNT != 1 || !ISARRAY(1) || !ISBYREF(1) ) { gotAproblem++; } if( !gotAproblem && _parinfa(1,0) == 34 ) { _storc("IBM ProPrinter" ,1,1); _storc("LPT1" ,1,2); _storc("" ,1,3); _storc("" ,1,4); _storc("" ,1,5); _storc("" ,1,6); _storc("" ,1,7); _storc("" ,1,8); _storc("E" ,1,9); _storc("F" ,1,10); _storc("" ,1,11); _storc(":" ,1,12); _storc("S0" ,1,13); _storc("T" ,1,14); _storc("S1" ,1,15); _storc("T" ,1,16); _storc("-" ,1,17); _storc("- _storc("" ,1,19); _storc("" ,1,20); _storc("I _storc("I" ,1,22); _storc("" ,1,23); _storc("" ,1,24); _storc("" ,1,25); _storc("" ,1,26); _storc("" ,1,27); _storc("" ,1,28); _storc("" ,1,29); _storc("" ,1,30); _storc("" ,1,31); _storc("" ,1,32); _storc("" ,1,33); _storc("" ,1,34); } _ret(); }