: RLE VIEWER FOR THE TANDY 600: STEPHEN NYE [76703,4032]: COPYRIGHT (c) 1987(: 6/27/872:< %F>PCL: : COLOR FLAGxZOS: : OFFSET FLAG (RLE IS HIGHER THAN THE SCREEN)dWRAP: : WRAP-AROUND FLAGnX1:Y1:X2X1: : START AT TOPx ,, :"RLE VIEWER FOR THE TANDY 600" ,:"BY" ,:"STEPHEN NYE";  ,: "RLE FILENAME:";FI$A m :----- FIND HEADER [ESCAPE-G-H] ----- FI$ AS 1 ()  A$ $(,): A$""  (A$)  ()  A$ $(,): A$""  (A$)G " () A A$ $(,): A$"" X  (A$)H  :----- MAIN READ ROUTINE STARTS HERE ----- " ()  ,A$ $(,): A$"" " 6DISP(A$)  @:----- SHOULD ONLY BE PRINTABLE CHARACTERS -----E J DISP_ DISP : : JUST CHECKING FOR ERRORS IN FILE T:----- IF DISPLACEMENT IS ZERO JUST TOGGLE COLOR ----- ^ DISP CL(CL): " h:----- PLOT LINE FROM X1 TO X1+DISPLACEMENT ----- rX2X1DISP- |:----- RLE IS ONLY 256 WIDE SO CHECK FOR WRAP-AROUND -----T  X2 X3X2:X2:WRAPu :----- PLOT THE LINE -----  (X1,Y1)(X2,Y1),CL  WRAP X1X2:CL(CL): " :----- TAKE CARE OF WRAP-AROUND ----- WRAP:Y1Y1:X1:X2X3/  Y1 :: AT LINE 127 SCROLL UP9  ] :----- THIS IS THE EXIT -----g :  :----- DELAY FOR PICTURE VIEWING ----- A$ : A$""   ,<, : : ,<,  "PRESS ANY KEY";& ,<: "TO CONTINUE";0A$ : A$"" 0>: ,<: " ";]D ,<: " ";iN ,<X:: SCROLL UP 8 LINESbY1Y1l