000/4Бе 7010/#ДВ MARK PAGE DOWN/HЙЕ PTл9┤NIм8 з PT│PTл9 :Д PT│NIм8/TОБж 3000/_ШБе7010/Б@В UPDATE DISPLAY # OF ENTRIES/└Jч 0:ъ(7,7)м(106,16),╜,BF:ч 1,0:ю(1,1),"ENTRIES=":ю(9,1),NI/╩Tч 1,0/╨^Р/ъ#(В PRINT GROCERY LISTS/∙#*Т &HFFD8,00#-З #м2," "0G#2F2$│"             %                        %       $###.##"0U#7А C│1 е 40^#:T2│00t#<Е S$(C)│"" з 91000Ц#FЗ #м2,"   GROCERY  -  ";S$(C)0▐#KЗ #м2,"   --------------------------------------------------------"1#PЗ #м2,"              PRODUCT                          PRICE"1.#UА T│1 е NI1B#ZЕ M(T)│0 з 90701K#_TM│T1W#dБж 33001С#iЕ P1│C з З #м2,═ F2$;PR$(T,1),PC(T,P1):T2│T2лPC(T,P1)1Щ#nЛ T1┘#pЗ #м2,"                                  TOTAL----$    ";T22!#sЗ #м2,"   --------------------------------------------------------"29#xА J│1 е 4:З #м2," "2A#zЛ J2I#МЛ C2X#СТ &HFFD9,02^#ЦР2dъ`ў2vъeТ &HE6E4,&HE72ЕъjТ &HFFD8,0лPC(T,P1)1Щ#nЛ T1┘#pЗ #м2,"                                  TOTAL----$    ";T22!#sЗ #м2,"   -----------------------                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ИВ SCAN ROUTINE2Тч 1,0:ъ(10,176)м(628,190),╜,BFTЬч 0,1:ю(34,22),"SCAN ENTRIES"вжю(9,23),"ARROWS MOVE BY LINES  F1-PAGE UP  F2-PAGE DOWN  CNTRL-MAIN MENU"╗░I$│ Т:Е I$│"" з 5040
║Е I$│ Л(189) з ч 1,0:ъ(10,176)м(628,190),╜,BF:ч 0,0:ю(36,22),M$:ю(17,23),H$:Р%─Е I$│ Л(103) з 5300;╬Е I$│ Л(4) з 5200R╙Е I$│ Л(94) з 5400i╪Е I$│ Л(10) з 5450М▌Е I$▓ Л(64) ░ I$┤ Л(91) з 5500ШOБе 5040жPВ PAGE UP╦UЕ PTл9┤NIм8 з PT│PTл9 :Д PT│NIм8╫_Бж 3000уdБе 5040є┤В PAGE DOWN╛Е PTм9▓0 з PT│PTм9 :Д PT│1╚Бж 3000*╥Бе 50408В LINE UPV"Е PT┤▓1 з PT│PTм1 :Д 5040b,Бж 3000n6Бе 5040~JВ LINE DOWNЮTЕ PT┤NIм8 з PT│PTл1 :Д 5040кYБж 3000╢^Бе 5040╔|В USE HOT KEYSх~Е I$│"A" з PT│1:Бе 5560эЖX│1 ЛЕ X▓NI з 5040 BРЕ I$│▓ Р(PR$(X,1),1,1) ░ I$┤│ Р(PR$(Xл1,1),1,1) з PT│X:Бе 5550 LХX│Xл1 XЪБе 5515 pоЕ PTл8▓NI з PT│NIм8 |╕Бж 3000 И┬Бе 5040 ЫpВ EDIT ROUTINE ╛zч 1,0:ъ(10,176)м(628,190),╜,BF рДч 0,1:ю(34,22),"EDIT ENTRIES"!:Ою(2,23),"ARROWS TO MOVE  ENTER-EDIT  F1-INSERT  F2-DELETE  CNTRL-MAIN MENU  HOT KEYS"!CУEC│0!fХы(0,ECн16л32)м(639,ECн16л46),2!ЛЦь(0,ECн16л32)м(639,ECн16л46),2,╛!дШI$│ Т:Е I$│"" з 6040!╟Эь(0,ECн16л32)м(639,ECн16л46),2!▀вЕ I$│ Л(189) з 5050"
мЕ I$│ Л(13) з Бж 6100:Бе 6037"$▒Е I$│ Л(103) з Бж 6300:Бе 6085":╢Е I$│ Л(4) з 6400"Ъ╗Е I$│ Л(94) ░ EC▓0 з EC│ECм1:Бе 6037::Д Е I$│ Л(94) ░ EC│0 ░ PT▓1 з PT│PTм1:Бж 3000:Бе 6037"¤└Е I$│ Л(10) ░ EC┤8 з EC│ECл1:Бе 6037::Д Е I$│ Л(10) ░ EC│8 ░ PT┤NIм8 з PT│PTл1:Бж 3000:Бе 6037# ┬Е I$▓ Л(64) ░ I$┤ Л(91) з 6087#,┼Бе 6037#P╟Е I$│"A" з PT│1:Бж 3000:Бе 6037#X╚X│1#j╔Е X▓NI з 6037#н╩Е I$│▓ Р(PR$(X,1),1,1) ░ I$┤│ Р(PR$(Xл1,1),1,1) з PT│X:Бе 6095#╖╦X│Xл1#├╠Бе 6089#█╧Е PTл8▓NI з PT│NIм8#ч╨Бж 3000#є╤Бе 6037$╘В EDIT THIS LINE$-┘ь(0,ECн16л32)м(639,ECн16л46),2,╛$?▐Т &HE6E4,&HE6$Gут32$aшЗ @12,"EDIT AN ENTRY"$ИэЗ @32,"PRODUCT     - "PR$(PTлEC,1)$пЄЗ @64,"DESCRIPTION - "PR$(PTлEC,2)$╥ЇF1$│"%           %    $###.##"$ЁўЗ ═ F1$;S$(1),PC(PTлEC,1)%№З ═ F1$;S$(2),PC(PTлEC,2)%,
З ═ F1$;S$(3),PC(PTлEC,3)%JЗ ═ F1$;S$(4),PC(PTлEC,4)%[З  б(32,255)%вЗ @256,"      ENTER NEW DATA OR....           PRESS ENTER IF SAME"%╜Й "PRODUCT     - ";H1$%▌Е H1$│"" з H1$│PR$(PTлEC,1)%°Й "DESCRIPTION - ";H2$&Е H2$│"" з H2$│PR$(PTлEC,2)&4З S$(1)" PRICE -";:Й A1&PЕ A1│0 з A1│PC(PTлEC,1)&lЗ S$(2)" PRICE -";:Й A2&И!Е A2│0 з A2│PC(PTлEC,2)&д$З S$(3)" PRICE -";:Й A3&└&Е A3│0 з A3│PC(PTлEC,3)&▄)З S$(4)" PRICE -";:Й A4&°+Е A4│0 з A4│PC(PTлEC,4)'5.З "PRESS ENTER IF CORRECT ELSE ....         PRESS CNTRL"'N3I$│ Т:Е I$│"" з 6195']6Е IE│1 з Р'u8Е I$│ Л(189) з 6290'К=PR$(PTлEC,1)│H1$'ЯBPR$(PTлEC,2)│H2$'▓GPC(PTлEC,1)│A1'┼LPC(PTлEC,2)│A2'╪QPC(PTлEC,3)│A3'ыVPC(PTлEC,4)│A4'ЄТф4(ХТ &HE6E4,&HE7(ЦБж 8000(ЧБж 3000("ЫР(AЬВ INSERT NEW PRODUCT ENTRY(JЮIE│1(\бТ &HE6E4,&HE6(dжт32(АлЗ @11,"INSERT AN ENTRY"(ФмЕ NI│150 з 6390(а░Бж 6165(╕╡Е I$│ Л(189) з 6385(└║X│1(┌┐Е H1$┤PR$(X,1) з 6350(ф─X│Xл1(ў╔Е X┤│NI з 6335)╬NI│NIл1)╙А J│NI е Xл1 й м1))╪M(J)│M(Jм1))A┌PR$(J,1)│PR$(Jм1,1))Y▌PR$(J,2)│PR$(Jм1,2))oрPC(J,1)│PC(Jм1,1))ЕтPC(J,2)│PC(Jм1,2))ЫфPC(J,3)│PC(Jм1,3))▒цPC(J,4)│PC(Jм1,4))╣шЛ J)─щM(X)│0)тъPR$(X,1)│H1$:PR$(X,2)│H2$*ьPC(X,1)│A1:PC(X,2)│A2:PC(X,3)│A3:PC(X,4)│A4*ёIE│0*'єБе 6290*MЎЗ:З "SORRY YOUR DATABASE IS FULL"*q°З:З "PRESS ANY KEY TO CONTINUE"*}√Бе 6385*ХВ DELETE THIS ENTRY*к
А X│PTлEC е NIм1*║M(X)│M(Xл1)*╥PR$(X,1)│PR$(Xл1,1)*ъPR$(X,2)│PR$(Xл1,2)+PC(X,1)│PC(Xл1,1)+PC(X,2)│PC(Xл1,2)+,#PC(X,3)│PC(Xл1,3)+B(PC(X,4)│PC(Xл1,4)+J-Л X+V2M(NI)│0+g7PR$(NI,1)│""+x<PR$(NI,2)│""+ЗAPC(NI,1)│0+ЦFPC(NI,2)│0+еKPC(NI,3)│0+┤PPC(NI,4)│0+└UNI│NIм1+╠VБж 8000+╪WБж 3000+фZБе 6037,XВ MARK PRODUCTS TO BE PURCHASED,+Yч 1,0:ъ(10,176)м(628,190),╜,BF,OZч 0,1:ю(33,22),"MARK PURCHASES",з[ю(4,23),"ARROWS-MOVE  ENTER-MARK TOGGLE  F1-PAGE UP  F2-PAGE DOWN  CNTRL-MAIN MENU",░]EC│0,╥bы(0,ECн16л32)м(18,ECн16л46),3,Ўgь(0,ECн16л32)м(18,ECн16л46),3,╛-lI$│ Т:Е I$│"" з 7020-1qь(0,ECн16л32)м(18,ECн16л46),3-VvЕ I$│ Л(13) з 7100:В TOGGLE MARK-ДАЕ I$│ Л(189) з 5050:В RETURN TO MAIN MENU-нЕЕ I$│ Л(94) ░ EC▓0 з EC│ECм1:Бе 7010-╓КЕ I$│ Л(10) ░ EC┤8 з EC│ECл1:Бе 7010-°ПЕ I$│ Л(103) з 7200:В PAGE UP.ФЕ I$│ Л(4) з 7300:В PAGE DOWN.&ЮБе 7010.8╝В TOGGLE MARK.d┴Е M(PTлEC)│0 з M(PTлEC)│1 :Д M(PTлEC)│0.П╞ч 0,0:ъ(0,ECн16л32)м(18,ECн16л46),╜,BF.╕╦ч 2,0:Е M(PTлEC)│1 з ю(1,ECн2л4),"*".─╨Бе 7010.╫ В MARK PAGE UP.Ў%Е PTм9▓0 з PT│PTм9 :Д PT│1/*Бж 3 P>%
:Г ****************************>I:Г *      T R A N S P I X     *>m:Г *         COPYRIGHT        *>С(:Г *             BY           *>╡2:Г *        RICK COOPER       *>┘<:Г *         (C) 1991         *>¤F:Г ****************************?P└8?Zт32?*dЮ:З @200,"PLEASE STANDBY"?5nБж 400?=ат40?Cвў?bеё 11,3:З "T R A N S P I X"?}кё 9,6:З"1) LOAD A PIX"?Ь┤ё 9,8:З"2) TRANSFER A PIX"?▓╣ё 9,10:З"3) QUIT"?╦╛R$│ Т: Е R$│"" з 190?с╚Е R$│"1" з Бж 320?Ї╥Е R$│"2" з 230@╫Е R$│"3" з ў:К@▄Бе 160@#ц╣  Г0│&H7800@Aшу 0,0:у 1,7:у 2,32:у 3,63@PЁ╚ 4,1:┐1,1@b·Т &HE6E4,&HE7@i
ф2@v
X│ Г0(0)@И
Т &HE6E4,&HE6@Ъ
"Е  Т│"" з 290@г
,т 32@о
6Бе 160@╢
@т40@╝
Bў@┬
E╬@ч
JЗ:З "ENTER THE NAME OF THE PIX";@ё
TЙ F1$A
^Е  Р(F1$, З(F1$)м3,1)│"/" з 380A9
cЕ  Р(F1$, З(F1$)м3,1)│"." з 380A^
hЗ "TRY AGAIN WITH THE EXTENTION"Ai
rБе 330At
|╙M F1$Az
ЖРAЗ
РX│&H7800AР
ЪН A$Aд
дЕ A$│"XX" з 490A╗
оА J│1 е  З(A$) й 2A╒
╕K│ Й("&H"л Р(A$,J,2))A▀
┬Т X,KAщ
╠X│Xл1Aё
╓Л JA№
рБе 410B
ъРBM
ЇЖ "34208E0E00BF78F28670B778F98E3FF0BF78F0B678F9BE78F7A7844CB778F9BE78"BЦ
■Ж "F210BE78F0C620F778F4108C5FE02503BD78C410BF78F0FC78F0C30020FD78F0"B▀Ж "10BE78F08C260025037E78C4F678F4C10027D27A78F4E684C4C05454F778F5E6"C(Ж "84C4605454545454FB78F5E7A0E684C430F778F5E684C418545454FB78F5E7A0"CqЖ "E684C40C5858F778F5E684C40654FB78F5E7A0E680C403F778F5C40158F778F6"C║&Ж "F678F558585858F778F5E684C4805959FA78F6FB78F5E7A0108C60002603BD78"D0Ж "C42089BF78F2B678F98174260ABE78F7867AA784352039108E400010BF78F0B6"DD:Ж "78F9BE78F7A7844CB778F9BE78F23900000000000000FFA200000000"DODЖ "XX"E7A0E680C403F778F5C40158F778F6"C║&Ж "F678F558585858F778F5E684C4805959FA78F6FB78F5E7A0108C60002603BD78"D0Ж "C42089BF78F2B678F98174260ABE78F7867AA784352039108E400010BF78F                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ж
└1Х 80001И Ё Бе 60000:И я Бе 60000SМ PR$(150,2),PC(150,4),M(150)rэ 1,2400:э 2,2400:э 3,2000~Бж 2000КБж 1000У#PT│1Я(Бж 3000л2Бж 1360┐7Е I$│"Q" з 4000╒<Е I$│"S"з Бж 5000ьAЕ I$│"E" з Бж 6000FЕ I$│"M" з Бж 7000PЕ I$│"P" з Бж 9000$dБе 507шВ DRAW DISPLAYFэТ &HFFD9,0Q№у 0,62[у 1,0f$у 2,36q8у 3,17{Lч 1,0Вtф4Мuч 3,1еvъ(0,0)м(639,22),╜,BF▒wБж 8000╦~ъ(288,6)м(354,16),╜,B№Ию(37,1),"SHOPPER    by Rick Cooper (C) 1991"Тч 2,0 Ьъ(0,22)м(639,191),╜,Bd░А X│221 е 533 й 104:ъ(X,22)м(X,174),╜:ъ(Xл1,22)м(Xл1,174),╜:Л XР─ъ(19,22)м(19,174),╜:ъ(20,22)м(20,174),╜╗╔А X│31 е 175 й 16:ъ(0,X)м(639,X),╜:Л X╥╦ы(0,32)м(639,46),1▄╪ч 2,04ью(1,3),"*":ю(8,3),"PRODUCT":ю(28,3),S$(1):ю(41,3),S$(2):ю(54,3),S$(3):ю(67,3),S$(4)WЎч 1,0:ъ(10,176)м(628,190),╜,BFa√ч 0,0t¤M$│"MAIN MENU"Д■ю(36,22),M$╜H$│"  (E)dit   (M)ark   (P)rint   (S)can   (Q)uit  "═ю(17,23),H$╫ч 1,0▌РюPВ GET OPTIONZI$│ Т:Е I$│"" з 1370
dР!╨В GET DATA FILE0╒Т &HFFD8,0L┌Щ "I",#1,"PRODUCTS.DAT"iфА X│1 е 4:Й #1,S$(X):Л XuюЙ #1,NIД°А X│1 е NIП¤M(X)│0╩Й #1,PR$(X,1),PR$(X,2),PC(X,1),PC(X,2),PC(X,3),PC(X,4)╥Л X█Ъ #1ъТ &HFFD9,0Ё Р╕В DISPLAY 9 ITEMS╗Е PTл8▓NI з PR│NIм8(╜ч 1,0;┬А TM│PT е PTл8h╟ь(0,(TMмPT)н16л32)м(639,(TMмPT)н16л46),1У╩Е M(TM)▓0 з ч 2,0:ю(1,(TMмPT)н2л4),"*"Э╦ч 1,0╝╠ю(4,(TMмPT)н2л4),PR$(TM,1)╓╤Е PR$(TM,2)│"" з 3035ї╓ю(5,(TMмPT)н2л5),PR$(TM,2)
█Бж 3300рА PM│1 е 4-хЕ PM│P1 з ч 2,0 :Д ч 3,0Mъю(16лPMн13,(TMмPT)н2л4),"$"bяK$│ И(PC(TM,PM))ТЁЕ  Б(PC(TM,PM)о1)│PC(TM,PM)о1 з K$│K$л".00"ЮЇБж 3190╜∙ю(17лPMн13,(TMмPT)н2л4),K$╞■Л PM╨ч 1,0┘Л TMу!ч 1,0щ&Р∙vJ$│ П(K$,3)xЕ  О(J$,1)┤▓"." з K$│K$л"0"@АЕ  З(K$)┤7 з K$│ б(7м З(K$),32)лK$FКРcфВ CHECK FOR LOWEST PRICElюP1│1аЁЕ PC(TM,P1)│0 з P1│P1л1:Е P1┤4 з 3312 :Д P1│0:Рп°А SM│2 е 4▀¤Е PC(TM,SM)┤PC(TM,P1) ░ PC(TM,SM)▓0 з P1│SMш
Л SMю
РаВ WRITE DATA FILEеТ &HFFD8,0/кЩ "O",#1,"PRODUCTS.DAT"L┤А X│1 е 4:З #1,S$(X):Л XX╛З #1,NIg╚А X│1 е NIy╩З #1,PR$(X,1)Л╠З #1,PR$(X,2)Ь═З #1,PC(X,1)н╥З #1,PC(X,2)╛╘З #1,PC(X,3)╧╫З #1,PC(X,4)╫▄Л XцсТ &HFFD9,0яцЪ #1№ЁБе 60000 з>'
:Г'''''''''''''''''''''''''''''''>M:Г        NX COLOR PRINT        '>s:Г        BY RICK COOPER        '>Щ:Г          (C) 1991            '>┐:Г        DISTRIBUTED BY        '>х:Г RICK'S COMPUTER ENTERPRISE   '?:Г'''''''''''''''''''''''''''''''?
т32?$╙M"COLPRINT"?9P1│ Ж(&HFFB0)м64?N(P2│ Ж(&HFFBD)м64?X2у 0,0?d<у 13,63?FЗ @73,"NX COLOR PRINT"?кPЗ @128, "HAVE YOU SET YOUR BAUD RATE?"?╥ZЗ @192,"IS YOUR PICTURE IN MEMORY?"?▌dу 0,P1?щnу 13,P2@
xI$│ Т:Е I$│"" з 120@ВЕ I$┤▓"Y" з К@%МТ &HE6E4,&HE6@,Цф2@2ав@DкЕ  Т│"" з 170@J┤К@\╛Т &HE6E4,&HE6@c╚ф2@q╥X│40:Y│40@А▄OL│ л(X,Y)@Нцє(X,Y,1)@ЫЁє(X,Y,15)@│·I$│ Т:Е I$│"" з 230@┴
є(X,Y,OL)@╫
Е I$│ Л(13) з 330@ї
Е I$│ Л(8) з X│Xм1:Бе 220A
"Е I$│ Л(9) з X│Xл1:Бе 220A2
,Е I$│ Л(94) з Y│Yм1:Бе 220AQ
6Е I$│ Л(10) з Y│Yл1:Бе 220A\
@Бе 220Ad
Jт32AВ
TЗ X,Y,OL, Ж(&HFFB0лOL)м64AФ
^Е  Т│"" з 350AЫ
hф2Aж
rБе 220$│"" з 230@┴
є(X,Y,OL)@╫
Е I$│ Л(13) з 330@ї
Е I$│ Л(8) з X│Xм1:Бе 220A
"Е I$│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                А P╢╖▒╢ЧЦ ┘Ж■ЧoЖнЯаЖ@нЯаЖ
нЯаЖнЯаЖ3нЯаЖнЯаО<┐бО4┐ЬЖ╖е}е'_О ┐Ъ┐Шжз╜uЖ╖┤Ж0▒з'Ж~ёЖнААЯаЖLнЯаЖ└нЯаЖнЯа╛Ъ┐ШЖа╖н}н&,╢┤Б'Ж╖┤-z┤ЖнЯаЖjнЯаЖнЯа╠@¤б йzнийк╛Ш┐Ц╞Аўп┐Ц╛Ц╜<Ўд─ЁTTTTАО ░:цД─?}'О№:цДЖ=╛б0ЛЎеZ:цДўЮЖА╖лЖ╖мЎЮЇл]'	╢и║п╖иЎЮЇм]'
╢пD║и╖иtлtмЎЮЇл]'	╢й║п╖йЎЮЇм]'
╢пD║й╖йtААлtмЎЮЇл]'	╢к║п╖кЎЮЇм]'
ЎпT·кўк╛Ц1йа┐Цtпtп}п& )╢инЯа╢йнЯа╢кнЯа╛Ш┐Ц╞Аўпийк┐Ц╛Ц╜<Ўд─О А░:цД─?}'О№:цДЖ=╛б0ЛЎеZ:цДўЮЖА╖лЖ╖мЎЮЇл]'	╢и║п╖иЎЮЇм]'
ЎпT·иўиtлtмЎЮЇл]'	╢й║п╖йЎЮЇм]'
ЎпT·йўйtлААtмЎЮЇл]'	╢к║п╖кЎЮЇм]'
ЎпT·кўк╛Ц1йа┐Цtпtп}п& -╢инЯа╢йнЯа╢кнЯа╛Ш1!┐Ш¤┐╛Ъ1йА┐Ш┐Ъ|з╬< б¤q}Аз'ЖнЯаЖjнЯаЖнЯаzз фzе}'	О ░_М └&¤ чА\ є
┐ЦPЖp╖ бпМ@%
P| бп1йр эцдўд╛Ц9╛Я╛б┐б┐Я9ЖнЯаЖrнЯаАА╛ЬжА┐ЬнЯа9

╞fў▒}▒'%ЖнЯаЖJнЯаЖнЯаz▒ фЦЦБ&Ж
 ЖXЧЦЖy╖ бп ╪o9нЯаБ'▌~|

А	

	!"! +.< +.	&'	)*	):#22#541#*/<790?ююкюкююююююо@о@┬l┬lюJдJмBюААююBюдюBмBмюBюдюдюдюАH&ДB@ДBдюдюАH&ДB@ДBдАдддддддддюю$H$HДB(ДB(кDюдъкfDкдJААддJJкDдDдHД"дHД"HжжжHжHю@жИ"BМюююДH cАдДА
мЎз┴'┴'┴$'}&
9О ░9М └&
9цД╦чА Є                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ─ ╟─╟┼┬─╞                              COLPRINTBAS кCOLPRINTBIN!йPSPOKER BAS"@PS      BAS#ЮTRANSPIXBASSSHOPPER BASЙPRODUCTSDAT
 $ТINSTALL BAS%h                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 =&
В           PALSAVER&9В  (C)1991  BY RICK COOPER&[В  RICK'S COMPUTER ENTERPRISE&А(В  PO BOX 276, LIBERTY, KY 42539&Ж2В&ж<В  RUN THIS PROGRAM TO POKE&╟FВ  THE PALSAVER INTO MEMORY.&═PВ&ёZВ  THE PROGRAM WILL BE EXECUTED'dВ  AND BE IN MEMORY WAITING FOR':nВ  YOU TO PRESS THE ALT KEY WHEN'dxВ  THE PICTURE YOU WANT IS DISPLAYED.'jВВ'СМВ  THE PALETTE INFO WILL BE STORED'оЦВ  UNTIL YOU RUN PS.BAS.'╒аВ  PS.BAS WILL RESTORE THE PALETTE'·кВ  AND MAKE THE PICTURE CORRECT.(
┤В (	╛т32(%╚З @73,"P A L S A V E R"(C╥З @200,"LOADING PALSAVER"(Q▄SM│&H7000(ZцН A$(eЁБж 340(s·SM│&HFA10(|
Н A$(З
Бж 340(Р
Н A$(Ы
"Бж 340(и
,в &H7000(╟
6З @200,"PALSAVER IS READY"(у
@З @264,"ALT IS HOT KEY"(щ
JЦ)
TА X│1 е  З(A$) й 2)
^V│ Й("&H"л Р(A$,X,2)))%
hТ SM,V)1
rSM│SMл1)9
|Л X)?
ЖР)^
РЖ "1A508EFA10BF010D1CEF39")у
ЪЖ "B6015581BF27037ED8AFBDFA308E7000108EFFB0108CFFC027EDA6A0A78020F48D2586E68D3A1F89C4F7CA02F7FF208D2FC602F7FF204A4A4A811224E7B6"*<
дЖ "FF2384F7B7FF235F39B6FF238A08B7FF23B6FF0184F7B7FF01B6FF0384F7B7FF0339C6B45A26FD39")^
РЖ "1A508EFA10BF010D1CEF39")у
ЪЖ "B6015581BF27037ED8AFBDFA308E7000108EFFB0108CFFC027EDA6A0A78020F48D2586E68D3A1F89C4F7CA02F7FF208D2FC602F7FF204A4A4A811224E7B6"*<
дЖ "FF2384F7B7FF235F39B6                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
Ы>
В           PS.BAS>7В  (C)1991  BY RICK COOPER>YВ  RICK'S COMPUTER ENTERPRISE>В  PO BOX 276,  LIBERTY, KY 42539>ЕВ>з#В  RUN THIS PROGRAM AFTER YOU>╟(В  HAVE CAPTURED A PALETTE.>═-В>Є2В  THIS PROGRAM WILL RESTORE THE?7В  PALETTE INFO AND MAKE YOUR?,<В  PICTURE CORRECT.?2AВ?DdТ &HE6E4,&HE6?Knф2?XxA│&H7000?pВА X│&HFFB0 е &HFFBF?~МТ X, Ж(A)?ИЦA│Aл1?РаЛ X?ЪкБе170 AFTER YOU>╟(В  HAVE CAPTURED A PALETTE.>═-В>Є2В  THIS PROGRAM WILL RESTORE THE?7В  PALET                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                HOUCHENS
A & D MARKET
SAVE A LOT
JIM DANDY
 19 
BOLOGNA
OSCAR MYERS
 1.49 
 1.59 
 1.89 
 1.74 
BREAD
BUTTERNUT
 .99 
 .89 
 1.09 
 1.15 
BUTTER
BLUE BONNET
 1.49 
 1.44 
 1.63 
 1.7 
CAKE MIX
DUNCAN HINES
 .8 
 .8 
 .79 
 1 
CANDY BARS
BABY RUTH
 .4 
 .45 
 .45 
 .5 
CHEESE
CUDAHY
 1 
 1.29 
 1.34 
 1.13 
COCA COLA

 .99 
 1.19 
 1.09 
 .99 
CRACKERS
ZESTA
 .88 
 1.05 
 .9 
 .95 
ICE CREAM
SEALTEST
 2.1 
 2.15 
 2.3 
 2.2 
MILK
SOUTHERN BELLE
 2.79 
 2.74 
 2.6 
 2.75 
MUSHROOM SOUP
CAMPBELL'S
 .89 
 .85 
 .83 
 .92 
PEANUT BUTTER
PETER PAN
 2.54 
 2.3 
 2.44 
 2.34 
POST TOASTIES
KELLOGG'S
 2.5 
 2.4 
 2.55 
 2.59 
POT PIES
SWANSON
 1.18 
 1.15 
 1.27 
 1.05 
POTATO CHIPS
GORDON'S
 1.39 
 1.49 
 1.59 
 1.69 
TOILET PAPER
NORTHERN
 .9 
 .8 
 .78 
 .85 
VANILLA WAFERS
KEEBLER
 1.37 
 1.31 
 1.18 
 1.2 
VEGETABLE SOUP
CAMPBELL'S
 .84 
 .8 
 .79 
 .69 
WHITE SUGAR
GREAT LAKES
 2.37 
 2.1 
 2.05 
 2.45 
.27 
 1.05 
POTATO CHIPS
GORDON'S
 1.39 
 1.49 
 1.59 
 1.69 
TOILET PAPER
NORTHERN
 .9 
 .8 
 .78 
 .85 
VANI                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 e&
В SHOPPER&$В BY RICK COOPER&3В (C) 1991&MВ ALL RIGHTS RESERVED&T└1&_Х 8000&z
В INSTALLATION PROGRAM&╩В THIS PROGRAM PUTS THE USERS FAVORITE STORE NAMES IN THE PROGRAM DATA FILE&хМ PR$(150,2),PC(150,4)&э(т32'
2З @13,"INSTALL"'3<З "THIS PROGRAM SHOULD BE RUN ONLY ONE TIME."'|FЗ "THE PURPOSE IS TO PUT THE NAMES OF YOUR STORES IN THE DATA FILE."'лPЗ:З"PLEASE WAIT WHILE DATA FILE IS  READ."'╢ZБж 210'цdЗ:Й "TYPE YOUR FAVORITE STORE'S NAME";S$(1)(nЗ:Й "TYPE YOUR SECOND STORE'S NAME  ";S$(2)(FxЗ:Й "TYPE YOUR THIRD STORE'S NAME   ";S$(3)(vВЗ:Й "TYPE YOUR FINAL STORE'S NAME   ";S$(4)(|МЮ(оЦЗ:З"WAIT WHILE THE DATA FILE IS     WRITTEN."(╣аБж 300(▐кЮ:З:З"INSTALLATION IS COMPLETE.")e┤З:З"IF YOU ARE RUNNING YOUR PRINTER AT OTHER THAN THE STANDARD BAUD RATE, PLEASE SET THE CORRECT    VALUE BEFORE RUNNING SHOPPER.")╗╛З:З"       THEN BEGIN BY TYPING     RUN " Л(34)"SHOPPER" Л(34)"  AND PRESS ENTER")┴╚К)╒╥В GET DATA FILE)ё▄Щ "I",#1,"PRODUCTS.DAT"*цА X│1 е 4:Й #1,S$(X):Л X*ЁЙ #1,NI*)·А X│1 е NI*d
Й #1,PR$(X,1),PR$(X,2),PC(X,1),PC(X,2),PC(X,3),PC(X,4)*l
Л X*u
Ъ #1*{
"Р*С
,В WRITE DATA FILE*н
6Щ "O",#1,"PRODUCTS.DAT"*╩
@А X│1 е 4:З #1,S$(X):Л X*╓
JЗ #1,NI*х
TА X│1 е NI*ў
^З #1,PR$(X,1)+	
hЗ #1,PR$(X,2)+
rЗ #1,PC(X,1)++
|З #1,PC(X,2)+<
ЖЗ #1,PC(X,3)+M
РЗ #1,PC(X,4)+U
ЪЛ X+^
дЪ #1+d
оР
Л X*u
Ъ #1*{
"Р*С
,В WRITE DATA FILE*н
6Щ "O",#1,"PRODUCTS.DAT"*╩
@А X│1 е 4:З #1,S$(X):Л X*╓
JЗ #1,NI*х
TА X│1 е NI*ў
^З #1,PR$(X,1)+	
hЗ #