home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8708a.d64
/
search-demo2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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