?login_element?

Subversion Repositories NedoOS

Rev

Rev 539 | Blame | Compare with Previous | Last modification | View Log | Download

  1.     DEFARRAY    myarray 'A', 'B', 'C'
  2.     DB myarray[#], myarray[0], myarray[myarray[#] - 1]
  3.     DEFARRAY+   myarray 'D', 'E', 'F'
  4.     DB myarray[#], myarray[3], myarray[myarray[#]-1]
  5.  
  6. iii = -1
  7.     DUP myarray[#]
  8. iii = iii + 1 : DB  myarray[iii]    ; the DEFL symbol will be updated separately because of colon
  9.     EDUP
  10.     ; this used to be without colon, but then colon become mandatory, also "fixing" this test :)
  11.