UNE3DR4D5BL4","BU2H6NR6D3RF3D2L5","BU2U2H2UEL2G4DR2UD4NR2BL2","BL4U3E4UNL7LG6D2","U8L5D3R2D5L4NU9","BL5E5UH3ND5LG3DF2DG20m'Ж"NU9R3U2NR2U6R4D8","NU9R3U8R4DG2DF2D2NL3","NU9R3U9R4D3BD3D3NL3","NU9R3U9RF3D3G3BR3","U9R3NR4D4NRD5R4","U9R3NR4D4NRD5BR4","U9R7BD4NL2D5NL4","U9R3D9U4R4U5D9","R2U8NLR4LD8R2","NU5R4U9R3D9","NU9R3U9D6E3NU3GDF2D2","U9R3D9R4","U9F5D2NH3UE4U2NG3D91\(Ж"U9F7NU7D2NH5","U9R2ND5R5D9NL5","U8R6D3L3UD6BR4","U9R7D4G4ERF2","NU9R3U8R4DG2DF2D2","R4U5LNUL3U4R7BD4D5","BR2U8LR5LD8BR2","U8R3D8R4NU8","BU2U7R3D9RU3R3NU6BD3","NU8E5U2NG3LNF3D2F5NU8","NU3NR3E6NU3GLH4ND3NR3F7D2","BU4U5R3D9R2U4R2NU5BD41p)Ж"E7UNL7LG6D2R71Ц*Z7$│"U8L3D8L2U8L2D8":Z$(32)│"BR5"1┼+МA0(2),A1(2),A2(2),A3(2),A4(2),A5(2),N(15)1щ,╚1,1:╝:┐0,0:─(0,0)м(13,13),A5,G2@-╞"BM0,0C3BR2R9G3L4G2R9F2L13D2R12G2L7F2R4BL2C2H3R4U4L3U3R4H3":─(0,0)м(13,13),A1,G:╝2Д.╞"BM0,0C4BD5RFHLE4UND7F4NL6DG6NR5GR8E4U6":─(0,0)м(13,13),A2,G:╝2╚/╞"BM0,0C3BR4R5G4L2NG3R8NEG9R2U7NR2F7L3U7":─(0,0)м(13,13),A0,G:╝30╞"C3BM0,0ND13R6ND13R7D6NL11D7L11":─(0,0)м(13,13),A3,G:╝3P1╞"C4BM0,0BD6R3EUNHRERNU3FRNEDFDNR3GDNFLGLND3HLNG":─(0,0)м(13,13),A4,G:╝3Ю2L│15:BB│0:PP│1:QQ│0:S│0:XX│1:X1│18:Y1│0:X│18:Y│18:АB│1е5й2:╚1,B:┐0,0:╝:ЛB3°3╚1,1:┐0,0:АB│60е242й14:┼(B,0)м(Bл13,13),A3,╜:Л:АB│4е242й14:┼(B,168)м(Bл13,181),A3,╜:Л4H4АB│0е154й14:┼(4,B)м(17,Bл13),A3,╜:Л:АB│14е112й14:┼(242,B)м(255,Bл13),A3,╜:Л4Ф5ZL$│"HIGH SCORE":Z1│84:Z2│191:ZC│4:Бж9:ZN│HS:Z1│221:Z2│191:Z6$│"C2":Бж84э6ZL$│W$:Z1│222:Z2│191:ZC│3:Бж9:ZL$│"LOOT":Z1│0:Z2│191:ZC│4:Бж9:┴2:╗(0,0)м(2,178),╜,BF57╟1е3:╟2е4:╟3е5:╟4е658АX│1е15:N(X)│X:ЛX5(9АP│1е5й25<:BB│BBл5:XX│XXл25J;╚1,P:┐0,05Ф<АB2│14е154й14:АB│18е228й14:B3│ Д(2)м1:ЕB3│1з┼(B,B2)м(Bл13,B2л13),A3,╜5Ю=ЛB,B25ц>АB│1еBB:C│ Д(15)н14:C2│ Д(10)н14:┼(18лC,14лC2)м(31лC,27лC2),A2,╜:ЛB6H?АX│1еXX:R│ Д(L):T│N(R):N(R)│N(L):L│Lм1:C│Tн14:C2│ Д(10)н14:┼(18лC,14лC2)м(31лC,27лC2),A1,╜:ЛX6O@ЛP6^AТ65494,0:Р8е228й14:B3│ Д(2)м1:ЕB3│1з┼(B,B2)м(Bл13,B2л13),A3,╜5Ю=ЛB,B25ц>АB│1еBB:C│ Д(15)н14:C2│ Д(10)н14:┼(18лC,14лC2)м(31лC,27лC2),A2,╜:ЛB6H?АX│1еXX:R│ Д(L):T│N(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╒& 
В"BASEBALL TEAM DATA BASE"&IВ"STEVE BLYN,COMPUTER ISLAND,NY,1984&TХ 1000&┤(В"WE CAN DIMENSION THE STRINGS WITH ANY AMOUNT GREATER THAN THE POSSIBLE NUMBER OF PLAYERS"&╟2МA$(50),B$(50)&╫<А T│1 е 50 &щFН A$(T),B$(T)'
PЕ A$(T)│"END" з 120'WZВ"IF THE PLAYERS NAME IS READ AS 'END' THEN THE COMPUTER STOPS READING THE DATA."'_dЛ T'~nВ"SET THE COUNTER TO ZERO"'дxNN│0:Ю7:З@5,"BASEBALL POSITIONS";'пВа175,2'╒МЗ@484,"'A' FOR ALL & 'E' TO END";(ЦЗ@96,"WHAT POSITION DO YOU WANT TO SEETHIS TIME...";:Й PS$((аЕ PS$│"E" з Ю:К(<кЕ PS$│"A" з 270(B┤З(R╛А T│ 1 е 50(y╚Е B$(T)│PS$ з ЗA$(T),B$(T):NN│NNл1(╥Л(Е▄З(зцЕ NN│0 з З"SORRY,NONE FOUND."(╬ЁЗ@483,"PRESS ANY KEY TO GO ON...";(┘·AN$│ Т(є
Е AN$│"" з 250 :Д 110)
В"PRINTOUT OF ALL PLAYERS ON THE TEAM")%
Ю8)@
"З@6,"THE ENTIRE TEAM";)i
,З@64,"PRESS ANY KEY FOR NEXT PLAYER")o
6З)~
@А T│1 е 50)Т
JЗ T;B$(T),A$(T))л
TEN$│ Т:Е EN$│""з 340)├
^Е A$(T)│"END" з 240)╬
hа200,2)╒
rЛT*
|В"THE DATA IS ENTERED AS PLAYER'S NAME,PLAYERS POSITION."*o
ЖВ" YOU MAY USE OUR MET PLAYERS FOR PRACTICE OR ENTER YOUR OWN FAVORITE TEAM'S MEMBERS."*╚
РЖ TOM SEAVER,P,DOUG SISK,P,RUSTY STAUB,RF,JOHN STEARNS,C,CRAIG SWAN,P,WALT TERRELL,P+.
ЪЖ WALLY BACKMAN,SS,BOB BAILOR,2B,HUBIE BROOKS,3B,CARLOS DIAZ,P,GEORGE FOSTER,LF,RON GARDENHIRE,SS+Л
дЖ BRIAN GILES,2B,TOM GORMAN,P,DANNY HEAP,RF,RON HODGES,C,SCOTT HOLMAN,P,MOOKIE WILSON,CF+ф
оЖ MIKE HOWARD,CF,DAVE KINGMAN,1B,TERRY LEACH,P,TIM LEARY,P,ED LYNCH,P,JESSE OROSCO,P,
╕Ж RICK OWNBEY,P,GARY RAJSICH,RF,RONN REYNOLDS,C,Г
┬Ж JOSE OQUENDO,SS,KEITH HERNANDEZ,1B,JUNIOR ORTIZ,C,MARK BRADLEY,RT,DARRYL STRAWBERRY,RF,RON DARLING,P,╞
╠В "THE NEXT LINE IS DUMMY DATA TO END THE READING OF THE DATA",╘
╓Ж END,ENDESSE OROSCO,P,
╕Ж RICK OWNBEY,P,GARY R                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 _&
:ГHEIST&$
Т65495,0:Бж35:Бе10&d┼(X,Y)м(Xл13,Yл13),A5,╜:X│X1:Y│Y1:┼(X,Y)м(Xл13,Yл13),A0,╜:Р&└ЕX▓18зT│ а(Xм9,Y):ЕT▓1з┼(Xм14,Y)м(Xм1,Yл13),A4,╜:ЕT│4з23:Д╔B$:┼(Xм14,Y)м(Xм1,Yл13),A5,╜'ЕY▓14зT│ а(X,Yм1):ЕT▓1з┼(X,Yм14)м(Xл13,Yм1),A4,╜:ЕT│4з23:Д╔B$:┼(X,Yм14)м(Xл13,Yм1),A5,╜'|ЕX┤228зT│ а(Xл18,Y):ЕT▓1з┼(Xл14,Y)м(Xл27,Yл13),A4,╜:ЕT│4з23:Д╔B$:┼(Xл14,Y)м(Xл27,Yл13),A5,╜'▄ЕY┤154зT│ а(X,Yл18):ЕT▓1з┼(X,Yл14)м(Xл13,Yл27),A4,╜:ЕT│4з23:Д╔B$:┼(X,Yл14)м(Xл13,Yл27),A5,╜'хБе13(EZA$│ И(ZN):ТZ3,Z1:ТZ4,Z2:АZB│ З(ZA$)е2йм1:╞Z5$лZ7$л"BR7"лZ6$лZ$( К( Р(ZA$,ZB,1)))л"BL3":Л:Р(Й	ТZ3,Z1:ТZ4,Z2:┴ZC:АZB│1е З(ZL$):╞Z$( К( Р(ZL$,ZB,1)))л"BR3":Л:Р(╦
╚1,PP:┐1,0:ZN│S:Z1│79:Z2│191:Бж8:X1│18:Y1│0:X│18:Y│0:Бж2:Бе12(┘Y1│Y:X1│X(ъЕ Т│ Л(32)з3)
Е Ж(341)│247зY1│Yм14:Бе15)!Е Ж(342)│247зY1│Yл14)?Е Ж(343)│247зX1│Xм14:Бе17)XЕ Ж(344)│247зX1│Xл14)ДQQ│QQл.6:╗(0,0)м(2,QQ),╛,BF:ЕQQ│▓178з23)СЕY1┤0з11)╧ЕX▓228зPP│PPл2:ЕPP┤7з10:ДБж2:┼(X,Y)м(Xл13,Yл13),A5,╜:Бе25)їT│ а(X1л7,Y1л7):И T Бе21,22,11,23*Бж2:Бе12*;Бж2:╔MB$:S│Sл100:ZN│S:Z1│79:Z2│191:Z6$│"C2":Бж8:Бе12*Ь┼(X,Y)м(Xл13,Yл13),A5,╜:X│X1:Y│Y1:┼(X,Y)м(Xл13,Yл13),A0,╜:АX│1е10:а180,2:┐1,1:а180,2:┐1,0:ЛX+8Бж34:ZL$│"YOU GOT CAUGHT":Z1│66:Z2│81:Бж9:ZL$│"WITH":Z1│116:Z2│93:Бж9:ZN│S:Z1│105:Z2│105:Z6$│"C2":Бж8:ZL$│"DOLLARS":Z1│122:Z2│105:Бж9:АD│1е1000:ЛD:Бе32+╨Бж34:ZL$│"YOU MADE IT OUT":Z1│66:Z2│81:Бж9:ZL$│"WITH":Z1│116:Z2│93:Бж9:ZN│S:Z1│105:Z2│105:Z6$│"C2":Бж8:ZL$│"DOLLARS":Z1│122:Z2│105:Бж9:АB│1е1000:ЛB,&ЕS┤│HS з32:ДHS│S:ZN│HS:Z1│221:Z2│191:Бж8:ZL$│W$:Z1│222:Z2│191:ZC│1:Бж9:W$│"":Бж34,}ZL$│"NEW HIGH SCORE":Z1│66:Z2│83:ZC│2:Бж9:ZL$│"TYPE YOUR INITIALS":Z1│50:Z2│97:Бж9,ИАB│1е3,ЬQ$│ Т:ЕQ$│""з29,мW$│W$лQ$:ЛB,╬ZL$│W$:Z1│222:Z2│191:ZC│3:Бж9-& Бж34:ZL$│"TO PLAY AGAIN":Z1│70:Z2│83:ZC│4:Бж9:ZL$│"PRESS SPACE BAR":Z1│60:Z2│97:Бж9-R!Е Т┤▓ Л(32)з33:ДБж34:Т65495,0:Бж50:Бе10-p"╗(46,71)м(226,110),╛,BF:Р- #Ю:З@140,"*HEIST*":З@197,"COLOR COMPUTER VERSION":З@264,"BY DOUG THORSVIK":З@388,"20 SECONDS ARE REQUIRED":З@420,"TO SET UP 3 GAME SCREENS".g$D│13:E│14:HS│500:B$│"V30L8T56;O1;1;4;7;10":MB$│"L8T224O5;1;5;9;O3;1;5;9;O1;1;5;9":W$│"DRT":Z5$│"C1".й%МZ$(90):Z3│200:Z4│202:АZB│48е57:НZ$(ZB):Л:АZB│65е90:НZ$(ZB):Л/w&Ж"U8L5D4L2U5D9NR4","H3U5L3RD8NR3L2","L7E6UHNL5DG5D2","U2H2UEU2NL6G3DF4L7","U9D4L7GER $50.00   PAYOFF:";:З#мZ,═"$####.##";50нMU8XшЕ Z│2 з З#мZ, б(40,"-"):З#мZ:З#мZ:Бе1208АЄЗ:З"<a>NOTHER  <p>RINTER   <m>ENU";8Щ№AN$│ Т:ЕAN$│""з 10208лЕAN$│"A"з 8208├ЕAN$│"P"з Z│2:Бе8708╓Е AN$│"M"з 1208ч$а1,4:Бе 10208є.Бе 10709c8Ю:З@44,"printing":╔"T100V31O3CO4DO5E":З б(33,159);"* THE DAILY DOUBLE SELECTION *"; б(33,159);:З б(32,195);:BЗ:╔"T100V31O4EO5E":Й" TOP CHOICE-1ST RACE:";T1:╔"O4EO5E":Й" 2ND CHOICE-1ST RACE:";T2:╔"O4EO5E":Й" TOP CHOICE-2ND RACE:";T3:╔"O4EO5E":Й" 2ND CHOICE-2ND RACE:";T4:`LЮ:╔"O3CO4DO5E":З б(33,159);:З"* THE DAILY DOUBLE SELECTION *"; б(33,159); б(32,195):{VЗ:З"KEY BET:"T1;"-";T3:и`З"ALSO:   ";T1;"-";T4;"  **  ";T2;"-";T3:·jЗ:З б(32,175);:╔"O3EO4EO3E":З"     POSSIBLE HEDGE:"T2;"-";T4:З б(32,175);:З:З;tЗ"<m>ENU     <p>RINTER";;0~AN$│ Т:ЕAN$│""з 1150;CИЕ AN$│"M"з 120;fТЕAN$│"P"з 1180 :Д а1,1:Бе 1150;ЇЬЮ:З@44,"PRINTING":З#м2:З#м2, б(40,"-"):З#м2,д6);"*DAILY DOUBLE SELECTION*":З#м2,"KEY BET:"T1;"-";T3;"    Also:";T1;"-";T4;"and";T2;"-";T3<BжЗ#м2,"POSSIBLE HEDGE BET:";T2;"-";T3:З#м2, б(40,"-"):З#м2, б(40,"-"):З#м2<Г░З@37,"PRINT ACTION FINISHED":а125,1:а175,1:АTI│1е300:Л:Бе120<ф║Ю:╔"T100V31O3CO4DO5E":З б(33,159)л" PERFECTA-EXACTA COMBINATIONS ";л б(33,159);:З б(32,195);=─╔"O4EO5E":Й" ENTER TOP CHOICE NO.";T1=O╬╔"O4EO5E":Й" SECOND CHOICE";T2:╔"O4EO5E":Й" THIRD CHOICE";T3=Э╪Ю:╔"O3CO4DO5E":З б(33,175)л б(9,128)л"combinations"л б(9,128)л б(33,175);=╒тЗ б(32,195);:З" PLAY:  ";T1;"-";T2;" ** ";T1;"-";T3>
ьЗ"        ";T2;"-";T1;" ** ";T3;"-";T1">aЎЗ:З б(32,159);:З"IF TOP CHOICE IS 5-1 OR GREATER CONSIDER PLAYING ";T1;"- all":З б(32,159);>ДЗ:З:З" <m>ENU       <p>RINTER">Э
AN$│ Т:ЕAN$│""з 1290>╙Е AN$│"M"з 120 :Д Е AN$│"P"з 1310 :Д а1,4:Бе 1290?=а 125,1:а125,1:Й"INPUT RACE NO.";RN:╔"O4EO5E;":З#м2, б(40,"-"):З#м2,"     *PERFECTA/EXACTA WAGERING*"?▄(Ю:З@44,"PRINTING":а155,1:а125,1:З#м2,д12);"RACE NO.";RN:З#м2,"Combinations To Play:";T1;"-";T2;" ** ";T1;"-";T3:З#м2, б(21," ");T2;"-";T1;" ** ";T3;"-";T1@2З#м2,"IF CHOICE IS 5-1 OR UP CONSIDER";T1;"-All"@/<З#м2, б(40,"-"):З#м2:З#м2@nFЗ@40,"printing complete":а 125,1:а155,1:АTI│1е600:Л:Бе 120@╙PЮ:╔"T100V31O3CO4DO5E":З б(33,159);:З@36," BIG TRIPLE SELECTIONS ";:З@63, б(33,159);:З б(32,128);AZЗ" ENTER HORSE NUMBERS":Й" TOP SELECTION:";T1:╔"O4EO5E"A4dЙ"SECOND SELECTION";T2:╔"O4EO5E"AYnЙ"THIRD  SELECTION";T3:╔"O4EO5E"A~xЙ"FOURTH SELECTION";T4:╔"O4EO5E"BВЮ:╔"O3CO4DO5E":З б(38,255)л" TRIPLE  SELECTIONS "л б(38,255)л б(32,195);:З:╔"O4EO5E":З"PLAY ";T1;"-";T2;"-";T3;:╔"O4EO5E":З"     ";T1;"-";T2;"-";T4;BоМ╔"O4EO5E":З"     ";T1;"-";T3;"-";T2;:╔"O4EO5E":З"     ";T1;"-";T3;"-";T4;:╔"O4EO5E":З"     ";T1;"-";T4;"-";T2;:╔"O4EO5E":З"     ";T1;"-";T4;"-";T3BЎЦЗ:З б(33,128)л"  THE HEDGE BOX   ";T1;"-";T2;"-";T3;" "; б(33,128);CаЕ Z│2 з 120C#кЗ"<m>ENU     <p>RINTER";C<┤AN$│ Т:ЕAN$│""з 1460Cr╛Е AN$│"M"з 120 :Д Е AN$│"P"з 1480 :Д а1,4:Бе 1460C╦╚Ю:а125,1:а 155,1:З@44,"PRINTING":З#м2, б(40,"-"):З#м2, б(11," ");"TRIPLE  SELECTION"D
╥З#м2,д9)"PLAY:  ";T1;"-";T2;"-";T3:З#м2,д16);T1;"-";T2;"-";T4DG▄З#м2,д16);T1;"-";T3;"-";T2:З#м2,д16);T1;"-";T3;"-";T4DБцЗ#м2,д16);T1;"-";T4;"-";T2:З#м2,д16);T1;"-";T4;"-";T3D│ЁЗ#м2:З#м2,"**The Hedge Box:";T1;"-";T2;"-";T3D╟·З#м2, б(40,"-")D╥Бе 120EfЮ:З Л(193)л б(30,195)л Л(194);:З Л(197)л"*** WAGER MASTER  OVERVIEW ***"л Л(202);:З Л(196)л б(30,204)л Л(200);:З б(32,147);:╔"T100V31O4CO4DO5E"EяЗ"THIS PROGRAM IS PRESENTED AS  ANAID FOR YOUR HANDICAPPING. IT ISNOT DESIGNED TO DO  HANDICAPPINGFOR YOU! THIS IS FOR THE BETTOR.";FШ"З б(32,255);:З"NOTE** ALL 'PLACE' & 'SHOW' ODDS";:З"ARE strictly ESTIMATES AND OFTENFLUCTUATE WITH THE MUTUAL POOL. ";:З б(32,255);:З:З"< PRESS ANY KEY FOR MENU >";F╕,AN$│ Т:ЕAN$│""з 1580 :Д 120F─6Бе 1590F╥@АX│1 е 14FЁJН O$(X),W$(X),P$(X),S$(X)F°TЛ XG^П:РGhР ALL 'PLACE' & 'SHOW' ODDS";:З"ARE strictly ESTIMATES AND OFTENFLUCTUATE WITH THE MUTUAL POOL. ";:З б(32,255);:З:З"< PRESS ANY KEY FOR MENU >";F╕,AN$│ Т:ЕAN$│""з 1580 :Д 120F─6Бе 1590F╥@АX│1 е 14FЁJН O$(X),W$(X),P$(X),S$(X)F°TЛ XG^П:                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 !&
:Г******************&3:Г*  WAGER MASTER  *&L:Г*   <C>L.HYRE    *&e(:Г*  CAMBRIDGE MD  *&~2:Г*      1/84      *&Ч<:Г******************&гFЮ:Х1000&┼PМ O$(15),W$(15),P$(15),S$(15)&╤ZБж 1600'┐dЖ 1-1,4.00,2.80,2.20,6-5,4.40,3.00,2.20,7-5,4.80,3.20,2.80,8-5,5.20,3.20,2.80,9-5,5.60,3.20,2.80,2-1,6.00,3.40,2.80,5-2,7.00,3.60,3.00,3-1,8.00,4.00,3.00,4-1,10.00,5.20,3.40,5-1,12.00,6.00,4.00,6-1,12.00,7.00,4.40,8-1,18.00,8.00,5.20'ёnЖ 10-1,22.00,8.00,5.20,20-1,42.00,18.00,10.00(4xZ│0:Ю:а125,1:З б(33,159);:З@42,"WAGER MASTER":З@63, б(33,159);(√ВЗ" THE MENU:":З" 1> STANDARD PAYOFFS":З" 2> RETURN PER SPECIFIC WAGER":З" 3> WAGERING RECORD KEEPER":З" 4> RETURN PER SPECIFIC ODDS":З" 5> DAILY DOUBLE WAGERS":З" 6> PERFECTA,EXACTA TYPE WAGERS")2МЗ" 7> TRIFECTA,TRIPLE TYPE WAGERS":З" 8> overview")KЦа 100,1:З б(32,159);)|аЗ"    < TYPE NO.OF SELECTION >":З б(32,159);)ФкAN$│ Т:ЕAN$│""з 170)╔┤И  Й(AN$) Бе 190,330,610,820,1080,1210,1360,1550*╛Ю:а 125,1:Е Z│2 з З#мZ, б(40,"$"):З#мZ,"*ESTIMATED PAYOFF ON A TWO DOLLAR WAGER**G╚З#мZ,"ODDS     WIN    PLACE    SHOW"*s╥АX│1е14:Е  З(O$(X))│3 з O$(X)│" "лO$(X)*Ч▄Е  З(W$(X))│4 з W$(X)│" "лW$(X)*╗цЕ  З(P$(X))│4 з P$(X)│" "лP$(X)*▀ЁЕ  З(S$(X))│4 з S$(X)│" "лS$(X)+ ·╔"T255V31O4D":З#мZ,д0);O$(X);д8);W$(X);д16);P$(X);д25);S$(X)+&
Л+R
Е Z│2 з З#мZ, б(40,"$"):З#м2:З#м2:Бе120+n
З"<m>ENU    <p>RINTER";+Е
"AN$│ Т:ЕAN$│""з290+Ш
,Е AN$│"M"з 120+▓
6Е AN$│"P"з Z│2:Бе 190+┴
@а1,4:Бе290+╬
JЮ:а125,1,
TЗ б(32,175);:З Л(175)л"    RETURN/SPECIFIC WAGER     "л Л(175);:З б(32,175);,f
^Е Z│2 з З#м2, б(40,"-"):З#м2,д10);"*RETURN/SPECIFIC WAGER*":Бе 410,т
hЗ"SELECT ANTICIPATED ODDS:":З"(1) 1-1   (2) 6-5   (3) 7-5":З"(4) 8-5   (5) 9-5   (6) 2-1":З"(7) 5-2   (8) 3-1   (9) 4-1-
rЗ"(10)5-1   (11)6-1   (12)8-1":З"(13)10-1  (14)20-1"-E
|Й OD$:Е  Й(OD$)▓14 з 380 :Д X│ Й(OD$)-j
Ж╔"V31T100O4EO5E":З "ODDS=";O$(X)-╣
РЙ"HOW MUCH TO WIN   ";WM:Й"HOW MUCH TO PLACE ";PM:Й"HOW MUCH TO SHOW  ";SM-┘
ЪЮ:З"      RETURN FOR WAGER"-я
дЕZ│1зЗ б(32,159);.
оЗ#мZ,"FOR A HORSE AT  ";O$(X);" ODDS".P
╕З#мZ,"TOTAL WAGER OF";:З#мZ,═"$######.##";WMлPMлSM.q
┬З#мZ,"YOUR PAYOFF WOULD BE:".Я
╠W│ Й(W$(X))о2:P│ Й(P$(X))о2:S│ Й(S$(X))о2.╥
╓З#мZ,═"WIN   $######.##";WMнW:╔"V31T100O4EO5E".■
рЗ#мZ,═"PLACE $######.##";PMнP:╔"O4EO5E"/*
ъЗ#мZ,═"SHOW  $######.##";SMнS:╔"O4EO5E"/>
ЇЗ#мZ, б(16,"-")/z
■З#мZ,═"TOTAL $######.##";(WMнW)л(PMнP)л(SMнS):╔"O4EO5E"/кЗ#мZ,═"LESS  $######.##";WMлPMлSM:╔"O4EO5E"0З#мZ, б(16,"-"):З#мZ,═"PROFIT ######.##";((WMнW)л(PMнP)л(SMнS))м(WMлPMлSM):╔"T10O5CG"0!ЕZ│2зЗ#м2, б(40,"-"):Z│00L&З#мZ::З"<a>NOTHER  <m>ENU  <p>RINTER";0d0AN$│ Т:ЕAN$│""з 5600v:ЕAN$│"A"з 3300ИDЕAN$│"M"з 1200аNЕAN$│"P"з Z│2:Бе3500░Xа1,4:Бе 5600ЄbЮ:З б(33,159);:З@38,"WAGERING RECORD KEEPER":З@63, б(33,159);1lЗ"IS PRINTER ON?":а125,1:а155,11,vA$│ Т:ЕA$│""з 6301GАЕA$┤▓"Y"з а 1,1:Бе 6301^К╔"V31T50O3DO4DO5D"1СФЗ"MAKE SURE PAPER IS ADVANCED TO  PRINT HEAD!"1┐ЮЗ:Й"RACECOURSE NAME";RC$:╔"T100V31O4EO5E"1сиЙ"TODAYS DATE:";DT$:╔"O4EO5E"2
▓Й"YOUR NAME:";NM$:╔"O4EO5E"27╝З:З:З"**********now"л Л(128)л"printing**********"2Ж╞З#м2, б(40,"*"):З#м2,"TRACK:";RC$;д20);"DATE:"DT$:З#м2,NM$:З#м2, б(40,"*")2Т╨АR│1е102╕┌З#м2, б(40,"-"):З#м2,"RACE NO.";R2ьфЗ#м2,"WAGER:WIN.......PLACE.......SHOW........"3'юЗ#м2,"HORSE PLACED:.......";д21);"PAYOFF............."3[°З#м2,"PROFIT OR LOSS ON RACE.................."3cЛ R3АЗ#м2, б(40,"-"):З"DONE-"3аЗ"PRESS <1>ANOTHER  <2>MENU3╢ A$│ Т:ЕA$│""з 8003ш*Е A$│"1"з 610 :Д Е A$│"2"з 120 :Д а1,1:Бе 8003ї4Ю:а125,14Q>З б(32,175);:З Л(175)л"    RETURN / SPECIFIC ODDS    "л Л(175);:З б(32,175); б(32,195);4┬HЗ"SELECT ODDS:":З"(1) 1-1   (2) 6-5   (3) 7-5":З"(4) 8-5   (5) 9-5   (6) 2-1":З"(7) 5-2   (8) 3-1   (9) 4-1"4№RЗ"(10)5-1   (11)6-1   (12)8-1":З"(13)10-1   (14)20-1"5$\ЙOD$:Е Й(OD$)▓14 з 860 :Д X│ Й(OD$)5Pf╔"V31T100O4EO5E":ЕZ│0 з З"ODDS= ";O$(X)5ppа125,1:а155,1:АTI│1е500:ЛTI5╛zЮ:Е Z│2 з З#мZ, б(40,"-"):З#мZ,"       *RETURN PER SPECIFIC ODDS*":Бе 9106ДЮ:З б(33,159);:З"***RETURN PER SPECIFIC ODDS***";:З б(33,159); б(32,195);65ОЗ#мZ,"<ODDS=";O$(X);">    *WIN ONLY*6HШMU│ Й(W$(X))о26ЧвЗ#мZ:╔"T100V31O4EO5E":З#мZ,"WAGER $ 2.00   PAYOFF:";:З#мZ,═"$####.##";2нMU6┌м╔"O4EO5E":З#мZ,"WAGER $ 4.00   PAYOFF:";:З#мZ,═"$####.##";4нMU7╢╔"O4EO5E":З#мZ,"WAGER $ 5.00   PAYOFF:";:З#мZ,═"$####.##";5нMU7`└╔"O4EO5E":З#мZ,"WAGER $ 6.00   PAYOFF:";:З#мZ,═"$####.##";6нMU7д╩╔"O4EO5E":З#мZ,"WAGER $10.00   PAYOFF:";:З#мZ,═"$####.##";10нMU7ш╘╔"O4EO5E":З#мZ,"WAGER $20.00   PAYOFF:";:З#мZ,═"$####.##";20нMU8,▐╔"O4EO5E":З#мZ,"WA &

Х1000:Ю&"М D$(13),NF$(13)&▒З"CHARACTER DISK FILING SYSTEM":З"FOR USE WITH FANTASY GAMES":З"COPYRIGHT 1984 BY":З"BILL NOLAN":З"TUCSON, ARIZONA":З"ALL RIGHTS RESERVED"&═А X│1 е 13:Н NF$(X):Л X'.Ж NAME..,RACE..,SEX...,CLASS.,STR...,INT...,WIS...,DEX...,CON...,CHA...,HP....,AC....,LEVEL.'?#З:З:Бж 11000'гшЮ:З:З"1. PRINT CHARACTERS":З"2. ADD CHARACTERS":З"3. CHANGE CHARACTERS":З"4. END PROGRAM":K$│ Т'╘эK$│ Т:K│ Й(K$):Е K┤1 ▒ K▓4 з 1005 :Д а 150,1'ЇЄИ K Бе 1500,4000,6000,12000(▄Ю:З:З"DO YOU WANT:":SF│0(uцЗ:З"  1. ALL RECORDS PRINTED":З:З"  2. PRINT SPECIFIC RECORDS":З:З"KEY YOUR CHOICE (1-2)":K$│ Т(│ЁK$│ Т:K│ Й(K$):Е K┤1 ▒ K▓2 з 1520 :Д а 150,1:Е K│1 з 2000)·SF│1:Ю:А X│1 е 13:ЗX;". ";NF$(X):Л X:Й"SEARCH FIELD # (1 TO 13)";TF:а 150,1)*Е TF┤1 ▒ TF▓13 ▒ TF┤▓ Б(TF) з 1530)FЗ"SEARCH TARGET?":Й TG$)Ш╨Ю:З:З"DO YOU WANT THIS PRINTED TO THE":З"SCREEN, OR THE PRINTER? (S/P)":K$│ Т)с┌K$│ Т:Е K$┤▓"S" ░ K$┤▓"P" з 2010 :Д а 150,1:Е K$│"P" з DN│м2 :Д DN│0)є▀Е DN│0 з PP│1*mфЕ DN│м2 з З:З"DO YOU WANT THE ACTION TO BE":З"CONTINUOUS, OR DO YOU WANT A":З"PAUSE AFTER EACH QUESTION? (C/P)":K$│ Т*╛юЕ DN│м2 з K$│ Т:Е K$┤▓"C"░ K$┤▓"P" з 2030 :Д а 150,1:Е K$│"P" з PP│1 :Д PP│0+°Е DN│м2 з Ю:З"YOU SELECTED THE PRINTER.":З"MAKE SURE IT'S ON LINE NOW.":Бж 10500+ Бж 10200+,N│ е(1)+: А X│1 е N+E*─ #1,X+R/Бж 10000+Б1Е SF│1 з Е TG$┤▓  О(D$(TF), З(TG$)) з 2120+║4Ю:З#DN,"RECORD #";X:А Y│1 е 13:З#DN,NF$(Y);D$(Y):Л Y+╥>Е PP▓0 з Бж 10500:Ю+╪HЛ+рRЪ#1+ь\Бе 1000+∙аБж 10200+ ┤Ю,
╛N│ е(1)л1,*╚З"YOU ARE ON RECORD #";N,V╥А X│1 е 13:ЗNF$(X);:Й D$(X):а 150,1:Л X,Ь▄Ю:А X│1 е 13:ЗNF$(X);:З D$(X):Л X:З"IS THIS CORRECT? (Y/N)":K$│ Т,█,K$│ Т:Е K$┤▓"Y"░ K$┤▓"N" з 4140 :Д а 150,1:Е K$│"N" з 4020,ш6Бж 10100,ї@┼ #1,N:Ю-JЗ"DO YOU HAVE MORE? (Y/N)":K$│ Т-ZTK$│ Т:Е K$┤▓"Y" ░ K$┤▓"N" з 4180 :Д а 150,1:Е K$│"Y" з 4020-c^Ъ #1-ohБе 1000-|pБж 10200-ВДЮ-аОЙ"CHANGE WHAT RECORD #";N-▀ШЕ N┤1 ▒ N▓ е(1) з З"INVALID NUMBER":А X│1 е 2000:Л:Бе 6020-ЄЭ─#1,N:Бж 10000.IвЮ:А X│1 е 13:З X;". ";:ЗNF$(X);:З D$(X):Л X:Й"FIELD # TO CHANGE (1-13)";TF:а 150,1.РмЕ TF┤1 ▒ TF▓13 ▒ TF┤▓ Б(TF) з 6050 :Д З"NEW INFORMATION?":Й D$(TF).└╢Ю:А X│1 е 13:З X;". ";:ЗNF$(X);:З D$(X):Л X.у№З"IS THIS CORRECT (Y/N)":K$│ Т/"K$│ Т:Е K$┤▓"Y"░ K$┤▓"N" з 6150 :Д а 150,1:Е K$│"N" з 6050//Бж 10100/<┼ #1,N:Ю/a$З"DO YOU HAVE MORE? (Y/N)":K$│ Т/Щ.K$│ Т:Е K$┤▓"Y" ░ K$┤▓"N" з 6190 :Д Е K$│"Y" з 6020/в8Ъ #1/оBБе 100005'D$(1)│N$:D$(2)│R$:D$(3)│S$:D$(4)│C$:D$(5)│ST$:D$(6)│IN$:D$(7)│WI$:D$(8)│DE$:D$(9)│CO$:D$(10)│CH$:D$(11)│HP$:D$(12)│AC$:D$(13)│L$:Р0╓'t╘ N$│D$(1):╘ R$│D$(2):╘ S$│D$(3):╘ C$│D$(4):╘ ST$│D$(5):╘ IN$│D$(6):╘ WI$│D$(7):╘ DE$│D$(8):╘ CO$│D$(9):╘ CH$│D$(10):╘ HP$│D$(11):╘ AC$│D$(12):╘ L$│D$(13):Р0х'╪Ю:Бж 110000 'тЩ"D",#1,"CHAR/DAT",771{'ь╨ #1,20  з N$,10  з R$,1  з S$,20  з C$,5  з ST$,2  з IN$,2  з WI$,2  з DE$,2  з CO$,2  з CH$,3  з HP$,3  з AC$,5  з L$1Б'ЎР1в)З"PRESS ANY KEY TO CONTINUE"1├)Е  Т│"" з 10510 :Д а 150,1:Р2
*°З"MAKE SURE THE DATA DISK IS IN":З"THE DRIVE.":Бж 10500:Р2.рЮ:█:К N$,10  з R$,1  з S$,20  з C$,5  з ST$,2  з IN$,2  з WI$,2  з DE$,2  з CO$,2  з CH$,3  з HP$,3  з AC$,5  з L$1Б'ЎР1в)З"PRESS ANY KEY TO CONTINUE"1├)Е  Т│"" з 10510 :Д а 150,1:Р2
*°З"MAKE SURE THE DATA DISK IS IN":З"THE DRIVE.":Бж 10500                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 V&
В /SPACE SHUTTLE/&!╚ 4,1&)
╝ 5&3┐ 1,1&=┴ 0,5&∙╞"BM244,125;U3L1U2L1U1L3R1U1L1U1L2U1L2U1L3U1L2U1L2D2L1D1L7U2L2U4R1U1R2D1R3D1R3D1R1D1U1L1U1L3U1L3U1L3R1U1L2U1L3U1C5L1C0L1U1C5L1C0L1U1C5L1C0L1U1C5L1C0L2U2C5L1C0U1C5L1C0U1C5L1C0U1C5L1C0;'┬╞"L2D1L7D2L1D1R2D1R5D1R1U1L3U3R1D2R1D1R3U1C5R1C0R2L2U1C5L1C0U1C5L1C0U1C5L1C0U2R1L2U1R1L2U1L20D1C5L1C0L15D1C5L1C0L17D1C5L1C0L18D1C5L1C0L16D1C5L1C0L16D1C5L1C0L20U1C5L1C0L2D2R2L5R2U4R1D4R1U4L3U1R2U1;'╪#A$│"L3U1L1R3L1U1"'ш(А A │ 1 е 7'ї-╞ A$л";"'¤2Л A(7╞"L2U1R1L2U1R1L2U1L1R3L1U1;(.<А A │ 1 е 10(;A╞ A$л";"(CFЛ A(·K╞"BM29,58;L1U1L12D1L2R13D1L13D1R6D1R1L7R1D1R6D2R1D1R1D2R1D2R1D2R1D1R1D2R1D2R1D2R1D1R1D2R1D2R1D1R1D2R1D2R1D2L1D1L5D1L2U1L1U2L1U2L1U3L1U2L1U2L1U3L1U2L1U3L1U2L1U2L1U2L1U2L1U2R6D1R1;)┴P╞"D1R1D2R1D1R1D2R1D1R1D2R1D1R1D2R1D1R1D1L1R1D1R1D5U4R1D5U3R1D2R1D2U1R1D3U1R1D1R1D2R1D1R1L1D1L2D1L1D1U2R1U3D2R1D1L2D2L8U1R7D1L6D2R3C5D1C0R17C5D1C0R6C5D1C0R3C5D1C0R2C5D1C0R1C5D1C0R2C5D1C0D1C5L1C0;*ZU╞"D2C5L1C0L1D3C5L1C0D2C5L1C0D5L3C5D1C0L29U1L5R1U2C5L1C0L2C5U1C0L1U5C5R1C0R1C5U1C0U1R1U3R1U2D1R2D1R2D4U2L5U1R5U1L5R2U1R1D1R3U1R1U2C5R1C0U2C5R1C0R3U1"+Z╞"BM20,131;R10U8R1U6L5U1L5D1L2D1L1D1L1D2L1D7R1D1R1D1R2D2L5D1L4D1L3D1L2D1L2R2D1R4D1R7D2L1R3D1R3D1R13D1R29U1R21U1R20U1R25U1R22U1R20U1R17U1R15U1R9U1R6U1R6U1R5U1R4U1R2U1R3U12D12R2U1R1U1R1U1R1U1"+╗_╞"BM218,110;L1D2L1D4L7U1L7U1L1D1L7D13L97C5D1C0L2C5D1C0L30R30D1R2D1R18D2L45C5D1C0L10C5U1C0L25C5U1C0L11C5U1C0L4U1R44L44D1L1D3R4D1R10D1R19D1R36U1R12U1R15U4",d╞"BM181,96;D3C5L1C0D2C5L1C0D7C5L1C0D2L11C5D1C0L19C5D1C0L17R16U9C5R1C0U2C5R1C0U2C5R1C0U1",Si╞"BM130,113;L20R6U6C5R1C0U3C5R1C0U1C5R1C0U2C5R1C0R1U1",аn╞"BM109,114;L19C5D1C0L18R14U7C5R1C0U2C5R1C0U1C5R1C0U2C5R1C0U1C5R1C0R1U1",╒s╞"BM72,116;L9U7C5R1C0U3C5R1C0U1C5R1C0U1C5R1C0U1",єx╞"BM144,117;D2R4U1L4U1R4"-}╞"BM122,119;R2"-!В╞"BM120,124;D1L3U1R3"-4З╞"BM107,120R2"-OМ╞"BM34,120;R5D5L5U5R5"-bС├(210,125),0,0-tЦ├(36,122),0,0-ЖЫ├(24,121),0,0-├а╞"BM70,121;D4R3U4R1C5R2C0R3L3D2R3D2L3R4C5R2C0U4R3D4U2L3"-ще╚ 3,1:┴ 7,8:╗(96,121)м(100,121),╜.к╗(93,123)м(100,123),╜.п╗(93,125)м(100,125),╜.'┤╚ 4,1.J╣┴ 0,5:╞"BM93,121;D2R2U2L2D1R2".U╛Бе 1900,125),0,0-tЦ├(36,122),0,0-ЖЫ├(24,121),0,0-├а╞"BM70,121;D4R3U4R1C5R2C0R3L3D2R3D2L3R4C5R2C0U4R3D4U2L3"-ще╚ 3,1:┴ 7,8:╗(96,121)м(100,121),╜.к╗(93,123)м(100,12 ╡&
:ГCGP-115 LABEL PRINTER &1:ГBY T.SZLUCHA&z:ГTO LEFT JUSTIFY CHANGE L1,L2 AND L3 IN LINES 190,210 AND 230 TO LM&Б:Г&И:Г&п
Ю:З"GGP-115 LABEL PRINTER         &▀З"CHECK YOUR PLOTTER PENS!":А T│1 е1500:Л:Ю&∙Й"NAME ";N$:L1│ З(N$)'Й"STR ADDRESS ";SA$:L2│ З(SA$)'A(Й "CITY & STATE ";CS$:L3│ З(CS$)'W2Ю:ЗN$:ЗSA$:ЗCS$:З'А<Й "CORRECT <Y>/<N>";R$:Е R$│"Y" з 80'ЧFЕ R$│"N" з Ю:Бе 20'бKБе 60'╝PЕ L1▓│L2 з LM│L1 :Бе90'╞ULM│L2'┌ZЕ LM┤L3 з LM│L3(
dCC$│"0=BLACK 1=BLUE 2=GREEN 3=RED"(9nЮ:З"COLOR OF LETTERS":ЗCC$:Й C1:Е C1┤0 ▒ C1▓3 з 110(pxЮ:З"COLOR OF BORDER":ЗCC$:Й C2:Е C2┤0 ▒ C2▓3 з 120(АВЗ#м2, Л(18)(ПМЗ#м2,"C"C1(гЦЗ#м2,"M 0,-100"(░аЗ#м2,"I"(╞кS│ Б(80о(LMл4))м1(┌┤CL│ Б(80о(Sл1))(є╛B│ Б(CLмL1)о2:Бж 500)╚T1$│BL$лN$)╥B│ Б(CLмL2)о2:Бж 500)+▄T2$│BL$лSA$)DцB│ Б(CLмL3)о2:Бж 500)TЁT3$│BL$лCS$)c·З#м2,"S";S)t
З#м2,"P";T1$)Ф
З#м2,"M"0","480оCLн7о5н(м1))е
З#м2,"P";T2$)┼
"З#м2,"M"0","480оCLн7о5н(м2))╓
,З#м2,"P";T3$)у
6З#м2,"H")Є
@З#м2,"C"C2*
JЗ#м2,"L0"*
TYI│480оCLн7о5*'
^X│0:Y│YIн2:Бж480*9
hX│480 :Бж 480*U
rX│480 :Y│(м3)нYI:Бж 480*d
|X│0:Бж 480*}
ЖX│0 :Y│(2)нYI:Бж 480*Л
РЗ#м2,"L7"*в
ЪЗ#м2,"R"0","YIн1.5*┤
дЗ#м2,"J480,0"*╠
оЗ#м2,"R"0","YIн(м8)*р
╕З#м2,"J -480,0"*э
┬З#м2,"A"+*
╠Ю:Й"ANOTHER OF SAME LABEL <Y>/<N>";R$:Е R$│"Y" з Ю:Бе130+]
╓Й"A DIFFERENT LABEL <Y>/<N>";R$:Е R$│"Y" з 10 +e
█Ю:К+w
рЗ#м2,"D"X","Y+}
ъР+И
ЇBL$│""+Ц
■А I│0 е B+жBL$│BL$л" "+оЛ I+┤Р
оЗ#м2,"R"0","YIн(м8)*р
╕З#м2,"J -480,0"*э
┬З#м2,"A"+*
╠Ю:Й"ANOTHER O                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Э&шВ**NAMES TO TAPE GMA 17-1&8ЄЮ: З "NAMES TO TAPE"&O№Щ "O", м1, "NAMES"&VK:Г&tLВ**GET NAME STRUCTURE NS$&zVЮ&Ц`Й "NAME STRUCTURE"; NS$&Эп:Г&╖░В**MAKE $ PRINT NAME$&├║Бж 1710&╘─З @64, NAME$&█:Г&ЇВ**REM**TELL OPTIONS'З @384, "TO SAVE NAME, PRESS 'S'"'@(З "FOR ANOTHER NAME, PRESS SPACE"'e2З "FOR NEW STRUCTURE, PRESS 'N'"'З<З "TO CLOSE FILE, PRESS 'C'";'Оw:Г'йxВ*GET RESPONSE & DO IT'─ВKY$│ Т:Е KY$│"" з 1410'┘МЕ KY$│"S" з 1510'юЦЕ KY$│" " з 1210(аЕ KY$│"N" з 1110( кЕ KY$│"C" з 1610 :Д 1310('█:Г(E▄В**PUT IN CASSETTE BUFFER(VцЗ #м1, NAME$(rЁЗ @128, "SAVING " NAME$(К·А KK│1 е 2000: Л KK(ЭЗ @128,  Л(30)(йБе 1310(░?:Г(╞@В**CLOSE THE FILE(╧JЪ м1(╒TЮ(Ё^З "THE FILE IS CLOSED"(ЎhС(¤г:Г)дВ**MAKE A NAME SUBR.)%оNAME$ │ ""):╕А KK│1 е  З(NS$))U┬: CV$ │  Р(NS$, KK, 1))o╠: Е CV$│"C" з Бж 1810)Й╓: Е CV$│"V" з Бж 1910)ТрЛ KK)ШъР)Я:Г)╝В**ADD A CONSONANT SUBR.)█C$│"BCDFGHJKLMNPQRSTVWXYZ")ыRC │  Д(21)*&RC$ │  Р(C$, RC, 1)*0NAME$ │ NAME$ л RC$*!:Р*(k:Г*AlВ**ADD A VOWEL SUBR.*QvV$│"AEIOUY"*`АRV │  Д(6)*xКRV$ │  Р(V$, RV, 1)*РФNAME$ │ NAME$ л RV$*ЦЮР*Ь╧К)╝В**ADD A CONSONANT SUBR.)█C$│"BCDFGHJKLMNPQRSTVWXYZ")ыRC │  Д(21)*&RC$ │  Р(C$, RC                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 @&:Г<LISTING1>&
Ю&5З @ 8, "BETTY ANN WHITE"&RЗ @42, "1303 3RD ST"    &tЗ @ 70, "KIRKLAND, WA  98033"&zЗ&сЗ "HAPPY BIRTHDAY WAS CREATED BY   BETTY ANN WHITE ON JANUARY 2,   1984 AND REVISED ON JANUARY 6."&чЗ'Й "PRESS<ENTER>"; E$'	Ю'#
Й"WHAT IS YOUR NAME?";N$')З'9З"HELLO,"N$'?З'ZЙ "HOW OLD ARE YOU?";A'aЮ 'Д З@ 131,"HAPPY BIRTHDAY TO YOU!'а!╔"O1;G;G;A;G;O2;C;O1;B"'┼"З@ 195, "HAPPY BIRTHDAY TO YOU!"'▀#╔ "O1;G;G;A;G;O2;D;C"($З@259,"HAPPY BIRTHDAY DEAR," N$(C%╔ "O1;G;G;O2;G;E;C;O2;B;A"                                 (g&З@323, "HAPPY BIRTHDAY TO YOU!"(~'╔ "O2;F;F;E;C;D;C"(З-Ю(0)(▓2А H│15 е 47:А V│15 е 23:Ь(H,V,7):Л V,H(▌FА H│31 е 34:А V│ 10е 15:Ь(H,V,2):Л V,H(эxА H│10 е 53(√ВЬ(H,23,1))МЛ H)┘╔"O2;F;F;E;C;D;C")(▄Ь (32,7,8))4цЭ(32,7))?ЁБе 220 (g&З@323, "HAPPY BIRTHDAY TO YOU!"(~'╔ "O2;F;F;E;C;D;C"(З-Ю(0)(▓2А H│15 е 47:А V│15 е 23:Ь(H,V,7):Л V,H(▌FА H│31 е 34:А V│ 10е 15:Ь(H,V,2):Л V,H(эxА H│10 е 53(√ВЬ(H,23,1))                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                60M154,60M166,40M172,40M177,32M158,32M116,100M124,110M150,68M162,68M132,118M140,128M176,68M224,68M230,60" 8╥
·╞"BM14,40M30,46BM26,54M42,60BM38,68M54,74M96,74BM112,93M116,96BM90,32M104,40M116,58BM150,32M154,35" 9c
№╞"BM177,32M182,36BM172,40M177,44BM166,40M172,44NR4M161,60BM236,54M220,60BM248,40M232,46BM224,68M208,74M184,74M176,68M184,74M150,132M140,128"9╝
■╞"BM124,110M130,112M154,74NR4M149,68BM186,54M194,60BM194,40M202,46BM110,40M120,44R4"9▄X$│ Т:ЕX$│ Л(13)з 26 :Д 5129у:Г9ъ:Г9їV:Г YES:X╚4,1:╝1:┐1,1:wZ╞"S4BM86,30C0U10H10R8F6E6R8G10D10L8BR30U20R20D4L14D4R14D4L14D4R14D4NL20BR18R20U12L16U4R16U4L20D12R16D4L16D4":Н\┬(128,96),60,0,.6:╕^╞"BM128,96C0ND34M169,71BM128,96M87,71":╓`┬(128,96),82,0,.6,.85,.67;b╞"BM128,96BH30H10L4F10BM128,96BE30E10R4G10";#d╗(116,144)м(140,176),╜,B;-f┴ 1,0;Kh╗(117,143)м(139,146),╜,BF;hj╗(126,131)м(130,188),╛,B;Жl╗(127,132)м(129,187),╜,BF;Яn╗(26,95)м(68,97),╛,B;╢p╗(28,96)м(66,96),╜;╤r╗(230,95)м(188,97),╛,B;ъt╗(228,96)м(190,96),╜<vX$│ Т:Е X$│ Л(13) з 26 :Д 630<x:Г<z:Г<+║:Г38 SPECIAL<<╝╚4,1:╝1:┐1,1<S╛┬(128,96),94,0,.85<j└┬(128,96),90,0,.85<|┬├(128,18),0,0<║─╞"C1BM40,120NF14DNF14DNF14DNF14DNF14C0BU10F14U10F4D16H14"<╠╞├(50,126),0,0<ў╚┴0,1:АI│64е140:╗(200,I)м(230,Iл12),╛:Л=╩╗(10,24)м(110,80),╛,BF=B╠╚3,1:АI│0е3:┬(128,96мI),94лI,1,.85,.6,.67:Л=┤╬╞"C1BM50,50E16LE10D2NG10DNG10DNG10DNG10U4NR8DNR8DNR8DNR8DR8NE8UNE8UNE8BM50,50ND8L2D8BD4BR4E6D6LNU6LNU4LNU2D2"=╒╨╞"BR8BU4E4RNG4RD3R4NE6RE6U3"> ╥АI│1е5:╚3,1:┬(128,96),66лI,1,.85,.53,.6:┬(128,96),76лI,1,.85,.54,.55:Л>A╘M$│"C1R4DNL6R6DDNL4R12UR6UR4>`╓╞"BM90,30"лM$л"BM90,31"лM$>╪╞"BM96,40"лM$л"BM96,41"лM$>а┌╞"BM110,50"лM$л"BM110,51"лM$>┴▄╞"BM114,60"лM$л"BM114,61"лM$>т▐╞"BM112,70"лM$л"BM112,71"лM$?р╞"BM106,82U4RD4RU4ED4EU4"?т╞"BM72,40E2RG2RE2D2"?Yф╞"BM48,94NF16RNF16RNF16RNF16RF16NL4DNL3R4DNL5R2NU6RNU6RNU6"?АцАI│93е95:┬(106,I),40,1,.5,.2,.4:ЛI?лшАI│103е106:┬(148,I),20,1,1.1,.2,.48:ЛI?╒ъАI│128е131:┬(170,I),20,1,.4,.6,.95:ЛI? ьАI│122е124:┬(199,I),20,1,.4,.1,.38:ЛI@\ю╞"BM204,134NF10RNF10RNF10RF10NR10UNR10UR10NH8RNH8RNH8RH8BL6BU4NR8UNR8UNR8UR8NH5UNH5UNH5"@╢ЁАI│92е94:┬(127,I),30,1,.4,.6,.9:┬(164,Iл8),26,1,.8,.65,.85:┬(190,Iл4),28,1,.6,.67,.85AЄ┬(190,Iл14),30,1,.6,.7,.9:┬(178,Iл50),30,1,1.8,.75,.9:┬(180,Iл53),30,1,1.8,.75,.9:ЛIAvЇ╞"BM204,118NR6DR6DL4R6DL4R6BM204,84NE5RNE5RNE5RNE5BR4BD2NE5RNE5RNE5RNE5BD2BL4F4R4E4DG4L4H4DF4R4E4"A╘ЎАI│1е3:┬(170,72лI),17,1,.6,.5,.99:┬(150,48лI),17,1,.6,.6,1.1:┬(177,58лI),17,1,.6,.7,.99:ЛA▌°╚3,1B%·АY│0е176й176:АI│0е10й10:╗(10лI,Yл7мIо10)м(245мI,Yл7лIо10),╛,BF:ЛI,YB;№АI│84е87:I$│ И(I)B╙■╞"BM"лI$л",146S5C1U4H3U3BR6BDU3H2BD16BR10U4H2U4E4BR6BD6F2D8BU12U4E3BU2BR4F4D2G2BD2BR4G4D2BD4BR3ND4E7U4BR6NE3D3BR8ND6BR6E4U2BR4BD6D4G2D4BL18BD4U6S4"B┌ЛIBш╚4,1:┴0,1C╗(10,96)м(28,96),╜:╗(20,95)м(28,97),╜,BFCF╗(245,96)м(225,96),╜:╗(225,95)м(235,97),╜,BFC`╗(68,18)м(185,0),╛,BFCi
╚3,1Cъ╞"BM74,12C1R6U4NL4U4NL6BR6D8R6U4NL6U4NL6BR14NR6D4R6D4NL6BR6U8R6D4L6D4BR12NR6U4NR6U4R6BR6NR6D8R6BR6NU8BR6U8R6D4NL6D4BR6NU8R6"DX$│ Т:ЕX$│ Л(13) з 26 :Д 782D:ГD:ГD&:Г AC-DCD7 ╚4,1:╝1:┐1,1D@"╚3,1D{$A$│"L8D12F4G8H8E4U36E12F12D36F4G8H8E4U12BU8U10H8D18R8"DЯ&C$│"H12U36E12F12G8H6D32E6F8G12"D╒(D$│"H8E4U36H4E8R14F8D44G8L14BU9BR4U42R5F4D34G4L5"Dы*╞"C1S8BM42,90"лA$D■,╞"BM90,138"лC$E.╞"BM150,138"лD$E&0╞"BM226,138"лC$E^2╞"BM136,50L10G6R4G6R4G6M122,70L3M130,60L3M136,50S4"EА4X$│ Т:Е X$│ Л(13) з 26 :Д 820"H12U36E12F12G8H6D32E6F8G12"D╒(D$│"H8E4U36H4E8R14F8D44G8L14BU9BR4U42R5F4D34G4L5"Dы*╞"C1S8BM42,90"лA$D■,╞"BM90,138"лC$                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Б&$
:Г****************************&G:Г*  THE ROCK-FEST COLORING  *&j:Г*     BOOK VERSION 1.0     *&Н:Г*     BY FRED B. SCERBO    *&░:Г*     COPYRIGHT (C) 1984   *&╙:Г****************************&┌Ю3&■З@68,"ROCK-FEST COLORING BOOK";'#З@132," A) THE ROLLING STONES ";'CЗ@164," B) ASIA"л б(15,32);'hЗ@196," C) QUIET RIOT"л б(9,32);'Л З@228," D) Z Z TOP"л б(12,32);'░"З@260," E) VAN HALEN"л б(10,32);'╧$З@292," F) YES"л б(16,32);'Ї&З@324," G) 38 SPECIAL"л б(9,32);((З@356," H) AC-DC"л б(14,32);()*X$│ Т:ЕX$│""з42(Q,X│ К(X$)м64:Е X┤1 з 42 :Д Е X▓8 з42({.И X Бе 98,200,300,398,500,598,700,800(В0:Г(Й2:Г(гD:Г THE ROLLING STONES(╣b╚4,1:╝1:┐1,1:╚3,1(┘d┬(110,110),66,1,1.2,.07,.45(°f┬(122,140),72,1,1.1,.5,.73)h┬(152,150),60,1,1.5,.53,.7)7j┬(154,152),58,1,1.4,.53,.76)ql╞"S4C1BM96,148DLDLU6BM154,70R4E4R2F2R4F2R10E4M200,74")ЭnАI│0е2:┬(238лI,150),72,1,1.3,.5,.67:Л I)¤p╞"BM130,68L4HLHLHLUHUL6G2BD10BL6G22D2G2DGDGDLDLD2LD4L2D16F2R2FR2E2U2E2U16EUEUEU2EU2M106,74"*r╞"BM164,82NL4G20"*3t┬(198,180),88,1,1.3,.57,.68*dv╞"BM118,138D6F2R8E2U4E2U4E2U4E2U6E2U6E2U4E4"*Фx╞"BM86,74H10L2H4L2U6E4R2E4R2E2R2E2R2E2R2E4"*│z┬(134,72),44,1,1.8,.58,.86*╨|┬(180,20),24,1,.9,.6,.96*э~┬(240,0),40,1,1.1,.3,.44+
А┬(230,56),22,1,.7,.75,.2+*В┬(255,152),60,1,1.5,.55,.72+IД┬(170,104),34,1,1.4,.1,.25+eЖ┬(130,60),32,1,.7,.6,.9+ГИ┬(182,58),24,1,.7,.65,.95+╘К╞"BM166,46G3L4H2BL50G8L2G2L2G2L2F8BR122BH16F2R2F2R2F2R2F2D2F2G4L2G2L2G2L2G6"+ЁМ┬(180,20),16,1,.6,.4,.1,О┬(134,18),19,1,.6,.4,.1,BР╞"BM124,24R4E2R2E2R4F2R2F2R2BR24BD2R2E2R2E2R6F2R6,_Т┬(170,44),24,1,.9,.12,.4,|Ф┬(132,44),25,1,.9,.12,.4,ЩЦ┬(104,54),10,1,.9,.1,.45,╖Ш┬(200,44),20,1,1.3,.13,.4,╔Ъ├(130,66),1,1,∙Ь╚4,1:╞"C0BM181,152NL3NR3D6BR8U6F4E4D6":╚3,1-4Ю╞"BM22,2C1R4ND8R4BR4D8U4R6U4ND8BR6NR6D4NR4D4R6BL80BD6"-Йа╞"ND8R6D4L6R2F4BR6U8R6D8NL6BR6NU8R6BR6NU8R6BR6NU8BR6U8F8NU8BR6U8R8ND2L8D8R8U4L4"-▀в╞"BD18BL66R6U4L6U4R6BR4R4ND8R4BR4D8R6U8NL6BR6ND8F8U8BR6NR6D4NR4D4R6BR6R6U4L6U4R6"- дX$│ Т:ЕX$│ Л(13)з 26 :Д 164.ж:Г.
и:Г.╞:ГASIA..╚╚4,1:╝1:┐1,1:╚3,1.░╩╞"S4C1BM30,120E48F48L16H12L38G12L16M24,122E54ND4F54L2UL3UDR3DR2L24ER2EGL2GH12NE2L34NH2G12NH2L24BR46NR40E12F3R11F2L14H2G7R28" /V╠╞"BF2BR10R15H8NR14H2R12H44R34E4F14L22F44NL30L2UL2UL2NL26H44FR2FNR2HL2HR22FR2FHL2H9NU4G2L30HLRF45LHLHL14E6D4NG2U4BE10E8D4NG5ND11U22E10F10D52H4U48NR2H6NU4G6NL2D38"/Т╬╞"U22BE16E3D4NG3U4F55L22H12L24U2R26NG2F12NG2R13NH48RFR"/м╨╗(0,46)м(256,148),╛,B/╠╥X$│ Т:ЕX$│ Л(13)з 26 :Д 210/╙╘:Г/┌╓:Г/ь
,:Г QUIET RIOT0
.╚4,1:╝1:┐1,1:╚3,10

0╞ "C1"0T
2╞"S4BM20,10G8D40F8R22F8R20H16U40H8NL26BL8BD14D28L10U28R10BU14BR26"0п
4╞"D48F8R30E8U48L18D40L10U40L18BR56D56R18U56NL18BR10D56R40U14L20U8R20U12L20U8R20U14L40"0╙
6╞"BR46D14R16D42R20U42R16U14L52"1X
8╞"BD72BL156D56R18U22F10D12R18U22H8E8U10H8L38R18BD14D8R8U8L8BU14BR38D56R18U56NL18BR20G8D40F8R30E8U40H8L30R10BD42R10U28L10D28BU42"1|
:╞"BR36D14R16D42R20U42R16U14L52"1П
<╚4,1:┐1,1:╚3,11▐
>╞"BM26,170C1U13F8E8ND13BR8NR10DNR10D5NR8DNR8D5NR10DR10BU13BR6R14DL7ND12L7"2
@╞"BD12BR20U13R10DNL10D5NL10DNL10D6BR8NU13UNR10DR102T
B╞"BR16U13D6NR8DR10U7D13BR8U13NR10DNR10D5NR8DNR8D5NR10DR10"2▒
D╞"BR8U13NR8DNR8D5NR10DR10U7D13BR8NU13UNR10DR10BR2BU13R14DL7ND12L7BR20UD13U7NR10DR10U7D132╫
F╞"BM26,152R200DL200BD22R200DL200"2∙
HX$│ Т:Е X$│ Л(13) з 26 :Д 3283
J:Г3
L:Г3
О:ГZZTOP3)
Р╚4,1:╝1:┐1,1:╚3,13{
Т╞"S4C1BM0,0R100G36L22E30G4L50NU4R50E4L90U10R100G44R200U6NL166U6L160NG6E26L24"3▐
Ф╞"BR30BD8G6R10G8R10E8R8E6NL26BR8R28G14L28E14R10BG4R8G6L8E6BH4BR34R28G10L16G4L10E14BF4R8G2L8E2"4,
ЦАI│0е20й4:╗(128мI,100)м(128мI,170мIо2),╜:╗(128лI,100)м(128лI,170мIо2),╜:Л4K
Ш┬(128,102),30,1,.3,.57,.924j
Ъ┬(128,140),32,1,1.1,.1,.424Д
Ь╞"BM102,100D56BR52U584Э
ЮТ178,43:├(128,98),,14╙
а╚3,1:АY│0е88й88:АI│0е2:┬(84лY,120),18мI,1,.9:ЛI,Y4▄
в╚3,15
д╞"C1BM88,106U22E6R66F6D22BL4BU12U8H6L58G6D8E4R60F4H4L20E4L30G45V
ж┬(44,148),36,1,.9,.4,.9:┬(212,148),36,1,.9,.62,1.15s
и┬(60,192),54,1,.5,.67,.95Т
к┬(194,192),54,1,.5,.62,.875└
м╞"BM20,168F2R6BD4BR74F4R44E4BU4BR70R12E4"5у
о╞"BM20,126C1U90R40BR170BD8D80"6D
░╚4,1:АI│1е12:┬(70,0),56лI,0,1.9,.25,((38лI)о100):┬(186,0),56лI,0,1.9,((50м(38лI))о100),.25:Л6m
▓SR$│"C0NE20NH20NU5NR5NL5ND5NG20NF20"6В
┤╞"BM150,160"лSR$6Ц
╢╞"BM75,108"лSR$6п
╕╗(0,0)м(255,192),╜,B6╓
║╞"BM128,130C1NH22NE22BD16NH20NE20"6°
╝X$│ Т:Е X$│ Л(13) з 26 :Д 4446 
╛:Г7
└:Г7
Є:Г VAN HALEN7(
Ї╚4,1:╝1:┐1,17м
Ў╞"C0BM112,66M90,32M8,32M14,40M78,40M82,46M20,46M26,54M86,54M90,60M32,60M38,68M94,68M112,94M150,32M104,32M110,40M128,40M112,66" 8i
°╞"BM230,60M182,60M186,54M236,54M242,46M190,46M194,40M248,40M254,32M184,32M166,8╢RS$(2)│SS$(3)8.└RS$(3)│SS$(4)л" "лSS$(5)8:╩З#мU,""8X╘З#мU,д1)LS$(1);д41)RS$(1)8v▐З#мU,д1)LS$(2);д41)RS$(2)8ФшЗ#мU,д1)LS$(3);д41)RS$(3)8иЄЗ#мU,"":З#мU,""8▓№Z│0:Р8╤@:Г***** SORT & SEARCH ****8ЁJ:Г***** MAIN MENU     ****9	TТ65495,1 :Г HI SPEED9^Ю:ЗST$;9/hЗд09) "SORT & SEARCH"98rЗST$9Y|Зд5)"(1)  SORT BY LAST NAME"9vЖЗд5)"(2)  SORT BY STATE"9ЦРЗд5)"(3)  SORT BY ZIP CODE"9╖ЪЗд5)"(4)  SORT BY AREA CODE"9═дЗд5)"(5)  SEARCH"9ЎоЗ:З:З"  PRESS [ENTER] FOR MAIN MENU":╕Й"      ENTER CHOISE (1-5) ";MM:?┬И MM Бж 8200,8300,8500,8700,8900:Q╠Е MM┤1▒MM▓5зР:]╓Бе 8030:} :Г***** SORT BY NAME  *****:╢ Ю:Е S$(1)│""з З@201,"FILE IS EMPTY":А DL│1е500:ЛDL:Р:╠ Ю:З@204,"SORTING":┘ &Бж 13010:є 0З@201,"SORT COMPLETE"; :А DL│1е500:ЛDL; DР;, l:Г***** SORT BY STATE *****;G vCC│3:Ю:З@205,"SORTING";U АА N│1еYм1;b КБж 10020;Г ПЕ  З(SS$(5))┤2 з SS$(5)│"ZZ";а ФS$(N)│ О(SS$(5),2)лS$(N);з ЮЛN;┤ иБж 13010;┴ ▓АN│1еYм1;с ╝S$(N)│ П(S$(N), З(S$(N))м2);ш ╞ЛN;Ї ╨Бе 8620;· ┌Р<!4:Г***** SORT BY ZIP   *****<5!>CC│3:Ю:З@205,"SORTING"<B!HБж 13010<O!RАN│1еYм1<\!\Бж 10020<З!aЕ  З(SS$(5))┤5 з SS$(5)│SS$(5)л"99999"<д!fS$(N)│ П(SS$(5),5)лS$(N)<л!pЛN<╕!zБж 13010<┼!ДАN│1еYм1<▐!ОЕ  З(S$(N))┤5 з 8610<■!ШS$(N)│ П(S$(N), З(S$(N))м5)=!вЛ N=.!мЗ@200,"SORT COMPLETE":АDL│1е400:ЛDL=4!╢Р=T!№:Г***** SORT BY A/C   *****=o"CC│3:Ю:З@205,"SORTING"=|"Бж 13010=К"А N│1еYм1=Ч"$Бж 10020=╣")Е  З(SS$(6))┤3 з SS$(6)│"999"=╓".S$(N)│ О(SS$(6),3)лS$(N)=▌"8ЛN=ъ"BБж 13010=ў"LАN│1еYм1>"VS$(N)│ П(S$(N), З(S$(N))м3)>"`Л N>+"jБе 8620>1"tР>J"─:Г***** SEARCH *****>V"╬Ю:ЗST$;>h"╪Зд12)"SEARCH">q"тЗST$>п"ьЕ Y┤1 з З@260,">>>NO RECORDS IN FILE<<<":А DL│1е500:ЛDL:Р>╠"ЎЙ"INPUT SEARCH WORD";SW$>█#А N│1е Yм1>Ё#
Е S$(N)│""з 9090?#TG│ Ю(1,S$(N),SW$)?#Е TG▓0 з 9020? #(ЛN?+#2Бе9090?:#<Ю:Бж 11030?U#FЗ@7,"**** SEARCH ****"?t#PЗ@69,"THIS IS RECORD # ";N?Ы#ZЗ@419,"PRESS [ENTER] TO CONTINUE."?и#dБж 10000?╙#nA$│ Т:Е A$│ Л(10) з Р :Д Е A$│""з 9070?┌#xЛN?Ї#ВЮ:З@201,"END OF FILE"@#МА DL│1е500:ЛDL:Бе8900@M':Г*** PRINTS STRING TO ***        *** FORMATED SCREEN  ***@V'CC│0@}'$C│1:O│1:P│173:L│0:LN│0:L1│0:L(0)│1@д'.L│ Ю(O,S$(N),","):L(C)│L:Е L│0 з Р@╨'8SS$(C)│  Р(S$(N),O,LмLNм1):Е CC з 10060@▀'BЗ@P,SS$(C)@√'LC│Cл1:O│Lл1:P│Pл32:LN│LA
'VЕ C│5 з 10090A'`Бе10030A8'jL1│ Ю(L,S$(N),"*"):L(C)│L1Ac'tSS$(C)│ Р(S$(N),O,L1мLм1):Е CC з 10120Ar'~З@P,SS$(C)AЦ'ИSS$(Cл1)│ П(S$(N), З(S$(N))мL1)Aз'ТЕ CC з 10150A╗'ЬЗ@Pл32,SS$(Cл1)A┴'жРAс*°:Г***** SCREEN FROMAT *****Aщ+L│0B+Ю:З@34,"HIT [ENTER] AFTER EACH ITEM ";B#+З@(96),ST$BS+ З@160,"LAST NAME  : ";:З Л(62);:З б(13,".")Bz+*З@192,"FIRST NAME : ";:З б(14,".")Bб+4З@224,"STREET     : ";:З б(14,".")B╚+>З@256,"CITY       : ";:З б(14,".")Bя+HЗ@288,"STATE ZIP  : ";:З б(14,".")C+RЗ@320,"AC/PHONE   : ";:З б(14,".")C?+\З:Зд2)"PRESS [DOWN ARROW] WHEN DONE"CE+fРCc.р:Г**** ML SORT DATA *****Cр.ъЖ 190,127,011,52,16,238,228,174,94,48,31,79,52,18,166,196,39,42,166,196,230,69,160,69,36,2,230,196,52,1,174,66,16,174,71DY.ЇЖ 109,69,38,4,50,97,32,41,166,128,160,160,39,4,50,97,32,5,90,38,243,53,1,35,24,174,66,16,174,71,175,71,16,175,66,166D╧.■Ж 196,230,69,231,196,167,69,234,69,234,228,231,228,51,69,174,97,48,31,175,97,38,176,166,228,50,99,38,161,50,98,57Dч/А I│&H7E70 е &H7ED6Dї/Н A:Т I,AD№/ЛIE/&╣ Г0│&H7E70E/0РE02╚:Г**** SORT ROUTINE *****EA2╥NO│ Э(S$(0))EY2▄Т &H7F0B, Б(NOо256)Ex2цТ &H7F0C,NOм Б(NOо256)н256EЕ2ЁA│ Г0(0)Eг2·:Г*** Y POINTER RESET ***E│3АN│Y е 1йм1E╔3Е S$(N)┤▓""з13090E╤3Л NE█3"Y│Nл1Eс3,РED6Dї/Н A:Т I,AD№/ЛIE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 т&$
:Г *** MAILING   LABELS    ***&G:Г ***************************&j:Г *** CHARLES M. THONEN   ***&Н(:Г *** PO BOX 666          ***&░2:Г *** FT. GREELY AK 98733 ***&╙<:Г ***************************&∙xЮ:Х 13000,&H7E6F:МS$(500):Бж12000'ВLL│0:ST$│ б(32,"*"):S$(0)│"0"'!МЮ'+ЦЗST$;'DаЗд9)"MAILING LABELS"'NкЗST$;'n┤:ГPRINTTAB(1)"MEM LEFT="MEM't╛З'Р╚Зд5)"(1)  INPUT RECORD"'л╥Зд5)"(2)  EDIT RECORD"'╞▄Зд5)"(3)  ADD TO LIST"'уцЗд5)"(4)  DELETE RECORD"(ЁЗд5)"(5)  PRINT ALL RECORDS"(·Зд5)"(6)  SAVE FILE"(6
Зд5)"(7)  LOAD FILE"(T
Зд5)"(8)  ADDRESS LABELS"(q
Зд5)"(9)  SEARCH & SORT"(w
"З(Ф
,Й"ENTER CHOICE (1-9) ";M(ж
6Е M┤0▒M▓9з130(▐
@И M Бж 1000,2000,1030,3000,4000,5000,6000,7000,8000(Ў
JТ65494,0 :ГLOWSPEED)
TБе140)!ш:Г******** INPUT/ADD********)/ЄЕ Y▓1 з Р)7№Y│1)KB│1:C│0:Бж11000)mЗ@5,"**** INPUT RECORD  ****")ЙЗ@70,"INPUT RECORD # "Y)Ч$C│0:P│173)д.S$(Y)│"")╝8A$│ Т:Е A$│""з 1080)°BЕ A$│ Л(13) з A$│",": C│Cл1:B│Lл2:Е C┤7 зЗ@Pл32, Л(62);*	LЕ C│1з P│205*VЕ C│2 з P│237 *.`Е C│3 з P│269*@jЕ C│4 з P│301*]tЕ C│5 з A$│"*":P│333:C│6*n~Е C│7 з 1270*ИИЕ  Ж(343)┤▓247 з 1200*ЯТL│Lм1:Е L┤0 з 1030*╡ЬS$(Y)│ О(S$(Y),L)*╦бЗ@Pл Ъ(0)м14,".";*╓жБе1220*э░Е A$│ Л(10) з 1260+║S$(Y)│S$(Y)лA$+─L│ З(S$(Y))+'╬З@P, Р(S$(Y),B,L);+8╪Е L│0 з 1030+CтБе1080+UьЕ S$(Y)│""з Р+_ЎY│Yл1+rLL│LLлL:Бе1030+Т╨:Г********* REPLACE *******+Ю┌N│0:L│0+мфЮ:Бж11020+╛юЗ@173, Л(46);+┘°З@7,"***** EDIT *****"+яЗ@405,"TO CHANGE",З@68,"INPUT RECORD # TO EDIT";,-З@92,"";:╗ЙN$:N│ Й(N$),W З@64," >>>>OLD RECORD TO REPLACE<<<<",e*Е N│0 з Р,q4Бж10000,Л>:Г ***** CHANGE *****,ЩHC│1:P│172,кRЗ@P, Л(255);,▐\A$│ Т:Е A$│""з 2140 :Д Е A$│ Л(10)з 2150:Д 2240,ЄfЗ@P, б(19," ");-pЗ@Pл1,"";:╗ЙN$-zZ│L(Cм1)-%ДL$│ О(S$(N),Z)-GОR$│ П(S$(N), З(S$(N))мL(C)л1)-gШЕ C│1 з S$(N)│N$лR$:Бе 2230-ЖвЕ C│6 з S$(N)│L$лN$:Бе2230-ЩмS$(N)│L$лN$лR$-к╢Е C┤6 з 2100-─└З@P," ";:C│Cл1:P│Pл32-╓╩Е C▓6 з 2010 -с╘Бе2130.╕:Г******* DELETE RECORD *****.┬Ю:Бж 11030.4╠З@393," UP  ARROW] TO DELETE".X╓З@3,"***** DELETE RECORD *****".ГрЗ@67,"ENTER RECORD # TO DELETE ";:╗ЙD$.ЪъN│ Й(D$):Е N│0 з Р.жЇБж10000.╤■A$│ Т:Е A$│""з 3070 :Д Е A$│"^" з 3085.▄Бе3000.■
З@427,"";:╗Й"SURE (Y/N) ";CK$/Е CK$│"Y" з S$(N)│"":Д 3150/5А Z│173 е 333 й 32/H&З@Z, б(14,"*")/O0ЛZ/_:АDL│1е700:Л/lDБж 13010/rNР/Уа:Г**** PRINT ALL RECORDS ***/ЩкЮ/г┤ЗST$;/┤╛Зд12)"PRINT"/╛╚ЗST$;/┌╥З@166,"(1) SCREEN ONLY"/√▄З@198,"(2) PRINTER & SCREEN"0	цЗ@290,"";01Ё╗Й"ENTER CHOICE (1-2) ";M$:M│ Й(M$)0?·Е M│0 з Р0UЕ M ┤1 ▒ M ▓2 з Р0dЮ:Бж 110300tА N│1 е Yм10А"Бж110300Ю,З@6,"**** PRINT OUT ****"0╦6Е Y│0 з З@70,"NO RECORDS IN FILE":Бе41900ц@З@70,"RECORD NUMBER "N0єJБж 100001TЕ M┤▓1 з 420012^A$│ Т:Е A$│ Л(10)з 4220 :Д Е A$│""з 41901FhЕ M│2 з Бж 42301MrЛN1S|Р1qЖЕ S$(N)┤▓""з З#м2,N;S$(N)1wРР1ФИ:Г**** SAVE TO TAPE ****1аТЮ:ЗST$;1╝ЬЗд7)"SAVE FILE ON TAPE"1┼жЗST$1╧░бИ:ЯИ1ш║Зд9)"POSITION TAPE."2─Зд3)"";:╗Й"PRESS [ENTER] WHEN DONE.";R$2╬Як2#╪З:З2DтЗд5)"PRESS PLAY AND RECORD."2iьЗд3)"PRESS [ENTER] WHEN READY.";2rЎ╗ЙR$2xЗ2а
Зд3)"";:╗Й"INPUT FILE NAME... ";FF$2▓Щ "O",#м1,FF$2└АX│1е Yм12╧(З#м1,S$(X)2╓2ЛX2▀<Ъ#м13FА DL│1 е 50:Зд8)"FILE SAVED":Л3PР3)p:Г****** LOAD FROM TAPE ****35zЮ:ЗST$;3SДЗд6)"LOAD FILE FROM TAPE"3\ОЗST$3fШЯИ:бИ3вЗд9)"POSITION TAPE."3лмЗд3)"";:╗Й"PRESS [ENTER] WHEN DONE.";R$3▓╢Як3║└З:З3╤╩Зд10)"PRESS PLAY."3Ў╘Зд3)"PRESS [ENTER] WHEN READY.";4▐╗Й R$4шЗ4.ЄЗд3)"";:╗Й"INPUT FILE NAME... ";FF$4?№Щ"I",#м1,FF$4GY│14[Е  М(м1) з 62004jЙ#м1,S$(Y)4t$Y│Yл14А.Бе 61604К8Ъ #м14мBА DL│1е50:Зд8)"FILE LOADED":Л4▓LР4╥X:Г******* LABEL PRINT *****4▐bЮ:ЗST$;4ЎlЗд10) "LABEL MAKER"4 vЗST$58АU│2:Z│1:Г** U SETS DEVICE TO             ** PRINT TO5tКЙ"    FIRST RECORD TO PRINT  ";I1:ЕI1│0 з I1│1:З@156,I15╛ФЗ@160,"";:Й"    LAST RECORD TO PRINT   ";I2:Е I2│0 з I2│105 :З@188,I25▌ЮЗ@230,"INSERT LABEL PAPER"5¤иЗ@263,"";:Й" 1 OR 2 UP ";CC6▓Е CC┤1 ▒ CC▓2 з 708066╝:Г****** END OF HEADER ****6F╞А N│I1 е I26X╨Е S$(N)│""з Р6g┌Ю0:Бж100206|фЕ CC│1 з Бж 71906СюЕ CC│2 з Бж 72806Ш°ЛN6░A$│ Т:Е A$│""з 71706╢Р6╤:Г**** 1 UP PRINT ****6▌ З#мU,""6ї*З#мU,д1)SS$(2)л" ";74З#мU,д1)SS$(1)7>З#мU,д1)SS$(3)73HЗ#мU,д1)SS$(4)л" ";7FRЗ#мU,д1)SS$(5)7Z\З#мU,"":З#мU,""7`fР7{p:Г**** 2 UP PRINT ****7МzЕ Z│2 Бе73407йДLS$(1)│SS$(2)л" "лSS$(1)7╗ОLS$(2)│SS$(3)7╪ШLS$(3)│SS$(4)л" "лSS$(5)7твZ│2:Р7 мRS$(1)│SS$(2)л" "лSS$(1) ╒& 
В"BASEBALL TEAM DATA BASE"&IВ"STEVE BLYN,COMPUTER ISLAND,NY,1984&TХ 1000&┤(В"WE CAN DIMENSION THE STRINGS WITH ANY AMOUNT GREATER THAN THE POSSIBLE NUMBER OF PLAYERS"&╟2МA$(50),B$(50)&╫<А T│1 е 50 &щFН A$(T),B$(T)'
PЕ A$(T)│"END" з 120'WZВ"IF THE PLAYERS NAME IS READ AS 'END' THEN THE COMPUTER STOPS READING THE DATA."'_dЛ T'~nВ"SET THE COUNTER TO ZERO"'дxNN│0:Ю7:З@5,"BASEBALL POSITIONS";'пВа175,2'╒МЗ@484,"'A' FOR ALL & 'E' TO END";(ЦЗ@96,"WHAT POSITION DO YOU WANT TO SEETHIS TIME...";:Й PS$((аЕ PS$│"E" з Ю:К(<кЕ PS$│"A" з 270(B┤З(R╛А T│ 1 е 50(y╚Е B$(T)│PS$ з ЗA$(T),B$(T):NN│NNл1(╥Л(Е▄З(зцЕ NN│0 з З"SORRY,NONE FOUND."(╬ЁЗ@483,"PRESS ANY KEY TO GO ON...";(┘·AN$│ Т(є
Е AN$│"" з 250 :Д 110)
В"PRINTOUT OF ALL PLAYERS ON THE TEAM")%
Ю8)@
"З@6,"THE ENTIRE TEAM";)i
,З@64,"PRESS ANY KEY FOR NEXT PLAYER")o
6З)~
@А T│1 е 50)Т
JЗ T;B$(T),A$(T))л
TEN$│ Т:Е EN$│""з 340)├
^Е A$(T)│"END" з 240)╬
hа200,2)╒
rЛT*
|В"THE DATA IS ENTERED AS PLAYER'S NAME,PLAYERS POSITION."*o
ЖВ" YOU MAY USE OUR MET PLAYERS FOR PRACTICE OR ENTER YOUR OWN FAVORITE TEAM'S MEMBERS."*╚
РЖ TOM SEAVER,P,DOUG SISK,P,RUSTY STAUB,RF,JOHN STEARNS,C,CRAIG SWAN,P,WALT TERRELL,P+.
ЪЖ WALLY BACKMAN,SS,BOB BAILOR,2B,HUBIE BROOKS,3B,CARLOS DIAZ,P,GEORGE FOSTER,LF,RON GARDENHIRE,SS+Л
дЖ BRIAN GILES,2B,TOM GORMAN,P,DANNY HEAP,RF,RON HODGES,C,SCOTT HOLMAN,P,MOOKIE WILSON,CF+ф
оЖ MIKE HOWARD,CF,DAVE KINGMAN,1B,TERRY LEACH,P,TIM LEARY,P,ED LYNCH,P,JESSE OROSCO,P,
╕Ж RICK OWNBEY,P,GARY RAJSICH,RF,RONN REYNOLDS,C,Г
┬Ж JOSE OQUENDO,SS,KEITH HERNANDEZ,1B,JUNIOR ORTIZ,C,MARK BRADLEY,RT,DARRYL STRAWBERRY,RF,RON DARLING,P,╞
╠В "THE NEXT LINE IS DUMMY DATA TO END THE READING OF THE DATA",╘
╓Ж END,ENDESSE OROSCO,P,
╕Ж RICK OWNBEY,P,GARY R,1)-
оE$(5)│ Р(D$(3),2,5)-<
╕E$(6)│ П(D$(3),2)л О(D$(4),3)-S
┬АX│0 е 6:А Y│1 е 5-С
╠Е  Р(E$(X),Y,1)│Y$ з ╛(Yл(Iм1)н8,3лX) :Д ╜(Yл(Iм1)н8,3лX)-Ъ
╓ЛY,X-в
рЛ I.

хЗ#м2, Л(27) "T"  Л(CL) :Г CGP MOD SENDS CONTROL CODE FOR COLOR (CL) SELECTED IN LINE 145 TO PRINTER.$
ъА I│ З(TX$)н8 е 0 йм1.3
ЇА Y│1 е 10.ї
■Е  а(I,Y)│0 з B$│B$л б(HH,"*"):GF$│GF$л Л(18)л Л(28)л Л(HHн7)л Л(255)л Л(30) :Д B$│B$л б(HH," "):GF$│GF$л б(HH," ") :ГCGP MOD IN THIS LINE BUILDS LINES OF "SOLID" COLOR AND/OR SPACES IN GF$.№ЛY/с ь&:Г<LISTING2>&
Ю&5З @72, "BETTY ANN WHITE"&SЗ @106, "1303 3RD ST"    &uЗ @134, "KIRKLAND, WA. 98033"&}З:З&фЗ "  HAPPY BIRTHDAY WAS CREATED BY BETTY ANN WHITE ON JANUARY 2,   1984 AND REVISED ON JANUARY 6."&ъЗ'З:Й "         PRESS <ENTER>"; E$'	Ю':
З:З:З:З:Й" WHAT IS YOUR NAME";N$'@З'[З"        HELLO "N$"!"'aЗ'|Й " HOW OLD ARE YOU";A'▓З:З"   WELL, I HAVE NEWS FOR YOU!":А Z│1 е 2000:Л'╫ Ю:З@ 131,"HAPPY BIRTHDAY TO YOU!'є!╔"O1;G;G;A;G;O2;C;O1;B"("З@ 195, "HAPPY BIRTHDAY TO YOU!"(2#╔ "O1;G;G;A;G;O2;D;C"(Y$З@259,"HAPPY BIRTHDAY DEAR " N$"!"(Щ%╔ "O1;G;G;O2;G;E;C;O2;B;A"                                 (╜&З@323, "HAPPY BIRTHDAY TO YOU!"(╘'╔ "O2;F;F;E;C;D;C"(ч(А Z│1 е 1000:Л(Ё-Ю(0))2А H│15 е 48:А V│16 е 23:Ь(H,V,7):Л V,H)(<З@302,A;)SFА H│30 е 33:А V│ 10е 15:Ь(H,V,2):Л V,H)cxА H│10 е 53)qВЬ(H,23,1))yМЛ H)П┘╔"O2;F;F;E;C;D;C")▓▄Ь (32,7,8):Ь(32,8,8):Ь(31,9,8))╬цЭ(32,7):Э(32,8):Э(31,9))рыА Z│1 е 100:Л)ыЁБе 2200))2А H│15 е 4C620F463E8C7C074610845C0F46318C7C0FC21E843E0FC21E8420074610BC5C08C63F8C62071084211C038842149808CA98A4A2084210843E08EEB58C6208C7359C620"4yXA$(2)│"746318C5C0F463E8420074631ACDE0F463EA4A207460E0C5C0F9084210808C6318C5C08C6318A8808C635AEE208C544546208C54421080F844E443E039084210E00410410400E10842138023AA4210800111F410000000000000001C17C5E0843D18C5C0001F0841E0085F18C5C0001D1F41C0"5XbA$(3)│"0191E42100001F1785C0843D18C62020184211C0100421498084232E4A2061084211C0003D5AD6A0003D18C620001D18C5C0003D1F4200001F178420003D184200001F0707C0023C8420C0002318C5C0002318A880002B5AD5C00022A22A2000231784C0003E2223E0"5^lР1E0085F18C5C0001D1F41C0"5XbA$(3)│"0191E42100001F1785C0843D18C62020184211C0100421498084232E4A2061084211C0003D5AD6A0003D18C620001D18C5C0003D1F4200001F17842000                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ш&$
:ГRAINBOW ON TAPE MONTHLY MENU&7╚3,1:╝:┐0,1:Ю0&кRB$│"U8R4FD2GNL4FD3BR5U6E2R2F2D2NL6D4BR5NU8BR5U8F7NDU7BR5D8R4EU2HNL4EU2HNL4BR6NR4GD6FR4EU6HBR5D6F2E2NU4F2E2U6"&ч(┬(256,130),168,3,.7,.50,.25:┬(256,126),142,3,.75,.50,.25& 2╞"S4BM116,126C3L50"'<├(100,124),3,3'NFАI│0е30й30:АY│0е1:┬(256мI,130лY),168,2,.7,.50,.25:ЛY:ЛI'dP╞"BM20,132C2R161"'vZ├(75,130),2,2'Цd┬(256,130),257,4,.45,.5,.25'╢n┬(256,138),226,4,.56,.5,.25'╩x╞"BM0,128C4R45"'▄В├(15,126),4,4'°М╗(0,126)м(256,147),╛,BF(Ц╗(0,0)м(256,192),╛,B(*а╗(0,0)м(256,22),╛,BF(iк╞"S20BM150,124C3R20EU10HL20GD10FR3UE2L5U7ER18FD7L5NL12F2D"(Е┤┬(176,90),8:┬(220,90),8(│╛╗(176,82)м(220,82),╜:╗(176,98)м(220,98),╜(┼╚├(176,70),3,3)╥┐1,1:АI│1е8:R$│ И(Iл10)л","л И(Iл168):╞"S12BM"лR$л"C4"лRB$:Л)▄╞"S12BM19,177C3"лRB$)\ц╚3,1:┐1,1:АI│1е300:Л:┐1,0:АI│1е300:Л:┐1,1:А I│1 е 500:ЛI)bЁЮ)r·Х 200,16352)Ц
А R│16352 е 16380:Н P:Т R,P:Л R)е
╣ Г0│16352)╓
Ж 189, 179, 237, 31, 152, 142, 4, 0, 16, 142*
"Ж 4, 31, 237, 137, 1, 224, 237, 164, 49, 168*3
,Ж 32, 237, 129, 140, 4, 32, 38, 240, 57*F
6Ю 5 :X│ Г0(60)*e
@З@71, " RAINBOW ON TAPE ";*x
JЗ@141," FOR ";*С
TЗ@202, " MAY 1984 ";*м
^З@425, " HIT A KEY. ";*╗
hX│ Г0(120)*═
rА R │ 1 е I:Л*▄
|X│ Г0(197)*э
ЖА T│ 1 е I:Л+
РЕ I▓1 з I│Iм1 :Д I│50+
ЪЕ  Т│"" з 360+!
дЮ:З+@
оЗ"        RAINBOW ON TAPE"+`
╕З"       (C) FALSOFT, 1984"+f
┬З+з
рЗ "  (XX)=PAGE NUMBER OF LISTING           IN MAY'S RAINBOW"+н
ъЗ+╘
ЇЗ" (22) DISEMBLR"," (22) PRTMAJIC"+°
■З" (38) ADDRESS"," (42) BANNER",З" (69) BOLTYPE"," (77) LABELS",CЗ" (86) POSTCARD"," (94) ROCKFEST",gЗ"(106) COLRBOOK","(113) NAMES",О&З"(117) LISTING1","(118) LISTING2",ФNЗ,╕XЗ"   PRESS ANY KEY TO CONTINUE",╚bЕ  Т│""з610,╬lЮ,ўvЗ:З "  (XX)= PAGE NUMBER OF LISTING",■АЗ -"ФЗ"(121) BANKER","(133) SHUTTLE"-GЮЗ"(136) CGPLABEL","(140) GPDUMP"-nиЗ"(144) DATABASE","(156) GRAGSALE"-Р▓З"(168) WAGER","(176) Q-NERD"-┤╝З"(192) BASEBALL","(195) HEIST"-┌┌З:З"  *=MACHINE LANGUAGE PROGRAM"-рфЗ.#юЗ "    PRESS ANY KEY TO RETURN          TO FIRST PAGE OF MENU".M°З:З "PRESS ^ (UP ARROW) TO EXIT MENU".ЗЕ  Т│ Л(94) з Т 113,0:в 40999 :Д Е  Т│"" з 770 :Д 420.ЧЗ б(32,45);2) BASEBALL","(195) HEIST"-┌┌З:З"  *=MACHINE LANGUAGE PROGRAM"-рфЗ.#юЗ "    PRESS ANY KEY TO RE О& Г      BASIC DISASSEMBLER &>Г      BY DENNIS H. WEIDE&\Г      COPYRIGHT (C) 1983&iТ 153,24&ЗЮ:Й"ENTER LINE NUMBER";LN&вЗ#м2,"LINE NUMBER";LN,&└ADDRESS│ Ж(25)н256л Ж(26)&ыNUMBER│ Ж(ADDRESSл2)н256л Ж(ADDRESSл3)'NADDRESS│ Ж(ADDRESS)н256л Ж(ADDRESSл1)'EЕ LN│NUMBER з 30 :Д ADDRESS│NADDRESS:Бе 27'fЗ#м2,"THIS ADDRESS="ADDRESS,'ЗЗ#м2,"NEXT ADDRESS="NADDRESS'Р З#м2'м!А X│ADDRESS е ADDRESSл3'└"З#м2, Ж(X);:Л X'▀#А X│ADDRESSл4 е NADDRESSм1($Е  Ж(X)▓127 ▒  Ж(X)┤33 з З#м2, Ж(X); :Д З#м2, Л( Ж(X));(#%Л X(5&З#м2, б(3,10)(?'PN│LN([(Й"ENTER LINE NUMBER";LN(v)З#м2,"LINE NUMBER";LN,(Н*Е LN┤PN з 26 :Д 27'м!А X│ADDRESS е ADDRESSл3'└"З#м2, Ж(X);:Л X'▀#А X│ADDRESSл4 е NADDRESSм1($Е  Ж(X)▓127 ▒  Ж(X)┤33 з З#                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ╚  
╟─╔╞┼─┼┼╟ ╔├┬┼%&╚(┴*+,-╟─0╚╔34╞67╞9╟          SALEBAS2┐WAGER   BAS
Q-NERD  BAS5fIRTHDAYBASяHEIST   BASbBANNER1 BAS8bMENU    BAS ЫDISEMBLRBAS!СPRTMAJICBAS"щADDRESS BAS#rBASEBAL1BAS╪BOLTYPE BAS$РLABELS  BASхPOSTCARDBAS'пROCKFESTBAS)COLRBOOKBASДNAMES   BASаLISTING1BASCLISTING2BAS.яBANKER  BAS/YSHUTTLE BASYCGPLABELBAS╕GPDUMP  BAS1
DATABASEBASGRAGSALEBAS2┐WAGER   BAS
Q-NERD  BAS5fIRTHDAYBASяHEIST   BASbBANNER1 BAS8b                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
ц&
:Г     PRINTER MAGIC&8:Г     BY DENNIS H. WEIDE&R:Г     COPYRIGHT 1983&pЮ:Й"ENTER LINE NUMBER";LN&ОADDRESS│ Ж(25)н256л Ж(26)&╣NUMBER│ Ж(ADDRESSл2)н256л Ж(ADDRESSл3)&фNADDRESS│ Ж(ADDRESS)н256л Ж(ADDRESSл1)'Е LN│NUMBER з 9 :Д ADDRESS│NADDRESS:Бе 6'0	А X│ADDRESSл5 е NADDRESSм2'H
Е  Ж(X)│91 з Т X,31'`Е  Ж(X)│93 з Т X,30'xЕ  Ж(X)│94 з Т X,10'Р
Е  Ж(X)│95 з Т X,26'ШЛ X'│ADDRESS│NADDRESS:PL│LN'╧Й"ENTER LINE NUMBER";LN'хЕ LN│┤PL з 5 :Д 6Е LN│NUMBER з 9 :Д ADD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 o&"
:Г**************************&C:Г* CHANGE ML ADDRESS ON   *&d:Г* DISK.  32K EXT. DISK   *&Е(:Г* BY DENNIS DERRINGER    *&ж2:Г* DERRINGER SOFTWARE, INC*&╟<:Г* JANUARY - 1984         *&шF:Г**************************&їPЮ:Х 1000'ZЗ"FILENAME: ";:╗ Й FI$'!dЕ FI$│"" з К'InЩ"D",#1,FI$,1:Е  е(1)│0 з Ъ:╥ FI$:О'bx╨#1,1  з F$:LF│ е(1)'ГВАQ│1е5:─#1,Q:BY(Q)│ К(F$):ЛQ'ЮМB│0:АQ│LFм4 е LF:B│Bл1'╕Ц─#1,Q:BE(B)│ К(F$):ЛQ'╘аLD$│ Ь(BY(4)н256лBY(5))'якE$│ Ь(BE(4)н256лBE(5))(┤LN$│ Ь(BY(2)н256лBY(3))(╛З(,╚З"LOAD ADDRESS = ";LD$(a╥З"END ADDRESS  = "; Ь( Й("&H"лLD$)л Й("&H"лLN$))({▄З"EXEC ADDRESS = ";E$(ЦцЗ"LENGTH       = ";LN$(ЬЁЗ(└·З"NEW LOAD ADDRESS = ";:╗ Й NL$(╙
Е NL$│"" з Ъ:О(є
OF│ Й("&H"лE$)м Й("&H"лLD$))
NL│ Й("&H"лNL$))
"NE│NLлOF))
,BY(4)│ Б(NLо256))I
6BY(5)│NLм(256н( Б(NLо256))))^
@BE(4)│ Б(NEо256))~
JBE(5)│NEм(256н( Б(NEо256))))н
TЗ"NEW END ADDRESS  = "; Ь(NLл Й("&H"лLN$)))▄
^З"NEW EXEC ADDRESS = "; Ь(BE(4)н256лBE(5))) 
hАQ│1е5:╘ F$│ Л(BY(Q)):┼#1,Q:ЛQ*
rB│0:АQ│LFм4 е LF:B│Bл1*7
|╘ F$│ Л(BE(B)):┼#1,Q:Л Q*=
ЖЪ*h
РЗ:З"PRESS enter TO RUN AGAIN ";:╗ Й X$*n
ЪО( Б(NEо256))))н
TЗ"NEW END ADDRESS  = "; Ь(NLл Й("&H"лLN$)))▄
^З"NEW EXEC ADDRESS = "; Ь(BE(4)н256лBE(5))) 
hАQ│1е5:╘ F$│ Л(BY(Q)):┼#1,Q:ЛQ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Н&
:Г       BOLTYPE  1.0&8:Г    COPYRIGHT (C) 1983&R:Г       BY MIKE FAHY&Y(:Г&П2Ю:З"BOLTYPE 1.0":З"COPYRIGHT (C) 1983 BY M. FAHY"&┼<Е  Ж(&HFF22)┤▓4зЗ@230,"PRINTER NOT READY...":Бе60&цFЗ@230,"ONE MOMENT PLEASE..."'ZХ1000:H│0:МOE$(26,2),C(26,9),F(26,9)'dЗ#м2, Л(18)',nАFI│1е26'8xАSL│1е2'IВНA:ЕA│м1з160'iМOE$(FI,SL)│OE$(FI,SL)л Л(A)'sЦБе130'~аЛSL,FI'СкАX│1е26:АY│1е9'Э┤НC(X,Y)'ж╛ЛY,X'╫╚АX│1е8:АY│1е9:НF(X,Y):ЛY,X:АY│1е4:НF(9,Y):ЛY'°╥АX│10е26:АY│1е9:НF(X,Y):ЛY,X(5▄Ж 128,128,128,130,129,229,185,166,191,240,128,128,128,-1(rцЖ 130,129,129,129,131,130,128,128,128,129,131,130,129,-1(гЁЖ 130,129,145,254,128,254,137,137,142,240,-1(╘·Ж 128,130,129,129,129,130,130,130,129,128,-1)

Ж 144,252,130,253,129,129,130,130,192,-1).
Ж 128,128,129,130,130,130,130,129,128,-1)[
Ж 128,130,146,250,133,249,129,130,252,-1)И
"Ж 130,129,129,129,131,130,130,129,128,-1)╡
,Ж 144,252,130,253,145,145,162,130,192,-1)т
6Ж 128,128,129,130,130,130,130,129,128,-1*
@Ж 128,128,130,129,145,254,128,254,145,130,130,129,-1*T
JЖ 130,129,129,129,131,130,130,128,128,128,128,128,-1*Б
TЖ 144,252,130,192,190,145,138,138,241,-1*о
^Ж 128,128,129,132,132,132,132,129,129,-1*█
hЖ 130,145,253,130,254,145,137,144,224,-1+
rЖ 128,130,129,129,130,130,161,144,143,-1+5
|Ж 130,129,145,254,128,254,129,129,130,-1+b
ЖЖ 129,130,130,129,128,129,130,130,129,-1+Л
РЖ 128,130,129,145,254,129,254,129,-1+┤
ЪЖ 130,129,129,131,130,130,129,128,-1+с
дЖ 130,145,189,130,254,145,177,178,208,-1,
оЖ 130,129,129,131,130,130,128,129,130,-1,;
╕Ж 130,145,189,130,254,129,129,130,128,-1,h
┬Ж 128,130,129,129,129,131,130,130,129,-1,е
╠Ж 130,145,254,129,145,254,146,253,129,129,254,128,128,-1,т
╓Ж 128,130,129,128,130,129,128,129,130,128,129,130,129,-1-
рЖ 130,145,255,130,253,129,129,254,145,128,-1-D
ъЖ 128,130,129,128,129,130,128,129,130,129,-1-q
ЇЖ 144,252,130,160,158,129,253,130,252,-1-Ю
■Ж 128,128,129,130,130,130,130,129,128,-1-╟Ж 130,145,254,130,253,129,129,254,-1-ЁЖ 130,129,191,129,130,130,130,139,-1.!Ж 144,252,130,160,158,129,253,130,252,128,-1.R&Ж 128,128,129,130,130,130,130,129,130,130,-1.Г0Ж 130,145,254,130,253,145,145,238,128,128,-1.┤:Ж 128,130,129,128,129,130,128,129,130,129,-1.▌DЖ 128,150,169,169,169,170,145,224,-1/NЖ 130,129,129,129,130,130,129,128,-1/7XЖ 130,145,249,133,129,190,130,254,129,192,-1/hbЖ 128,128,128,129,130,130,130,130,129,128,-1/ХlЖ 145,254,128,128,254,129,254,129,128,-1/┬vЖ 130,129,130,130,130,129,131,130,129,-1/яАЖ 130,145,254,128,254,128,129,254,129,-10КЖ 128,128,129,130,130,130,129,129,128,-10VФЖ 130,145,254,128,128,254,145,254,144,128,129,255,-1 0ПЮЖ 128,128,129,130,130,130,129,129,130,130,129,128,-10╝иЖ 194,129,145,146,252,146,145,129,194,-10щ▓Ж 129,130,130,129,128,129,130,130,129,-11╝Ж 130,145,254,128,128,254,129,254,129,-11C╞Ж 162,145,146,162,162,161,147,140,128,-11x╨Ж 130,129,193,161,145,138,134,162,145,144,224,-11н┌Ж 130,129,129,129,129,130,130,130,130,129,128,-11╫фЖ 192,160,144,216,180,146,138,134,1302
юЖ 192,224,208,216,212,210,178,138,1322+°Ж 192,224,208,200,196,130,130,130,1302UЖ 192,224,208,200,164,162,146,140,1282Ж 192,224,208,200,140,138,130,130,1302йЖ 192,160,144,136,140,138,130,130,1302╙ Ж 192,224,208,200,164,146,146,130,1302¤*Ж 192,160,144,200,172,154,136,132,1303'4Ж 192,192,224,208,138,134,130,130,1283Q>Ж 192,224,208,192,160,144,136,132,1303{HЖ 192,160,144,184,212,146,136,132,1303еRЖ 192,224,208,200,196,194,128,128,1283╧\Ж 192,160,144,136,132,222,168,148,1423∙fЖ 160,144,136,244,174,144,136,132,1304#pЖ 192,224,208,200,196,162,146,138,1344MzЖ 192,160,144,136,140,138,138,138,1324wДЖ 192,224,208,200,162,178,202,134,1304бОЖ 192,160,144,136,156,170,202,138,1324╦ШЖ 192,192,192,200,172,154,138,130,1304ївЖ 128,192,162,146,138,134,130,130,1305мЖ 192,224,208,200,164,146,136,132,1305I╢Ж 192,176,172,162,144,136,132,130,1285s└Ж 192,224,208,200,210,200,160,144,1425Э╩Ж 192,160,160,158,176,144,132,130,1285├╘Ж 200,172,154,136,136,132,130,5,55э▐Ж 192,224,208,210,202,138,134,130,1286шЖ 248,255,137,137,137,255,248,128,1286AЄЖ 255,201,201,201,201,255,248,128,1286k№Ж 255,193,193,193,193,195,227,128,1286ХЖ 255,249,193,193,193,193,190,128,1286┐Ж 255,249,201,201,201,201,201,128,1286щЖ 255,249,137,137,137,137,137,128,1287$Ж 255,249,193,193,201,201,251,128,1287=.Ж 248,255,136,136,136,255,248,128,1287S8Ж 255,248,128,1287}BЖ 248,248,192,192,192,192,255,128,1287зLЖ 255,248,140,138,138,137,249,128,1287╤VЖ 255,248,192,192,192,192,192,128,1287√`Ж 255,249,129,255,129,129,255,128,1288%jЖ 255,250,132,136,144,160,255,128,1288OtЖ 255,193,193,193,193,249,255,128,1288y~Ж 255,249,137,137,137,137,143,128,1288гИЖ 255,249,193,208,255,160,192,128,1288═ТЖ 255,249,137,137,137,143,248,128,1288ўЬЖ 207,201,201,201,201,201,249,128,1289!жЖ 129,129,129,255,131,131,131,128,1289K░Ж 255,248,192,192,192,192,255,128,1289u║Ж 143,159,160,192,160,144,143,128,1289Я─Ж 255,248,192,255,192,192,255,128,1289╔╬Ж 247,248,136,136,136,136,247,128,1289є╪Ж 143,136,136,248,248,136,143,128,128:тЖ 193,225,209,201,197,195,193,128,128:(ЎБе1450:dЗ#м2, Л(18);:Ю0:З@491,"italics";:З@0,"";:╗Й"message";A$:q
L│ З(A$):АLL│1е L :Т(M$│ Р(A$,LL,1):ж2O│ К(M$):A│Oм64:Є<Е O▓96 ░ O┤123 з З#м2, Л(30); Л(Oм32); Л(18);:HH│HHл1:ЕLL▓│L з1840:ДЛLL;ZFЕO┤65 ▒ O▓90 з З#м2, Л(128); Л(128); Л(30); Л(O); Л(18); Л(128); Л(128);:HH│HHл1:ЕLL▓│L з 1410:ДЛLL;ePАY│1е9;zZЗ#м2, Л(C(A,Y));;БdЛY;ЙxЛLL;ТВЗ#м2;ЫМЗ#м2;жЦБж1450;▒аБе1280;╕к:Г;Ё┤Ю:З"BOLTYPE 1.0":З"COPYRIGHT (C) 1983 BY M. FAHY":З<G╛З:З"        A. OLD ENGLISH":З:З"        B. ITALICS":З:З"        C. FUTURISTIC":З:З<i╚╗Й"        SELECT MODE :";CV$<|╥Е CV$│"A"з1530<П▄Е CV$│"B"з1280<вцЕ CV$│"C"з1680<нЁБе1450<┬·:Г  OLDE ENGLISH<╙З#м2, Л(18);=
Ю0:З@490,"old"л Л(128)л"english";:З@0,"";=╗Й"message";A$= "АFI│1е2=1,АSL│1е З(A$)=H6PS│ К( Р(A$,SL,1))=r@ЕPS┤45 ▒ PS▓90зЗ#м2, б(7,128);:Бе1650=ПJАTL│1е  З(OE$(PSм64,FI))=╕TЗ#м2, Л( К( Р(OE$(PSм64,FI),TL,1)));=└^ЛTL=┌hЗ#м2, Л(128); Л(128);=тrЛSL=я|З#м2:ЛFI=·ЖБе1450>
Р:Г  FUTURISTIC>ЪЗ#м2, Л(18);>PдЮ0:З@490,"futuristic";:З@0,"";:╗Й"message";A$>]оL│ З(A$)>i╕АLL│1еL>|╠M$│ Р(A$,LL,1)>Р╓O│ К(M$):A│Oм64>▌рЕ O▓96 ░ O┤123 зЗ#м2, Л(30); Л(Oм32); Л(18);:HH│HHл1:ЕLL▓│L з1840 :Д ЛLL?5ъЕ O┤65 ▒ O▓90 з З#м2, Л(30); Л(O); Л(18); Л(128); Л(128);:HH│HHл1:ЕLL▓│L з1840:ДЛLL?HЇЕ A│9зQ│4:ДQ│9?S■АY│1еQ?hЗ#м2, Л(F(A,Y));?oЛY?w&ЛLL?М0З#м2:З#м2:Бе14504>▌рЕ O▓96 ░ O┤123 зЗ#м2, Л(30); Л(Oм32); Л(18);:HH│HHл1:ЕLL▓│L з1840 :Д ЛLL?5ъЕ O┤65 ▒ O▓90 з З#м2, Л(30);                                                                                                                                                                                                                                                                  	м&
:Г"POSTCARD WHACKER"&5:Г BY JESSIE JAMES AND&G:Г DON HUGHES&\:Г P.O. BOX 6363&}:Г SAN BERNARDINO, CA. 92412&Ы:Г COPYRIGHT 1983, JESSIE&╖:Г JAMES AND DON HUGHES&┴Х5000&╟	Ю&╤
Бж 72&┘A│0&у
A$│ Т&√Е  Ж(341)│247 з A│4'Е  Ж(342)│247 з A│3'+Е  Ж(343)│247 з A│2'CЕ  Ж(344)│247 з A│1'ZИ A Бе 52,43,35,27'oЕ A$│ Л(12) з 84'мЕ A$│"" з 24 :Д A│ К(A$):Е A│8 ▒ A│9 ▒ A│10 ▒ A│94 з 12 '╢З A$;'└Бж 67'▀Е B▓1503 з Т 137, Ж(137)м1'щБж 60'єБе 12'¤Бж 67(Е  Ж(Bм32)│207 з 12(bD│ Ж(137): Е D┤32 з Т 136, Ж(136)м1:Т 137,(Dм32)л256 :Д Т 137, Ж(137)м32(lБж 67(ГЕ B┤1024 з Т 136,5(Н Бж 60(Ч!Бе 12(б#Бж 67(╣$Е  Ж(Bл32)│207 з 12)%D│ Ж(137):Е D▓223 з Т 136, Ж(136)л1:Т 137,(Dл32)м256 :Д Т 137, Ж(137)л32)&Бж 67)''Е B▓1535 з Т 136,4)1(Бж 60);)Бе 12)E+Бж 67)\,Е  Ж(Bм1)│207 з 12)Ы-Е  Ж(137)│0 з Т 137,255:Т 136, Ж(136)м1 :Д Т 137, Ж(137)м1)е.Бж 67)╝/Е  Ж(Bм1)│207 з 12)▌0Е B┤1024 з Т 136,5:Т 137,255)ч1Бж 60)ё2Бе 12)√4Бж 67*5Е  Ж(Bл1)│207 з 12*Q6Е  Ж(137)│255 з Т 137,0:Т 136, Ж(136)л1 :Д Т 137, Ж(137)л1*[7Бж 67*z8Е B▓1535 з Т 136,4:Т 137,0*Д9Бж 60*О:Бе 12*Ш<Бж 67*д=T│ Ж(B)*░>Т B,159*┬?А Y│1 е 5:Л Y*╠@Т B,T*╥AР*ъCB│ Ж(136):C│ Ж(137)*■DТ 136,B:Т 137,C+EB│Bн256лC+FР+HЮ+NIЗ"PLEASE INPUT YOUR               SALUTATION   ";+YJ╗ Й S$+МKЗ"PLEASE INPUT YOUR               CLOSING   ";+ЧL╗ Й C$+ЮMЮ5+╠NЗ @ 0,"INPUT MESSAGE, HIT CLEAR TO END ";+фOЗ @ 64, б(255,175);+ўPЗ  б(161,175);,QТ 136,4:Т 137,64,RР,9Tа 200,1:З@0,"ONE MOMENT PLEASE...",MUА X│1088 е 1300,YVA│ Ж(X),cWБж 97,yXA$(1)│A$(1)л Л(A),БYЛ X,ЦZА X│ 1301 е 1503,в[A│ Ж(X),м\Бж 97,┬]A$(2)│A$(2)л Л(A),╩^Л X,р_A$│A$(1):B$│A$(2),ы`Бе 102-aЕ A▓127 з A│32:Р-bЕ A┤32 з A│Aл96:Р-2cЕ A▓90 ░ A┤128 з A│Aм64-RdЕ A│18 ▒ A│30 ▒ A│31 з A│32-XeР-^fЮ-бgЙ"PREPARE PRINTER                 PRESS <ENTER> WHEN READY";Q$-▒hP│40:FLAG│0-┬iЗ#м2,S$:З#м2-╨jS│1:E│SлP-▌kL│ З(A$)-ЁlА X│E е S й м1.mЕ  Р(A$,Xм1,1)│  Л(32) з 111.nЛ X.1oЗ #м2,  Р(A$,S,XмS).?pS│X:E│SлP.OqЕ E┤L з 108.yrЕ FLAG│1 з З #м2,  П(A$,LмSл1):Бе 119.ФsA$│ П(A$,LмSл1)л" "лB$.иtFLAG│1:L│ З(A$).╢uS│1:E│SлP.┴vБе 108.╩wЗ#м2.╫xL│ З(C$).ыyЗ#м2, д40мL);C$.ёzЮ/6{Й "DO YOU WISH TO PRINT            THE SAME CARD AGAIN (Y/N)";Q$/H|Е Q$│"Y" з 95/P}З:З/Х~Й "DO YOU WISH TO PRINT            A DIFFERENT MESSAGE (Y/N)";Q$/лЕ Q$│"Y" з О :Д К│1:E│SлP.┴vБе 108.╩wЗ#м2.╫xL│ З(C$).ыyЗ#м2, д40мL);C$.ёzЮ/6{Й "DO YOU                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 *&$
:Г****************************&G:Г*   THE COCO ROCK-FEST #1  *&j:Г*     BY FRED B. SCERBO    *&Н:Г*     COPYRIGHT (C) 1984   *&░:Г****************************&║Бе950&╦╚4,1:╝0:┐1,1&ц╗(0,170)м(255,174),╜,B'╗(0,174)м(255,192),╜,BF'╚3,1'#Т178,50:├(128,2),,4'o АI│1е40й4:IK│ Д(3)л1:┴ K,K::╗(I,0)м(I,170),╜:╗(254мI,0)м(254мI,170),╜:Л'╡"АI│2е120й2:K│ Д(3)л1:┬(0,0),I,K,.4,0,.25:┬(255,0),I,K,.4,.25,.5:Л'╤$╗(70,48)м(182,100),╜,BF(&╞"BM108,52C3R4ND6R4BR6D6U3R6D3U6BR6NR6D3NR6D3NR6"((╚4,1(!*АI│96е140й44(.,А Y│6е10(H.┬(I,70),Y,0,.9,.15,.9(d0┬(Iл11,78),Y,0,.9,.6,.8(l2Л Y(y4А Y│6е10(П6Е I│96 з 56 :Д 58(л8┬(Iл33,78),Y,0,.9,.6,.8(┴:┬(Iл20,70),Y,0,.9(╚<ЛY(╧>ЛI(╪@╚3,1)TB╞"BM76,94C2U12R4F2D2G2L4R4F2D4BR8H2U8E2R4F2D8G2L4BR14R4NE2L4H2U8E2R4NF2BR8D12U6R2E4NU2G4F4D2BR4BU6R6BD6BR6U6NR4U6R6BR6")АD╞"NR6D6NR4D6R6BR6R8U6L8U6R8BR4R4ND12R4")жFАI│6е120й16:I$│ И(I):Y$│ И(256мI))╟H╞"BM"лI$л",188C3U4NR4U4R4D8")эJ╞"BM"лY$л",188C2NL6U4NL4U4L6R2D8")ЇLЛI*NX$│ Т:ЕX$│"A"з80:ДЕX$│"B"з82:Д78*.PR│3:R$│"C3":Бе84*CRR│2:R$│"C2":Бе84*kTЮ3:З@132," A) THE ROLLING STONES ";*ЛVЗ@164," B) ASIA"л б(15,32);*░XЗ@196," C) QUIET RIOT"л б(9,32);*╙ZЗ@228," D) Z Z TOP"л б(12,32);*°\З@260," E) VAN HALEN"л б(10,32);+^З@292," F) YES"л б(16,32);+<`З@324," G) 38 SPECIAL"л б(9,32);+]bЗ@356," H) AC-DC"л б(14,32);+rdX$│ Т:ЕX$│""з100+ЬfX│ К(X$)м64:Е X┤1 з 100 :Д Е X▓8 з100+╟hИ X Бе 200,300,400,500,600,700,800,900+╤jБе106+ч╚╚4,1:╝1:┐1,1:╚3,1,╩┬(110,110),66,1,1.2,.07,.45,&╠┬(122,140),72,1,1.1,.5,.73,E╬┬(152,150),60,1,1.5,.53,.7,e╨┬(154,152),58,1,1.4,.53,.76,Я╥╞"S4C1BM96,148DLDLU6BM154,70R4E4R2F2R4F2R10E4M200,74",╦╘АI│0е2:┬(238лI,150),72,1,1.3,.5,.67:Л I-+╓╞"BM130,68L4HLHLHLUHUL6G2BD10BL6G22D2G2DGDGDLDLD2LD4L2D16F2R2FR2E2U2E2U16EUEUEU2EU2M106,74"-A╪╞"BM164,82NL4G20"-a┌┬(198,180),88,1,1.3,.57,.68-Т▄╞"BM118,138D6F2R8E2U4E2U4E2U4E2U6E2U6E2U4E4"-┬▐╞"BM86,74H10L2H4L2U6E4R2E4R2E2R2E2R2E2R2E4"-ср┬(134,72),44,1,1.8,.58,.86-■т┬(180,20),24,1,.9,.6,.96.ф┬(240,0),40,1,1.1,.3,.44.8ц┬(230,56),22,1,.7,.75,.2.Xш┬(255,152),60,1,1.5,.55,.72.wъ┬(170,104),34,1,1.4,.1,.25.Уь┬(130,60),32,1,.7,.6,.9.▒ю┬(182,58),24,1,.7,.65,.95/Ё╞"BM166,46G3L4H2BL50G8L2G2L2G2L2F8BR122BH16F2R2F2R2F2R2F2D2F2G4L2G2L2G2L2G6"/Є┬(180,20),16,1,.6,.4,.1/:Ї┬(134,18),19,1,.6,.4,.1/qЎ╞"BM124,24R4E2R2E2R4F2R2F2R2BR24BD2R2E2R2E2R6F2R6"/О°┬(170,44),24,1,.9,.12,.4/л·┬(132,44),25,1,.9,.12,.4/╚№┬(104,54),10,1,.9,.1,.45/ц■┬(200,44),20,1,1.3,.13,.4/°
├(130,66),1,10	
├(140,4),R,10
├(118,76),R,10K
╚4,1:╞"C0BM181,152NL3NR3D6BR8U6F4E4D6":╚3,10Ж
╞"BM22,2C1R4ND8R4BR4D8U4R6U4ND8BR6NR6D4NR4D4R6BL80BD6"0█

╞"ND8R6D4L6R2F4BR6U8R6D8NL6BR6NU8R6BR6NU8R6BR6NU8BR6U8F8NU8BR6U8R8ND2L8D8R8U4L4"11
╞"BD18BL66R6U4L6U4R6BR4R4ND8R4BR4D8R6U8NL6BR6ND8F8U8BR6NR6D4NR4D4R6BR6R6U4L6U4R6"1Q
X$│ Т:ЕX$│ Л(13)з 84 :Д 2701o
,╚4,1:╝1:╚4,3:╝1:┐1,1:╚3,11
.А I│1 е 2551 
0╞"S4C3BM30,70E48F48L16H12L38G12L16M24,72E54ND4F54L2UL3UDR3DR2L24ER2EGL2GH12NE2L34NH2G12NH2L24BR46NR40E12F3R11F2L14H2G7R28" 2е
2╞"BF2BR10R15H8NR14H2R12H44R34E4F14L22F44NL30L2UL2UL2NL26H44FR2FNR2HL2HR22FR2FHL2H9NU4G2L30HLRF45LHLHL14E6D4NG2U4BE10E8D4NG5ND11U22E10F10D52H4U48NR2H6NU4G6NL2D38"2с
4╞"U22BE16E3D4NG3U4F55L22H12L24U2R26NG2F12NG2R13NH48RFR"2ь
6Т178,I2№
8├(46,65),,33

:├(120,24),,33
<├(156,24),,33/
>├(176,40),,33?
@├(83,68),,33M
B╟1е4:╟2е53e
DY│ Д(4):Е Y│3 з 3243x
F╚1,1:╝(Y):╚3,13И
HЕ Y┤4 з 3323а
J╗(0,0)м(256,92),╛,B3└
LX$│ Т:ЕX$│ Л(13)з 84 :Д Л I3╩
NБе3003╥
РJ│03ъ
Т╚4,1:╝(J):┐1,1:╚3,13є
Ф╞ R$4:
Ц╞"S4BM20,10G8D40F8R22F8R20H16U40H8NL26BL8BD14D28L10U28R10BU14BR26"4Х
Ш╞"D48F8R30E8U48L18D40L10U40L18BR56D56R18U56NL18BR10D56R40U14L20U8R20U12L20U8R20U14L40"4╣
Ъ╞"BR46D14R16D42R20U42R16U14L52"5>
Ь╞"BD72BL156D56R18U22F10D12R18U22H8E8U10H8L38R18BD14D8R8U8L8BU14BR38D56R18U56NL18BR20G8D40F8R30E8U40H8L30R10BD42R10U28L10D28BU42"5b
Ю╞"BR36D14R16D42R20U42R16U14L52"5к
а├(20,14),R,R:├(70,14),R,R:├(130,14),R,R:├(152,14),R,R:├(200,14),R,R5х
в├(40,86),R,R:├(100,86),R,R:├(140,86),R,R:├(200,86),R,R5ю
д╚4,16
жАI│2е200й4:┬(128,72),I,J,.9:Л6#
и╚4,1:┐1,1:╚3,16r
к╞"BM26,170C2U13F8E8ND13BR8NR10DNR10D5NR8DNR8D5NR10DR10BU13BR6R14DL7ND12L7"6к
м╞"BD12BR20U13R10DNL10D5NL10DNL10D6BR8NU13UNR10DR10"6щ
о╞"BR16U13D6NR8DR10U7D13BR8U13NR10DNR10D5NR8DNR8D5NR10DR10"7G
░╞"BR8U13NR8DNR8D5NR10DR10U7D13BR8NU13UNR10DR10BR2BU13R14DL7ND12L7BR20UD13U7NR10DR10U7D13"7m
▓╞"BM26,152R200DL200BD22R200DL200"7}
┤Е J│1 з 4407г
╢А U│1 е 4:╟ U е Uл4:Л U:J│1:Бе4027╛
╕╚4,1:┐1,1:АI│1е200:Л I7┌
║╚4,5:┐1,1:АI│1 е200:Л I7№
╝X$│ Т:Е X$│ Л(13) з 84 :Д 4408
Ї╚4,1:╝1:┐1,1:╚3,18d
Ў╞"S4C1BM0,0R100G36L22E30G4L50NU4R50E4L90U10R100G44R200U6NL166U6L160NG6E26L24"8╩
°╞"BR30BD8G6R10G8R10E8R8E6NL26BR8R28G14L28E14R10BG4R8G6L8E6BH4BR34R28G10L16G4L10E14BF4R8G2L8E2GR8"8▄
·├(168,20),1,19*
№АI│0е20й4:╗(128мI,100)м(128мI,170мIо2),╜:╗(128лI,100)м(128лI,170мIо2),╜:Л9I
■┬(128,102),30,1,.3,.57,.929h┬(128,140),32,1,1.1,.1,.429В╞"BM102,100D56BR52U589ЫТ178,43:├(128,98),,19╤╚3,1:АY│0е88й88:АI│0е2:┬(84лY,120),18мI,1,.9:ЛI,Y9┌╚3,1:
╞"C1BM88,106U22E6R66F6D22BL4BU12U8H6L58G6D8E4R60F4H4L20E4L30G4":U┬(44,148),36,1,.9,.4,.9:┬(212,148),36,1,.9,.62,1.1:r┬(60,192),54,1,.5,.67,.9:С┬(194,192),54,1,.5,.62,.87:┐╞"BM20,168F2R6BD4BR74F4R44E4BU4BR70R12E4":╥├(128,176),R,1:ф├(128,79),R,1:Ў├(128,82),1,1;	├(128,190),1,1;├(250,2),1,1;=Т178,30:├(40,8),,1:├(90,30),,1;h ├(130,18),,1:├(160,18),,1:├(200,18),,1;"Т178,0:├(20,4),R,1;С$├(250,34),R,1;┤&╞"BM20,126C4U90R40BR170BD8D80"<(╚4,1:АI│1е12:┬(70,0),56лI,1,1.9,.25,((38лI)о100):┬(186,0),56лI,1,1.9,((50м(38лI))о100),.25:Л<X*АI│22е31й3:┬(44,148),I,0,.9,.2,.9:┬(214,148),I,0,.9,.62,.35:ЛI<Ж,╚4,1:SR$│"C1NE20NH20NU5NR5NL5ND5NG20NF20"<Ы.╞"BM150,160"лSR$<п0╞"BM75,108"лSR$<█2АI│1е350:W│ Д(190)л30:U│ Д(110)л45:╚3,1<ї4Е  а(Wл1,U)│Rл4 з 568=6╚4,1:╜(W,U)=8Л I:╚4,1=7:SR$│"C1NU5ND5NL5NR5NE2NF2NG2NH2"=K<╞"BM110,50"лSR$=_>╞"BM150,60"лSR$=r@╞"BM60,70"лSR$=ЖB╞"BM190,65"лSR$=нD╞"BM128,130C1NH22NE22BD16NH20NE20"=╧FX$│ Т:Е X$│ Л(13) з 84 :Д 582=шX╚4,1:╝0:┐1,1:╚3,1:╝2>lZ╞"C1BM112,66M90,32M8,32M14,40M78,40M82,46M20,46M26,54M86,54M90,60M32,60M38,68M94,68M112,94M150,32M104,32M110,40M128,40M112,66" ?)\╞"BM230,60M182,60M186,54M236,54M242,46M190,46M194,40M248,40M254,32M184,32M166,60M154,60M166,40M172,40M177,32M158,32M116,100M124,110M150,68M162,68M132,118M140,128M176,68M224,68M230,60" ?Т^╞"BM14,40M30,46BM26,54M42,60BM38,68M54,74M96,74BM112,93M116,96BM90,32M104,40M116,58BM150,32M154,35" @#`╞"BM177,32M182,36BM172,40M177,44BM166,40M172,44NR4M161,60BM236,54M220,60BM248,40M232,46BM224,68M208,74M184,74M176,68M184,74M150,132M140,128"@|b╞"BM124,110M130,112M154,74NR4M149,68BM186,54M194,60BM194,40M202,46BM110,40M120,44R4"@Нd├(30,38),3,1@Яf├(220,38),3,1@▓h├(128,118),2,1@─j├(172,50),4,1@╓l├(168,52),4,1@цn├(2,22),4,1ApА U│1е4:╟ U е Uл4:Л UA	r╚3,5At├(172,50),1,1A-v├(168,52),1,1A=x├(2,22),1,1AWz╚3,5:┐1,0:АI│1е900:ЛIAp|X$│ Т:ЕX$│ Л(13)з 84AК~╚4,1:┐1,1:АI│1е900:ЛIAгАX$│ Т:ЕX$│ Л(13)з 84A╜В╚3,5:┐1,1:АI│1е900:ЛIA╓ДX$│ Т:ЕX$│ Л(13)з 84AрЖБе634B
╝Е R│3 з RC│2 :Д Е R│2 з RC│3B╛╚4,1:╝1:┐1,1BБ└╞"BM86,30C0U10H10R8F6E6R8G10D10L8BR30U20R20D4L14D4R14D4L14D4R14D4NL20BR18R20U12L16U4R16U4L20D12R16D4L16D4"BТ┬├(90,27),0,0Bд─├(120,27),0,0B╢╞├(160,27),0,0B╠╚┬(128,96),60,0,.6Bў╩╞"BM128,96C0ND34M169,71BM128,96M87,71"C╠┬(128,96),82,0,.6,.85,.67CE╬╞"BM128,96BH30H10L4F10BM128,96BE30E10R4G10"Cb╨╗(116,144)м(140,176),╜,BCl╥┴ 1,0CК╘╗(117,143)м(139,146),╜,BFCЭ╓├(140,140),0,0C║╪╗(126,131)м(130,188),╛,BC╪┌╗(127,132)м(129,187),╜,BFCё▄╗(26,95)м(68,97),╛,BD▐╗(28,96)м(66,96),╜D#р╗(230,95)м(188,97),╛,BD<т╗(228,96)м(190,96),╜DEф╚3,1DYц├(140,140),RC,4Dbш╚4,1Dxъ┬(128,96),60,0,.6DБь╚3,1DЧю┬(128,96),60,1,.6D┬Ё╞"C1BM128,96ND34M169,71BM128,96M87,71"D╨Є╟2е7:╟3е8DрЇА I│1 е 240DєЎ╟7е5:╟8е6:╚3,4E°├(128,92),1,1E·Т178,IE №├(84,78),,1E-■Т178,Iл2E>├(172,78),,1EL╟5е2:╟6е3EnX$│ Т:Е X$│ Л(13) з 84 :Д Л IExБе756EЙ ╚4,1:╝0:┐1,1Eа"┬(128,96),94,1,.85E╖$┬(128,96),90,1,.85E╔&├(128,18),1,1F(╞"C0BM40,120NF14DNF14DNF14DNF14DNF14C1BU10F14U10F4D16H14"F*├(50,126),1,1F?,АI│64е140:╗(200,I)м(230,Iл12),╛:ЛFZ.╗(10,24)м(110,80),╛,BFFК0╚3,1:АI│0е3:┬(128,96мI),94лI,3,.85,.6,.67:ЛF№2╞"C4BM50,50E16LE10D2NG10DNG10DNG10DNG10U4NR8DNR8DNR8DNR8DR8NE8UNE8UNE8BM50,50ND8L2D8BD4BR4E6D6LNU6LNU4LNU2D2"G4╞"BR8BU4E4RNG4RD3R4NE6RE6U3"Gh6АI│1е5:╚4,1:┬(128,96),66лI,1,.85,.53,.6:┬(128,96),76лI,1,.85,.54,.55:ЛGЗ8M$│"R4DNL6R6DDNL4R12UR6UR4Gж:╞"BM90,30"лM$л"BM90,31"лM$G┼<╞"BM96,40"лM$л"BM96,41"лM$Gц>╞"BM110,50"лM$л"BM110,51"лM$H@╞"BM114,60"лM$л"BM114,61"лM$H(B╞"BM112,70"лM$л"BM112,71"лM$HFD╞"BM106,82U4RD4RU4ED4EU4"H_F╞"BM72,40E2RG2RE2D2"HЯH╞"BM48,94NF16RNF16RNF16RNF16RF16NL4DNL3R4DNL5R2NU6RNU6RNU6"H╞JАI│93е95:┬(106,I),40,1,.5,.2,.4:ЛIHёLАI│103е106:┬(148,I),20,1,1.1,.2,.48:ЛIINАI│128е131:┬(170,I),20,1,.4,.6,.95:ЛIIEPАI│122е124:┬(199,I),20,1,.4,.1,.38:ЛIIвR╞"BM204,134NF10RNF10RNF10RF10NR10UNR10UR10NH8RNH8RNH8RH8BL6BU4NR8UNR8UNR8UR8NH5UNH5UNH5"I№TАI│92е94:┬(127,I),30,1,.4,.6,.9:┬(164,Iл8),26,1,.8,.65,.85:┬(190,Iл4),28,1,.6,.67,.85JUV┬(190,Iл14),30,1,.6,.7,.9:┬(178,Iл50),30,1,1.8,.75,.9:┬(180,Iл53),30,1,1.8,.75,.9:ЛIJ╝X╞"BM204,118NR6DR6DL4R6DL4R6BM204,84NE5RNE5RNE5RNE5BR4BD2NE5RNE5RNE5RNE5BD2BL4F4R4E4DG4L4H4DF4R4E4"KZАI│1е3:┬(170,72лI),17,1,.6,.5,.99:┬(150,48лI),17,1,.6,.6,1.1:┬(177,58лI),17,1,.6,.7,.99:ЛK#\╚4,1Kk^АY│0е176й176:АI│0е10й10:╗(10лI,Yл7мIо10)м(245мI,Yл7лIо10),╜,BF:ЛI,YKН`АI│1е256й2:╗(I,0)м(I,192),╛:ЛKгbАI│84е87:I$│ И(I)L9d╞"BM"лI$л",146S5U4H3U3BR6BDU3H2BD16BR10U4H2U4E4BR6BD6F2D8BU12U4E3BU2BR4F4D2G2BD2BR4G4D2BD4BR3ND4E7U4BR6NE3D3BR8ND6BR6E4U2BR4BD6D4G2D4BL18BD4U6S4"L@fЛILehАI│80е177й2:╗(I,128)м(I,158),╛:ЛLТj╗(10,96)м(28,96),╜:╗(20,95)м(28,97),╜,BFL├l╗(245,96)м(225,96),╜:╗(225,95)м(235,97),╜,BFL▌n╗(68,18)м(185,0),╛,BFLцp╚3,1Mgr╞"BM74,12C4R6U4NL4U4NL6BR6D8R6U4NL6U4NL6BR14NR6D4R6D4NL6BR6U8R6D4L6D4BR12NR6U4NR6U4R6BR6NR6D8R6BR6NU8BR6U8R6D4NL6D4BR6NU8R6"MОt╚4,1:АI│68е184й2:╗(I,0)м(I,18),╛:ЛM╚vАI│0е30й2:╗(I,93)м(I,97),╛:╗(Iл224,93)м(Iл224,97),╛:ЛMщxX$│ Т:ЕX$│ Л(13) з 84 :Д 888MЄД╚3,1M■Ж╝1:┐1,0NИА Y│1 е 255N&КW│ Д(2)л2:Q│ Д(2)м1N2М╚3,5:╝1NmОA$│"L8D12F4G8H8E4U36E12F12D36F4G8H8E4U12BU8U10H8D18R8"NСРC$│"H12U36E12F12G8H6D32E6F8G12"N╟ТD$│"H8E4U36H4E8R14F8D44G8L14BU9BR4U42R5F4D34G4L5"N╥Ф╞ "C2"NцЦ╞"S8BM42,90"лA$N∙Ш╞"BM90,138"лC$O
Ъ╞"BM150,138"лD$O!Ь╞"BM226,138"лC$OYЮ╞"BM136,50L10G6R4G6R4G6M122,70L3M130,60L3M136,50S4"OdаТ178,YOtв├(30,30),,2OДд├(90,24),,2OХж├(120,54),,2Oжи├(150,24),,2O╖к├(230,24),,2O╙мА U│1 е 4:╟ Uл4 е U:Л UOто╚ 3,1:┐1,QO¤░X$│ Т:Е X$│ Л(13) з 84P▓Л YP┤Бе900P╢└8:Бе22лC$OYЮ╞"BM136,50L10G6R4G6R4G6M122,70L3M130,60L3M136,50S4"OdаТ178,YOtв├(30,30),,2OДд├(90,24),,2OХж├(120,54),,2Oжи├(150,24),,2O╖к├(230,24),,2O╙мА U│1 е 4:╟ Uл4 е U:Л UOто╚ 3,1:┐1,QO¤░X$│ Т:Е X$│ Л(13) з 84P                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ь&:Г<LISTING2>&
Ю&5З @72, "BETTY ANN WHITE"&SЗ @106, "1303 3RD ST"    &uЗ @134, "KIRKLAND, WA. 98033"&}З:З&фЗ "  HAPPY BIRTHDAY WAS CREATED BY BETTY ANN WHITE ON JANUARY 2,   1984 AND REVISED ON JANUARY 6."&ъЗ'З:Й "         PRESS <ENTER>"; E$'	Ю':
З:З:З:З:Й" WHAT IS YOUR NAME";N$'@З'[З"        HELLO "N$"!"'aЗ'|Й " HOW OLD ARE YOU";A'▓З:З"   WELL, I HAVE NEWS FOR YOU!":А Z│1 е 2000:Л'╫ Ю:З@ 131,"HAPPY BIRTHDAY TO YOU!'є!╔"O1;G;G;A;G;O2;C;O1;B"("З@ 195, "HAPPY BIRTHDAY TO YOU!"(2#╔ "O1;G;G;A;G;O2;D;C"(Y$З@259,"HAPPY BIRTHDAY DEAR " N$"!"(Щ%╔ "O1;G;G;O2;G;E;C;O2;B;A"                                 (╜&З@323, "HAPPY BIRTHDAY TO YOU!"(╘'╔ "O2;F;F;E;C;D;C"(ч(А Z│1 е 1000:Л(Ё-Ю(0))2А H│15 е 48:А V│16 е 23:Ь(H,V,7):Л V,H)(<З@302,A;)SFА H│30 е 33:А V│ 10е 15:Ь(H,V,2):Л V,H)cxА H│10 е 53)qВЬ(H,23,1))yМЛ H)П┘╔"O2;F;F;E;C;D;C")▓▄Ь (32,7,8):Ь(32,8,8):Ь(31,9,8))╬цЭ(32,7):Э(32,8):Э(31,9))рыА Z│1 е 100:Л)ыЁБе 2200))2А H│15 е 4                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 V&
:Г     Banker&:Г&/:Г Bank-by-phone&6(:Г&X2:Г (C) 1984 By Sugar Software&w<:Г   Written by Gary Davis&УF:Г       2153 Leah Lane&╡P:Г Reynoldsburg, Ohio   43068&╨Z:Г      (614) 861-0565&╫d:Г&Ўn:ГBanker is set up for the'x:ГHuntington Banks (Columbus)'6В:ГPay-By-Phone system. It'XМ:Гrequires a Hayes Smartmodem'vЦ:Гbut may be modified for'Ча:Гother banks and other auto'▒к:Гdial (tone) modems.'╕┤:Г'╤╛Т150,180::Г 300 BAUD'ч╚DV│м2::Г TO MODEM(	╥:ГAllow output to serial line(*▄:Гwithout waiting for READY.(VцA│65314:Т Aл1,48:Т A,249:Т Aл1,52:Т A,0(]Ё:Г(y·RET$│ Л(13):BKSP$│ Л(8)(У
UP$│ Л(94):DN$│ Л(10)(Ъ
:Г(╕
М VENDORNUM$(15),SEL$(15)(┐
":Г(▄
,:ГCommands to init modem(°
6BUFFER$│"S11=50E0M2TQ1")
@Бж 1340 :Г Init modem)S
JPHONENUM$│"TD 555-3291;"  :Г Insert your bank's number here!)]
TSEL│1)h
^Бе 530)o
h:Г)Р
rSEL$(1)│"DIAL BANK COMPUTER")╢
|SEL$(2)│"TRANSMIT ACCOUNT NUMBER")▌
ЖSEL$(3)│"TRANSMIT SECURITY NUMBER")ї
РSEL$(4)│"PAY BILLS"*

ЪSEL$(5)│"REPEAT"*4
дSEL$(6)│"REQUEST OPERATOR ASSISTANCE"*P
оSEL$(7)│"HANG UP PHONE"*y
╕SEL$(8)│"SETUP FOR PRACTICE SESSION"*н
┬Е PRACTICE│1 з SEL$(8)│"SETUP FOR REAL SESSION"*╦
╠SEL$(9)│"RETURN TO BASIC"*Є
╓NUMSEL│9:Бж 1390  :Г GET SELECTION+'
рИ SEL Бе 620,700,760,820,1110,1170,1230,530,1290+2
ъБе 470+9
Ї:Г+M
■:ГSetup session+T:Г+ХЮ:З "ENTER SECURITY CODE, OR enter   FOR PRACTICE SESSION ";+жЗ "(     )";+─&BL│1:MAXDG│4:Бж 1600:BL│0+▄0Е  З(FLD$)▓0 Бе 580,:PRACTICE│1:ACCT$│"D111111111#;":PIN$│"D2222#;":Бе 370,VDPRACTICE│0:ACCT$│"D02893206721#;":PIN$│"D"лFLD$л"#;":Бе 370,]N:Г,mX:ГDial bank,tb:Г,ШlЗ @484,"DIALING BANK COMPUTER";,оvBUFFER$│PHONENUM$,║АБж 1340,╧КА X│1 е 2000:Л X,фФSEL│SELл1:Бе 470,ыЮ:Г,№и:ГSend acct#-▓:Г-╝BUFFER$│ACCT$-!╞Бж 1340-,╨Бе 660-3┌:Г-Bф:ГSend ID#-Iю:Г-Z°BUFFER$│PIN$-fБж 1340-qБе 660-x:Г-Е :ГSelect-М*:Г-╩4SEL$(1)│"0900 TRNSFR SVNGS TO CHKNG":VENDORNUM$(1)│"0900".>SEL$(2)│"1000 TRNSFR CHKNG TO SVNGS":VENDERNUM$(2)│"1000".GHSEL$(3)│"1033 TRNSFR TO CHKNG RESERV":VENDERNUM$(3)│"1033".tRSEL$(4)│"1600 VISA":VENDORNUM$(4)│"1600".ж\SEL$(5)│"3000 OHIO BELL":VENDORNUM$(5)│"3000".▀fSEL$(6)│"3010 C&SOE (ELECTRIC)":VENDERNUM$(6)│"3010"/pSEL$(7)│"4000 PENNYS":VENDORNUM$(7)│"4000"/<zSEL$(8)│"4100 SEARS":VENDORNUM$(8)│"4100"/lДSEL$(9)│"4300 LAZARUS":VENDORNUM$(9)│"4300"/йОSEL$(10)│"     NO MORE BILLS TO PAY":VENDORNUM$(10)│"02"/│ШSEL│1/┴вNUMSEL│10/═мБж 1390/Є╢BUFFER$│"D"лVENDORNUM$(SEL)л"#;"/■└Бж 13400(╩Е VENDORNUM$(SEL)│"02" з SEL│7:Бе 3700L╘З @480,"ENTER AMT (EX: 50.00)";0_▐З "(       )";0sшMAXDG│6:Бж 16000ИЄBUFFER$│"D"лFLD$0░№З @480,"DATE TO PAY (EX: 22=22ND)";0┐З "(   )";0╙MAXDG│2:Бж 16001Е FLD$│"" з BUFFER$│BUFFER$л"#;" :Д BUFFER$│BUFFER$л"*"лFLD$л"#;"1%$Бж 134010.Бе 930178:Г1DB:ГRepeat1KL:Г1]VBUFFER$│"D#;"1i`Бж 13401tjБе 4701{t:Г1П~:ГRqst operator1ЦИ:Г1йТBUFFER$│"D0#;"1╡ЬБж 13401└жБе 4701╟░:Г1╒║:ГHang up1▄─:Г1ь╬BUFFER$│"H"1°╪Бж 13402тSEL│9:Бе4702ь:Г2Ў:ГReturn2#:Г2)
Ю2/К26:Г2H(:ГSend buffer2O2:Г2m<BUFFER$│"AT"лBUFFER$лRET$2~FЗ#DV,BUFFER$2ДPР2ЛZ:Г2Юd:ГMenu display2дnЮ2╟xЗ "     PAY-BY-MICRO TERMINAL"3"ВЗ "MAKE YOUR SELECTION BY USING THEUP AND DOWN ARROW KEYS AND THEN HIT THE enter KEY."34МЗ  б(32,243);3GЦА X│1 е NUMSEL3\аЗ "( ) ";SEL$(X)3dкЛ X3}┤Е SEL│0 з SEL│NUMSEL3Ц╛Е SEL▓NUMSEL з SEL│13╕╚З @(SELм1)н32л1л5н32, Л(182);3╥╥C$│ Т:Е C$│"" Бе 14903√▄Е C$│ Л(12) з BUFFER$│"D*#;":Бж 13404 цЕ C$│"?" з BUFFER$│"D#;":Бж 13404:ЁЕ C$│RET$ ░ SEL▓0 з Р4Z·Е C$┤▓UP$ ░ C$┤▓DN$ Бе 14904xЗ @(SELм1)н32л1л5н32," ";4ЮЕ C$│UP$ з SEL│SELм1 :Д SEL│SELл14кБе 14604▒":Г4├,:ГEnter field4╩6:Г4█@FLD$│"":DG│14¤JA│ Ж(&H88)н256л Ж(&H89)м&H4005
TA│Aм2мMAXDG5^З@A,;5ChЗ Л(175);:D$│ Т:ЗBKSP$;:Е D$│"" Бе 16405ВrЕ D$│BKSP$ ░ DG▓1 з DG│DGм1:FLD$│ О(FLD$,DG):З D$;:Бе 16405д|Е DG▓MAXDG ░ D$┤▓RET$ Бе 16405╢ЖЕ D$│RET$ з Р5╘РЕ D$│"." ▒ D$│"*" Бе 17105ЄЪЕ D$┤"0" ▒ D$▓"9" Бе 16406дЕ BL│1 з З Л(214);:Бе17206оЗ D$;60╕Е D$│"." з D$│"*"6I┬FLD$│FLD$лD$:DG│DGл16U╠Бе 16401 з DG│DGм1:FLD$│ О(FLD$,DG):З D$;:Бе 16405д|Е DG▓MAXDG ░ D$┤▓RET$ Бе 16405╢ЖЕ D$│RET$ з Р5╘РЕ D$│"." ▒ D$│"*" Бе 17105ЄЪЕ D$┤"0" ▒ D$▓"9" Бе 16406дЕ BL│1 з                                                                                                                                                                                                                                                                 ■&Х 500:AR│0:Бе260&dAR│1:PI│ Б(PSоSл.5):АX│255е0 ймPS:P│мSн(256мX):A│0:B│0:PS$│"":АY│191е0йм1&╣Е а(X,Y)┤▓CL з Е A│0 з B│BлS:Бе100::Д PS$│PS$л"J"л И(A)л","л Л(13):A│0:B│S:Бе100&°ЕB│0 з A│AлS:Бе100::Д PS$│PS$л"R"л И(B)л","л Л(13):B│0:A│S& dЛY'(nЕ B▓0 з PS$│PS$л"R"л И(B)л","л Л(13)'ExЕ B│192нS з PS$│"":Бе140'nВЕ A▓0 з PS$│PS$л"J"л И(A)л","л Л(13)'аМА I│1 е PI:З#м2,"M"BD","P:З#м2,PS$:P│Pм1:ЛI,X'№╚Ю:З"ANOTHER PASS WITH OTHER COLORS            Y/N ":R$│  Т:Е R$│"Y" з Бе 300 :Д а 10,10(╥Е R$│"N" з 220 :Д 200(2▄З#м2,"M0,-100":З#м2,"A"(HцТ 150,87:Т65494,0(\ЁЮ:З"FINISHED":К(Ч
Ю:З"CGP-115 SCREEN DUMP":З:Й"DRAW TEST PATTERN Y/N";R$(н
Е R$│"Y" з Бж 480(┐
PS│5м Ж(&HB6)(Ї
"Ю:Й"PLOTTING SCALE 1X OR 2X";S:Е S┤1 ▒ S▓2 з 290)
'S│ Б(S))
,Ю)═
6Е PS│2 з З"PMODE 3 COLORS                  0=BLACK                         1=GREEN       5=BUFF            2=YELLOW      6=CYAN            3=BLUE        7=MAGENTA         4=RED         8=ORANGE"*%
@Е PS│1 з З"PMODE 4 COLORS                  0=BLACK       5=BUFF            1=GREEN"*T
JЗ:Й"COLOR TO SENSE";CL:Е CL┤0 ▒ CL▓8 з 330*Х
TЮ:З"0=BLACK           1=BLUE        2=GREEN           3=RED"*╧
^З:Й"DRAW WITH WHICH COLOR PEN";CP:Е CP┤0 ▒ CP▓3 з 350*ы
hЕ AR│1 з З#м2,"H":Бе440+
rBD│(480м192нS)о2+
ЖТ 65495,1+
РТ 150,180+,
ЪЗ#м2, Л(18)+A
дЗ#м2,"M0,-300*S"+N
оЗ#м2,"I"+]
╕З#м2,"C"CP+k
╜┐1,1:╚3,1+s
┬Бе5+Н
╓:ГARGYLE TEST PATTERN+з
█:ГPLACE GRAPHICS HERE+╔
▄:ГOR LOAD PICTURE INTO MEMORY+█
р╚ 3,1:╝: ┐1,1+х
ъ┴ 8,5+№
Ї╗(0,0)м(255,192),╜,
■╗(128,0)м(255,96),╜,,╗(0,96)м(128,192),╜,B╗(128,0)м(0,96),╜,Y╗(255,0)м(0,192),╜,s&╗(255,96)м(128,192),╜,╠0├(32,48),6,8:├(128,48),6,8:├(224,48),6,8:├(32,144),6,8:├(128,144),6,8:├(224,144),6,8,ы:├(64,96),5,8:├(192,96),5,8-'D├(64,20),7,8:├(192,20),7,8:├(64,164),7,8:├(192,164),7,8-?N╗(64,0)м(255,144),╜-WX╗(192,0)м(255,48),╜-ob╗(0,48)м(192,192),╜-Зl╗(0,144)м(64,192),╜-Юv╗(192,0)м(0,144),╜-│А╗(64,0)м(0,48),╜-╠К╗(255,48)м(64,192),╜-чФ╗(255,144)м(192,192),╜-ўЩАT│1е750:ЛT-¤ЮР92,20),7,8:├(64,164),7,8:├(192,164),7,8-?N╗(64,0)м(255,144),╜-WX╗(192,0)м(255,48),╜-ob╗(0,48)м(192,192),╜-Зl╗(0,144)м(64,192),╜-Юv╗(192,0)м(0,144),╜-│А╗(64,0)м(0,48),╜-╠К╗(255,48)м(64,192),╜-чФ╗(255,144)м(192,192),╜-ўЩАT│1е750:ЛT-¤ЮР ╝&(
З"----------GARAGE SALE----------"&hЗ:З:З"COPYRIGHT (C) SEPT.20,1983        BY EDWARD R CARSON"&ВЗ"   CENTERBURG,OHIO"&ЦА T│1 е 900:Л T&▓Ю:М A$(95):Бж 145:Бж785&щЮ:З "DO YOU WANT (1)SMALL (2)MEDIUM (3)LARGE":Й CH'WЕ CH │1 з Y│м16:YY│16:XX│12:S│1 :Д Е CH│2 з Y│м32:YY│32:XX│24:S│2 :Д Е CH│3 з Y│м64:YY│64:XX│48:S│4 :Д 15'ы#Е CH│1 з Ю:З "ENTER NEXT LINE(21 CHARACTERS)" :Д Е CH│2 з Ю:З "ENTER NEXT LINE (10 CHARACTERS)" :Д ЕCH│3 з Ю:З "ENTER NEXT LINE (5 CHARACTERS)"'■-A$│"":╗ Й A$:Ю(7Е A$│"" Бе 35( A╚ 4,1:┐ 1,0(6K┴ 0,1:Е Y│мYY з ╝(`UY│YлYY:P│0:А X│0 е ( З(A$)м1)нXX й XX(З_XY$│"S"л И(S)л"BM"л И(X)л","л И(Y)(вiP│Pл1:N│ К( Р(A$,P,1))(▓s╞ XY$лA$(N)(╕}Л(яЗA$│ Т:Е A$│ Л(13) з 35 :Д Е A$│ Л(12) з 935 :Д 135)СA$(33)│"BR16R8D40L8U40BD48R8D8L8U8")?ЫA$(34)│"BR8R8D24L8U24BR16R8D24L8U24)ЯеA$(35)│"BR8R8D16R8U16R8D16R8D8L8D8R8D8L8D16L8U16L8D16L8U16L8U8R8U8L8U8R8U16BD24BR8R8D8L8U8")№пA$(36)│"BR16R8D8R16D8L16D8R8F8D8G8L8D8L8U8L16U8R16U8L8H8U8E8R8U8BD16D8H4E4BD16BR8F4G4U8"*;╣A$(37)│"R16D16L16U16BD4BR40G49D8E49U8BD36BL16R16D16L16U16"*Э├A$(38)│"BR8R8F8D16G4F8E4R8D8G4F4D8L8H4G4L16H8U16E4H4U16E8BD8BR4F4D8G4H4U8E4BD24F12G4L8H4U8E4"*╣═A$(39)│"BR16R8D24L8U24"*с╫A$(40)│"BR16R8G16D24F16L8H16U24E16"+	сA$(41)│"BR16R8F16D24G16L8E16U24H16"+OыA$(42)│"BR16R8D16E8R8D8G12F12D8L8H8D16L8U16G8L8U8E12H12U8R8F8U16"+БїA$(43)│"BD24R16U16R8D16R16D8L16D16L8U16L16U8"+е A$(44)│"BD32BR16R8D16G8L8E8U16"+┴
	A$(45)│"BD24R40D8L40U8"+▀
A$(46)│"BD48BR16R8D8L8U8"+■
A$(47)│"BD4BR40D8G40U8E40",K
'A$(48)│"BR8R24F8D40G8L24H8U40E8BD8BR4R16F4G24U24E4BD12BR20D24G4L16H4E24",v
1A$(49)│"BR16R8D48R8D8L24U8R8U32L8U8E8",п
;A$(50)│"BR8R24F8D8G32R32D8L40U8E32U4H4L16G4D4L8U8E8"-
EA$(51)│"BR8R24F8D16G4F4D16G8L24H8U8R8D4F4R16E4U8H4L8U8R8E4U8H4L16G4D4L8U8E8"-<
OA$(52)│"BR24R8D32R8D8L8D16L8U16L24U16E24BD8D24L16U8E16"-{
YA$(53)│"R40D8L32D8R24F8D24G8L24H8U8R8D4F4R16E4U16H4L28U24"-╩
cA$(54)│"BR8R24F8D8L8U4H4L16G4D12R24F8D16G8L24H8U40E8BD32R20F4D8G4L16H4U12"-Ё
mA$(55)│"R40D8G32D16L8U16E32L32U8".Q
wA$(56)│"BR8R24F8D16G4F4D16G8L24H8U16E4H4U16E8BD8BR4R16F4D8G4L16H4U8E4BD24R16F4D8G4L16H4U8E4".г
БA$(57)│"BR8R24F8D40G8L24H8U8R8D4F4R16E4U12L24H8U16E8BD8BER4R16F4D12L20H4U8E4".═
ЛA$(58)│"BD16BR16R8D8L8U8BD16R8D8L8U8".¤
ХA$(59)│"BD16BR16R8D8L8U8BD16R8D16G8L8E8U16"/
ЯA$(60)│"BR34D8G20F20D8H28E28"/I
йA$(61)│"BD16R40D8L40U8BD16R40D8L40U8"/j
│A$(62)│"BR7F28G28U8E20H20U8"/о
╜A$(63)│"BR8R24F8D8G16D8L8U8E16U4H4L16G4D4L8U8E8BD48BR8R8D8L8U8"/є
╟A$(64)│"BR8R24F8D24G8L16U24R8D8R8U12H4L16G4D32F4R28D8L32H8U40E8"02
╤A$(65)│"BR16R8F16D40L8U24L24D24L8U40E16BD8BR4F12D4L24U4E120|
█A$(66)│"R32F8D16G4F4D16G8L32U56BF8R20F4D8G4L20U16BD24R20F4D8G4L20U16"0╗
хA$(67)│"BR8R24F8D8L8U4H4L16G4D32F4R16E4U4R8D8G8L24H8U40E8"0ь
яA$(68)│"R32F8D40G8L32U56BF8R20F4D32G4L20U40"1
∙A$(69)│"R40D8L32D16R24D8L24D16R32D8L40U56"1DA$(70)│"R40D8L32D16R24D8L24D24L8U56"1Й
A$(71)│"BR8R24F8D8L8U4H4L16G4D32F4R16E4U4L8U8R16D16G8L24H8U40E8"1╖A$(72)│"R8D24R24U24R8D56L8U24L24D24L8U56"1ф!A$(73)│"BR8R24D8L8D40R8D8L24U8R8U40L8U8"2+A$(74)│"BR32R8D48G8L24H8U8R8D4F4R16E4U44"2=5A$(75)│"R8D24E24R8G28F28L8H24D24L8U56"2[?A$(76)│"R8D48R32D8L40U56"2ПIA$(77)│"R8D12F12E12U12R8D56L8U36G12H12D36L8U56"2╜SA$(78)│"R8D12F24U36R8D56L8U12H24D36L8U56"2№]A$(79)│"BR8R24F8D40G8L24H8U40E8BD8BR4R16F4D32G4L16H4U32E4"31gA$(80)│"R32F8D16G8L24D24L8U56BF8R20F4D8G4L20U16"3|qA$(81)│"BR8R24F8D36G4F4G4H4G4L20H8U40E8BD8BR4R16F4D32H4G4F4L16H4U32E4"3╣{A$(82)│"R32F8D16G8L16F24L8H24D24L8U56BF8R20F4D8G4L20U16"4
ЕA$(83)│"BR8R24F8D8L8U4H4L16G4D8F4R20F8D16G8L24H8U8R8D4F4R16E4U8H4L20H8U16E8"4-ПA$(84)│"R40D8L16D48L8U48L16U8"4YЩA$(85)│"R8D44F4R16E4U44R8D48G8L24H8U48"4ЕгA$(86)│"R8D36F12E12U36R8D40G16L8H16U40"4╣нA$(87)│"R8D36E12F12U36R8D56L8U12H12G12D12L8U56"4 ╖A$(88)│"R8D12F12E12U12R8D16G12F12D16L8U12H12G12D12L8U16E12H12U16"51┴A$(89)│"R8D12F12E12U12R8D16G16D24L8U24H16U16"5_╦A$(90)│"R40D12G32D4R32D8L40U12E32U4L32U8"5Г╒A$(91)│"R40D8L24D40R24D8L40U56"5Ю▀A$(92)│"BD4F40D8H40U8"5┬щA$(93)│"R40D56L40U8R24U40L24U8"5фєA$(94)│"BD34E20F20D8H20G20U8"6¤A$(95)│"BD48R40D8L40U8"6Р6Ю6Z$│ б(32,"$")6'%З Z$6>/З@42,"GARAGE SALE"6G9З Z$6dCЗ "HOW MANY ARE SELLING"6lMЙ S6zWА Y│1 е S6ХaЗ"NAME OF SELLER #"(Y)6бkЙ N$(Y)6╣uЕ (Y)│S з895 :Д 9256рЮ:З"DO YOU HAVE A MESSAGE? [Y/N]";6щЙЙ M$7
УЕM$│"Y" з 15 :Д 9357ЭY│Yл1:Бе 8657"зY│Yл1:Ю:ЗZ$76▒А X│1 е Sм1 й 67F╗А Z│X е Xл67T┼З Z;N$(Z)7\╧Л Z7d┘Л X7БуЗ"    INPUT SELLERS NO."7╚эЗ @417,"TYPE [99] TO TOTAL DAYS SALES   TYPE [91] TO RUN MESSAGE "7╨ўЙ N7°
Е N│99 з 1425 :ДЕ N│91 з 65 :Д1035 8Ю:З Z$8З"SALES FOR " N$(N)8$З Z$8?)З"PRICE OF ITEM";:Й PR8U3З"QUANTITY";: Й Q8[=З8ЙGИ N Бе 1105,1115,1125,1135,1145,1155,11658ЯQS1│S1лPRнQ:Бе11758╡[S2│S2лPRнQ:Бе11758╦eS3│S3лPRнQ:Бе11758сoS4│S4лPRнQ:Бе11758ўyS5│S5лPRнQ:Бе11759
ГS6│S6лPRнQ:Бе11759#НS7│S7лPRнQ:Бе11759,ЧЗ Z$9RбЗ"PRESS [ENTER] TO CONTINUE";:Й C9^лБе 12059|╡Ю:TS│S1лS2лS3лS4лS5лS6лS79У╢З@10,"HIT [ENTER]"9╢╖З@37,"IF SALE IS NOT COMPLETE"9╘┐З:З:З"TOTAL THIS SALE" TS9№╔З"AMOUNT TENDERED";:Й AT:Е AT│0з935:╙Ю:▌З@34,"TOTAL THIS SALE":8чЗ@98,"AMOUNT TENDERED":EёAC│ATмTS:b√З@161,"AMOUNT OF CHANGE":xЗ@52,═"###.##";TS:ПЗ@116,═"###.##";AT:гЗ@149, б(6,"-"):╣#З@181,═"##.##";AC:┼$Бе 1355:ь-S1│0:S2│0:S3│0:S4│0:S5│0:S6│0:S7│0;7З:З:З"PRESS ENTER TO CONTINUE";:Й F;AБе 935;,KL1│L1лS1;9UL2│L2лS2;F_L3│L3лS3;SiL4│L4лS4;`sL5│L5лS5;m}L6│L6лS6;ВЗL7│L7лS7:Бе 1325;ЮСЮ:З"TOTALS FOR THE DAY";дЫЗ;╞еЗN$(1)" =";:З@81,═"###.##";L1;щпЗN$(2)" =";:З@113,═"###.##";L2<╣ЗN$(3)" =";:З@145,═"###.##";L3</├ЗN$(4)" =";:З@177,═"###.##";L4<R═ЗN$(5)" =";:З@209,═"###.##";L5<u╫ЗN$(6)" =";:З@241,═"###.##";L6<ШсЗN$(7)" =";:З@273,═"###.##";L7<┤ъTS│L1лL2лL3лL4лL5лL6лL7<тыЗ:З"TODAYS TOTAL SALES =";:З═"$###.##";TS=їЗ"PRESS ENTER TO CONTINUE";:Й C=5 Ю:З"DO YOU WANT TO CHANGE MESSAGE?  [Y/N]"=f	З:З:З"TYPE [ R ] TO RERUN OLD MESSAGE":Й MZ$=КЕ MZ$│"Y"з 15:ДЕMZ$│"R"з65:Д935=▒S1│0:S2│0:S3│0:S4│0:S5│0:S6│0:S7│0=╗'Бе 65ODAYS TOTAL SALES =";:З═"$###.##";TS=їЗ"PRESS ENTER TO CONTINU                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 c&}Ю:╚3,1:╝:Х0:Х1500:МRA(1),LA(1),R(1),RX(1),B(12),P(2),MR(6),ML(6),S(3),SX(3),SA(24),N$(9):Y2│56:C│3:CS│1:SS│4000:M│1:Q│2&╓
Т248,50:Т249,98:Т250,28:Т251,175:Т252,126:Т253,173:Т254,165:Т410,126:Т411,0:Т412,248's┬(10,4),10,3,.50,.15,.85:┴3:╗(14,0)м(14,6),╜:├(10,6),2,3:╜(7,2,4):╜(11,2,4):┴4:╗(10,4)м(20,4),╜:╗(7,6)м(11,6),╜:╞"BM4,8D4R2BR4NU2R2":─(0,0)м(20,12),MR,G()┬(50,4),10,3,.50,.70,.40:┴3:╗(46,0)м(46,6),╜:├(50,6),2,3:╜(54,2,4):╜(50,2,4):┴4:╗(50,6)м(54,6),╜:╗(40,4)м(50,4),╜:╞"BM56,8D4L2BL4NU2L2":─(40,0)м(60,12),ML,G:╗(40,0)м(60,12),╛,BF(y┬(180,20),5,4,.6:╜(180,20,4):─(176,18)м(186,22),R,G:╗(176,18)м(186,22),╛,BF)╞"C4BM200,4NE2R12NH2":╜(200,5):╜(202,6):╜(212,5):╜(210,6):╜(198,4):╜(214,4):─(204,2)м(214,6),RA,G:─(198,2)м(208,6),LA,G:╗(198,2)м(214,6),╛,BF)h╞"C4BM200,6RFDGLHRFDGLHRFDGLHRFDGLHR4F2DL4":─(194,6)м(204,18),S,G:╗(194,6)м(204,18),╛,BF)ы┬(128,20),30,4,.30:╞"S6BM106,17ND4R4D2L2F2BR4E4F2NL2F2BR4U4NL2R2BR4NR2D2R2D2L2":─(100,12)м(156,28),SA,G:╗(98,12)м(158,28),╛,BF*ОАR│0е9:НN$(R):Л:ЖBR2D8R4U8NL4BR2,BR4NG2D8NR2L2BU8BR6,BR3R2F1DG4D2R4BU8BR2,BR2R4D4NL2D4NL4BU8BR2,BR2D4R4NU4D4BU8BR2,BR2NR4D4R4D4NL4BU8BR2,BR2NR4D8R4U4NL4BU4BR2*╨	ЖBR2R4D2G4D2BU8BR6,BR2NR4D4NR4D4R4U8BR2,BR2NR4D4R4NU4D4BU8BR2+М
╚1,1:╝:╞"S4C2BM128,20R20F12L20H12D16F12NU16R20U16C3BM66,42R10F6L10H6D4F6NU4R10U4":├(72,46),2,3:╜(68,46,2):╜(70,48,2):├(74,50),2,3:─(66,42)м(84,52),P,G:┼(192,88)м(210,98),P,▒:PR│0:PL│0+·╚3,1:├(130,14),2,2:├(158,20),2,2:─(128,10)м(160,24),B,G:Y│18:АX│108е22йм20:┼(X,Y)м(Xл32,Yл14),B,▒:Y│Yл8:Л,ХY│24:АX│140е50йм20:┼(X,Y)м(Xл32,Yл14),B,▒:Y│Yл8:Л:Y│38:АX│152е92йм20:┼(X,Y)м(Xл32,Yл14),B,▒:Y│Yл8:Л:Y│52:АX│164е122йм20:┼(X,Y)м(Xл32,Yл14),B,▒:Y│Yл8:Л-
Y│66:АX│176е142йм20:┼(X,Y)м(Xл32,Yл14),B,▒:Y│Yл8:Л:┼(188,80)м(220,94),B,▒:АY│0е28й14:┼(0,Y)м(20,Yл12),MR,▒:Л-╛╚1,M:╞"S12BM46,"л И(YP)л"ND4R2D2NL2BR2ND2U2R2D2L2F2BR2NR2U2NRU2R2BR2NR2D2R2D2NL2BR2R2U2L2U2R2BR6ND4R2D2NL2D2BR2U4F2ND2U2BR2F2ND2E2BR6D2NE2NF2D2BR4NR2U2NRU2R2BR2F2ND2E2":ЕYP│0з┐1,0.$Е Т│""з15:Д╚1,3:╝:╚1,1:╗(45,0)м(211,12),╛,BF:╚1,3:╟1е3:╟2е4:┴2:╗(218,0)м(238,12),╜,B:├(222,2),3,2.Ф╚1,3:╗(X2,Y2)м(X2л20,Y2л24),╛,BF:Y2│Y2м28:╟3е1:╟4е2:╚1,1:┼(138,4)м(158,28),MR,▒:X1│138:Y1│4:╔"T255V31":┐1,0.ь─(140,22)м(150,30),RX,G:─(82,124)м(92,148),SX,G:PB│0:X3│82:Y3│124:X4│140:Y4│22: Я│0/?X│ Н(0):Y│ Н(1):ЕX┤10░Y▓50Бж28:ДЕX▓50░Y▓50Бж30:ДЕX▓50░Y┤10Бж32:ДЕX┤10░Y┤10Бж34/ыЕB│1з20:ДЕ а(136,22)│C ░ а(116,38)│C ░ а(96,54)│C ░ а(76,70)│C ░ а(56,86)│C ░ а(36,102)│C ░ а(148,50)│C ░ а(128,66)│C ░ а(108,82)│C ░ а(88,98)│C ░ а(68,114)│C зA│1:B│10НЕA│1зЕ а(160,78)│C ░ а(140,94)│C ░ а(120,110)│C ░ а(100,126)│C ░ а(172,106)│C ░ а(152,122)│C ░ а(132,138)│C ░ а(184,134)│C ░ а(164,150)│C ░ а(196,162)│C зD│10╫ЕD│1зCS│CSл1:C│Cл1:╚1,3:├(222,2),Cл1,2:╚1,1:A│0:B│0:D│0:ЕC│4зC│1:ДC│30чЕ Я▓100Бж261d┼(204,2)м(214,10),RA,▒:┼(240,2)м(250,10),LA,▒:ЕPL│3░PR│3з╚1,3:PL│0:PR│0:┼(66,42)м(84,52),P,▒:┼(192,88)м(210,98),P,▒:╚1,11╕ЕSC│▓SS зSS│SSн2:Y2│Y2л28:╚1,3:┼(X2,Y2)м(X2л20,Y2л24),MR,▒:╚1,1:ЕY2│▓140зY2│1121╫Е Я▓210зSP│1:Бж40:Бе18:Д182Z┼(X4,Y4)м(X4л10,Y4л8),RX,░:ЕPB│6зX4│140:Y4│22:PB│0:─(X4,Y4)м(X4л10,Y4л8),RX,G:Р:ДЕ Д(2)│1зX4│X4м20:Y4│Y4л16:ДX4│X4л12:Y4│Y4л282═─(X4,Y4)м(X4л10,Y4л8),RX,G:┼(X4,Y4)м(X4л10,Y4л8),R,▒:╔"O3C":PB│PBл1:Е А(X1л2мX4)│0░ А(Y1л18мY4)│0зPB│0:Бе52:ДР3$X1│X1м20:Y1│Y1л16:ЕX1│18▒X1│50▒X1│82▒X1│114▒X1│146▒X1│178з50:Д╚1,3:├(X1,Y1л22),C,23И╟3е1:╟4е2:╚1,1:┼(X1м4,Y1)м(X1л16,Y1л24),ML,▒:╔"O1BB":SC│SCл(10нCS):─(X4,Y4)м(X4л10,Y4л8),RX,G:Р3рX1│X1л12:Y1│Y1л28:ЕX1│210▒X1│178▒X1│146▒X1│114▒X1│82▒X1│50з50:Д╚1,3:├(X1,Y1л22),C,24B╟3е1:╟4е2:╚1,1:┼(X1,Y1)м(X1л20,Y1л24),MR,▒:╔"O1BB":SC│SCл(10нCS):─(X4,Y4)м(X4л10,Y4л8),RX,G:Р4м X1│X1л20:Y1│Y1м16:ЕY1┤0зY1│0:Бе50::ДЕX1│194з38:ДЕX1│170▒X1│182▒X1│206▒X1│218з50:Д╚1,3:├(X1,Y1л22),C,25!╟3е1:╟4е2:╚1,1:┼(X1,Y1)м(X1л20,Y1л24),MR,▒:╔"O1BB":SC│SCл(10нCS):─(X4,Y4)м(X4л10,Y4л8),RX,G:Р5m"X1│X1м12:Y1│Y1м28:ЕY1┤0зY1│0:Бе50::ДЕX1│66з36:ДЕX1│86▒X1│46▒X1│26з50:Д╚1,3:├(X1,Y1л22),C,25╤#╟3е1:╟4е2:╚1,1:┼(X1м4,Y1)м(X1л16,Y1л24),ML,▒:╔"O1BB":SC│SCл(10нCS):─(X4,Y4)м(X4л10,Y4л8),RX,G:Р6|$ЕPL│3з50:ДPL│1:╚1,3:╗(66,42)м(84,52),╛,BF:╚1,1:АY1│Y1 е4йм4:X1│X1л4:╟3е1:╟4е2:┼(X1м4,Y1м4)м(X1л16,Y1л20),MR,▒:┼(X1м4,Y1л18)м(X1л14,Y1л28),P,▒:╔"O5ABCDCBABCDCBABCDCBA"6╠%ИPL Бж40,47:Л:╟3е1:╟4е2:┼(118,20)м(138,44),MR,▒:X1│118:Y1│20:PL│3:SP│0:Бе177_&ЕPR│3з50:ДPR│1:╚1,3:╗(192,88)м(210,98),╛,BF:╚1,1:АY1│Y1 е12йм8:X1│X1м2:╟3е1:╟4е2:┼(X1м4,Y1м4)м(X1л16,Y1л20),ML,▒:┼(X1,Y1л18)м(X1л18,Y1л28),P,▒7╚'╔"O5ABCDCBABCDCBABCDCBA":ИPR Бж40,46:Л:╟3е1:╟4е2:┼(146,32)м(166,56),ML,▒:X1│150:Y1│32:PR│3:SP│0:Бе177ї(ЕSP│0зР:Д┼(X3л2,Y3л2)м(X3л12,Y3л26),SX,░8О)Е А(X1мX3)│1░ А(Y1мY3)│м1зX3│X3л20:Y3│Y3м16:Бе43:ДЕ А(X1мX3)│м1░ А(Y1мY3)│м1зX3│X3м12:Y3│Y3м28:Бе43:ДЕ А(X1мX3)│1░ А(Y1мY3)│1зX3│X3л12:Y3│Y3л28:Бе438╛*Е А(X1мX3)│м1░ А(Y1мY3)│1зX3│X3м20:Y3│Y3л168ї+ЕX3│82▒X3│94▒X3│114▒X3│146▒X3│178зX3│X3л8:Y3│Y3м449,ЕX3│86зX3│X3м8:Y3│Y3л4495-─(X3л2,Y3л2)м(X3л12,Y3л26),SX,G9\.ЕX3│182▒X3│194зX3│X3:Y3│Y3л20:PR│29Ь/ЕX3│66зX3│X3:Y3│Y3л25:PL│2::ДЕPL│1░(X3│98▒X3│78)зPL│2:X3│669╟0┼(X3л2,Y3л2)м(X3л12,Y3л26),S,▒:╔"O3G#"9ъ1Е А(X1мX3)│0░ А(Y1мY3)│0з52:ДР:I2┐1,1:АY1│Y1 е190й10:╟3е1:╟4е2:┼(X1,Y1)м(X1л20,Y1л24),MR,▒:╔"O4AGGADEV-":Л:╔"V31":╟4е2:┐1,0;3SC$│ И(SC):ЕY2│м28з53:ДY9│12:АR│2е З(SC$):S$│N$( Й( Р(SC$,R,1))):╞"S4BM"л И(Y9)л",178"лS$:Y9│Y9л10:Л:АR│1е26:┴Q:╗(6,174)м(( З(SC$)н12),192),╜,B:╔"O1T5A#":Q│Qл1:ЕQ│3зQ│1:Л:ДЛ:Бе16;_4┼(X1м18,Y1м4)м(X1л38,Y1л28),SA,╜:АR│0е1:╔"T10O1BO4DP10O2EP20O4GP15O3AP5GAP5O1CT255":Л:Бе51<E5Y9│116:╚1,3:╝:╞"S16BM54,10GD4FR4EU4HNL4BD4F2BU3R4BRND3U3F6U6BRNR6D3NR3D3R6BRU6R6D3L6F3BR4U6R4FD4GL4S8C2BM76,50HL4GD4FR4EUHNL2BD3BR3U3E3F3NL5D3BR2U6F3E3D6BR2NR4U3NR2U3R4BR8BDD4FR4EU4HL4BR7D3F3E3U3BR2NR4D3NR2D3R4BR2U6R4D3L4F3S8=-6╞"C3BM96,74F3ND3E3BR2BDD4FR4EU4HL4BR7D5FR4EU5BR2ND6R4D3L4F3BM92,150FR4EUHL4HUER4FBR2D4FR4BU6NL4BR2BDD4FR4EU4HL4BR7ND6R4D3L4F3BR3NR4U3NR2U3R4C4":АR│2е З(SC$):S$│N$( Й( Р(SC$,R,1))):╞"BM"л И( Б(Y9м З(SC$)н4))л",105"лS$:Y9│Y9л14:Л=b7┐1,0:SC│0:Y2│56:M│3:YP│170:C│3:CS│1:SS│4000:Бе104EU4HL4BR7D5FR4EU5BR2ND6R4D3L4F3BM92,150FR4EUHL4HUER4FBR2D4FR4BU6NL4BR2BDD4FR4EU4HL4BR7ND6R4D3L4F3BR3NR4U3NR2U3R4C4":АR│2е З(SC$):S$│N$( Й( Р(SC$,R,1))):╞                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 _&_<Х 500:Т 150,18 :Г MOD TO CLEAR EXTRA STRING SPACE AND POKE CGP'S HIGHEST (2400) BAUD RATE&wFМ A$(3),D$(4),E$(6)&ВPБж 580&╫ZЮ:З"* C. G. B A N N E R *":З"BY DAVID STEYER":З"WITH CGP MODS BY DOUG LINDSAY":З'HdЙ"91 OR 132 COLUMN PRINTER (9/13)";LG:Е LG│9 з LG│91 :Д Е LG│13 з LG│132 :Д :ГCGP MOD FOR 91 COL. CAPABILITY'ТnЗ"CHARACTER HEIGHT (1-"; Б(LGо10)")";:ЙHH:Е HH┤1 ▒ HH▓ Б(LGо10) з 110($xЗ"CHARACTER WIDTH (1-10)":ЕLG│91 з З"(7 OR LESS RECOMMENDED)" :Г CGP MOD FOR SLIGHTLY WIDER CHARACTERS BECAUSE OF COMPACT BIT-IMAGE LINE FEED(AВЙWD:Е WD┤1 ▒ WD▓10 з 120(uМЙ"INVERSE (Y/N)";Y$:Е Y$│"Y" з Y$│" " :Д Y$│"1")AСЙ"COLOR (BK/R/G/Y/V/M/BL)";CL$:ЕCL$│"BK"зCL│48 :ДЕCL$│"R"зCL│49 :ДЕCL$│"G"зCL│50 :ДЕCL$│"Y"зCL│51 :ДЕCL$│"V"зCL│52 :ДЕCL$│"M"зCL│53 :ДЕCL$│"BL"зCL│54 :Д145 :Г CGP MOD LOADS PRINTER COLOR CODE INTO CL)oЦЗ"ENTER BANNER TEXT (32 CHARACTER LIMIT)")zа╗Й TX$)ЪкЕ TX$│"" ▒  З(TX$)▓32 з 150)и┤A$│A$(RY)*
╣LF$│ Л(18)л Л(13)л Л(30) :Г CGP MOD LOADS PRINTER CONTROL CODES FOR BIT-IMAGE LINE FEED INTO LF$*╛╚4,1:╝1:┐ 1,0*1╚Е Y$│" " з ╝0*E╥А I│1 е  З(TX$)*^▄A│ К( Р(TX$,I,1))м32*ЪцЕ A┤24 з RY│0 :Д Е A┤47 з RY│1 :Д Е A┤70 з RY│2 :Д RY│3*кЁA│Aм(RYн23)*╕·А X│0 е 4*╬
Е A│0 з Y│0:Бе280*¤
Y│ Й("&H"л Р(A$(RY),((Aм1)н10)л(Xн2)л1,2))+
D$(X)│"        "+9
"Е Y▓127 з Y│Yм128:D$(X)│"1       "+i
,Е Y▓63 з Y│Yм64:D$(X)│ О(D$(X),1)л"1      "+Ш
6Е Y▓31 з Y│Yм32:D$(X)│ О(D$(X),2)л"1     "+╞
@Е Y▓15 з Y│Yм16:D$(X)│ О(D$(X),3)л"1    "+ё
JЕ Y▓7 з Y│Yм8:D$(X)│ О(D$(X),4)л"1   ",
TЕ Y▓3 з Y│Yм4:D$(X)│ О(D$(X),5)л"1  ",D
^Е Y▓1 з Y│Yм2:D$(X)│ О(D$(X),6)л"1 ",f
hЕ Y▓0 з D$(X)│ О(D$(X),7)л"1",n
rЛ X,Д
|E$(0)│ О(D$(0),5),ж
ЖE$(1)│ П(D$(0),3)л О(D$(1),2),╛
РE$(2)│ Р(D$(1),3,5),р
ЪE$(3)│ П(D$(1),1)л О(D$(2),4)-
дE$(4)│ П(D$(2),4)л О(D$(3),1)-
оE$(5)│ Р(D$(3),2,5)-<
╕E$(6)│ П(D$(3),2)л О(D$(4),3)-S
┬АX│0 е 6:А Y│1 е 5-С
╠Е  Р(E$(X),Y,1)│Y$ з ╛(Yл(Iм1)н8,3лX) :Д ╜(Yл(Iм1)н8,3лX)-Ъ
╓ЛY,X-в
рЛ I.

хЗ#м2, Л(27) "T"  Л(CL) :Г CGP MOD SENDS CONTROL CODE FOR COLOR (CL) SELECTED IN LINE 145 TO PRINTER.$
ъА I│ З(TX$)н8 е 0 йм1.3
ЇА Y│1 е 10.ї
■Е  а(I,Y)│0 з B$│B$л б(HH,"*"):GF$│GF$л Л(18)л Л(28)л Л(HHн7)л Л(255)л Л(30) :Д B$│B$л б(HH," "):GF$│GF$л б(HH," ") :ГCGP MOD IN THIS LINE BUILDS LINES OF "SOLID" COLOR AND/OR SPACES IN GF$.№ЛY/сА R│1 е WD:З#м2, б( Б(LGм З(B$))о2,32);GF$;:З#м2,LF$;:Л R :Г CGP MOD IN THIS LINE SENDS COLOR/SPACES (GF$) AND BIT-IMAGE LINE FEED (LF$) TO PRINTER. NOTE THAT B$ IS RETAINED TO GOVERN THE CENTERING OF CHARACTERS ON THE PAPER0B$│"":GF$│"" :Г CGP MOD HERE CLEARS GRAPHICS STRING (GF$)0'&Л I0┘+Ю:З#м2,LF$:З@203,"AGAIN Y/N?"; :Г CGP MOD HERE SENDS A LINE FEED TO CLEAR THE PRINTER BUFFER.  REMAINDER OF THIS LINE ALLOWS EASY RE-ENTRY WHEN CHANGING LETTER OR WORD COLOR1а0A$│ Т:ЕA$│""з560:ДЕA$┤▓"Y"зЗ#м2," * C. G. B A N N E R * BY DAVID STEYER 1982  RAINBOW MAGAZINE":З#м2, Л(27)"T" Л(54);"with CGP-220 mods by Doug Lindsay 1984":З#м2, Л(27)"T" Л(48); б(10,10):К:Д902УDA$(0)│"6318C03180528000000002B60DA8007568E2D5C0C644444C6045288AC9A0111000000008884208208208422200011DF710000109F210000000C611000001F000000000003180004444400074675CC5C023084211C074426443E0744260C5C01195F10840FC21E0C5C07461E8C5C0FC44442100"3ЖNA$(1)│"7462E8C5C07462F0C5C003180630006300C611000888820820003E0F8000820822220074444200807442DAD98022A31FC620F463E8C7C074610845C0F46318C7C0FC21E843E0FC21E8420074610BC5C08C63F8C62071084211C038842149808CA98A4A2084210843E08EEB58C6208C7359C620"4yXA$(2)│"746318C5C0F463E8420074631ACDE0F463EA4A207460E0C5C0F9084210808C6318C5C08C6318A8808C635AEE208C544546208C54421080F844E443E039084210E00410410400E10842138023AA4210800111F410000000000000001C17C5E0843D18C5C0001F0841E0085F18C5C0001D1F41C0"5XbA$(3)│"0191E42100001F1785C0843D18C62020184211C0100421498084232E4A2061084211C0003D5AD6A0003D18C620001D18C5C0003D1F4200001F178420003D184200001F0707C0023C8420C0002318C5C0002318A880002B5AD5C00022A22A2000231784C0003E2223E0"5^lР1E0085F18C5C0001D1F41C0"5XbA$(3)│"0191E42100001F1785C0843D18C62020184211C0100421498084232E4A2061084211C0003D5AD6A0003D18C620001D18C5C0003D1F4200001F17842000