10REM SAVE"$.Arabic.Source.BuildRom"
   20PRINT"Arabic Rom is ";(W%-&8000+1023) DIV 1024;"K"
   30PRINT"Zero page runs from &70 TO &";~N%;" (Max &";~Z%;")"
   40FOR I=&3000 TO &6FFC STEP 4: I!0 = &FFFFFFFF:NEXT
   50*LOAD $.Arabic.Object.Mainobj
   60*LOAD $.Arabic.Object.Cliobj
   70*LOAD $.Arabic.Object.helpobj
   80*LOAD $.Arabic.Object.flipobj
   90*LOAD $.Arabic.Object.Statemc
  100*LOAD $.Arabic.Object.Copyobj
  110*LOAD $.Arabic.Object.OSBytes
  120OSCLI("SAVE $.Arabic.Rom.Arabic 3000 7000 8000 8000")
  130*SRLOAD $.Arabic.Rom.Arabic 8000 YQI
  140END