0 '9/8/88 15 ' 21 ' 24 'to call:set LL=legnth,PT=memory pos 30 ' 33 'field data=MID$(RC$,FP(field#),FL(field#)) 39 ' 45 ' 63 ' 69 ' 78 ' 79 'SP=screen position RO=reverse video flag (1=rev,0=normal) 129 ' 141 ' 195 'move record pointer 210 ' 219 ' 231 ' 234 'F()=fields to list, etc 249 ' 252 'CF=expression field#,CO=condition operator,CD$=condition string,NG=flag for bad input 285 ' 300 ' 321 'format printout 345 ' 372 ' 387 ' 390 'NG=0 if condition met 405 'string 420 'val 435 ' 438 'D1$=date passed to sub,D2$=date reformatted 444 ' 453 ' 468 ' 477 ' 478 'CS$():1=APPEND,2=DIR,3=AVERAGE,4=EDIT,5=USE,6=COUNT,7=LIST,8=GO,9=SUM,10=LOCATE,11=QUIT,12=DISPLAY,13=CONT,14=?,15=DISPLAY STRUCTURE,16=FILES,17=MENU 537 ' 540 'NR=#rec,SZ=rec size,NF=#fields,F$()=field data,RC$=records,FP()=field pos in rec,FL()=field lengths 591 ' 599 ' 629 '