Hi all
how can we use instr_case in a Qliberated program ?
100 CLEAR
110 a%= FOPEN ("con")
120 OUTL
130 OUTL #a%,500,200,0,30
140 WINDOW#a%,500,200,0,30
150 CLS#a%
160 :
170 a$ = "hello" : b$ = "Hello": c$ = "hELLO"
180 :
190 PRINT#a%
200 PRINT#a%,,"instr_case truth table "
210 PRINT#a%
220 :
230 INSTR_CASE 1
240 PRINT#a%,,"instr_case 1"
250 PRINT#a%
260 PRINT#a%,, a$,a$,a$ INSTR a$
270 PRINT#a%,, b$,b$,b$ INSTR b$
280 PRINT#a%,, a$,b$,a$ INSTR b$
290 PRINT#a%,, b$,a$,b$ INSTR a$
300 PRINT#a%,, b$,c$,b$ INSTR c$
310 PRINT#a%,, c$,a$,c$ INSTR a$
320 PAUSE#a%
330 CLS#a%
340 CLOSE#a%
Greetings from Switzerland
Markus
_______________________________________________
QL-Users Mailing List
