Sorry your browser is not supported!

Rem ***** Main Source File *****
ww=DESKTOP WIDTH()
hh=DESKTOP HEIGHT()
SET DISPLAY MODE ww, hh, 32, 1



dim array$(10,26) 
do

input "col number ";cn

    if cn=1 
      for i = 1 to 23
       print i
        input "name ";na$
       array$(1,i)=na$
        next i  
    ENDIF

    if cn = 2 
        for i = 1 to 14
            print i
        input "name ";na$
        array$(2,i)=na$
        next i
    ENDIF

    if cn=3 
      for i = 1 to 25
       print i
        input "name ";na$
        array$(3,i)=na$
        next i  
    ENDIF

    if cn=4 
      for i = 1 to 5
       print i
        input "name ";na$
        array$(4,i)=na$
        next i  
    ENDIF
    
    if cn=5 
      for i = 1 to 24
       print i
        input "name ";na$
        array$(5,i)=na$
        next i  
    ENDIF
   
        for i = 1 to 25
            print array$(cn,i)
        NEXT
    if cn > 10 then save array "array.arr",array$(10)
loop
wait key
end