home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1987 August
/
64er_Magazin_87-08_1987_Markt__Technik_de_Side_A.d64
/
search-demo2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
280b
|
14 lines
100 a=100
110 dim a$(a)
120 for i=1 to a
140 : a$(i)="test"+str$(i)
160 : print a$(i)
170 next i
180 :
190 s$="":input "suchkriterium";s$
200 i=1
210 sys 49344,s$,a$(i),a$(a),p%
220 if p%<>0 and p%<a then print "string ";a$(p%),"index";p%:i=p%+1:goto 210
230 if p%<>0 then print "string ";a$(p%),"index";p%
240 goto 190