ÿûI:�ÛARIN.BAS, ACCOUNTS RECEIVABLE INVOICE GENERATION, SSM, 2/06/79 REV. AR CP/M 2.1, 3/29/79-J’ p :�ÛCOPYRIGHT 1979 RETAIL SCIENCES INC.:J® AóZ: ÌWJPN$ð"INVOICE GENERATION"aJ‰ dvJË"A:ARIN.BAS": �ŠJ :�Û MONTH DATA¼J „ -1,30,59,90,120,151,181,212,243,273,304,334ÙJ:�Û FIELD POSITION DATAK„ 6,24,24,24,10,1,4,4,4,2,2,4,4,2,4,4%K:�Û FIELD POSITION IN EXTENT\K„ 6,2,2,8,13,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,2,4uK:�Û FIELD NAME DATAÁK„ "SHIP TO NAME","SHIP TO STREET","SHIP TO STATE","SHIP VIA","DELIVERY"L(„ "SHIP DATE","DUE DATE","TERMS","CUST. ORDER NO","YOUR ORDER NO"IL2„ "ORDER DATE","SALESMAN","ITEM NO","NO ORDERED","NO SHIPPED"ŽL<„ "DESCRIPTION","UNIT PRICE","AMOUNT","SUBTOTAL","FREIGHT","TAX"ÇLF„ "SERV. CH","MISC. DB","DEPOSIT","DISCOUNT","TOTAL"ßLd� PÃ: � @œ: � h¿EMnQ$ð"WHAT IS THE DATE TO BE USED ON THESE INVOICES? ": � ÈÈ: � ,É: ID$ðR$: II$ðR$: � 1Ä: IDðNN°Mx‘:Q$ð"WHAT IS THE BEGINNING INVOICE NUMBER? ": LB!ð: UB!ðð#t”: � È: IN!ðÿ…(N!): ‹ IN!ñïN! Ï ‰ xºM‚� ¼ÊÓMÇ:�Û GET CUSTOMER ID@NÈ� ': ‹ RLð Ï ‰ €» :¢ ‹ ERñï Ï ‘ "*** A CUSTOMER WITH THE ID '";KE$;"' DOES NOT EXIST ***": ‰ ÈÝNÒ‚ Ið Î  : D$(I)ð"": ƒ: D$()ðA$(): D$()ðA$(): D$()ðA$(): NNðIDò: � 6Ä: D$()ðII$: D$()ð"NET 30": ‚ Ið Î : D$(I)ð"0.00": ƒ: S#ð: MRðOS O×IN$ðÿ‚(" "òÿ“(IN!),)ò" ": IN!ðIN!ò: ‹ IN!ïð#t” Ï IN!ð€OÜ‘ SC$: ‘ Ð);"NAME";Ð!);"DEFAULT";Ð@);"VALUE": ‘ Ø(,"-");Ð);Ø(,"-");Ð7);Ø(,"-")ÖOæ‚ Ið Î  : ‘ N$(I);Ð);": ";D$(I);Ð5);": ";: Q$ð"": � 8Ç: ‹ RLñï Ï D$(I)ðR$ÜOðƒ P‘: Q$ð"IS THIS CORRECT": � XÊ: ‹ YES ø ÿ’(R$)ð ‰  :¢ ‰ Ü6PPAð: � ø§: S#ðbP‚ Ið Î : D$(I)ð"": ƒ: D$()ð"0.00"ÂP‘ SC$: ‘ Ð);"NAME";Ð!);"DEFAULT";Ð@);"VALUE": ‘ Ø(,"-");Ð);Ø(,"-");Ð7);Ø(,"-")Q"‚ Ið Î : ‘ N$(I);Ð);": ";D$(I);Ð5);": ";: Q$ð"": � 8Ç: ‹ RLñï Ï D$(I)ðR$ Q'ƒ`Q,D$()ðÿ“(ÿ”(D$())ôÿ”(D$())): ‘ N$();Ð5);": ";D$()¤Q@‘: Q$ð"IS THIS CORRECT": � XÊ: ‹ YES ø ÿ’(R$)ð ‰ B :¢ ‰ ÊQBS#ðS#òÿ”(D$()): ‹ LCï9 Ï � ø§RDž Ð);D$( );Ð);D$();Ð);D$();Ð);D$();Ð7);@RFž Ù "#######.## #######.##";ÿ”(D$()),ÿ”(D$()): ž”RHLCðLCò:‘: Q$ð"IS THERE ANOTHER ITEM TO ENTER": � XÊ: ‹ YES ø ÿ’(R$)ð Ï ‰ ÐRJD$()ðÿ“(S#): D$()ðÿ“(ÿ…(ÿ«(A$())ôS#õèò€)õd)0SL‘ SC$: ‘ Ð);"NAME";Ð!);"DEFAULT";Ð@);"VALUE": ‘ Ø(,"-");Ð);Ø(,"-");Ð7);Ø(,"-")ˆSN‚ Ið Î : ‘ N$(I);Ð);": ";D$(I);Ð5);": ";: Q$ð"": � 8Ç: ‹ RLñï Ï D$(I)ðR$ŽSOƒ7TPTD#ðÿ”(D$()òE$)òÿ”(D$()òE$)òÿ”(D$()òE$)òÿ”(D$()òE$)òÿ”(D$()òE$): TC#ðÿ”(D$()òE$)òÿ”(D$()òE$): TB#ðTD#óTC#: D$()ðÿ“(TB#): ‘ N$();Ð5);": ";D$(){TR‘: Q$ð"IS THIS CORRECT": � XÊ: ‹ YES ø ÿ’(R$)ð ‰ T :¢ ‰ L­TTOSðOL:OPð :� `ê: ‹ ERð ÷ IN$ñB$() Ï ‰ TñT^‹ ERð ÷ IN$ðB$() ÷ IDñÿ«(B$()) Ï OSðOL: OPð : � `ê: ‰ ^ UhOLðOS: OPð : � `êsU�ÉB$()ðKE$:ÉB$()ðÿ²(ID):II$ðD$():�1Ä:ÉB$()ðÿ²(NN): ÉB$()ðIN$:ÉB$()ðD$():ÉB$()ð"0":ÉB$()ð" "®Uš‚ Ið Î  : DD#ðÿ”(D$(Iò )òE$): �Ä: É B$(I)ðII$: ƒÏU¤DD#ðTD#: � Ä: É B$( )ðII$#V®DD#ðÿ”(D$()òE$): � Ä: É B$( )ðII$: DD#ðÿ”(D$()òE$): � Ä: É B$()ðII${V¸DD#ð: � Ä: É B$()ðII$: É B$()ðII$: É B$()ðII$: É B$()ðII$: É B$()ðII$œVÂDD#ðTC#: � Ä: É B$()ðII$½VÌDD#ðTB#: � Ä: É B$()ðII$àVÖÉ B$()ðÿ²(): É B$()ðÿ²(),WÛ‹ DD#ñ Ï É B$()ðII$: É B$()ðB$() :¢ É B$()ðII$: É B$()ðB$()8Wà #,OS[Wô‹ LCñ; Ï ž" ": LCðLCò: ‰ ô‚Wþž Ð;);"SUBTOTAL:";: ž Ù F1$;S#: žÜWž " FREIGHT TAX SERV. CH MISC. DB DEPOSIT "; "DISCOUNT";ÐH);"TOTAL"9Xž " -------- -------- -------- -------- -------- "; "--------";ÐF);"========"¡Xž Ð);: ‚ Ið Î : ž Ù F1$;ÿ”(D$(I));: ƒ: ž ÐD);: ž Ù F1$;ÿ”(D$()): ž ÐF);"========": LCðA¿X%:�Û UPDATE HEADER RECORDY&Á FI%,MR: II$ðA$(): � "Ä: DD#ðDD#òTD#óTC#: � Ä: É A$()ðII$SY0‹ TD#ñï ÷ ÿ«(A$( ))ñðID Ï É A$( )ðÿ²(ID): DD#ðTD#: � Ä: É A$( )ðII$‹Y5II$ðA$( ): � "Ä: DD#ðDD#òTD#: � Ä: É A$( )ðII$ÚY:‹ TC#ñï ÷ ÿ«(A$( ))ñðID Ï É A$( )ðÿ²(ID): DD#ðTC#: � Ä: É A$()ðII$Z?II$ðA$(): � "Ä: DD#ðDD#òTC#: � Ä: É A$()ðII$&ZD FI%,MR: ‰ ÈPZ':�Û QUERY A CUSTOMER NAME AND VERIFYvZ'‘: Q$ð"WHAT IS THE CUSTOMER ID? "£Z'� 8Ç: ‹ RLð Ï Ž :¢ KE$ðR$: OPð: � `ê©Z.'ŽÉZ?œ:�Û PROGRAM INITIALIZATIONâZ@œNR%ðÿ”(V$()): � 0òœFI%ð: NA$ð"ARCF.DAT": DI%ðÿ•(V$())óA: OPð: � `êf[Oœ† A$(): Tð: ‚ Ið Î : ‡ N: À #,(T) AS T$,(N) AS A$(I): TðTòN: ƒ±[Qœ† B$(): Tð: ‚ Ið Î : ‡ N: À #,(T) AS T$,(N) AS B$(I): TðTòN: ƒÝ[Tœ† N$(),D$(): ‚ Ið Î : ‡ N$(I): ƒ\^œF1$ð"#######.##": LCð: E$ð"#": Ž!\¤:�Û EJECT TO TOP OF PAGEK\¤‹ LCñï Ï ‚ IIðLC Î B: ž" ": ƒ: LCðQ\¤Žv\÷§:�Û PRINT A HEADER ON THE PAPER˜\ø§� ¤: ž: ž: ž Ð-);Ø(,"*")´\¨ž Ð,);"***";ÐD);"***"ç\ ¨ž Ð);V$();Ð,);"*** I N V O I C E ***" ]¨ž Ð);V$();Ð,);"***";ÐD);"***",] ¨ž Ð);V$();Ð-);Ø(,"*")n]*¨ž: ž: ž Ð);"ACCOUNT NUMBER: ";KE$;Ð,);"INVOICE NO. : ";IN$‘]4¨ž: ž Ð,);"INVOICE DATE: ";ID$¼]9¨ž: ž Ð,);"PAGE";Ð8);": ";PA: PAðPAòã]>¨ž: ž Ð );Ø(,"=");Ð3);Ø(,"=")^H¨ž " SOLD ";A$();Ð,);"SHIP ";D$()C^R¨ž " TO ";A$();Ð,);" TO ";D$()_^W¨ž Ð );A$();Ð3);D$()‰^\¨ž Ð );Ø(,"=");Ð3);Ø(,"="): ž: žÆ^f¨ž Ð);"SHIP VIA : ";D$();Ð,);"YOUR ORDER NO : ";D$()_p¨ž Ð);"DELIVERY : ";D$();Ð,);"OUR ORDER NO : ";D$( )B_z¨ž Ð);"SHIP DATE : ";D$();Ð,);"ORDER DATE : ";D$( )€_„¨ž Ð);"DUE DATE : ";D$();Ð,);"SALESMAN : ";D$( )¥_ލž Ð);"TERMS : ";D$(): ž: ž÷_˜¨ž " ITEM ORD SHP";Ð#);"DESCRIPTION";Ð:);"PRICE"; ÐF);"AMOUNT"I`¢¨ž " -------- --- --- ";Ø(,"-"); " ---------- ----------" : žV`¬¨LCð!: Žu`¯³:�Û PAUSE TO SHOW MESSAGE·`°³‘: ‘ "PRESS THE 'RETURN' KEY TO CONTINUE ";: Q$ð"": � 8Ç: ŽÐ`»:�Û END THE PROGRAMê`€»OPð: � `ê: ‘: � ¤VaŠ»‘: ‘ Ð);"*** END OF ";PN$;" ***": ‘: ‘ "PRESS THE 'RETURN' KEY TO RETURN TO THE PROGRAM MENU": Q$ð""¥a”»� 8Ç: ‹ RL%ñï Ï � :¢ ‘ "*** LOADING PROGRAM MENU...": Š "A:AR MENU.BAS"¾ag¿:�Û PRINT A HEADING/bh¿‘ SC$: ‘ Ð(Wóÿ’(H1$))ý);H1$: ‘ Ð(Wóÿ’(H2$))ý);H2$: ‘ Ð(Wóÿ’(H3$))ý);H3$: ‘ Ð(Wóÿ’(H4$))ý);H4$: ‘: ‘: ŽNbOÃ:�Û SYSTEM INITIALIZATION�bPÕ ¨ ‰ HÕ: ¿ "I",,"A:ARDATE.DAT": … #,TD$: ÃëbZÆ V$(): ¿ "I",,"A:ARSYS.DAT": … #,V$(): ‹ V$()ñï"A" Ï Ã: ¿ "I",,V$()ò":ARSYS.DAT": … #,V$() cn Ið Î : … #,V$(I): ƒ: ÃGcwÃSC$ð"":‚IðÎÿ’(V$())Ñ:SC$ðSC$òÿ–(ÿ”(ÿƒ(V$(),I,))):ƒjcxÃWðP: BELL$ðÿ–(): PWð„: LCðxc‚Õ ¨ ‰ äÔ³c´ÃH1$ðV$(): H2$ð"ACCOUNTS RECEIVABLE": H3$ðPN$: H4$ðTD$ìcÄN#ð€€¨:Z9$ðÿ–()òÿ–():Z8$ðÿ–()òÿ–(¨): ‰ ,ÄdÄII$ðÿƒ(ÿ´(N#òDD#ôH‡),,): ŽBd"ÄDD#ð(ÿ­(Z9$òII$òZ8$)óÿ…(N#))ô×£p= ×#z: Ždd,ĆMO( ):‚IðÎ :‡MO(I):ƒ:‰@Ääd1ÄYRðÿ”(ÿ‚(II$,)): MOðÿ”(ÿ�(II$,)): DAðÿ”(ÿƒ(II$,)): NNðÿ…(YRô 6‰ò@€)òMO(MO)òDAóWG: ‹ (YR ü )ñï ÷ MOï Ï NNðNNóêd2ÄŽFe6ÄT!ðNNòWG: YRðÿ…(T!õ 6‰): DAðÿ…(T!óYRô 6‰): MOð : ‹ (YR ü )ñï ÷ DAï: Ï DAðDAòxe7Ä‹ DAñðMO(MO) Ï MOðMOó: ‰ 7Ä :¢ DAðDAóMO(MO)´e8ÄII$ðÿ‚(ÿ“(MO),)ò"/"òÿ‚(ÿ“(DA),)ò"/"òÿ‚(ÿ“(YR),): ŽÑe@ÄII$ðTD$: � 1Ä: TDðNN: Žåe7Ç:�Û QUERY LINEf8Ç‘Q$;:R$ð"":±…R$:RL$ðÿ�(R$,):RL%ðÿ’(R$).ftÇ‹ R$ñï"END" Ï Ž :¢ ‰ €»DfÿÇ:�Û QUERY NUMBERMfÈ�8Ç`f ÈN!ð:DPð:DGðƒfÈ‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰È•fÈ‹ÿ’(R$)ð‰Zȹf(È‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))Ôf2È‹CHï/÷CHñ:ÏDGð:‰PÈöf<È‹CHð.ÏDPðDPò:‹DPïÏnÈ:¢PÈgFÈ‹(CHñï-÷CHñï+)øJJñïÏnÈ'gPȃJJ:‹DGðÏnÈRgZÈN!ðÿ”(R$):‹(N!ïðLB!÷N!ñðUB!)øLB!ðUB!ÏŽfgdÈ‹ÕF1%Ï�¸Ó:‰ȃgnÈ‹F1%ÏE9%ðó:Ž:¢�ðÒ:‰È—gÇÈ:�Û QUERY DATE¯gÈÈ�8Ç:‹RLðÏR$ðTD$:ŽÊgÜÈ‹ÿ’(R$)ñøÿ’(R$)ï‰úÈögÞÈMOðÚ(R$,"/"):‹MOð‰úÈ:¢‹MOðÏR$ð"0"òR$hàÈDAðÚ(,R$,"/"):‹DAð‰úÈDhâÈ‹DAðÏRL$ðÿ�(R$,):R$ð"0"òÿ‚(R$,):R$ðRL$òR$zhæÈMOðÿ”(ÿ�(R$,)):DAðÿ”(ÿƒ(R$,,)):YRðÿ”(ÿ‚(R$,))ŸhðÈ‹(MOï)÷(MOñ )÷(DAï)÷(DAñ )ÏŽ­húÈ�Ô:‰ÈÈÉh+É:�Û INDICATE DATE USEDéh,É‹ RLð Ï ‘ "USING DATE ";R$ïh6ÉŽi�É:�Û QUERY DOLLARi�É�8ÇišÉDPð:DGð?i¤É‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰¤Éyi¸ÉJJðÚ(R$,","):‹JJñïÏR$ðÿƒ(R$,,JJó)òÿƒ(R$,JJò):‰¸É—iÂÉ‹ÿ�(R$,)ð"$"ÏR$ðÿƒ(R$,)¬iÇÉ‹ÿ’(R$)ðÏD#ð:ŽÐiÌÉ‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))ëiÖÉ‹CHï/÷CHñ:ÏDGð:‰ôÉ jàÉ‹CHð.ÏDPðDPò:‹DPïÏÊ:¢ôÉ.jêÉ‹(CHñï-)÷(CHñï+)øJJñïÏÊ@jôɃJJ:‹DGðÏÊTjþÉD#ðÿ”(R$ò"D"):ŽqjÊ‹F1%ÏE9%ðó:Ž:¢�ðÒ:‰�ɇjWÊ:�Û QUERY YES/NO½jXÊQ$ðQ$ò" (Y OR N)? ": YESð:�8Ç:‹RL$ð"Y"ÏYESðó:ŽÍj_Ê‹ÿ’(R$)ðÏŽèjbÊ‹RL$ñï"N"Ï�ðÒ:‰XÊ:¢Žk»Ê:�Û QUERY TOP-OF-PAGE6k¼Ê‘:‘"POSITION THE PAPER AT THE TOP OF A PAGE. "VkÆÊQ$ð"READY":�XÊ:‹ÿ’(R$)ðÏŽgkÐÊ‹ÕYES‰ÆÊ:¢ŽkïÒ:�Û ERROR MESSAGES¸kðÒ‘ "*** INVALID ENTRY. PLEASE REENTER. ***";BELL$: ŽúkTÓ‘"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$ l^Ó• ¨ ‰ : �:l¸Ó‘"*** NUMBER IS OUT OF RANGE. ***";BELL$:ŽylÔ‘"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:ŽªläÔ‘:‘" BASIC ERROR NUMBER ";×;" LINE NO. ";ÖçlîÔ‘" CONSULT BASIC MANUAL FOR EXPLANATION. ": Eð×: © tÖ/mHÕ‘ "*** IMPROPER SYSTEM FILE. RUN SYSTEM INITIALIZATIION ***": Eð9mRÕ© tÖLmtÖ• ¨ ‰ : ¨ E�m_ê:�Û12/18/78 Multi ARray ISam - MARIS (OP) Æm`ꕨ‰ºê:•OP�Äê,(ë,Œë,ðë,Tì,¸ì,í, €í,äí,Hî,¬î,ï,tïÓmjꕨ‰äÔ:Žõmºê‹×ð=ÏER%ð:©jê:¢•¨‰äÔ:©äÔ?nÃê:�Û CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) knÄꕨ‰Îê:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$znÎêER%ð×:©Øê•nØê•¨‰ºê:‹ER%ð:ÏER%ð:Žoâê¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$,ASO8$ooìêÉO0$ð"MARIS":ÉO1$ðÿ–(ÿ):ÉO2$ðDA$:ÉO3$ðÿ²(): ÉO4$ðÿ²():ÉO5$ðO4$:ÉO6$ðÿ²(KL%):ÉO7$ðOC$:ÉO8$ð"103078"‡oöêÂFI%,:ÃFI%:ER%ð:Žåo'ë:�Û OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) p(땨‰2ë:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$ p2ëER%ð×:©<ë