http://www.ousob.com --- Legacy Redefined #include <string.h> #include <extend50.h> CLIPPER b_hpiii() { int gotAproblem = 0; if( PCOUNT != 1 || !ISARRAY(1) || !ISBYREF(1) ) { gotAproblem++; } if( !gotAproblem && _parinfa(1,0) == 34 ) { _storc("HP LaserJet III" ,1,1); _storc("LPT1" ,1,2); _storc("" ,1,3); _storc("" ,1,4); _storc("" ,1,5); _storc("" ,1,6); _storc("(s1S" ,1,7); _storc("(s0S" ,1,8); _storc("(s3B" ,1,9); _storc("(s0B" ,1,10); _storc("(s0T" ,1,11); _storc("(s1T" ,1,12); _storc("&a-25V" ,1,13); _storc("&a+25V" ,1,14); _storc("&a+25V" ,1,15); _storc("&a-25V" ,1,16); _storc("&dD" ,1,17); _storc("&d@" ,1,18); _storc("(8U(s0p16.67h8.5v0s0b0T" ,1,19); _storc("(8u(s0p10.00h12.0v0s0b3T" ,1,20); _storc("" ,1,21); _storc("" ,1,22); _storc("(10U" ,1,23); _storc("&l0O" ,1,24); _storc("&l1O" ,1,25); _storc("" ,1,26); _storc("&l2A" ,1,27); _storc("&l3A" ,1,28); _storc("&l6D" ,1,29); _storc("&l8D" ,1,30); _storc("" ,1,31); _storc("" ,1,32); _storc("" ,1,33); _storc("E" ,1,34); } _ret(); }