AMSTRAD cpc 6128 User Instruction page 373

270 o$=MID$(s$,c1,1)+MID$(s$,c2,1)+MID$(s$,c3,1)+MID$(s
$,c4,1)+MID$(s$,c5,1)+MID$(s$,c6,1)+MID$(s$,c7,1)
280 LOCATE 12,5:PRINT x;o$
290 IBANKWRITE,@r%,o$
300 IF r%<0 THEN STOP
310 x=x+1
320 NEXT c7
330 NEXT c6
340 NEXT c5
350 NEXT c4
360 NEXT c3
370 NEXT c2
380 NEXT c1
390 lastrec=r%
400 REM now look them up
410 r%=0:g$=SPACE$(7)
420 PRINT:INPUT"What match do you require: use? as wil
d card: ",m$
430 m$=LEFT$(m$,7)
440 FOR x=1 TO LEN(m$)
450 IF MID$(m$,x,1)="?"THEN MID$(m$,x,1)=CHR$(0)
460 NEXT
470 IBANKFIND,@r%,m$,0,lastrec
480 IF r%<0 THEN GOTO 420
490 IBANKREAD,@r%,g$
500 PRINT g$,
510 IBANKFIND,@r%,m$,r%+1,lastrec
520 GOTO 480
Chapter 8 Page 8 More About the Bank Manager.. ..