0010 ! Graphile DUMP to CMT HPIL video interface/display - by M. Markov
0020 ! GRAPHILE is produced by the GRAPHIC module, copyright Pierre David and 
0030 ! BCMW Informatique, Paris, France
0040 ! JPCROM required (FILESIZE and ESC$ keywords. Also poll handler allows
0050 ! copying GRAPHILE into HP71 RAM.) OFFSETLX or DISASMLX also required.
0060 ! GDUMP allows you to display the graph in sections, and to take corrective
0070 ! action without wasting expensive ThinkJet ink cartridges or paper.
0080 ! 
0090 ! Obviously, the same technique can be applied using HP110/PORTABLE PLUS/IBM
0091 ! PC or compatible graphic displays. You should be able to display entire
0092 ! pages of graphics. Does anybody know what escape sequences should be used?
0093 ! If yes, please pass the information on to:
0095 ! Mike Markov, P.O. Box 17, Lockwood, N.Y. 14859 (USA)
0100 DIM A$,O$
0110 A$=ADDR$('GRAPHILE')
0120 INPUT 'Xmin,Ymin ','0,0';X,Y
0130 D=IP((FILESIZE('GRAPHILE')-19)/80)
0140 X=MIN(X,401)
0150 Y=MAX(MIN(D,Y),64)
0160 DISPLAY IS * @ CLEAR :LCD
0170 OUTPUT :LCD ;ESC$('<');
0180 A$=OFFSET$(A$,42+2*(X DIV 8)+(D-Y)*160)
0190 FOR I=0 TO 63
0200 O$=HTA$(PEEK$(A$,60),1)
0210 OUTPUT :LCD ;ESC$('*b30W');O$;
0220 A$=OFFSET$(A$,160)
0230 NEXT I