X:REVISION 24.00 ALTDISP/BAS 03/15/00a::k AZSVC,:PU$()΄PH$" MFG PART NUMBER DESCRIPTION QTY. RECORD"PL$"------------------------------------------------------------------"hPD$"##) \ \ \ \ \ \ ##### #####"PE$"##) EMPTY RECORD #####"PA$"##) ALTERNATE NUMBER #####" "R",,"INV120/DATz , AS LB$, AS A$(), AS A$(), AS A$(), AS A$(), AS A$(),x AS P$(),x AS P$()MR()FS: # ,HI:ALT()HIΆ( I :ALT(I)(A$(I)):*: PH$: PL$, - K . ALT(K) , ALT(K) : $< *d4 J:GET HASH INDEX "ENTER LINE CODE AND PART NUMBER or ENTER to exit";PN$ (PN$) J(PN$," "): J " ENTER A SPACE BETWEEN LINE CODE AND PART NUMBER!": WV$(PN$,,J):WP$(PN$,J)fZ:Z$" "WV$:F: SVC(F,Z$,Z):MCZ: MC "INVALID LINE CODE!": $F :PI$WP$:(PU$,,)PI$(): SVC(F,PU$):PSO$(PU$, )ۈ.F:NP$(MC)PSO$:HIMR: SVC(F,NP$,HI)8 I MC(P$(I)): L,UI$(P$(I),, ): :WPN$UO$RUI$(P$(I),, ): :WD$UO$≦ MC MC PD$;(K)I,MC$,WPN$,WD$,((P$(I),P,)),ALT(K) : MC PA$;(K)I,ALT(K) : PE$;(K)I,ALT(K):FS艰  K I FS "NO ROOM"'PF:(PU$,, )UI$: SVC(F,PU$):UO$(PU$,):LF:ZMC:Z$(): SVC(F,Z,Z$):MC$(Z$,):