ы&
МA(1228),B(1228)&+╚4,1:┴0,5:╝:┐1,1&<┬(128,96),95&S(─(0,0)м(255,191),A&c2АDL│1е500:Л&{<╝:┬(128,96),126,,.5&ТF─(0,0)м(255,191),B&вPАDL│1е500:Л&╣Z┼(0,0)м(255,191),A&╔dАDL│1е500:Л&рn┼(0,0)м(255,191),B&ъxБе1200м2,═"%                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         &
:ГAMORTIZE&):ГBY RALPH D. MILLER&B:ГCOPYRIGHT (C) 1992&Y:ГBY FALSOFT, INC.&p:ГRAINBOW MAGAZINE&Г
Т149,0:Т150,18&ЙЮ&┼З:З"ENTER THE ANNUAL INTEREST":Й"RATE, IN PERCENT: ";JU&╥(M│JUо100'2З:З"ENTER THE NUMBER OF INTEREST":Й"PERIODS PER YEAR: ";Q'F<З:З"ENTER THE NUMBER OF PAYMENTS":Й"PER YEAR: ";S'wFЗ:З"ENTER THE LOAN AMOUNT":Й"IN DOLLARS: ";A'нPЗ:З"ENTER THE PERIOD OF THE LOAN":Й"IN YEARS: ";B'├ZD│(1лMоQ)п(QоS)м1'уdF│((1м(1лD)п(мSнB))пм1)нDнA'∙nC1│F:Бж510:F$│C1$(xC1│A:Бж510:A$│C1$(#ВSP│ Ж(65314)░ 1(7МЕ SP▓0 з Бж 570(TЦЮ:З@200,"PRINTING TABLE")+аЗ#м2,"THE AMORTIZATION TABLE FOLLOWS FOR A $";A"LOAN AT"JU"PERCENT ANNUALLY,":З#м2,"INTEREST COMPOUNDED"Q"TIMES ANNUALLY AND PAYMENTS MADE"S"TIMES ANNUALLY" Л(13)"FOR"B"YEARS  ("SнB"PAYMENTS ): CHR$(13)CHR$(13))5кБж610)d┤З#м2,"INSTALLMENT AMOUNT:";F$; Л(13) Л(13))Щ╛З#м2,"PAYENT","INTEREST","PAYMENT","OUTSTANDING")╩╚З#м2,"NUMBER","ON DEBT","ON PRINC","   DEBT"*╥З#м2,"-------","-------","-------","-------" Л(13) Л(13)*▄DC│A:WY│0*.цА Y│(WYл1) е (WYл10)*:ЁHM│DCнD*R·C1│HM:Бж510:HM$│C1$*^
RT│FмHM*v
C1│RT:Бж510:RT$│C1$*Г
LF│DCмRT*Ы
"C1│LF:Бж510:LF$│C1$*ж
,Бж 630*╩
6C1│Y:Бж550:З#м2,C1$,HM$,RT$,LF$*▄
@Е LF▓│F з 440*ю
JY│Yл1:HM│LFнD+
TC1│HM:Бж510:HM$│C1$+
^RT│LFмHM+,
hC1│Y:Бж550:З#м2,C1$,+K
rC1│HM:Бж510:Бж680:З#м2,C1$+k
|C1│LF:Бж510:Бж680:З#м2,C1$,+z
ЖЗ#м2,"NIL"+Н
РC1│HMлLF:Бж510+╡
ЪЕ F$┤▓C1$ з З#м2,"LAST PAT'T: ";C1$+╦
дЗ#м2, Л(12) Л(12)+╒
оБе 20+▀
╕DC│LF+ч
┬Л Y+√
╠Е (SнB)▓Y з 480,
╓Бе 500,
рWY│WYл10,
ъБе 230,$
ЇР,=
■C2│ Б(100нC1л.5)о100,VC1$│"$"л Р( И(C2),2),vЕ C2│ Б(C2) з C1$│C1$л".00",|Р,С&C1$│ Р( И(C1),2),Ч0Р,╢:Ю:З@198,"PRINTER OFF LINE",╩DSP│ Ж(65314)░ 1,▐NЕ SP┤▓0 TEN 580,фXР-bJF$│ П(F$,3):IG$│ О(JF$,1):Е IG$┤▓"." з F$│F$л"0"- lР-*vБж680-cАJF$│ П(HM$,3):IG$│ О(JF$,1):Е IG$┤▓"." з HM$│HM$л"0"-ЬКJF$│ П(RT$,3):IG$│ О(JF$,1):Е IG$┤▓"." з RT$│RT$л"0"-╒ФJF$│ П(LF$,3):IG$│ О(JF$,1):Е IG$┤▓"." з LF$│LF$л"0"-█ЮР.иJF$│ П(C1$,3):IG$│ О(JF$,1):Е IG$┤▓"." з C1$│C1$л"0".▓РlР-*vБж680-cАJF$│ П(HM$,3):IG$│ О(JF$,1):Е IG$┤▓"." з HM$│HM$л"0"-ЬКJF$│ П(RT$,3):IG$│ О(JF$,1):Е IG$┤▓"." з RT$│RT$л"0"-╒ФJF$│ П(LF$,3):IG$│ О(JF$,1):Е IG$┤▓"." з LF$│LF$л"0"-█ЮР.иJF$│ П(C1$,3):IG$│ О(JF$,1):Е I Ў&
:ГPERSONAL DIARY&+:ГBY MARK RIVERA&D:ГCOPYRIGHT (C) 1993&[:ГBY FALSOFT, INC.&r:ГRAINBOW MAGAZINE&}
Х 1000&ЛИ Ё Бе 40&жЮ:З    PERSONAL DIARY"&┼(З:З:З:З"    CHOOSE ONE..."&с2З"1) START A NEW DIARY"&∙<З"2) MAKE AN ENTRY"'FЗ"3) VIEW ENTRIES"'PЗ"4) QUIT"'6ZK$│ Т:Е K$│"" з 90'CdK│ Й(K$)'^nИ K Бж 130,200,330,430'hxБе 40'╖ВЮ:З"ENTER PASSWORD THAT YOU WILL USE TO ADD RETRIEVE INFORMATION (1-8 CHR)'└МЙ P$'╞ЦЮ'таЩ "O",#1,"PASSWORD/DAT"'як┘ #1, P$'°┤Ъ #1(╛Ю:Р(╚Ю(╥Бж 440(#▄З"ENTER DATE"(,цЙ D$(>ЁЗ"MAKE ENTRY"(G·Й E$(i
З"READY TO SAVE ENTRY (Y/N)?"(Б
S$│ Т:Е S$│"" з 270(Ф
Е S$┤▓"Y" з 30(м
"Щ"O",#1, D$л "/DAT"(╕
,┘ #1,E$(┴
6Ъ #1(╟
@Р(╥
JБж 440)
TЮ:Й"ENTER DATE OF ENTRY YOU WISH TO SEE";D$)
^Е D$│"PASSWORD"з Ю:К)+
hЩ "I",#1,D$)8
rЙ #1, E$)D
|З D$,E$)M
ЖЪ #1)d
РЗ:З:З"PRESS ENTER")|
ЪK$│ Т:Е K$│"" з 410)З
дБе 340)Н
оК)г
╕З"ENTER PASSWORD")м
┬Й F$)╟
╠Щ"I",#1,"PASSWORD/DAT")╙
╓Й #1,P$)▄
рЪ #1)я
ъЕ P$┤▓F$ з Ю:К)ї
ЇРTO SEE"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ы&
:ГSHOPPING LIST&+:ГBY TREVOR BOEHM&D:ГCOPYRIGHT (C) 1992&[:ГBY FALSOFT, INC.&r:ГRAINBOW MAGAZINE&|
Х 800&ЙN│50:K│1&ЭМ A$(N): Бж 260&м(Е K▓N з 70&═2З K;">";:╗Й R$: Е R$│"" з 70&ц<A$(K)│R$:K│Kл1:Бе 40&№FK│Kм1:Е K▓0 з 110'PЗ"** NO INPUT **"'ZБе 40'"dЗ'?nЗ:З K;"ITEMS ENTERED.":З'OxЕ K│1 з 190'bВА J│K е 2 й м1'tМR$│A$(1): F│1'ВЦА L│2 е J'ааЕ A$(L▓R$ з R$│A$(L): F│L'╗кЛ:A$(F)│A$(J):A$(J)│R$'┴┤Л'╧╛А J│1 е K'▌╚З J;A$(J)'я╥А L│1 е 200:Л'ї▄Л(цЗ:Й"PRINT LIST (Y/N)";PL$(<ЁЕ PL$│"Y" з А J│1 е K:З#м2,J;A$(J):Л(B·К(H
Ю(`
Зд9)"SHOPPING LIST"(u
Зд11)"GENERATOR"({
"З(Ы
,З"YOU MAY ENTER";N;"ITEMS."(▐
6З"PRESS ENTER AT THE BEGINNING":З"OF A LINE TO SORT THE LIST."(ф
@З(ъ
JР:Л'ї▄Л(цЗ:Й"P                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Щ&
:ГREFUNDER&&:ГBY TREVOR BOEHM&?:ГCOPYRIGHT (C) 1992&V:ГBY FALSOFT, INC.&m:ГRAINBOW MAGAZINE&И
Х 500:М I$(500),I(500)&ЮЮ:З"REFUNDER 1.0"&╛З"<C> 1992 BY TREVOR BOEHM"&╫(З"AND FALSOFT, INC."&ц2З:З"MENU:"&∙<З"1. ADD ITEM"'
FЗ"2. UPDATE"'PЗ"3. LOOK-UP"'+ZЗ"4. SAVE"':dЗ"5. LOAD"'SnЗ"6. LIST TO SCREEN"'mxЗ"7. LIST TO PRINTER"'БВЗ"8. DIRECTORY"'РМЗ"9. QUIT"'еЦЗ:Й"CHOICE==>";C'╜аЕ C┤1 ▒ C▓9 з Бе 20'ькИ C Бе 180,210,240,280,340,400,430,470,480(┤Ю:З"ADD ITEM...":З(4╛NI│NIл1:Й"NAME==>";I$(NI):Й"AMOUNT==>";I(NI)(>╚Бе 20(S╥Ю:З"UPDATE...":З(е▄Й"NAME==>";N$:А IN│1 е NI:Е  Ю(I$(IN),N$)│0 з Л:З:З"NOT FOUND...":в44539:Бе20)
цЗ:З"YOU CURRENTLY HAVE";I(IN);"UPCS FOR"; Л(13);I$(IN);"...":З:Й"AMOUNT==>";I(IN):Бе 20)ЁЮ:З"LOOK-UP...":З))·Й"NAME==>";N$)o
З:А IN│1 е IN:Е  Ю (I$(IN),N$)│0 з Л:З"NOT FOUND...":в44539:Бе 20)╕
З"FOUND...";I$(IN):З:З"YOU CURRENTLY HAVE";I(IN);"UPCS":в44539:Бе 20)╦
Ю:З"SAVE...":З)√
"Й"FILENAME==>";F$:З:З"READY DISK...":в44539*	
,Щ"O",1,F$*&
6З#1,I$(IN):З#1,I(IN):Л:Ъ*;
@З:З"SAVED AS";F$*L
Jв44539:Бе 20*_
TЮ:З"LOAD...":З*П
^Й"FILENAME==>";F$:З:З"READY DISK...":в44539*Э
hЩ"I",1,F$*и
rЙ#1,NI*╤
|А IN│1 е NI:Й#1,I$(IN):Й#1,I(IN):Л:Ъ*ё
ЖЗ:З"LOADED...":в44539:Бе 20+*
РЮ:З"LIST TO SCREEN...":З:З"PRESS ANY KEY TO STEP..."+7
Ъв44539:Ю+Т
дА IN│1 е NI:Ю:З"ENTRY: ";IN:З"NAME: ";I$(IN):З"NUMBER OF UPCS: ";I(IN):в 44539:Л:Бе 20+╔
оЮ:З"LIST TO PRINTER...":З"READY PRINTER...":в44539+▐
╕З:З"PRINTING...",
┬А IN│1 е NI:З#м2,═"%          %###";I$(IN);I(IN):Л,@
╠З:З"PRINTING COMPLETE...":в44539:Бе 20,w
╓Ю:З"DIRECTORY...":З:Й"DRIVE==>";D:╬ D:в44539:Бе 20,Ш
рЮ:З"TYPE GOTO 20 TO RESTART"LIST TO PRINTER...":З"READY PRINTER...":в44539+▐
╕З:З"PRINTING...",
┬А IN│1 е NI:З#м2,═"%                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         4&
:ГBILL CHART&0:ГBY CHARLES A. KIEDAISCH&I:ГCOPYRIGHT (C) 1993&`:ГBY FALSOFT, INC.&w:ГRAINBOW MAGAZINE&}
Ю&ЯЗ:З"LINE UP PAPER IN PRINTER"&┐З:З"PRESS <ENTER> TO START"&█(З:Й P$:Е P$│ Л(13) з 50&Є2Ю:З@200,"PRINTING"'<З#м2, Л(27); Л(54); Л(27); Л(31)'LFЗ#м2, Л(27); Л(14);д12);"MONTHLY PAYMENT RECORD"'rPЗ#м2, Л(27); Л(15);д19); б(50,42)'░ZЗ#м2,д31);"J   F   M   A   M   J   J   A   S   O   N   D"'юdЗ#м2,д31);"A   E   A   P   A   U   U   U   E   C   O   E"(<nЗ#м2,д5);"ACCOUNT";д31);"N   B   R   R   Y   N   L   G   P   T   V   C ."(╣xX$│ Л(245):W$│ Л(244):H$│ Л(249):R$│ Л(241):I$│ Л(240):U$│ Л(248):B$│ Л(242):T$│ Л(246):K$│ Л(243):J$│ Л(250):G$│ Л(247)(▐ВЗ#м2, Л(27); Л(28);I$; б(28,R$);(эМА L│1 е 12)ЦЗ#м2,K$; б(3,R$);)аЛ L)кЗ#м2,B$)┤Ю)8╛З"INPUT <END> TO STOP")>╚З)c╥З"PRESS <ENTER> FOR BLANK SPACE")i▄З)|цЙ"ACCOUNT ";A$)УЁЗ#м2,X$; б(28,32);)в·А N│1 е 12)╕
З#м2,X$; б(3,32);)└
Л N)╠
З#м2,X$)р
"Е A$│"END"з 410)ї
,З#м2,X$;A$;д29);*
6А Z│1 е 12*
@З#м2,X$;STRING(3,32);*&
JЛ Z*2
TЗ#м2,X$*I
^З#м2,W$; б(28,R$);*X
hА M│1 е 12*n
rЗ#м2,J$; б(3,R$);*v
|Л M*В
ЖЗ#м2,H$*Н
РБе 180*д
ЪЗ#м2,X$; б(28,32);*│
дА E│1 е 12*╔
оЗ#м2,X$; б(3,32);*╤
╕Л E*▌
┬З#м2,X$*Ї
╠З#м2,T$; б(28,R$);+
╓А X│1 е 12+
рЗ#м2,U$; б(3,R$);+!
ъЛ X+-
ЇЗ#м2,G$+3
■К^З#м2,W$; б(28,R$);*X
hА M│1 е 12*n
rЗ#м2,J$; б(3,R$);*v
|Л M*В
ЖЗ#м2,H$*Н
РБе 180*д
ЪЗ#м2,X$; б(28,32);*│
дА E│1 е 12*╔
оЗ#м2,X$; б(3,32);*╤
╕Л E*▌
┬З#м2,X$*Ї
╠З#м2,T$; б(28,R$);+
╓А X│1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ┌M┌M┌MX X X \ ╩e╩m╩m╩mD T X \ ╩M╩M╩Mс╥┬$└$└ └4H_Z_X_Z└0└6Б4╔4^_N_^N└2└6Ш2╚6JJJN└└2И2╚6NNNNБ2Б6└&И&
m
mmm└"┴&└&И$MMMM└ Ш$╪$Ш$
mm
m
m└╚$╚$Ш$MMMmB2@2@▓H2╔▀╩▀╠ ╬ @▓@╢@▓H╢╬▀╬▀▐▀▐@2@2P2@6╦ ╩ ╬ ╩ @▓@╢@╢X╢╬╬╬╬@ H$X H$╩M╩m╩m┌m@HH                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┌M┌M┌MX X X \ ╩e╩m╩m╩mD T X \ ╩M╩M╩Mс╥┬$└$└ └4H_Z_X_Z└0└6Б4╔4^_N_^N└2└6Ш2╚6JJJN└└2И2╚6NNNNБ2Б6└&И&
m
mmm└"┴&└&И$MMMM└ Ш$╪$Ш$
mm
m
m└╚$╚$Ш$MMMmB2@2@▓H2╔▀╩▀╠ ╬ @▓@╢@▓H╢╬▀╬▀▐▀▐@2@2P2@6╦ ╩ ╬ ╩ @▓@╢@╢X╢╬╬╬╬@ H$X H$╩M╩m╩m┌m@HH                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ┴╔─├╟╞┴┴┴┴%&├(┬                           RAINBOW     ON         !DISK       "FEBRUARY 93#REFUNDERBASЬBILLCHRTBAS7ACES UP BAS$╟DIARY   BAS∙SHOPPINGBASюGRABBIT BAS'DDIM EX  BASюAMORTIZEBAS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┌M┌M┌MX X X \ ╩e╩m╩m╩mD T X \ ╩M╩M╩Mс╥┬$└$└ └4H_Z_X_Z└0└6Б4╔4^_N_^N└2└6Ш2╚6JJJN└└2И2╚6NNNNБ2Б6└&И&
m
mmm└"┴&└&И$MMMM└ Ш$╪$Ш$
mm
m
m└╚$╚$Ш$MMMmB2@2@▓H2╔▀╩▀╠ ╬ @▓@╢@▓H╢╬▀╬▀▐▀▐@2@2P2@6╦ ╩ ╬ ╩ @▓@╢@╢X╢╬╬╬╬@ H$X H$╩M╩m╩m┌m@HH                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┌M┌M┌MX X X \ ╩e╩m╩m╩mD T X \ ╩M╩M╩Mс╥┬$└$└ └4H_Z_X_Z└0└6Б4╔4^_N_^N└2└6Ш2╚6JJJN└└2И2╚6NNNNБ2Б6└&И&
m
mmm└"┴&└&И$MMMM└ Ш$╪$Ш$
mm
m
m└╚$╚$Ш$MMMmB2@2@▓H2╔▀╩▀╠ ╬ @▓@╢@▓H╢╬▀╬▀▐▀▐@2@2P2@6╦ ╩ ╬ ╩ @▓@╢@╢X╢╬╬╬╬@ H$X H$╩M╩m╩m┌m@HH                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ─&
:ГACES UP&*:ГBY GEORGE QUELLHORST&C:ГCOPYRIGHT (C) 1993&Z:ГBY FALSOFT, INC.&q:ГRAINBOW MAGAZINE&ОЖ 35,1,187,1,339,1,491,1'Х2000:э1,1075:э2,1075:э3,1075:э4,1075:э5,2120:э6,40:э7,40:э8,40:э9,40:э10,1300:Т&HF80F,0:Т&HF84F,0:Т&HF89C,0:у0,63:у1,60:у2,0:у3,36:ИЁБе73'ХМN$(14),C(52),N(52),S(52),W(52),PI(4,13),SS(52):Т&HA27E,&HFF:CU│1:Бж60:Т282,255:П:АZ│1е4:НX(Z),Y(Z):ЛZ:Т&HF015,&H21(	Т65497,.:т80:Ю1:Т&HFF9A,&H3F:ё27,11:З"PLEASE WAIT DRAWING SCREEN":ё30,13:З"AND SHUFFLING CARDS":ё34,15:З"(10 SECONDS)"(К
Т&HE190,1:в&HA956:R│ Д(м Я):Бж30:Т&HE6B9,&H39:ф4:Т&HE6B9,&H20:ц0:ч3:ъ(171,168)м(468,182),╜,BF:ы(171,168)м(468,182),10(чц0:Z│1:АZ│1е4:ч2:ї"S16BM"л И(X(Z))л",1"лC$:ЛZ:ы(35,1)м(144,73),5:Бж37:Бж32:T│0:RT│1:Бж41)Бж58:Бж74:Т&HE6E4,&HE6:ф4:Т&HE6E4,&HE7:Т&HFF9A,&H3F)=
:ГCURSOR AND COMMAND KEYS)YP$│ Т:ЕEN│1 зТ400,180:в){OS│(P(CU)м1)н10л1:ЕOS┤0 зOS│1)гч2:ї"S16BM"л И(X(CU))л","л И(OS)лC$)╬ЕP$│ Л(8) зCU│CUм1 :ДЕP$│ Л(9)зCU│CUл1)яЕCU│▓5 з CU│1 :Д ЕCU│0 зCU│4*OS│(P(CU)м1)н10л1:ЕOS┤0 зOS│1*dЕP$│ Л(94)░T┤52 зАZ│1е4:P(Z)│P(Z)л1:Л:P(5)│P(5)м4:Бе41 :ДЕP$│ Л(94)░T│52 зБж74*ТЕP$│ Л(10)░P(CU)┤▓0 з46 :ДЕP$│ Л(10)зБж74*яЕEN│0 ░ P(CU)▓1 ░ P$│ Л(13)з EL│1:АZ│1е4:ЕP(Z)│0 зEL│0:Бж52:ДЛZ::ДЕEN│0 ░ P$│ Л(13)зБж74+ЕEN│0 ░ EL│1 ░P(CU)│▓1 з Бж74+/ЕEN│1░P$│ Л(13)зEN│0:Бе53+HЕP$│"N" ▒ P$│"S" з68+ZЕP(5)│0 зБж65+ГчEN:ї"S16BM"л И(X(CU))л","л И(OS)лC$+НБе 14+а:ГSHUFFLE DECK+уАZ│1е52:N(Z)│Z:ЛZ:А Z│1е52:R│ Д(52):S│N(R):N(R)│N(Z):N(Z)│S:ЛZ,:ГCOMPUTE SUIT & CARD VALUE, АZ│1е52:W│N(Z),?!ЕW┤│13зQ│Qл1:Бе34:ДW│Wм13:Q│Qл1:Бе33,W"ЕQ┤3зC(Z)│3:ДC(Z)│2,}#S(Z)│Q:SS(Z)│Qл5:W(Z)│Wл1:Q│0:Л:Р,Ю$:ГDRAW SUITS & PUT IN BUFFER-%ч2:АZ│1е4:ї"S16BM"л И(X(Z)л18)л",15"лC$(Z):ї"S4BM"л И(X(Z)л90)л",3"лS$(Z):ЛZ:ш(85,41),3,2:ш(237,41),3,2:ш(389,41),2,2-x&ш(541,41),2,2:ш(130,7),3,2:ш(282,7),3,2:ш(435,5),2,2:ш(586,5),2,2:ш(583,7),2,2:ш(592,7),2,2.&'EN│0:ы(50,14)м(129,64),1:ы(202,14)м(282,64),2:ы(354,14)м(434,64),3:ы(505,14)м(586,64),4:ы(124,2)м(138,11),6:ы(276,2)м(290,11),7:ы(428,2)м(442,11),8:ы(580,2)м(594,11),9:Р.B(:Г^ ARROW & 1ST CRD ROW.В)DE$│ И(P(5)):DE$│ П(DE$, З(DE$)м1):Е Й(DE$)┤10 зDE$│"0"лDE$.г*EN│0:АZ│1е4:OS│(P(Z)м1)н10л1/+T│Tл1:ь(X(Z),OS)м(X(Z)л110,OSл70),5:ч2:ї"S4BM"л И(X(Z)л5)л","л И(OSл2)лN$(W(T)):ь(X(Z)л15,OSл11)м(X(Z)л94,OSл61),S(T)/а,ї"S4BM"л И(X(Z)л90)л","л И(OSл2)лS$(S(T)):PI(Z,P(Z))│T:ь(X(Z)л89,OSл1)м(X(Z)л103,OSл10),SS(T):Л:ю(78,23),DE$:ЕRT│1 зRT│0:Р:Д14/▒-:Г DWN ARROW0".EN│0:V1│S(PI(CU,P(CU))):V2│N(PI(CU,P(CU))):АZ│1е4:ЕV1│S(PI(Z,P(Z))) ░ N(PI(Z,P(Z))) ▓ V2 з47 :Д ЛZ:Бж74:Бе140D/OS│(P(CU)м1)н10л1:ЕOS│0 зOS│10П0ь(X(CU),OS)м(X(CU)л110,OSл70),5:ч0:ї"S16BM"л И(X(CU))л","л И(OS)лC$:ч20─1P(CU)│P(CU)м1:Z│CU:OS│(P(Z)м1)н10л1:ЕOS│0 з OS│11.2ЕP(CU)│0з14:Дь(X(CU)л15,OSл11)м(X(CU)л94,OSл61),S(PI(CU,P(CU))):ї"S16BM"л И(X(CU))л","л И(OS)лC$:Бе141J3:ГMOVE CRDS TO MTY PILE1w4V1│PI(CU,P(CU)):V2│CU:V3│OS:EN│1:P$│"":Р1ж5ЕP(CU)┤▓0 зEN│0:Бж74:Бе14 :Д P(V2)│P(V2)м12
6ь(X(V2),V3)м(X(V2)л110,V3л70),5:ч0:ї"S16BM"л И(X(V2))л","л И(V3)лC$:OS│(P(V2)м1)н10л1:ЕOS┤0 з OS│12h7ч2:ї"S16BM"л И(X(V2))л","л И(OS)лC$:ь(X(V2)л15,OSл11)м(X(V2)л94,OSл61),S(PI(V2,P(V2)))38P(CU)│1:PI(CU,P(CU))│V1:ч2:ї"S4BM"л И(X(CU)л5)л",3"лN$(W(PI(CU,P(CU)))):ь(X(CU)л89,2)м(X(CU)л103,11),SS(PI(CU,P(CU))):ь(X(CU)л15,12)м(X(CU)л94,61),S(PI(CU,P(CU))):Бе143&9:ГDRAW SCREEN3й:ч2:NA$│"BY GEORGE QUELLHORST ":АZ│1е22:ю(0,Zл1), Р(NA$,Z,1):ЛZ:NA$│"CARDS LEFT IN THE DECK":АZ│1е22:ю(79,Zм1), Р(NA$,Z,1):ЛZ:Р3║;:ГDEFIN VAR.4O<N$(2)│"BRR7FD2GL6GD2R8ULDL8U2ER6EU2HBL6DLUBR14":N$(3)│"BRR7FDGFD2GL7HUBRDFBR5EU2HL3BR3EUHBL5GDBLUEBR14":N$(4)│"BR4R4D4R2L2D3LU7BL2G4R6BL7E4BR10"57=N$(5)│"BR9L9D3RU3BD3R7FD2GL7HURDFBR5EU2H":N$(6)│"BR9L8GD5FR7EU2HL6BLU2EBGBD2BRGD2FR5EU2H":N$(8)│"BRR7FDGFD2GL7HU2EHUEBRGDFR5BL5GD2FBR5EU2HEUH":N$(9)│"BRR7FD5GL8BR7EU2BLEU2HBL5GD2FR5BL5BLHU2E":N$(11)│"BR4R5BL2D6GL5HURDFBR3EU6L2"6>N$(13)│"R2D7LULDRU7LDRBRBD3E4R2GLG4BEF3R2HLH3":N$(10)│"BR2RD7BR2L5BR2U6GLE2BR8R7FD5GL7HU5EBRGD5FBR5EU5H":N$(12)│"R9D7L9U7BRD7BR7U7D6LF2R2UL2":N$(14)│"BR3R3F3D4LU4H3LG3D4LU4E3BL2BD5R7":C$│"R27D17L27U17":N$(7)│"R9DG6LE6UBL7DLU"6▒?S$(1)│"BR1GD2F4R4E4U2HL3G2H2L3":S$(2)│"BR3G3DF3R6E3UH3L6":S$(3)│"BR4G4D3RE3RD3R2U3RF3RU3H4L4":S$(4)│"BR5GDFDLHL2GDFR2ERD2R2U2RFR2EUHL2GLUEUHL2"7Д@C$(1)│"BR4R2F3E3R2F4G8L2H8E4BL4":C$(2)│"BR7R4FRF5G5LGL4HLH5E5REBR7":C$(3)│"BR9RF8G3LH2L2D2FL4EU2L2G2LH3E8RBR":C$(4)│"BR9F4G3R2E2RF3G3LH2L2D2FL4EU2L2G2LH3E3RF2R2H3E4BL9":P(1)│1:P(2)│1:P(3)│1:P(4)│1:P(5)│48:Р7╪AЕP(1)│1░P(2)│1░P(3)│1░P(4)│1░P(5)│0 зч3:Бж72:АZ│1е10:╔"O2L10T25FEEDBAG":ЛZ:Бе678[BАZ│1е4:D(Z)│S(PI(Z,P(Z))):ЕD(Z)│0 зР:ДЛZ:ЕD(1)│D(2)▒D(1)│D(3)▒D(1)│D(4)▒D(2)│D(3)▒D(2)│D(4)▒D(3)│D(4)зР:Дч3:Бж71:╔"L4T5O1CGAF"8~CP$│ Т:ЕP$│ Л(3)з73:ДЕP$│""з 678╜DЕP$│"N"зц0:Бж58:АZ│1е4:P(Z)│1:Л:P(5)│48:T│0:Бж30:Бж41:Бе148ўEЕP$│"S"зц0:Бж58:АZ│1е4:P(Z)│1:Л:P(5)│48:T│0:Бж41:Бе149
FБе 679РGТ&HF015,&HAA:ь(171,168)м(468,182),10:ч0:ю(28,21),"GAME IS OVER. YOU LOST !":ю(22,22),"PRESS <S> FOR SAME, <N> FOR NEW GAME":Т&HF015,&H21:Р:*HТ&HF015,&HAA:ь(171,168)м(482,182),10:ч0:ю(22,21),"CONGRATULATIONS. YOU ARE A WINNER !":ю(22,22),"PRESS <S> FOR SAME, <N> FOR NEW GAME":Т&HF015,&H21:Р:вIЮ:Т&HA27E,3:ё25,10:З"THANK YOU FOR PLAYING ACES UP":ё21,12:З"BREAK KEY HAS BEEN RESTORED TO NORMAL":З:З:Т 65496,0:С:├JТ&H190,1:EL│0:АZ│1е10:в:ЛZ:Р"CONGRATULATIONS. YOU ARE A WINNER !":ю(22,22),"PRESS <S>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
A&
:ГGRAB A SHAPE&*:ГBY KEIRAN KENNY&C:ГCOPYRIGHT (C) 1993&Z:ГBY FALSOFT, INC.&q:ГRAINBOW MAGAZINE&w
Ю&├Е Ж(&HFFFE)н256л Ж(&HFFFF)│&H8C1B зSP│65497:SL│65496:ДSP│65495:SL│65494&═ТSP,0'(МA(72),B(72),C(72),D(72),E(72),F(72),G(72),H(72),I(72),J(72),K(72)'-2З@105,"*** GRAB ***"'Y<З:З"BY KEIRAN, KENNY, THE HAGUE, 1992";'ПFЗ:З"SPEED:",,,,д1)"1 (FAST; 2 (MEDIUM); 3 (SLOW)"'лPЗ:Зд7)"PRESS 1, 2 OR 3"'╚ZK$│ Т:Е K$┤"1"▒K$▓"3"з90'╓dSF│ Й(K$)'сnБе 240'■xТ178,2:├(128,24),,0:┴0:Р($ВАDL│1е500:Л::┼(X1,Y1)м(X2,Y2),A:Р(=М┼(H1,V1)м(H2,V2),B:Р(VЦ┼(H1,V1)м(H2,V2),C:Р(oа┼(H1,V1)м(H2,V2),D:Р(Ик┼(H1,V1)м(H2,V2),E:Р(б┤┼(H1,V1)м(H2,V2),F:Р(║╛┼(H1,V1)м(H2,V2),G:Р(╙╚┼(H1,V1)м(H2,V2),H:Р(ь╥┼(H1,V1)м(H2,V2),I:Р)▄┼(H1,V1)м(H2,V2),J:Р)ц┼(H1,V1)м(H2,V2),K:Р)3Ё╚4,1:┴0,5:╝:┐1,1)P·X1│104:Y1│0:X2│151:Y2│47)i
╗(X1,Y1)м(X2,Y2),╜,B)А
─(X1,Y1)м(X2,Y2),A)Л
Бе 630)Ц
"Т135,0)╛
,H1│X1м56:H2│X2м56:V1│Y1л72:V2│Y2л72)╘
6АM│1е10:LR(M)│M:Л)р
@АX│1е10)ю
JRL│ Д(10)*
TRV(RL)│LR(RL)*
^ЕLR(RL)│0з330*D
hИRL Бж140,150,160,170,180,190,200,210,220,230*U
rАDL│1е1000:Л*k
|АN│1е10:RR(N)│N:Л*Б
ЖH1│X1л56:H2│X2л56*Н
РАY│1е10*Ъ
ЪR│ Д(10)*л
дЕRR(R)│0з410*▄
оИR Бж140,150,160,170,180,190,200,210,220,230*я
╕АZ│1е1000нSF:Л+
┬VR(R)│RR(R):RR(R)│0+
╠Е Ж(135)│32з520+!
╓Л+.
рLR(RL)│0+A
ъАZ│1е1000нSF:Л+V
ЇЕ Ж(135)┤▓32з520+\
■Л+jTR│TRл1:Ю+├Е Ж(135)│32░VR(R)│RV(RL) зRT│RTл1:З@139,"RIGHT!":ДЕ Ж(135)│32зWR│WRл1:З@139,"WRONG!"+єЕ Ж(135)┤▓32зMS│MSл1:З@135,"YOU MISSED IT!",
&З@202,"TRIES:"л И(TR),+0ЕRT зЗд10)"RIGHT:"л И(RT),I:ЕWR зЗд10)"WRONG:"л И(WR),hDЕMS з Зд9)"MISSED:"л И(MS),БNЗ:Зд8)"ANOTHER? Y/N",вXK$│ Т:ЕK$┤▓"Y" ░ K$┤▓"N"з600,╝bЕ K$│"Y"з╝:┐1,1:Бе300,¤lТSL,0:З:З"THANKS FOR TRYING! I HOPE YOU   LIKED THE GAME.":К-8v╞"BM112,24E15F15G15H15":Бж120:─(X1,Y1)м(X2,Y2),B:Бж130-hА┬(128,24),15:Бж120:─(X1,Y1)м(X2,Y2),C:Бж130-╝К╞"BM112,24U5R10U10R10D10R10D10L10D10L10U10L10U5":Бж120:─(X1,Y1)м(X2,Y2),D:Бж130.Ф╞"BM112,24M+15,-15M+15,+15M-10,+0M+0,+15M-10,+0U15L10":Бж120:─(X1,Y1)м(X2,Y2),E:Бж130.dЮ╞"BM112,39U32R32D32L5U27L8D27L6U27L8D27L5":Бж120:─(X1,Y1)м(X2,Y2),F:Бж130.╣и╞"BM112,24U15M+16,+10M+16,-10D15M-16,+16M-16,-16":Бж120:─(X1,Y1)м(X2,Y2),G:Бж130/6▓╞"BM112,24M+5,-5M-5,-5M+5,-5R22M+5,+5M-5,+5M+5,+5M-5,+5M+5,+5M-5,+5L22M-5,-5M+5,-5M-5,-5":Бж120:─(X1,Y1)м(X2,Y2),H:Бж130/Е╝╞"BM112,39U32R8D12R16U12R8D32L8U12L16D12L8":Бж120:─(X1,Y1)м(X2,Y2),I:Бж130/┌╞╞"BM112,39M+10,-16M-10,-16R32M-10,+16M+10,+16L32":Бж120:─(X1,Y1)м(X2,Y2),J:Бж1300╨╞"BM112,32U16E8R16F8D16G8L16H8":Бж120:─(X1,Y1)м(X2,Y2),K:Бж13006┌╗(X1,Y1)м(X2,Y2),╛,B0@фБе29039U32R8D12R16U12R8D32L8U12L16D12L8":Бж120:─(X1,Y1)м(X2,Y2),I:Бж130/┌╞╞"BM112,39M+10,-16M-10,-16R32M-10,+16M+10,+16L32":Бж120:─(X1,Y1)м(X2,Y2),J:Бж1300╨╞"BM112,32U16E8R16F8D16G8L16H8":