10REM SAVE"$.Arabic.Test.VduDump"
   20*CLOSE
   30INPUT LINE "File: " F$
   40I%=OPENIN(F$)
   50DIM Params 31
   60FOR I=0 TO 31:Params?I=0:NEXT
   70Params?1 = 1
   80Params?17 = 1
   90Params?18 = 2
  100Params?19 = 5
  110Params?22 = 1
  120Params?23 = 9
  130Params?24 = 8
  140Params?25 = 5
  150Params?28 = 4
  160Params?29 = 4
  170Params?31 = 2
  180REPEAT
  190  C% = BGET#I%
  200  PROCVdu(C%)
  210UNTIL FALSE
  220DEFPROCVdu(Head)
  230IF Head=10 THEN PRINT"<lf>";:ENDPROC
  240IF Head=13 THEN PRINT"<cr>":ENDPROC
  250IF Head=127 THEN PRINT"<del>";:ENDPROC
  260IF Head>=128 THEN PRINT"<Arabic ";Head;">";:ENDPROC
  270IF Head>=32 THEN VDU Head:ENDPROC
  280Count = Params?Head
  290PRINT"<";Head;
  300IF Count=0 THEN PRINT">";:ENDPROC
  310FOR I=1 TO Count
  320  C%=BGET#I%
  330  PRINT",";C%;
  340NEXT
  350PRINT">";
  360ENDPROC