ÿéI:�ÛGLQA.BAS, G/L QUERY ACCOUNT STATUS, RDR, 7/19/78 REV. CP/M 2.0, 11/10/78J’ X :�ÛCOPYRIGHT 1978 RETAIL SCIENCES, INC.,J• ¨ ‰ äÔKJPN$ð"QUERY ACCOUNT STATUS"UJ� PÃlJôFM$ð"####,###.##-"{JùFIRST ð ó«JþNR%ðÿ”(V$( )): � 0ò: � °³ :�ÛINIT, OPENóJ‘:Q$ð"DO YOU WANT THE OUTPUT ON THE TERMINAL OR PRINTER (T OR P)? "K� 8Ç: ‹ RL$ð"P" Ï PF%ðó: ‰ 6K ‹ RL$ñï"T" Ï � ðÒ: ‰ hK‘:Q$ð"WHAT ACCOUNT NUMBER IS TO BE QUERIED? "ŒK0Qð : LB!ðd: UB!ð€OC‘: � ȨKX‹ ÿ’(R$)ð Ï R$ðR$ò"00"ÇKl‹ ÿ’(R$)ñï Ï � ðÒ: ‰ ÒK€M1$ðR$ìKŠ� Œ¹ :�ÛREAD MASTERûK�M3ðÿ”(M3$)L”‹ ER%ï  ‰ äÔ :�ÛNO-NO1Lž‹ ER%ð ‰ ¼ :�ÛOKcL¨‘:‘"** THIS ACCOUNT NUMBER DOES NOT EXIST **"˜L­‘"** IN THE MASTER (CHART OF ACCOUNTS) FILE. **"¢L²‰ èÒL¼‹ M3ð Ï S$ð"[TYPE 1 TITLE ACCOUNT]": ‰ ÐMÁ‹ M3ð Ï S$ð"[TYPE 2 DETAIL ACCOUNT]": ‰ Ð)MÆS$ð"[TYPE "òM3$ò" TOTAL ACCOUNT]"MMÐ� ˆ :�ÛPRINT MASTER WHEREVER�MÚ‹ M3ñï ‰ è :�ÛTITLES & TOTALS GO NO FURTHER¡Mä� ½ :�ÛREAD TRANS EXTENTØMø‹ ER%ð Ï � X: ‰ è :�ÛNO MORE FOR THIS MASTERüM � p :�ÛPRINT DETAIL WHEREVERN„‰ ä1Nè‘:Q$ð"ANY MORE ACCOUNTS TO BE QUERIED"JNò� XÊ: ‹ YES Ï ‰ TNü‰ ¼MyNˆ‹ ÿ‚(M1$,)ð"00" Ï M1$ðÿ�(M1$,)‹N’‹ PF% Ï ‰ ì‘N—‘±Nœ‘ M1$;Ð);M2$;Ð);S$;Ð<);ÅN¦‹ M3ñï Ï ‘:‘:ŽØN°‘ Ù FM$;MA#()ÞNºŽøNì� ¼Ê :�ÛTOP OF FORMOö� 0u :�ÛHEADERS.Ož M1$;Ð);M2$;Ð);S$;Ð<);QO ‹ M3ñï Ï ž: LCðLCò: � ùÿ: ŽdOž Ù FM$;MA#()sOLCðLCò: ŽƒOp‹ PF% ‰ ÔºOz‘ Ð);ÿ�(J2$,);Ð);J3$;Ð);J4$;Ð");ÿ�(J5$,);ÒO„‘ Ð*);:‘ Ù FM$;J6#ÜO¢‰ dPÔž Ð);ÿ�(J2$,);Ð);J3$;Ð);J4$;Ð");ÿ�(J5$,);+Pèž Ð*);:ž Ù FM$;J6#5P‰ d_PdTJ#ðTJ#òJ6# :�ÛTOTAL JOURNAL AMOUNTSƒPxLCðLCò: ‹ LCï< Ï � ùÿ: � 0u‰P¾Ž™PX‹ PF% ‰ ¼¹Pb‘ Ð*);:‘ Ù FM$;TJ#;:‘" *";ßPl‘ Ð<);:‘ Ù FM$;TJ#òMA#();:‘" *"ìPvTJ#ð: Ž Q¼ž Ð*);:ž Ù FM$;TJ#;:ž" *";2QО Ð<);:ž Ù FM$;TJ#òMA#();:ž" *" ø ×ðA Ï � zÕ:‰ ¼M‹^æÃ‰ äÔÃ^ðÃN#ð€€¨:X9$ðÿ–()òÿ–():X8$ðÿ–()òÿ–(¨):‰ úÃê^ñÃII$ðÿƒ(ÿ´(N#òDD#ôH‡),,):Ž_õÃDD#ð(ÿ­(X9$òII$òX8$)óÿ…(N#))ô×£p= ×#z:ŽF_úØÓSD!(S$)ðÿ”(ÿ‚(S$,)òÿ�(S$,)òÿƒ(S$,,))‡_ÿØÓDS$(D!)ðÿƒ(ÿ“(D!),,)ò"/"òÿƒ(ÿ“(D!),)ò"/"òÿƒ(ÿ“(D!),,)¶_Ä¿ "I",,"A:GLDA.DAT":… #,VD$:à  :�ÛDATEé_ÄVS$ðV$(): VC$ðV$() :�ÛSYSTEM, COMPANY NAME`Ä‚ Ið Î ÿ”(V$()): DK%(I)ðÿ”(V$(òôI)): ƒB`Ä‘ SC$:� ÔÆ:‘:‘ :�ÛDISPLAY HEADERSr`"Ä‘:‘"ONE MOMENT FOR PROGRAM STARTUP....":‘:Ž `ÔÆ‘Ð(Wóÿ’(VC$))õ);VC$:‘Ð(Wóÿ’(VS$))õ);VS$¹`ÞÆ‘Ð(Wóÿ’(PN$))õ);PN$Ò`èÆ‘Ð(Wóÿ’(VD$))õ);VD$Ø`.ÇŽé`8Ç‘ Q$;:± … R$atÇRL$ðÿ�(R$,):‹RL$ð"?"ω~Ç$ayÇ‹ R$ð"END" Ï ‰ ¼M :¢ Ž7a~Ç‹QïÏ�xæ:‰8ÇvaˆÇ‹QñðÏ‘"FOR FURTHER EXPLANATION SEE THE OPERATOR'S MANUAL"a’lj8Ç¡aÈ�8Ç:N!ð:‹R$ðE$ÏŽ:¢DPð:DGðÄaÈ‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰ÈÖaÈ‹ÿ’(R$)ð‰ZÈúa(È‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))b2È‹CHï/÷CHñ:ÏDGð:‰PÈ>b<È‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰È:¢‰PÈcbFÈ‹(CHñï-÷CHñï+)øJJñïÏ�ðÒ:‰È{bPȃJJ:‹DGðÏ�ðÒ:‰ȦbZÈN!ðÿ”(R$):‹(N!ïðLB!÷N!ñðUB!)øLB!ðUB!ÏŽ´bdÈ�¸Ó:‰ÈàbÈÈ� 8Ç: ‹ ÿ’(R$)ð Ï MOð: DAð: YRð: ŽÿbÜÈ‹ÿ’(R$)ñ ø ÿ’(R$)ï ‰ úÈScÞÈMOðÚ(R$,"/"):‹ MOð ‰ úÈ :¢ ‹ MOð Ï R$ð"0"òR$scàÈDAðÚ(,R$,"/"):‹ DAð ‰ úȨcâÈ‹ DAð Ï RL$ðÿ�(R$,): R$ð"0"òÿ‚(R$,):R$ðRL$òR$ÞcæÈMOðÿ”(ÿ�(R$,)):DAðÿ”(ÿƒ(R$,,)):YRðÿ”(ÿ‚(R$,))dðÈ‹(MOï)÷(MOñ )÷(DAï)÷(DAñ )÷(YRï)÷(YRñc)ÏŽ dúÈ�Ô:‰ÈÈ3d�É�8Ç:DPð:DGðVd¤É‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰¤É�d¸ÉJJðÚ(R$,","):‹JJñïÏR$ðÿƒ(R$,,JJó)òÿƒ(R$,JJò):‰¸É®dÂÉ‹ÿ�(R$,)ð"$"ÏR$ðÿƒ(R$,)ÃdÇÉ‹ÿ’(R$)ðÏD#ð:ŽçdÌÉ‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))eÖÉ‹CHï/÷CHñ:ÏDGð:‰ôÉ+eàÉ‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰�É:¢‰ôÉReêÉ‹(CHñï-)÷(CHñï+)øJJñïÏ�ðÒ:‰�ÉjeôɃJJ:‹DGðÏ�ðÒ:‰�É~eþÉD#ðÿ”(R$ò"D"):Ž–eXÊQ$ðQ$ò" (Y OR N)? "·e]ÊYESð:�8Ç:‹RL$ð"Y"ÏYESðó:ŽÊe_Ê‹ ÿ’(R$)ð Ï ŽçebÊ‹RL$ñï"N"Ï�ðÒ:‰]Ê :¢ Žf¼Ê‘:‘"POSITION THE PAPER AT THE TOP OF A PAGE. "?fÆÊQ$ð"READY":� XÊ: ‹ ÿ’(R$)ð Ï ŽVfÐÊ‹ Õ YES ‰ ÆÊ :¢ Ž�fðÒ‘"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:Žšf"Ó‹ER%ðÏŽÜfTÓ‘"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$æf^Ó‰ ¼Mg¸Ó‘"*** NUMBER IS OUT OF RANGE. ***";BELL$:ŽTgÔ‘"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:Ž…gäÔ‘:‘" BASIC ERROR NUMBER ";×;" LINE NO. ";Ö¶gîÔ‘" CONSULT BASIC MANUAL FOR EXPLANATION. "ÖgøÔ‘:‘"ABNORMAL END OF JOB ":‘ógÕ‚IðÎ�:‘BELL$;:ƒ:© ¼M5hHÕ‘:‘ "*** PROPER SYSTEM FILE NOT FOUND. CAN'T CONTINUE. ***":Ž~hzÕ‘:‘ "*** SYSTEM FILE INITIALIZED IMPROPERLY. CAN'T CONTINUE. ***":޳h_ê:�Û10/30/78 Multi ARray ISam - MARIS (OP) øh`ꕨ‰ºê:•OP�Äê,(ë,Œë,ðë,Tì,¸ì,í, €í,äí,Hî,¬î,ï,tïijꕨ‰äÔ:Ž'iºê‹×ð=ÏER%ð:©jê:¢•¨‰äÔ:©äÔqiÃê:�Û CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) �iÄꕨ‰Îê:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$¬iÎêER%ð×:©ØêÇiØê•¨‰ºê:‹ER%ð:ÏER%ð:Ž2jâê¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$,ASO8$¡jìêÉO0$ð"MARIS":ÉO1$ðÿ–(ÿ):ÉO2$ðDA$:ÉO3$ðÿ²(): ÉO4$ðÿ²():ÉO5$ðO4$:ÉO6$ðÿ²(KL%):ÉO7$ðOC$:ÉO8$ð"103078"¹jöêÂFI%,:ÃFI%:ER%ð:Žk'ë:�Û OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) Ck(땨‰2ë:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$Rk2ëER%ð×:©<ënk<땨‰ºê:‹ER%ñï:ÏER%ð:ŽÍkFë¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$ókPëÁFI%,:‹O0$ñï"MARIS"ÏÃFI%:ER%ð:ŽŠlZëDA$ðO2$:EX%ðÿ«(O3$):NR%ðÿ«(O4$):OAðÿ«(O5$):KL%ðÿ«(O6$):OC$ðO7$: ÀFI%,(KL%)ASOK$,({óKL%)ASOT$,ASOM$,ASOE$,ASOL$: ‹O1$ñïÿ–(ÿ)Ïxë:¢‹NR%ðÏ‚ëmdëOKðKL%ò:OTð€ýOKó:OJðOTò:ÁFI%,EX%:†OT$(OT):OBð: ‚OIðÎOT:ÀFI%,(OB)ASOT$,(OK)ASOT$(OI):OBðOBòOK:ƒ: ‚OIðÎNR%:‹OJïOTÏOJð:ÁFI%;mnëOK$(OI)ðOT$(OJ):OJðOJò:ƒOI:¦OT$:‰‚ëÕmxë‘:‘"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": ‘BE$:NR%ð:ÁFI%,:‹EX%ñÏ‚ë:¢‚OPðÎEX%:ÁFI%: ‹OM$ð"M"ÏNR%ðNR%ò:OK$(NR%)ðOK$òÿ²(OP)nyëƒOP:‹NR%ñÏ‚ë:¢†OH():OH()ð:OH()ð:OH()ð :OTðCnzë‹OH(OTò)ñNR%ÏOTðOTò:OH(OTò)ðôOH(OTò)ò:‰zë€n{ë‚OKðOTÎÑó:OHðOH(OK):‚OJðOHòÎNR%:OIðOJóOH:¥OT$,OK$(OJ)¸n|ë‹OT$ñOK$(OI)Ï¥OK$(OIòOH),OK$(OI):OIðOIóOH:‹OIïÏ|ë×n}ë¥OK$(OIòOH),OT$:ƒOJ,OK:¦OHo‚ëÁFI%,:ÉO1$ðÿ–():ÂFI%,:ODðDI%:‰¸ì+o‹ë:�Û CLOSE MARIS FILE (RETURNS: ER%) HoŒë•¨‰Žë:ÁFI%,:ER%ð:‰�ëWoŽëER%ð:©�ëko�땨‰ºê:‹ER%ðÏŽ�o”ë‹NR%ðϪë:¢OKðKL%ò:OTð€ýOKóp–ëOJð:ÁFI%,EX%:†OT$(OT):OBð: ‚OIðÎOT:ÀFI%,(OB)ASOT$,(OK)ASOT$(OI):OBðOBòOK:ƒ: ‚OIðÎNR%:ÉOT$(OJ)ðOK$(OI):OJðOJò:‹OJïOTÏÂFI%:OJð1p ëƒOI:¦OT$:‹OJñïÏÂFI%�pªëÁFI%,:ÉO1$ðÿ–(ÿ):ÉO3$ðÿ²(EX%):ÉO4$ðÿ²(NR%): ÉO5$ðÿ²(OA):ÉO7$ðOC$:ÂFI%,:ÃFI%:ER%ð:ŽÂpïë:�Û CREATE RECORD (KE$, RETURNS: OI, OS, ER%) Úpðë�í:‹ER%ðÏŽ:¢�”ò qúë‹NR%ïðOBÏ‚OJðNR%ÎOBÑó:¥OK$(OJò),OK$(OJ):ƒmqìNR%ðNR%ò:OIðOB:OK$(OI)ðKE$òÿ²(OS):ÉOK$ðKE$:ÉOM$ð"M": ÉOE$ðÿ²(OS):ÉOL$ðÿ²(OS):ÂFI%,OS:ER%ð:ާqSì:�Û DELETE RECORD (KE$, RETURNS: KE$, OI, OS, ER%) úqTì�í:‹ER%ðÏŽ:¢�øò:NR%ðNR%ó:OTðOS: ‹OIñðNR%Ï‚OJðOIÎNR%:¥OK$(OJ),OK$(OJò):ƒr^ìOSðOL:‹OSñïOTÏ�øò:‰^ì^rhì‹OIïNR%ÏER%ð:Ž:¢OSðÿ«(ÿ‚(OK$(OI),)): KE$ðÿ�(OK$(OI),KL%):ER%ð:Žƒr·ì:�Û REWIND (RETURNS: OI, ER%) ¤r¸ìOIð:‹NR%ðÏER%ð:Ž:¢ER%ð:ŽÒrí:�Û SEARCH (KE$, RETURNS: OI, OS, ER%) síOTðNR%:OBð:‹ÿ’(KE$)ñïKL%ÏKE$ðÿ�(KE$òØ(KL%," "),KL%)As&í‹OBñðOTÏOIð(OTòOB)ý:OT$ðÿ�(OK$(OI),KL%):¢ER%ð:Žrs0í‹OT$ïKE$ÏOTðOIó:‰&í:¢‹OT$ñKE$ÏOBðOIò:‰&í“s:íOSðÿ«(ÿ‚(OK$(OI),)):ER%ð:ŽÍsí:�Û GET RECORD (KE$, RETURNS: OI, OS, OE, OL, ER%) t€í�í:‹ER%ðÏŽ :¢ÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:ŽGtãí:�Û GET NEXT RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) ªtäí‹OIïðNR%ÏER%ð:Ž:¢OIðOIò:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:ŽítGî:�Û GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) NuHî‹OIñðÏER%ð:Ž:¢OIðOIó:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:މu«î:�Û CREATE EXTENT SECTOR (OE, OL, RETURNS: OS, ER%) v¬î�”ò:ÁFI%,OE:ÉOL$ðÿ²(OS):ÂFI%,OE: ÁFI%,OL:ÉOE$ðÿ²(OS):ÂFI%,OL:ÁFI%,OS:ÉOE$ðÿ²(OE): ÉOL$ðÿ²(OL):ÉOM$ð"E":ÂFI%,OS:ER%ð:ŽBvï:�Û DELETE EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) fvïÁFI%,OS:‹OM$ñï"E"ÏER%ð:Ž:¢�øò¬vïÁFI%,OE:ÉOL$ðÿ²(OL):ÂFI%,OE: ÁFI%,OL:ÉOE$ðÿ²(OE):ÂFI%,OL:ER%ð:Žävsï:�Û GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) wtïÁFI%,OS:‹OM$ñï"E"ÏER%ð:¢OEðÿ«(OE$):OLðÿ«(OL$):ER%ð#w~ïŽ:w/ò:�Û SETUP (NR%) Mw0ò®O:†OK$(NR%):Žuw“ò:�Û GET NEW SECTOR (RETURNS: OS) «w”ò‹OAñïÏÁFI%,OA:OSðOA:OAðÿ«(OL$):¢EX%ðEX%ò:OSðEX%ÞwžòÁFI%,:ÉO3$ðÿ²(EX%):ÉO5$ðÿ²(OA):ÂFI%,:ER%ð:Žx÷ò:�Û FREE OLD SECTOR (OS, RETURNS: OE, OL, ER%) `xøòÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ÉOM$ð"F":ÉOL$ðÿ²(OA):OAðOS: ÂFI%,OS:‰žòƒxùÿ‚ IIðLC Î A: ž: ƒ II: LCð: ŽOE, OL, ER%) `xø