10DIM P% &700
   20DIM r 255
   30Pass=2:OP%=P%:z=FNAsm
   40OSCLI("LOAD $.Arabic.Object.Px0346 "+STR$~(r))
   50FOR I=0 TO 9
   60FOR offset = 2 TO 2+9
   70  OP%?(I*10+offset) = r?(OP%?(I*10+offset))
   80NEXT
   90NEXT
  100*SPOOL ZZZ
  110FOR I=0 TO 9
  120PRINT"EQUB 23:EQUB ";I+ASC("0");
  130FOR offset=2 TO 2+9
  140PRINT":EQUB ";OP%?(I*10+offset);
  150NEXT
  160PRINT
  170NEXT
  180*SPOOL
  190END
  200DEFFNAsm
  210[OPT Pass
  220  EQUB 23:EQUB ASC("0"):EQUB 0:EQUB 0:EQUB 16:EQUB 16:EQUB 0:EQUB 0:EQUB 0:EQUB 0
  230  EQUB 23:EQUB ASC("1"):EQUB 8:EQUB 8:EQUB 8:EQUB 8:EQUB 8:EQUB 8:EQUB 8:EQUB 0
  240  EQUB 23:EQUB ASC("2"):EQUB 72:EQUB 72:EQUB 56:EQUB 8:EQUB 8:EQUB 8:EQUB 8:EQUB 0
  250  EQUB 23:EQUB ASC("3"):EQUB 84:EQUB 84:EQUB 44:EQUB 4:EQUB 4:EQUB 4:EQUB 4:EQUB 0
  260  EQUB 23:EQUB ASC("4"):EQUB 14:EQUB 2:EQUB 4:EQUB 8:EQUB 4:EQUB 2:EQUB 30:EQUB 0
  270  EQUB 23:EQUB ASC("5"):EQUB 0:EQUB 28:EQUB 34:EQUB 34:EQUB 34:EQUB 34:EQUB 28:EQUB 0
  280  EQUB 23:EQUB ASC("6"):EQUB 56:EQUB 32:EQUB 32:EQUB 32:EQUB 32:EQUB 32:EQUB 32:EQUB 0
  290  EQUB 23:EQUB ASC("7"):EQUB 68:EQUB 68:EQUB 68:EQUB 68:EQUB 68:EQUB 40:EQUB 16:EQUB 0
  300  EQUB 23:EQUB ASC("8"):EQUB 8:EQUB 20:EQUB 34:EQUB 34:EQUB 34:EQUB 34:EQUB 34:EQUB 0
  310  EQUB 23:EQUB ASC("9"):EQUB 24:EQUB 36:EQUB 36:EQUB 56:EQUB 32:EQUB 32:EQUB 32:EQUB 0
  320]
  330=Pass