home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh19.d64
/
felder
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
701b
|
37 lines
100 REM**** DATEN INS FELD LESEN ****
105 :
110 DIM A$(100,6)
120 D=D+1
130 FOR K=1 TO 6
140 READ A$(D,K)
150 IF A$(D,K)="@"THEN K=6:NEXT K:GOTO 210
160 NEXT K
170 GOTO 120
195 :
200 REM**** SUCHVORGANG *****
205 :
210 INPUT"STICHWORT";S$
220 FOR S=1 TO D
230 FOR K=1 TO 6
240 IF A$(S,K)=S$ THEN FOR Z=1 TO 6:PRINTA$(S,Z):NEXT Z
250 NEXT K
260 PRINT
270 NEXT S
280 PRINT"ENDE DER SUCHE"
295 :
300 REM**** WIEDERHOLUNG ODER ENDE ****
305 :
310 PRINT"NOCH EINMAL (J/N)?"
320 GET V$:IF V$="" THEN 320
330 IF V$="J" THEN 210
340 END
999 :
1000 REM**** DATENSAETZE *****
1001 :
1002 DATA GAZETTE,SPEEDSCRIPT,UTILITY,1/84,12,64
1003 DATA RUN,DIM,BASIC,3/58,125,20
1004 DATA 64ER,FILES,KURS,4/87,118,64
1005 DATA CHIP,SCHLEIFEN,BASIC,11/83,134,20/64
1006 DATA HAPPY,GARBAGE COLLECTION,KURS,4/87,38,20/64
10000 DATA @