1 ; CHR$(12%) : ; 'Indeksert variabel skal angis' : ; 'med () evt. (,).' : ; : ; : GOTO 65000
65000 ; 'Vilken variabel s|ker du ? '; : INPUTLINE ]$ : ]$=LEFT$(]$,LEN(]$)-2%)
65001 ]%=ASC(]$) : ; : ; ]$' finns p} f|lgende linjenr:' : ; : ; 
65002 ]$=]$+' ' : Q5%=ASC(MID$(]$,2%,1%))-48% : IF Q5%<0% OR Q5%>9% THEN Q5%=0% : Q%=240%
65003 Q6%=INSTR(1%,]$,'%') : Q7%=INSTR(1%,]$,'$') : Q8%=INSTR(1%,]$,'(') : Q9%=INSTR(1%,]$,',')
65004 Q%=Q%+Q5%*16%-(Q6%<>0%)*1%-(Q7%<>0%)*2%-(Q8%<>0%)*4%-(Q9%<>0%)*4%
65005 M%=32768% : REM *** For 32K :   M%=32768% *** For 16K :   M%=49152%
65006 M%=M%+PEEK(M%) : IF PEEK(M%)=1% THEN 65015
65007 R=PEEK(M%+1%)+256%*PEEK(M%+2%) : IF R<0% THEN R=R+65536
65008 FOR I%=M%+3% TO M%+PEEK(M%)
65009 IF PEEK(I%)=]% AND PEEK(I%-1%)=Q% THEN 65012
65010 NEXT I%
65011 GOTO 65006
65012 IF R<65000 ; TAB(K%)R; : \%=1%
65013 K%=K%+6% : IF K%>30% K%=0% : ; : ; 
65014 GOTO 65006
65015 IF \%=1% THEN 65017
65016 ; "I N G E N  ! !"
65017 ; : END