Print results with Prime.

[StephenG1CMZ]

(06-04-2016 04:58 PM)jrozsas Wrote:  I enjoyed that. Someone would have a ready program that demonstrates this function?

This demonstrates the technique - it works for the text and numbers, I haven't tried other data types.

Code:



 LOCAL G1CMZ_PRINTER:="G1CMZ_PRINTER_DEMO";
 LOCAL OKC,CHS,II;
 LOCAL NL:=CHAR(10);

 PRINTER (TXT)
 BEGIN
  Notes(G1CMZ_PRINTER):=Notes(G1CMZ_PRINTER)+TXT+NL;
 END;

 EXPORT DEMOPRINTER()
 BEGIN
  OKC:=CHOOSE(CHS,"DEMO","RUN DEMO");
  IF OKC THEN
   IF CHS==1 THEN
    Notes(G1CMZ_PRINTER):="Printer reset at "+Time+NL;//ERASES OLD DATA
   
    PRINTER("This file has too much data");
    PRINTER("only if you have no pen");
    FOR II FROM 1 TO 9 DO
     PRINTER(II);
    END;
    PRINTER("ON PC:SELECT FILE AND PRINT");
    PRINTER("ON ANDROID:COPY CONTENTS TO CLIPBOARD AND PASTE");
  END;
  MSGBOX("RESULT IN Notes("+G1CMZ_PRINTER+")");
END;
 
 END;