---

RS/2 RedTitan Script 2

---

THUMB.RS2 scales a PDF file to fit sixteen pages on a side.

• RESOURCE function will read and display any EscapeE compatible file.
• FRAME uses the current PEN width to draw a lines around each scaled page.

10

// REDTITAN RS2 CONTROL if paramstr(1)='1' then begin pn:=1; pen(1); end; x:=0; y:=0; repeat x:=0; repeat if not resource('DATA\rtf.pdf',x,y,0.25,pn) then halt(1); text(x+90,y+60,inttostr(pn)); inc(pn); frame(x+90,y+70,1110,1600); inc(x,1240); until x>4000; inc(y,1710); until y>6000;