DV│1/^Бе 570/b:Гsave/$lБж1240/9vЮ:З"SAVE":Бж1270/oА╗Й"FILENAME";I$:Е З(I$)▓12зЗ"NAME TOO LONG":Бе640/~КЕI$│""з100/┤ФЕDV│1з┌И:Щ"O",#1,I$:АT│1еW:┘#1,W$(T):Л:Ъ:┌к:Бе100/рЮЩ"O",#м1,I$:АT│1еW:З#м1,W$(T):Л:Ъ:Бе100/Ёи:Гload data0▓ЕW▓0зЮ:Й"SURE";I$:Е О(I$,1)┤▓"Y"з1000!╝W│00.╞Ю:Бж127008╨W│Wл10`┌З:З"FILENAME TO LOAD":З"   ?";:╗ЙF$0tфЕDV│1░F$│""з1000ДюЩ"I",#DV,F$0╢°Е М(DV)│0зЙ#DV,W$(W):W│Wл1:ЕW▓255з1220:ДБе7600└W│Wм10╠Ъ:Бе1000▌:Гkill files0  ЕDV│м1з600:ДЮ:З"PURGE":Бж12701*З:Й"FILE TO KILL";I$1'4ЕI$│""з1001`>Е Ю(I$,"/")│0зЗ"EXTENSION MUST BE USED":а100,1:Бе8101oH╥ I$:Бе7901{R:Гdrill1Б\Ю1МfБж12401иpTS$│""::TR│0:SC│0:W$│""1╦zS1$│"":АT│1е34:S1$│S1$л Л(T):Л2│ДS2$│"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп░▒▓│┤╡╢╖╕╣║╗╝╜╛┐└┴┬├─┼╞╟╚╔╩╦╠═╬╧╨╤╥╙╘╒╓╫╪┘┌█▄▌▐▀рстуфхцчшщъыьэюяЁёЄєЇїЎў°∙·√№¤■ "2╤ОTS$│S1$лS2$:TS$│ О(TS$,W)2ёШ:Гpartial or complete drill3"вЗ@165,"cOMPLETE DRILL":З@261,"pARTIAL DRILL"3PмI$│ Т:ЕI$│""з940:ДЕI$┤▓"P"зP│0:Бе990:ДP│13g╢Ю:З"PARTIAL DRILL"3╕└З"HIGHEST RECORD"W:З:Й"RECORD NUMBERS TO DRILL         (LOWEST,HIGHEST)";L,H3╘╩ЕL┤1 ▒ H▓W ▒ H┤│L з 1003Ї╘TS$│ О(TS$,H):TS$│ Р(TS$,L)4▐ЕTS$│""з11204?шЮ:ЕTR│0з1020:ДЗ@448,"";:З═"SCORE = ###.# %";SCоTRн1004^ЄЗ@480, З(TS$)"WORDS LEFT";4~№T│ К( Р(TS$, Д( З(TS$)),1))4КTR│TRл14╪E│ Ю(W$(T), Л(96))м1:E$│ О(W$(T),E):S$│ Р(W$(T),Eл2):З@128,E$:Зд5)"";:ЙA$4єЕA$│"M"зTR│TRм1:Бе11305Y$ЕA$│S$за200,1:З:З"CORRECT":E│ Ю(TS$, Л(T)):TS$│ О(TS$,Eм1)л Р(TS$,Eл1):SC│SCл1:АTM│1е1000:Л:Бе9905З.а1,4:З:З"W R O N G ! !":З"TRY AGAIN",:ЙA$5╝8ЕA$│S$за200,1:З"     CORRECT ! !":SC│SCл.5:Бе9905ьBа1,4:З:З"THE CORRECT ANSWER IS:":З:Зд8)S$:З6LЕ Ю(W$, Л(T))│0зW$│W$л Л(T)6NVЗ"TYPE THE RIGHT ANSWER":З:Зд6)"";:ЙA$:ЕA$┤▓S$ з Бе1090 :Д9906c`:Гall words used6ijЮ6wtЕTR│0з1006┬~З:З"ALL WORDS HAVE BEEN USED.":З:З═"YOUR SCORE IS ###.# %";(SC)оTRн1006ыИЗ:Зд5)"rEPEAT":З:Зд5)"pROBLEM WORDS"7
ТI$│ Т:ЕI$│""з11707)ЬTR│0:SC│0:TS$│S1$лS2$:TS$│ О(TS$,W)7BжЕI$│"P"зTS$│W$:Бе9907S░ЕI$┤▓"R"з1007e║ЕP│0з990:Д9807z─:Гtoo many words7е╬Ю:З"FILE FULL":АT│1е1000:Л:W│Wм1:Бе1007╝╪:Гno words in file7╟тЕW▓0зР8ьЮ:З@228,"NO WORDS IN CURRENT FILE":а100,2:АT│1е100:Л:Бе1008Ў:Гdirectory88ЕDV│м1з1320:ДЗ:З"DIRECTORY ?"8N
I$│ Т:ЕI$│""з12908tЕI$│"Y"з╬:З"   " г(0)"GRANS FREE"8zР8Л(:Гready cass8║2З:╗Й"PRESS ENTER WHEN CASSETTE READY";I$:Р8╟<:Гpclear8╓F╚0:└1:Бе80ORDS IN CURRENT FILE":а100,2:АT│1е100:                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                WILL HAVE THE,OPTION OF A DIRECTORY BEFORE,ALL OPERATIONS. CASSETTE USERS,WILL RECIEVE A 'READY,CASSETTE' PROMPT. ON SAVE0O╚ЖOPERATIONS PRESS PLAY AND,RECORD -- ON LOAD/APPEND,OPERATIONS ONLY PLAY. ALSO,MAKE SURE THAT THE TAPE IS IN,THE RIGHT POSITION BEFORE,PRESSING ENTER.,,IF THE 'LOAD' OPTION IS USED,WHEN THERE ARE RECORDS IN THE1)╥ЖFILE A 'SURE' PROMPT WILL,APPEAR. THIS IS BECAUSE THE,'LOAD' OPTION OVERWRITES THE,CURRENT INFORMATION. ,,ONCE YOU HAVE A DATA BASE YOU,CAN START TO DRILL. THE,'DRILL' OPTION GIVES YOU THE,CHOICE OF A COMPLETE OR1¤▄ЖPARTIAL DRILL. THE PARTIAL,DRILL IS USEFUL IF YOU HAVE,JUST ADDED A FEW NEW WORDS TO,A FILE.,,THE COMPUTER WILL NOW SELECT A,WORD AT RANDOM AND DISPLAY THE,ENGLISH EQUIVALENT ON THE,SCREEN. YOU NOW HAVE TWO2╚цЖCHANCES TO TYPE IN THE FOREIGN,EQUIVALENT. IF IT TAKES TWO,TURNS YOU ONLY RECEIVE HALF,POINTS AND THE WORD WILL BE,ASKED AGAIN. IF YOU GET IT,RIGHT THE FIRST TIME IT WILL,NOT BE ASKED AGAIN. IF TWO3аЁЖTURNS WERN'T ENOUGH THE,COMPUTER WILL DISPLAY THE,CORRECT SPELLING ON THE,SCREEN. YOU MUST NOW TYPE IT,IN BEFORE CONTINUING. THIS,WORD WILL ALSO BE ADDED TO THE,'PROBLEM WORD' FILE.,,WHEN ALL WORDS ARE USED YOU4g·ЖCAN EITHER REPEAT THE DRILL,(HANDY IF YOU USED THE,'PARTIAL' OPTION) OR DRILL,ONLY THE PROBLEM WORDS. ANY,OTHER KEY WILL RETURN YOU TO,THE MAIN MENU. THIS WILL ALSO,EMPTY THE PROBLEM WORD FILE.59
Ж,THIS PROGRAM WILL ACCEPT A,MAXIMUM OF 255 RECORDS. IF YOU,TRY TO EXCEED THIS (EITHER BY,ADDING OR APPENDING) A ERROR,MESSAGE WILL FLASH AND YOU,WILL RETURN TO THE MAIN MENU.,IF THIS HAPPENS DURING APPEND6

ЖTHE FILE WILL CONSIST OF THE,PREVIOUS FILE AND PART OF THE,APPENDING FILE.,,IF THE RECORDS EXCEED THE,CLEARED STRING SPACE,(APPROXIMATLY 255 78 LETTER,FILES IN A 32K DISK SYSTEM),YOU WILL GET A OS ERROR.6h
ЖTYPING 'GOTO 100 <ENTER>' WILL,GET YOU BACK TO THE MAIN MENU,WITHOUT A LOSS OF DATA.,xxx6Ц
"З@32:Й"INPUT 'R' TO REVIEW";I$:ЕI$│"R"з606╓
,З:З"NOW, TYPE CLOAD AND HIT <ENTER> TO LOAD LANGUAGE DRILL"ES IN A 32K DISK SYSTEM),YOU WILL GET                                                                                                                                                                                                                                                                  ▄&$:Г****************************&H
:ГCOPYRIGHT (C) 1983 CLOAD INC.&b:Г     LANGUAGE DRILL&i:Г&Д:Г BY BOB VAN DER POEL&Ю:Г    17435-57 AVENUE&└:Г    EDMONTON ALBERTA CANADA&╦FБе1340&√PХ20, Ж(116)н256л Ж(117):Х( Ум2000):МW$(255)'1ZЕ Ж(188)┤▓6зDV$│"DISK":DV│1:ДDV$│"CASSETTE":DV│м1'LdЮ:З@8,"LANGUAGE DRILL"'╦nЗд34)"aDD NEW WORDS TO FILE":Зд34)"eDIT WORDS":Зд34)"rEMOVE RECORD":Зд34)"pRINT CURRENT FILE":Зд34)"i/O MENU":Зд34)"dRILL"'°xЗ@448,"records ";W:З@480,"last file "F$;(>ВI$│ Т:ЕI$│""з130:ДИ Ю("AERPID",I$)Бе140,190,290,340,560,850:Бе130(VМ:Гadd words to file(\ЦЮ(ХаЕW▓0зЗ"ADD WORDS":Й"CLEAR FILE";I$:Е О(I$,1)│"Y"зW│0(╛кЮ:W│Wл1:ЕW▓255з1220:ДЗ"WORD NUMBER"W).┤З@160,"ENGLISH WORD: ";:ЙA$:З@256,"FOREIGN WORD: ";:ЙB$:W$(W)│A$л Л(96)лB$:ЕW$(W)│ Л(96)зW│Wм1:Бе100:ДБе170)?╛:Гedit words)J╚Бж1240)X╥Ю:З"EDIT")Ж▄З:Й"FILE NUMBER";T:ЕT┤1▒T▓W за100,2:Бе100)┐цI│ Ю(W$(T), Л(96)):A$│ О(W$(T),Iм1):B$│ Р(W$(T),Iл1))╨ЁЗ:ЗA$"..."B$*·З:З"CHANGE..";A$;:ЙI$:Е О(I$,1)│"Y"зЗ:Й"NEW";A$*8
З:З"CHANGE..";B$;:ЙI$:Е О(I$,1)│"Y"зЗ:Й"NEW";B$*O
W$(T)│A$л Л(96)лB$*Z
Бе 100*n
":Гdelete record*y
,Бж1240*╖
6Ю:З"DELETE":Й"RECORD TO DELETE";I:ЕI┤1▒I▓W з а100,2:Бе100*┌
@АT│I е W:W$(T)│W$(Tл1):Л:W│Wм1*х
JБе 100+
T:Гdump file to printer+
^Бж1240+*
hЮ:З:З"PRINTER OR SCREEN ?"+N
rI$│ Т:ЕI$│""з370:Д ЕI$┤▓"P"з500+Э
|Й"HIT ENTER TO START                 (INPUT M FOR MENU)   ";I$:ЕI$┤▓""з100+├
ЖЗ:Й"TITLE";I$:З#м2,д40м З(I$));I$+с
РЗ:Й"NUMBERED (Y OR N)";N$+ъ
ЪЗ#м2+ў
дАT│1 е W,
оI│ Ю(W$(T), Л(96)),"
╕ЕN$│"Y"зЗ#м2,T;,=
┬З#м2,д5) О(W$(T),Iм1);,l
╠Е  Б(Tо2)│Tо2 з З#м2," " б(38м Ъ(м2),".");,З
╓З#м2,д40) Р(W$(T),Iл1),Н
рЛ,Ю
ъа100,4:Бе100,┤
Ї:Гprint on screen,┴
■Ю:АT│1еW-I│ Ю(W$(T), Л(96)):З═"###";T;:З" " О(W$(T),Iм1)"..." Р(W$(T),Iл1)-ZЕ Ж(136)н256л Ж(137)│▓1439зЗ@480,"   press any key to continue";:Е Т│""з530:ДЮ-`Л-Л&З@485,"end of file";:Е Т│""з550:ДБе100-Ъ0:Гi/o menu-░:Ю:З@40,DV$" MENU"./DЗд35)"sAVE CURRENT BUFFER             TO "DV$:Зд35)"lOAD DATA FROM "DV$:Зд35)"aPPEND CURRENT FILE":ЕDV│1зЗд35)"kILL FILES".DNЗд35)"mAIN MENU".mSЕ Ж(188)┤▓6зЗд35)"cHANGE I/O DEVICE".│XI$│ Т:ЕI$│""з600:ДИ Ю("SLAKMC",I$)Бе610,680,710,790,100,604:Бе600.╠\Е Ж(188)┤▓6з605:Д570/]ЕDV$│"DISK"зDV$│"CASSETTE":DV│м1::ДDV$│"DISK":500:Бж3400:Бж1350,
Р, 
HTH│SA,0
MА J│0 е Nм1,H
RБж 3500:TH│THлAM(J),R
WЛ J:Р,i
мЕ T$(J)│"B" з 3600,Г
▒LX│Rн Е(THлAM(J)о2)о2,Э
╢LY│Rн Х(THлAM(J)о2)о2,╡
╗Е T$(J)┤▓"S" з 3535,╩
└X│128лLX:Y│96мLY,┘
┼├(X,Y),1,1,ф
╩Бе3600,э
╧DT│0,№
╘А K│1 е SG-
┘DR│Rо(10н Х(AM(J)о2мDT))-3
▐XS│128лKнDRн Е(THлDT)-S
уXE│128лKнDRн Е(THлAM(J)мDT)-l
шYS│96мKнDRн Х(THлDT)-Л
эYE│96мKнDRн Х(THлAM(J)мDT)-к
ЄL│ Ы((XSм128)п2л(YSм96)п2)-│
ў┐1,0-╔
№Е L▓R з DT│DTл.02-┌
Е L▓R з 3545-ё╗(XS,YS)м(XE,YE),╜-∙Л K- Р.tЮ:З д10);"PERCENTAGES".F~З"SEC.";д7);"%";д11);"FILL";д18);"AMT.".TИА I│1 е N.xТPC│ Б(1000нAM(Iм1)о(2н3.14159)).ЕЧPC│PCо10.оЬЗ I;д5);PC;д12);T$(Iм1);д17);AN(Iм1).╢жЛ I.╙░З"'Q' TO QUIT";:Бж1350:Р.єаЮ:З"  TEXT EDITOR COMMANDS"/8кЗ:З" A=ARROWS CONTROL CURSOR":З" J=JOYSTK (R) CONTROLS CURSOR":З/[┤З" I=INSERT ONE CHAR OR SPACE"/x╢З" P=ENTER % (THIS SEC.)/Ъ╕З" S=SOLID FILL (CURSOR LOC)"/│╛З" Q=RETURN TO MENU"0├З@416,"('I','S','P' OPNS RETURN CURSOR CONTROL TO ARROWS: PRESS 'J' TO RESUME JOYSTK CONTROL)";0$╚Бж1350:Р0.h┐ 1,008rA$│ Т0L|Е A$┤▓"Q" з42100RЖР0s╠TH│SA:X│128:Y│96:╞"BM128,96"0Г╓А I│0 е Nм10╛рXR│128л3нRн Е(THлAM(I)о2)о4:YR│96м3нRн Х(THлAM(I)о2)о40╔хБж16270┘ъA$│ Л(49лI)0фЇБж17540Ї■TH│THлAM(I)0№Л I1Р1,DБж1716:А J│YR е Y й м3:╞"BM-0,-3":Л J1>FY│YR:Бж1718:Р1gHБж1716:А J│Y е YR й 3:╞"BM-0,+3":Л J1zJY│YR:Бж 1718:Р1дLБж1716:А J│X е XR й м4:╞"BM-4,-0":Л J1╢NX│XR:Бж1718:Р1рPБж1716:А J│X е XR й л4:╞"BM+4,-0":Л J1ЄRX│XR:Бж1718:Р2иЕ X▓128 ░ Y┤96 з TH│ Ф((Xм128)о(96мY))2Q▓Е X▓128 ░ Y▓96 з TH│м Ф((Xм128)о(Yм96))л3.141592Д╝Е X┤128 ░ Y▓96 з TH│ Ф((128мX)о(Yм96))л3.141592║╞Е X┤128 ░ Y┤96 з TH│м Ф((128мX)о(96мY))л2н3.141592┌╨Е X│128 ░ Y▓96 з TH│3.141592Ї╥Е X│128 ░ Y┤96 з TH│03╘Е Y│96 ░ X┤128 з TH│3н3.14159о23:╓Е Y│96 ░ X▓128 з TH│3.14159о23H┌TR│SA:I│03f▀Е TR▓TH з TR│TRм2н3.141593vфА J│0 е Nм13ШюЕ TH▓TR ░ TH┤(TRлAM(J)) з I│J3и°TR│TRлAM(J)3░Л J3╒PC│ Б(100нAM(I)о(2н3.14159)л0.5)3уB$│ И(PC)3Ў Е PC┤10 з 59504%A$│ Р(B$,2,1)4*Бж17544%/A$│ Р(B$,3,1)404Бж17544<9Бе 59604N>A$│ Р(B$,2,1)4YCБж17544dHA$│"%"4oMБж17544uRР4ЖpА XR│X е Xл74ШuА YR│Y е Yл114еz╜(XR,YR)4│Л YR:Л XR4┐ДБж 17584┼ЙР3.14159)л0.5)3уB$│ И(PC)3Ў Е PC┤10 з 59504%A$│  ▄&%:Г#############################&I
:ГCOPYRIGHT (C) 1983 CLOAD INC.&l:Г LANGUAGE DRILL INSTRUCTIONS&s:Г&О:Г BY BOB VAN DER POEL&и:Г    17435-57 AVENUE&╩:Г    EDMONTON ALBERTA CANADA&╤:Г&╪	:Г&√
:Г############################'│PS$(1)│"А░ААААААААААААААААААААААААААААААА╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣░░╣АААААААААААААААААААААААААААА╣АА╣АААААААlanguageАdrillААААААА╣АА╣АААААААААААААААААААААААААААА╣АА╣АААААААА"(kPS$(2)│"АААААААААААААААААААА╣АА╣АААААААААААААААААААААААААААА╣АА╣АААААёёёёёёёёёёёёёёёёёёёАААА╣АА╣АААААbyАbobАvanАderАpoelАААА╣АА╣ААААА°°°°°°°°°°°°°°°°°°°АААА╣АА╣АААААААААААААААААА")#(PS$(3)│"АААААААААА╣АА╣АААААААААААААААААААААААААААА╣АА╣ААААААААinstructionsАААААААА╣АА╣АААААААААААААААААААААААААААА╣АА╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣╣ААААААААААААААААААААААААААААААА░)H2Ю0:АT│1е3:ЗPS$(T);:Л:АT│1е1500:Л)P<Ю:П)зFA$│"   LANGUAGE DRILL INSTRUCTIONS  ":АT│1е32:Т1023лT, К( Р(A$,T,1))░63:Л:З@32,"";)╦PН A$:Е A$│"xxx"з 130 :Д З " "A$)їZЕ  Ж(136)н256л Ж(137)▓1472зБж110:Бе70) dБе 80*SnA$│"    PRESS ANY KEY TO CONTINUE   ":АT│1е32:Т1503лT, К( Р(A$,T,1))░63:Л:A$│ Т*mxI$│ Т:ЕI$│""з120:ДЮ:Р*xВБж 110+ZМЖTHIS PROGRAM IS DESIGNED TO,ASSIST THE USER IN LEARNING A,FOREIGN LANGUAGE. IT WILL,DRILL THE USER WITH THE WORDS,OR PHRASES HE INPUTS. THIS,INPUT CAN BE UPDATED AS NEW,WORDS MUST BE LEARNED.,,ALL OF THE INPUT AND OUTPUT,3ЦЖSUBROUTINES WILL AUTOMATICALLY,CHANGE TO DISK OR CASSETTE --,DEPENDING ON THE USERS SYSTEM.,SINCE ALL THE CURRENT DATA IS,HELD IN MEMORY THE PROGRAM,ALSO ADJUSTES FOR 16 OR 32K,SYSTEMS. ,,WHEN A MENU APPEARS THE,√аЖSELECTION IS ALWAYS MADE BY,PRESSING THE APPROPRIATE,REVERSE VIDEO LETTER.,,THE FIRST THING TO DO IS TO,CREATE A DATA BASE. TO DO THIS,SELECT THE 'ADD WORDS' OPTION,IN THE MAIN MENU. YOU WILL BE-╬кЖPROMPTED TO ENTER THE ENGLISH,WORD AND THEN THE FOREIGN,WORD. WHEN FINISHED PRESS,ENTER IN RESPONSE TO BOTH,PROMPTS TO RETURN TO THE MAIN,MENU.,,THE 'PRINT' OPTION WILL PRINT,THE CURRENT FILE TO THE SCREEN.Я┤ЖOR PRINTER. WITH THE PRINTER,YOU MAY DELETE THE NUMBERS IF,YOU WISH.,,TO REMOVE OR EDIT A FILE YOU,MUST KNOW IT'S RECORD NUMBER.,A NULL INPUT WILL RETURN YOU,TO THE MAIN MENU.,,THE I/O OPTION OPTION WILL/x╛ЖTAKE YOU TO THE DISK OR,CASSETTE INPUT/OUTPUT MENU,(DEPENDING ON YOUR SYSTEM).,DISK USERS  ╦%:ГCOPYRIGHT (C) 1983 CLOAD INC.7
В   PIE CHARTKВ   R. C. EVETT^В   18 ELM ST.tВ   HOLLISTON, MAВВ   01746┌
Х50:└4:╚4,1:╝:SG│9:МT$(SG),AN(SG),AM(SG),C(1,1):SA│0:R│90:JF│0:АJ│0еSG:T$(J)│"B":ЛJБЄЮ:З@10,"PIE CHART":З:З"1.ENTER DATA":З"2.ROTATE":З"3.CHANGE RADIUS":З"4.SELECT FILL TYPES":З"5.LIST PERCENTAGES":З"6.REDRAW":З"7.ADD TEXT":З"8.LIST TEXT COMMANDS"°
З"9.DISPLAY GRAPHICS":З@453,"WHEN GRAPH IS DISPLAYED,";:З@485,"PRESS 'Q' TO RET TO MENU";:З@386,"NEXT";:ЙA:ЕA│10зР.ИA Бж1400,3000,3200,3300,3700,1300,1600,4000,42009Бе1010TLX│Xл2:Y│Yл2:╞"BM+2,+2"lNЕA$┤"A"▒A$▓"Z"з1153PИ  К(A$)м64 Бж1202,1204,1206,1208,1210,1212,1214,1216,1218,1220,1222,1224,1226,1228,1230,1232,1234,1236,1238,1240,1242,1244,1246,1248,1250,1252БЕA$┤"0"▒A$▓"9"з1174\ВИ  К(A$)м47 Бж1254,1256,1258,1260,1262,1264,1266,1268,1270,1272oЦЕA$│"%"зБж1274ВШЕA$│"/"зБж1276ХЪЕA$│"."зБж1278иЬЕA$│"?"зБж1280╗ЮЕA$│"$"зБж1282╬аЕA$│"!"зБж1284свЕA$│"-"зБж1286ЇдЕA$│"("зБж1288жЕA$│")"зБж1290"мX│Xм2:Y│Yм2:╞"BM-2,-2"(оРH▓╞"BM+5,+8;U4L4R4U4L5D8U8":Рd┤╞"R3D4R2D4L5U4R3L3U4":РД╢╞"BM+5,+0;L5D8R5;BM-5,-8":РЪ╕╞"R5D8L5R2U8L2":Р┐║╞"BM+5,+0;L5D8R5;BM-2,-4;L3U4":Рт╝╞"BM+5,+0;L5D8;BM+3,-4;L3U4":Р╛╞"BM+3,+4;R2D4L5U8R5L5":Р└╞"D8U4R5D4U8;BM-5,+0":Р@┬╞"BM+2,+0;R2L1D8R1L2;BM-2,-8":Р`─╞"BM+5,+0;D8L5U3;BM+0,-5":РЖ╞╞"BM+1,+0;D8U4F4H4E4G4;BM-1,-4":РШ╚╞"D8R5L5U8":Р║╩╞"BM+0,+8;U8F2E2D8;BM-4,-8":Рў╠╞"D8;BM+5,+0;U8;BM-5,-0":╗(X,Y)м(Xл4,Yл7),╜:╞"BM-4,-7":Р 	╬╞"D8R5U8L5":Р ╨╞"D8U4R5U4L5":Р E╥╞"D8R4U8L4;BM+2,+6;F3":╞"BM-5,-9":Р h╘Бж1232:╞"BM+1,+4;F4;BM-5,-8":Р Р╓╞"BM+5,+1;U1L5D4R5D4L5U1;BM-0,-7":Р и╪╞"R5L3D8;BM-2,-8":Р └┌╞"D8R5U8;BM-5,-0":Р ∙▄╗(X,Y)м(Xл2,Yл8),╜:╗(Xл2,Yл8)м(Xл4,Y),╜:╞"BM-4,+0":Р!▐╞"D8E2F2U8;BM-4,-0":Р!Jр╗(X,Y)м(Xл4,Yл8),╜:╗(X,Yл8)м(Xл4,Y),╜:╞"BM-4,-0":Р!dт╞"F2E2G2D6;BM-2,-8":Р!оф╗(X,Y)м(Xл5,Y),╜:╗(Xл5,Y)м(X,Yл8),╜:╗(X,Yл8)м(Xл5,Yл8),╜:╞"BM-5,-8":Р!▐ц╞"R5D8L5U8":╗(X,Yл7)м(Xл5,Y),╜:╞"BM-5,-0":Р!№ш╞"BM+1,+2;E2D8;BM-3,-8":Р"ъ╞"D2U2R4D2G4D2R4;BM-4,-8":Р"@ь╞"D2U2R5D4L3R3D4L5U2;BM-0,-6":Р"dю╞"BM+4,+0;G4R5L1D4U8;BM-4,-0":Р"ВЁ╞"R5L5D3R5D5L5;BM+0,-8":Р"ЪЄ╞"R5L5D8R5U5L5U3":Р"─Ї╞"R5":╗(Xл5,Y)м(X,Yл8),╜:╞"BM-0,-8":Р"юЎ╞"BM+1,-0;R3D3L4D5R5U5L4U3;BM-1,-0":Р#°╞"BM-0,+7;D1R5U8L5D4R5;BM-5,-4":Р#Z·╞"D2R2U2L2":╞"BM+3,+6;D2R2U2L2":╗(Xл4,Yл2)м(X,Yл6),╜:╞"BM-0,-6":Р#~№╗(Xл5,Y)м(X,Yл8),╜:╞"BM-0,-8":Р#░■╜(Xл2,Yл8):╜(Xл3,Yл8):╜(Xл2,Yл7):╜(Xл3,Yл7):Р#ъ╞"BM-0,+2;U2R5D3L2D2;BM-3,-5":╜(Xл3,Yл8):╜(Xл3,Yл7):Р$0Бж1238:╗(Xл2,Yм1)м(Xл2,Yл9),╜:╗(Xл3,Yм1)м(Xл3,Yл9),╜:╞"BM-3,-9":Р$rБж1278:╗(Xл2,Y)м(Xл2,Yл5),╜:╗(Xл3,Y)м(Xл3,Yл5),╜:╞"BM-3,-5":Р$О╞"BM+1,+4;R3;BM-4,-4":Р$н╞"BM+2,0;G2D4F2;BM-4,-8":Р$╠
╞"BM+2,0;F2D4G2;BM-2,-8":Р$▐Бж1500:Бж3400$ыБж1350:Р$ЎFа128,4%PA$│ Т:ЕA$│"Q"зР:Д1360%<xS│0:Ю:Й"NEW DATA(Y/N)";A$:ЕA$┤▓"Y"з1445%W}Й"HOW MANY SECTIONS";N%ОВАJ│0е Nм1:З"AMT. FOR NO.";Jл1;:ЙAN(J):S│SлAN(J):ЛJ%ЫСАJ│0еNм1%╖ЦAM(J)│2н3.14159нAN(J)оS%╛ЫЛJ%╪аБж 1500:Бж4300:Бж1350%▐еР%√▄╝:TH│SA:┐1,0:┬(128,96),R&
сАJ│0 е Nм1&+цX│128лRн Е(TH):Y│96мRн Х(TH)&Aы╗(128,96)м(X,Y),╜&QЁTH│THлAM(J)&xїЕ TH▓(2н3.14159) з TH│THм2н3.14159&А·Л J&Ж Р&П@┐1,0&кEX│128:Y│96:╞"BM128,96"&─J─(X,Y)м(Xл8,Yл12),C,G&╬OA$│ Т&яQЕ A$┤▓"" з AV│ К(A$) :Д AV│0'RЕ A$│"J" з JF│1'SЕ A$│"A" з JF│0'2T╗(X,Y)м(Xл8,Yл12),╜,BF'HUЕ JF┤▓0 з Бж 1626'^VЕ JF┤▓0 з Бе 1645'jXБе 1637'ДZXR│4н Н(0):YR│3н Н(1)'Щ[Е YR┤Y з Бж 5700'о\Е YR▓Y з Бж 5704'├]Е XR┤X з Бж 5708'╪^Е XR▓X з Бж 5712'▐`Р'ЇeЕ AV│94 з Бж 1700(
fЕ AV│10 з Бж 1704(gЕ AV│8 з Бж 1708(4hЕ AV│9 з Бж 1712(JmЕ AV│81 з Бж 1716(ZrЕ AV│81 з Р(}tЕ AV│73 ▒ AV│80 ▒ AV│83 з JF│0(УwЕ AV│73 з Бж 1750(й|Е AV│80 з Бж 5800(┐БЕ AV│83 з Бж 6000(╦ЪБж 1722(╫ЯБе 1615(хдЕ Y┤3 з Р)
жБж1716:Y│Yм3:╞"BM-0,-3":Бж1718:Р)иЕ Y▓177 з Р)?кБж1716:Y│Yл3:╞"BM-0,+3":Бж1718:Р)MмЕ X┤4 з Р)rоБж1716:X│Xм4:╞"BM-4,-0":Бж1718:Р)В░Е X▓243 з Р)з▓Бж1716:X│Xл4:╞"BM+4,-0":Бж1718:Р)┴┤┼(X,Y)м(Xл8,Yл12),C,╜)█╢─(X,Y)м(Xл8,Yл12),C,G)с╕Р*
║╗(X,Y)м(Xл8,Yл12),╛,BF:╞"BM-8,-12":Р* ╓A$│ Т:ЕA$│""з1750*+┌Бж1722*7▄Бж 1100*L▐X│Xл8:╞"BM+8,+0"*fр─(X,Y)м(Xл8,Yл12),C,G*lтР*г╕Ю:З:З"AMOUNT OF ROTATION":Й"(0 TO 360 DEGREES)";TH*╛╜SA│SAлTHн2н3.14159о360*ф┬Е SA▓(2н3.14159)з SA│SAм2н3.14159* ╟Бж1500:Бж4300:Бж1350:Р+3АЮ:Й"RADIUS (UP TO 90)";R:Бж1500:Бж4300:Бж1350:Р+[фЮ:Й"NEW DATA(Y/N)";A$:ЕA$┤▓"Y"з3330+ЖцЗ"TYPES:":З"S=SOLID  B=BLANK  L=LINED"+ЦщА J│0 е Nм1+╜юЗ"FILL FOR SECT. NO.";Jл1;:Й T$(J)+яєЕ T$(J)┤▓"S" ░ T$(J)┤▓"B" ░ T$(J)┤▓"L" з 3310+ў°Л J,¤Бж1s┼(J,K)м(Jл1,Kм1),CU,╜:┼(J,K)м(Jл1,Kм1),CB,╜,=tЕ Я▓5000з213,NuЕ Т│" "зБе73,uvЕ Ж(338)┤▓191 ░  Ж(338)┤▓254 з 110,лxЕMO▓│50зMO│MOм50:┼(Jм6,Kм8)м(Jл6,Kл4),A,╜:SC│SCл5,┬yАT│1е45:ЛT:HO│HOл1,╠zБе110,┌{╚2,1:┐1,1,ё|ЕGS│1зБж248:ДБж250-}ЕJ┤50зJ│50-~ЕK┤25зK│25- ЕJ▓180зJ│180-1АЕK▓168зK│168-aБ┼(J,K)м(Jл1,Kм1),CU,╜:┼(J,K)м(Jл1,Kм1),CB,╜-rВЕ Я▓5000з213-БГЕ Т│" "з73-иДЕ Ж(338)┤▓191 ░  Ж(338)┤▓254 з 124-▐ЖЕMO▓│30зMO│MOм30:┼(Jм6,Kм4)м(Jл6,Kл8),S,╜:SC│SCл3-єЗАT│1е45:ЛT:S│Sл1-¤ИБе124.Й╚2,1:┐1,1."КЕGS│1зБж248:ДБж250.1ЛЕJ┤50зJ│50.@МЕK┤25зK│25.QНЕJ▓180зJ│180.bОЕK▓168зK│168.ТП┼(J,K)м(Jл1,Kм1),CU,╜:┼(J,K)м(Jл1,Kм1),CB,╜.гРЕ Я▓5000з213.▓СЕ Т│" "з73.┘ТЕ Ж(338)┤▓191 ░  Ж(338)┤▓254 з 138/ФЕMO▓│70зMO│MOм70:┼(Jм8,Kм6)м(Jл8,Kл6),H,╜:SC│SCл7/$ХАT│1е45:ЛT:H│Hл1/.ЦБе138/<Ч╚2,1:┐1,1/SШЕGS│1зБж248:ДБж250/bЩЕJ┤50зJ│50/qЪЕK┤25зK│25/ВЫЕJ▓180зJ│180/УЬЕK▓168зK│168/├Э┼(J,K)м(Jл1,Kм1),CU,╜:┼(J,K)м(Jл1,Kм1),CB,╜/╘ЮЕ Я▓5000з213/уЯЕ Т│" "з730	аЕ Ж(338)┤▓191 ░  Ж(338)┤▓254 з1520?вЕMO▓│10зMO│MOм10:┼(Jм4,Kм6)м(Jл4,Kл6),C,╜:SC│SCл10TгАT│1е45:ЛT:C│Cл10^дБе1520lе╚2,1:┐1,10ГжЕGS│1зБж248:ДБж2500ТзЕJ┤50зJ│500биЕK┤25зK│250▓йЕJ▓180зJ│1800├кЕK▓168зK│1680╘лЕ Я▓5000з2131м┼(J,K)м(Jл1,Kм1),CU,╜:┼(J,K)м(Jл1,Kм1),CB,╜1нЕ Т│" "з731:оЕ Ж(338)┤▓191 ░  Ж(338)┤▓254  з1661p░ЕMO▓│40зMO│MOм40:┼(Jм6,Kм8)м(Jл6,Kл4),F,╜:SC│SCл41Е▒АT│1е45:ЛT:F│Fл11П▓Бе1661Х│Ю1и┤Зд13)"SCORE":З1╕╡ЗSC:З:З:З:З1╠╢Зд12)"CENSUS":З1▌╖ЗPO;"PEOPLE"1ю╕Е Я▓5000з2132╣Е Т┤▓""з73:Д1842"║Ю:Зд13)"MONEY":Зд13)"-----"2i╗З:З"YOU HAVE EXACTLY";MO;"DOLLARS":ЕMO┤0зЗ:З"YOU ARE IN DEBT!!!!!"2z╝Е Я▓5000з2132Х╜A$│ Т:ЕA$┤▓""з73::Д1882а╛╚2,1:╝2╩┐МH(2),A(2),C(2),F(2),S(2),CU(1),CB(1)2р└╗(12,8)м(12,20),╜2Ў┴╗(4,14)м(20,14),╜3
┬─(4,8)м(20,20),H,G3&├╗(24,12)м(36,20),╜,B3<─╗(30,8)м(24,12),╜3R┼╗(30,8)м(36,12),╜3j╞─(24,8)м(36,20),A,G3А╟╞"BM52,8;L8D12R8"3Ш╚─(44,8)м(52,20),C,G3║╔╞"BM60,8;D12R12U12L4D8L4U8L4"3╥╩─(60,8)м(72,20),F,G3ъ╦╗(80,8)м(92,12),╜,B4
╠╗(86,12)м(80,20),╜4═╗м(92,20),╜4!╬╗м(86,12),╜49╧─(80,8)м(92,20),S,G4o╨╜(200,100,5):╜(201,100,5):╜(200,99,5):╜(201,99,5)4М╤─(200,100)м(201,99),CU,G4и╥─(100,90)м(101,98),CB,G4╕╙TE│1:╝:Бж954╛╘Р4╔╒┐0,1:Ю4р╓З"END OF ROUND";RO4Ї╫З"------------"54╪ЕHOн500▓│PO зSC│SCл25:MO│MOл10:PO│POл25::ДSC│SCм10:PO│POм105s┘ЕCн500▓│PO зSC│SCл25:MO│MOл10:PO│POл50::ДSC│SCм10:PO│POм455▓┌ЕSн500▓│POо3зSC│SCл15:MO│MOл15:PO│POл25::ДSC│SCм5:PO│POм105є█ЕHн100▓│POо10зSC│SCл30:MO│MOл25:PO│POл35::ДSC│SCм10:PO│POм1063▄ЕFн100▓│POо5зSC│SCл20:MO│MOл25:PO│POл25::ДSC│SCм10:PO│POм156~▌ЕW│3зWA│ Д(30):З"YOU LOST";WA;"DOLLARS DUE TO THE HEAVY RAIN":MO│MOмWA6╨▐ЕW│5зWA│ Д(30):З"HURRICANE HIT AND LOST YOU";WA;"DOLLARS IN DAMAGES":MO│MOмWA7%▀ЕW│6зWA│ Д(30):З"TROPICAL STORM HIT AND CAUSED";WA;"DOLLARS IN DAMAGES":MO│MOмWA7sрЕW│2зWA│ Д(30):З"RAIN WATERED CROPS AND YOU GAINED";WA;"DOLLARS":MO│MOлWA7ЙсSC│SCл10:MO│MOл107┤тЗ:З"YOUR SCORE SO FAR IS ";SC;"POINTS"7█уЗ:З"YOU HAVE EARNED ";MO;"DOLLARS"8фЗ:З"YOU NOW HAVE ";PO;"PEOPLE":RO│ROл18 хA$│ Т:ЕA$▓┤""з71:Д2298@цАT│1е50:Ю Д(8):а Д(255),1:Л8RчЗд12)"CHANCE"8\шЗ:З:З8щCH│ Д(4):ИCH Бе234,237,240,2438пъCA│ Д(50):З"YOU GAIN";CA;"DOLLARS":MO│MOлCA8рыCA│ Д(50):З:З"YOU GAIN";CA;"POINTS":SC│SCлCA8ъьБе2459эCA│ Д(50):З"YOU GAIN";CA;"DOLLARS":MO│MOлCA9IюCA│ Д(50):З"YOU LOSE";CA;"POINTS":SC│SCмCA9SяБе2459ГЁCA│ Д(50):З"YOU LOSE";CA;"DOLLARS":MO│MOмCA9▓ёCA│ Д(50):З"YOU GAIN";CA;"POINTS":SC│SCлCA9╝ЄБе2459ьєCA│ Д(50):З"YOU LOSE";CA;"DOLLARS":MO│MOмCA:ЇCA│ Д(50):З"YOU LOSE";CA;"POINTS":SC│SCмCA:%їA$│ Т:6ЎЕ Я▓5000з213:JўЕA$┤▓""з73:Д245:b°J│ Н(0)н4:K│ Н(1)н3:h∙Р:Г·Е Ж(341)│247 з K│Kм4:Р:Ю√Е Ж(342)│247 з K│Kл4:Р:╣№Е Ж(343)│247 з J│Jм4:Р:╘¤Е Ж(344)│247 з J│Jл4:Р:┌■Р:ъ ╚2,1:╝:┐1,1:∙
АT│1е100й2;	

┬(128,96),T;0
╔"T255;1;2;3;4;5;6;7;8;9;10;11;12";7
ЛT;@
┐0,1;Y
Ю:Зд10)"END OF GAME";a
З:З;╒
Е SC┤400 з З"NOT TOO GOOOD":З:З"I DON'T WANT YOU RUNNING MY     COUNTRY!!!!!!":З:З"WELL, KEEP TRYING....":Бе267<1
ЕSC▓400░SC┤550зЗ"YOU ARE GOOD, BUT YOU DIDN'T     MAKE IT TO A UTOPIAN SOCIETY!!":Бе267<М
	ЕSC▓550░SC┤650зЗ"YOU CAME VERY CLOSE BUT YOU     DIDN'T QUITE MAKE IT TO UTOPIA":Бе267=Q

ЕSC▓650з╔"T255;1;2;3;4;5;6;7;8;9;10;11;12;12;10;11;9;8;7;6;5;4;3;2;1;1;3;5;7;9;11;12;10;8;6;4;2":З"YOU CAME AS CLOSE TO A UTOPIAN  SOCIETY AS ANY RULER PROBABLY   WILL!!!":З:З"CONGRATULATIONS"=К
З:Й"DO YOU WANT TO PLAY AGAIN";A$:Е О(A$,1)│"Y"зО:ДК=Ш
╚2:└2:Бе7T255;1;2;3;4;5;6;7;8;9;10;11;12;12;10;11;9;8;7;6;5;4;3;2;1;1;3;5;7;9;11;12;10;8;6;4;2":З"YOU CAME AS #Ю%
:ГCOPYRIGHT (C) 1983 CLOAD INC.=:ГBY CRAIG LAWRENCEX:Г10626 S.W. 102ND ST.o:ГMIAMI, FL  33176М:ГPCLEAR2 BEFORE LOADINGЧБе 268ЭЮ╞LO$│"UTOPIAN":LP│64л(16м( З(LO$)о2))╪	АGH│1е З(LO$)я
З@LP, Р(LO$,GH,1);1╔"T255;1;12;2;11;3;10;4;9;5;8;6;7;7;6;8;5;9;4;10;3;11;2;12;1"?LP│LPл1:Лd
З:Зд15)"BY":Зд9)"CRAIG LAWRENCE"ПЗ:З:Й"WOULD YOU LIKE INSTRUCTIONS";IN$нЕ О(IN$,1)│"Y"з16:ДЮ:Бе62│Ю╞Зд13)"UTOPIAN"З:З"SO, YOU THINK YOU WOULD MAKE A  GOOD RULER, HUH???")З:З"WELL, HERE IS YOU BIG CHANCE."╚З:З"YOU ARE GIVEN A POVERTY STRICKENCOUNTRY WITH 500 PEOPLE.  YOU   MUST FEED THEM, SHELTER THEM,   GIVE THEM AN EDUCATION, AND GIVETHEM A PLACE TO WORK."яЗ:З"PRESS ENTER TO CONTINUE":ЙZZ:ЮqЗ:З"YOU HAVE A LIMITED BUDGET AND   YOUR PEOPLE GROW STEADILY.      CAN YOU FIX UP YOUR COUNTRY BE- FORE YOUR TIME EXPIRES??"жЗ:З"CAN YOU MAKE CREATE A UTOPIAN   SOCIETY????"╠З:Й"PRESS ENTER TO CONTINUE";ZZ:ЮЗ:З"YOU CAN EXAMINE YOUR COUNTRY    GRAPHICALLY BY PRESSING 1 AT THEMENU."sЗ:З:З:З:З"YOU MAY GET THE WEATHER REPORT  FOR THE ROUND BY PRESSING 2 AT  THE MENU"ЩЗ:Й"PRESS ENTER TO CONTINUE";ZZ:ЮлЗд13)"HOUSES"ыЗ:З"YOU MAY PURCHASE A HOUSE BY     PRESSING 3 AT THE MENU"^З:З"THEY ARE REPRESENTED BY A LITTLEHOUSE(DOESN'T LOOK LIKE IT CAN  HOLD 500 PEOPLE DOES IT? WELL,  IT CAN!!)"ВЗ:З"THE HOUSES COST 50 DOLLARS"щ З:З"A HOUSE IS GOOD TO HAVE BECAUSE IT GETS YOU A LOT OF POINTS":З:Й"PRESS ENTER TO CONTINUE";ZZ:Ю И!З:З"WHEN BUYING A HOUSE OR ANY OTHERITEM, USE THE JOYSTICKS OR KEY- BOARD TO PLACE CURSOR WHERE YOU WANT THE ITEM, THEN PRESS ENTER OR HIT THE RED BUTTON" о"З:Й"PRESS ENTER TO CONTINUE";ZZ:Ю ┴#Зд12)"SCHOOLS" є$З:З"TO PURCHASE A SCHOOL PRESS 4 AT THE MENU"!%З:З"A SCHOOL COSTS 30 DOLLARS"!Щ&З:З"FOR ALL YOU KIDS OUT THERE, I   WOULD BUY A SCHOOL, EVEN THOUGH YOU DON'T LIKE IT BECAUSE IT    GIVES YOU A LOT OF POINTS"!т'З:З"THE SCHOOLS ARE REPRESENTED BY  A LITTLE SCHOOL BELL.(HOW CUTE!)"(Й"PRESS ENTER TO CONTINUE";ZZ:Ю")Зд11)"HOSPITALS""R*З:З"YOU GET A HOSPITAL BY PRESSING  5 AT THE MENU""м+З:З"HOSPITALS ARE VERY IMPORTANT    OBVIOUSLY BECAUSE PEOPLE WOULD  DIE WITHOUT THEM""Ё,З:З"HOSPITALS COST 70 DOLLARS, AND  ARE REPRESENTED BY A CROSS"#-З:Й"PRESS ENTER TO CONTINUE";ZZ:Ю#'.Зд14)"CROPS"#^/З:З"CROPS ARE RECIEVED BY PRESSING  6 AT THE MENU"#т0З:З"CROPS ARE THE COUNTRY'S SOLE    SOURCE OF FOOD. IN OTHER WORDS  IF YOU HAVE NO CROPS, YOU LOOSE A LOT OF PEOPLE AND POINTS"$B1З:З"CROPS COST 10 DOLLARS AND CAN   FEED 500 PEOPLE. THEY ARE REP-  RESENTED BY A LARGE C."$h2З:Й"PRESS ENTER TO CONTINUE";ZZ:Ю$}3Зд10)"FACTORIES"$┤4З:З"FACTORIES ARE BOUGHT BY PRESSING7 AT THE MENU"%
5З:З"FACTORIES ARE USED TO PROCESS   THE FOOD AND MANUFACTURE CLOTHESFOR THE COUNTRY"%O6З:З"THEY COST 40 DOLLARS AND ARE    REPRESENTED BY A WEIRD U"%u7З:Й"PRESS ENTER TO CONTINUE";ZZ:Ю%м8З:З"YOU CAN GAMBLE YOUR MONEY A BIT BY PRESSING 0"%ь9З:З"WHEN YOU DO THIS YOU CAN GAIN ORLOOSE MONEY AND POINTS"&:З:Й"PRESS ENTER TO CONTINUE";ZZ:Ю&W;З"TO GET BACK TO THE MENU FROM    ANYWHERE, PRESS THE SPACE BAR"&п<З:З"AFTER EACH ROUND YOU WILL GET   AN UPDATE OF YOUR SCORE, BUDGET,AND POPULATION"&┘=З:З"--------------------------------"&ю>З"SELECT 1 OR 2"'?З:З"1) JOYSTICK"'@З"2) KEYBOARD"'AЙGS'4BЕGS┤1▒GS▓2зЮ:Бе62'=CRO│1'CD╝'[EMO│100:SC│0:PO│1000'eFБж190'~GCH│0: Я│0:ЕRO│11з255'КHW│ Д(6)'РIЮ'вJЗ:Зд13)"MENU"'┐KЗ:З"1)  EXAMINE COUNTRY"'█LЗ"2)  WEATHER FORECAST"'■MЗ"3)  BUY HOUSING DEVELOPMENT"(NЗ"4)  BUY SCHOOL"(,OЗ"5)  BUY HOSPITAL"(APЗ"6)  BUY CROPS"(XQЗ"7)  BUY FACTORY"(tRЗ"8)  SCORE AND CENSUS"(ЛSЗ"9)  CHECK MONEY"(гTЕCH│0зЗ"0)  CHANCE"(┬UЗ:З"MAKE YOUR CHOICE(1-9)"(╦VCC│1(эWA$│ Т:ЕA$│"0"░CH│0зCH│1:Бе230(■YЕ Я▓5000з213)ZЕA$│""з87)&[Е Й(A$)┤1▒ Й(A$)▓9з87)U\И Й(A$)Бе93,98,109,123,137,151,165,179,186)i]ЕEC│1з┐1,1:Бе97)y^╚2,1:┐1,1:╝)█_CU$│"BM70,23;S7;G8F3G3F1G20D30G1F15G1F1R50F2G2R48E12U20L50H2E25H30L25G4L11":╞CU$:EC│1:ЕTE│1зР)ь`Е Я▓5000з213) aЕ Т┤▓""з73:Д96*bЮ*cЗд11)"BULLETIN":З*<dИW Бе101,102,103,104,105,106*ГeЗ"IT IS A CLEAR AND SUNNY DAY WITH ALMOST NO CHANCE OF RAIN":Бе108*▒fЗ"THERE IS A SLIGHT CHANCE OF RAIN":Бе108*┘gЗ"IT IS RAINING VERY HEAVILY":Бе108+hЗ"A TROPICAL STORM IS BREWING, IT COULD HIT":Бе108+@iЗ"A HURRICANE IS APPROACHING SLOWLY.":Бе108+ljЗ"TROPICAL STORM COULD HIT AT ANY TIME"+}kЕ Я▓5000з213+ЧlA$│ Т:ЕA$┤▓""з73:Д107+еm╚2,1:┐1,1+╝nЕGS│1зБж248:ДБж250+╦oЕK┤25зK│25+┌pЕJ┤50зJ│50+ыqЕJ▓180зJ│180+№rЕK▓168зK│168,, K&╗
:Г** BIRDCOVER DEMONSTRATION **            MICK MURRAY                   9730 W. RICHARD                  FRANKLIN PARK                    ILL. 60131                      10/27/1982'i:Г NOTE: SOME REAL-TIME FUNC-      TIONS USABLE DURING DEMO...     ALL 'ARROWS' GUIDE BIRD; 'A'    GENERATES ANGLED FLIGHTS;       'S' SHIFTS COLOR (SEE LINE      1750).'Ш:Г USES A BIT MORE THAN 5.6K OF    MEMORY.'Ї:Г ALL COVERS MUST HAVE THE    LOGO AT THE TOP OF THE SCREEN   DURING GRAPHICS DISPLAY.(M:ГDECLARE ALL VARS USED BEFORE USING VARPTR ON A STRING OR THE STRING ADDRESS MOVES.(╖:ГLINES 50-95 PUT THE LOGO ON  SCREEN. THEN LOGO'S LEFT ALONE. DON'T EDIT LINES 50-65. IT WON'T WORK.)	:ГDISCLAIMER (LINES 100-175)   MUST ALWAYS BE INCLUDED IN ANY  COVER PROGRAM.)!
└4:М LO$(7),IA(100))-Бж 1000)ХI│0:J│0:K│0:Q│0:I$│"":S$│"":CT│0:I0│0:ZI1│0:I2│0:I3│0:C│0:S│0:X1│0:X2│0:Y1│0:Y2│0:X│0:D│0:XD│0:YD│0)в(╚ 4,1:╝5)╧-:ГCOLOR 2,3:LINE (0,44)-(255,48),PSET,BF*Э2LO$(0)│"кккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккеjккккккккккккккккккккккккккккккХZккккккккккккккккккккккккккккккUVккккккккккккккккккеeЦкккккккккUVккккккккккккккккккйжжкккк"+k4LO$(1)│"ккккйVХккккккккккккккккккйжfккккккккйZеккккккккккккккккккйжfккккккккеjеекккккккккккккккккйжfккккккккеjееккккккккккккккккккккккккккккХкееккккккккккккккккккккккккккккХкХекккккккккккккккккккккккк",96LO$(2)│"ккккХкUеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUZеккккккккккккккккккккккккккйUUUкХкккккккккккккккккккккккккккйVккЦкккккккккккккккккккккккк"-8LO$(3)│"кккйZккЦккккккккккккккккZЦкккккккккйZккЦкЦккккккккккккккZЦкккккккккеZккЦкЦккккккккккZкккZЦкккккккккеZккЦZХккккккккккZкккZЦкккккккккеjккХVХUiZйeiZкVZZкккZЦкккккккккеjккХVХUeVйeYZйUZZкVкZЦкVкккк"-╒:LO$(4)│"кккеjккUЦХUeVйUUVеUYZйUеUUiUкккккккеjккVЦЦХЦейUUVеiYVйUеUUiUкккккккеjккVЦVЦЦейZVЦХйYVеeeUUeejккккккеjккZЦZVЦейjZЦЦйYVейijZейjккккккеjккZЦZZVеeiZVЦйiUХйijZейjккккккеjккZЦYZZйeйjZVйeeЦйijZЦйjккк".г<LO$(5)│"кккеjккZЦYjZйeйjZZйeеЦйijZЦйjккккккеjккZVYjZйeйjZZйeеХUijZХUjккккккеZкйZZYjZйeйjZZйeеХUйjZХUкккккккеZкйjZYjZйeйjZZеeйUVеiZХVкккккккйVкйjYYjЦеХеiZZекйVкейjЦккккккккйVкйjYijЦеЦейjZекеVкейjЦккккк"/q>LO$(6)│"кккйUкйjYijЦеЦейjZекеVкейjЦкккккккккUUUjYiZЦеЦейjЦХкХХкейjХкккккккккUUUjUjUUUЦейUUUUUеUUYUeUjкккккккХUUjUjUUVЦейUUUUVеUUYUiUjкккккккеUUjХjХUZЦекUеYUjкUUYUjUjккккккккккккккккккккккккккккккккккк"/┼ALO$(7)│"╜│э
О
 Ж 4жа4 4Ж4╞жДзд
Г р
Г рZ&ыГ Є
5J&█5жА5 5J&╞9"/сFVP│0:AD│0:VP│ Э(LO$(0))/■KAD│ Ж(VPл2)н256л Ж(VPл3)0PVP│ Э(LO$(7))02UQ│ Ж(VPл2)н256л Ж(VPл3):╣ Г│Q0EXТQл7, Ж(25)м250oZ╞"C3BM0,191R255U149L255D148R255BM0,0"0|_Q│ Г(AD)0ЗcБе12600╖dВ OUR DISCLAIMER - HAS TO BE IN ALL COVERS.0╜iЮ0▌nЗ@38,"CHROMASETTE MAGAZINE"1sЗ"ISSUE #21             MARCH 1982";1uЗ14xЗ:З" ALL PROGRAMS CONTAINED HEREIN"1U}З"      COPYRIGHT (C) CLOAD"1xВЗ"    MAGAZINE  P.O. BOX 1448"1ЬЗЗ"    SANTA BARBARA, CA 93102."1└МЗ"   REPRODUCTION BY ANY MEANS"1хСЗ"   PROHIBITED. CLOAD MAGAZINE"2ЦЗ" ASSUMES NO RESPONSIBILITY FOR"21ЫЗ"  ERRORS, OMISSIONS OR DAMAGES"2VаЗ"   CAUSED BY THE USE OF THESE"2lеЗд11)"PROGRAMS.";2}кАI│1е 3500:Л2Щ┤Е SC │ 3 з О :Д SC│SCл12Я╛Р2└ш:Г**** PREPARE GRAPHICS ****2╩щRT│202шЄМ A(20),B(20),C(20),D(20)2√№╚ 4,1:╝ 5:TR│13:Г**** RIGHT-GOING BIRD ****37┬(130,126),8,0,1,.75,13R┬(140,134),8,0,1,.75,13o$─(123,116)м(157,136),C,G3z.╝ 5:┴03Ы8:Г**** LEFT-GOING BIRD *****3╜B┬(136,132),9,0,1,.55,      .83▀L┬(148,125),9,0,1,.55,      .83№V─(123,114)м(157,134),D,G4`:Г**************************4*jH│.7:┴ 042t╝ 54S~:Г*** GLIDE-WING NORMAL ****4tИ┬(130,130),10,0,1,.75,     14ЧТ┬(150,130),10,0,1,.5,      .754┤Ь─(123,114)м(157,134),A,G4╒ж:Г*** DOWN-WING NORMAL *****4ю░┬(80,80),10,,H,0,.255	║┬(100,80),10,,H,.25,.55#──(72,76)м(106,96),B,G5D╬:Г**************************5J╪Р5kт:Г**************************5Ль:Г     START FLIGHT       '5мЎ:Г**************************5├╚4,1:H│2:V│1:┐1,1 5ъ
╞"BM0,44;C0;D147R255U147     L255"6X│ Д(200)л5:Y│ Д(100)л536!Е X┤128 з Q1│1:ДQ1│м16;Е Y▓96 з Q2│м1 :ДQ2│16MЕ FF│1 з 13406(Е Y▓191 з 1350 :Д ┼     (X,Y)м(Xл34,Yл20),A,╜6Л2Бе 13506ъ<Е Y▓191 з 1350 :Д Е      Q1│1 з ┼(X,Y)м(Xл34,Yл     20),C,╜ :Д ┼(X,Y)м(X     л34,Yл20),D,╜6їFБж17307
PБж 16307ZЕ FF│1 з 14107EdЕ Y▓191 з 1390 :Д ┼     (X,Y)м(Xл34,Yл20),B,╜7PnБж17307\xБе 14507╧ВЕ Y▓191 з 1420 :Д Е      Q1│1 з ┼(X,Y)м(Xл34,Yл     20),C,╜:Бж 1730 :Д      ┼(X,Y)м(Xл34,Yл20),D,╜     :Бж17307█МБе 14408
ЦЕ Y▓191 з 1540 :Д ┼     (X,Y)м(                                                                                                                                                                                                                                                                                    ┴╚╔╔!"╞$%┴'()*+┼─.╞                     BIRDCOV BAS NMICROBE BAS#╡UTOPIAN BASбTAX     BAS&╦PIE     BAS╬LANGINS BAS▀LANGDRL BAS▀SPANISH DAT
 ,~FLYBY   BIN-Є                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Xл34,Yл20),A,╜8.а:Г**************************8SкA$│ Т:Е A$│ Л(94)        з Q2│м18j┤Е A$│ Л(10) з Q2│18Б╛Е A$│ Л(8) з Q1│м18Ч╚Е A$│ Л(9) з Q1│18│╥Е A$│"A" з FF│1:ГaNGLED8ш▄Е A$│"S" з X│Xм1:Г COLOR     sHIFT FOR BOX ONLY!8яц:Г9Ё:Г**************************9·:Г9#Бж 16309JR│ Д(100):Е R│7 з RR│1     :Д RR│09Q:Г9Щ"Е R▓38 ░ R┤43  з  SF│     1 :Д SF│0:ГSF=STILL FLIGHT     TOGGLE(FF)9┴,Е SF│1 з Е FF│1 з F     F│0 :Д FF│19ц6Е RR│1 з Е W│1 з W│     0 :Д W│1:
@Z│ Д(40):ЕZ│5 з Q1│мQ1:JЕ Z│4 з Q2│мQ2: TБе 1310::^X│Xл(Q1нH):Y│Yл(Q2нV):thMM│MMл1:Е MM▓75 з MM│0:     H│ Д(3)л1:V│ Д(3):MN│MNл1:вrЕ MN│4 з MN│0:H│( Д        (2)л1):V│ Д(2);|DISCLAIMER│DISCLAIMERл1:Е      DISCLAIMER▓200 з             DISCLAIMER│0:Бж 100:Е       CC│1 з CC│0 :Д CC│1;Ж┐ 1,1;AРЕ X▓217 з Q1│мQ1:X│Xм2:     FF│0;]ЪЕX┤4з Q1│мQ1:X│Xл2:FF│0;ЪдЕY▓211зQ2│мQ2:Y│Yм2:FF│     0:ГA WILD TRICK, ISN'T IT!!?;ржЕ CC│1 ░ Y▓160 з Q2│м     Q2:Y│YмV:FF│0:ГLIMIT CIRCLE      BORDER<оЕ Y┤53 з Q2│мQ2:Y│Yл2:      FF│0<I░Е CC│1 ░ Y┤53 з Q2│мQ     2:Y│YлV:FF│0:ГLIMIT CIRCLE       TOP.<O╕Р<^┬Е TR│0 з Р<е╠Е CC│1 з 1741 :Д          ┴ 0:╗(X,Y)м(Xл34,Yл      20),╜,B:Бе 1750<м═:Г<┬╤┬(Xл17,Yл10),RT,0=9╓RC│ Д(100):Е RC┤77 ░ RC     ▓70 з X│Xл1:ГCHANGE BOX-      COLOR (RED ?/GREEN ?) ON        SHORT (H=2,V=1) "WALKS" =?рР=EъК.<O╕Р<^┬Е TR│0 з Р<е╠Е CC│1 з 1741 :Д          ┴ 0:╗(X,Y)м(Xл34,Yл      20),╜,B:Бе 1750<м═:Г<┬╤┬(Xл17,Yл10),RT,0=9╓RC│ Д(100):Е RC┤77 ░ RC     ▓70 з X│Xл1:ГCHANGE BOX-                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ▓&%:Г COPYRIGHT (C) CLOAD INC 1983&::Г THIS GAME BY:&P:Г   DENNIS SMITH&k:Г   THREE CARRIAGE DR&Ж	:Г   HORSHAM, PA 19044&Т
Бе 7000&ЬХ 100&┤H1│0:H2│0:H3│0:H4│0&╧dБж 4000 :ГINSTRUCTIONS&ьnБж 3000 :ГINITIALIZATION'xБж 5000 :ГDRAW SCREEN'╛Бе995'&╚:ГSCORE WRITE SUB'7╦├(NX,NY),5,5'N═╗(OX,OY)м(NX,NY),╜']╧╔"O5ACACA"'i╥C4│C4л1'Г▄Е C4▓9 з C4│0:C3│C3л1'Яц╞"BM220,168":D│C4:Бж400'╢ЁЕC3▓9зC3│0:C2│C2л1'╥·╞"BM206,168":D│C3:Бж400'▀ ЕC2┤1з Р'ў
Е C2▓9зC2│0:C1│C1л1(
╞"BM192,168":D│C2:Бж400(
ЕC1┤1зР(1
Е C1▓9 з C1│0(M
"╞"BM178,168":D│C1:Бж400(S
6Р(Y
ЖР(l
Р:ГNUMBER WRITE(в
ЪИ Dл1 Б е 420,430,440,450,460,470,480,490,500,510(└
д╞"C5R8D12L8U12D6R2C6R4":Р(▐
о╞"C6D12R8U6L8U6R8C5D12":Р)
╕╞"C6R8D12L8U12C5R8D6L8D6R8":Р)
┬╞"C6D12C5R8U6L6R6U6L8":Р)>
╠╞"C6D12R8C5U6L8U6C6R8C5D6":Р)^
╓╞"C6D12R8U12C5L8D6R8D6L8":Р)}
р╞"C5D12R8U6L8U6R2C6R6D5":Р)Ы
ъ╞"C6D6R8D6L8U12C5R8D12":Р)╢
Ї╞"C5D6R8D6L8U12R8D6":Р)╫
■╞"C5R8D6L8U6R8D12L2C6L6U4":Р)▌С)їX:ГBAD COLLISION SUB) Y┐ 1,1*[├(NX,NY),1,1*']╗(OX,OY)м(NX,NY),╜*Ob╔"T15O1CO5CO1CO5CO4CO3CO2CO1CCCT30"*fl├(NGн15л3,168),2,2*rvNG│NGм1*ВАЕ NG┤0з2000*МК┐ 1,0*ТР*ж :ГADD A BAD SUB*╜%╗(OX,OY)м(NX,NY),╜*█'X│ Д(205)л24:Y│ Д(122)л24*¤)Е  а(X,Y)┤▓1з├(X,Y),4,1:Бе820+*┬(X,Y),9мNG,4:├(X,Y),4,4+%4╔"O2C"+>╘ Я│0:Е TD▓30зTD│TDм4+D▐Р+cу╔"O1BGCO2GCO3GCO4GCO5GCCC"+zш╗(OX,OY)м(NX,NY),╛+КЄOX│NX:OY│NY+и№X│ Н(0)о2м16:Y│ Н(1)о2м16+╝NX│OXлX:NY│OYлY+─BT│0+▐LЕ NX▓236 з NX│236:T│1+ЎQЕ NX┤16 з NX│16:T│1,VЕ NY▓154 з NY│154:T│1,([Е NY┤16 з NY│16:T│1,B]Е T│1 з Бж 800:Бе1350,Y░Е а(NX,NY)│3зБж200,pЕ а(NX,NY)│4зБж600,ЗF╗(OX,OY)м(NX,NY),╜,ЪxЕ  Я▓TD зБж800,┐▄┴7,5:XT│ Д(216)л16:YT│ Д(134)л16,тц╗(XT,YT)м(XTл4,YTл4),╜,BF:┴6,5,э@Бе1000,Ї╨:Г-╒ЕC3┤0зC3│0-╓ЕC2┤0зC2│0-!╫ЕC1┤0зC1│0-+┌┐ 1,0-4ю╝(6)-Y°╞"BM20,30C5;XYO$;BM100,30;XSC$;"-h¤ЕC1┤1з2055-Г╞"BM178,30":D│C1:Бж400-ТЕC2┤1з2070-н╞"BM192,30":D│C2:Бж400-╚╞"BM206,30":D│C3:Бж400-у ╞"BM220,30":D│C4:Бж400.#*Е (C1н1000лC2н100лC3н10лC4)┤(H1н1000лH2н100лH3н10лH4)з 2120.?>H1│C1:H2│C2:H3│C3:H4│C4.{H╞ "C5BM28,80;XHI$;BM100,80XSC$;BM0,0C8R254D190L254U190".КMЕH1┤1з2135.еR╞"BM178,80":D│H1:Бж400.┤WЕH2┤1з2150.╧\╞"BM192,80":D│H2:Бж400.ъf╞"BM206,80":D│H3:Бж400/p╞"BM220,80":D│H4:Бж 400/z┐1,1:а200,1/9Д╔"O5BGCO4BGCO3BGCO2BGCO1BGCCC"/цО╞"C5BM46,130ND12R8D6NL8BM+4,-6;BR6D12R8;BR6U6E6F6NL12D6;BR12U6NH6E6;BM+16,+12U6E6F6NL12D6;BR8U12R8BD6NL4D6NL8;BR6U6E6F6NL12D6BR8NU12;BR8U12F12U12;BR12BD12U2BU4R4U6L8D2"0fУ╞"BM58,154R4ND12R4;BR4F4ND8E4;BR4R8D6L8ND6U6;BR14D12NR8U6NR5U6R8;BR16F6ND6E6;BR16NR8D12R8U12;BR4ND12R8D6L6F6;BR16U12F12U12"0}ШT$│ Т:Е T$│""з22000╖в:ГIF T$="Y"THEN SCREEN1,0:PMODE1,1:SOUND225,1:GOTO1100югЕT$│"Y"зЮ(4):З@170,"GET READY!";:┐0,1:а225,1:Бе1100ЎзЮ:К1╕:ГINITIALIZE SUB1$╠C1│0:C2│0:C3│0:C4│м11B╓NX│128:NY│96:OX│128:OY│961YрNG│5:╔"T30":TD│3001╝ъSC$│"L8D6R8D6L8;BR20L8U12R8;BR6R6D12L8U12;BR12D12U12R8D6L8R2F6;BR10L6U6R4L4U6R6;BR4BD2D2BD4D2"1¤ЇYO$│"F6NE6D6;BR10NU12R8U12NL8;BR6D12R8U12;BR6ND12R8D6L8R2F6"2>■HI$│"D6ND6R8ND6U6;BR6ND12;BR14L8D12R8U6L4;BR12ND6NU6R8ND6U6"2DЦР2[а:ГINSTRUCTIONS SUB2fеБж60002ЮкЮ(8):З@227,"DO YOU WANT INSTRUCTIONS?";:┐0,1:а100,22и┤T$│ Т2║╛ЕT$│"Y"з 40602═╚ЕT$┤▓"N"з 40203%╥Ю(4):З@160,"            GOOD!               I'M GLAD YOU KNOW HOW TO  PLAY.":┐0,1:Р3H▄Ю:З@38,"GOOD, A NEW ANTIBODY!"4)цЗ:З"YOU ARE A SPIRAL MICROBE IN A   TISSUE CULTURE THAT IS INFECTED WITH A BAD 'PLASM.  YOU MOVE    THROUGH THE CULTURE (USING THE  RIGHT JOYSTICK) GATHERING UP    PURPLE PROTEIN AND TRYING TO    DESTROY THE RED 'PLASM."4RЁЗ:╗ Й"PRESS ENTER TO CONTINUE.  ";T$5$·Ю:З:З"EACH PURPLE PROTEIN YOU HIT ADDSOME CREDIT AND EACH RED         'PLASM YOU HIT COSTS YOU ONE OF YOUR LIVES. YOU CAN DESTROY A   'PLASM BY HITTING A PROTEIN THATHAS ATTACHED ITSELF TO THE      'PLASM.5ЧЗ:З"CAUTION: AS TIME PASSES THE     'PLASMS GET BIGGER. DON'T MOVE  TO FAST OR YOU WILL MISS THE    PROTEINS!"5╝З:╗ Й"PRESS ENTER TO PLAY.  ";T$5╪ЮЮ(0):З@170,"good luck";5яиТ1198,128:Т1203,335ї°Р6И:ГSCREEN DRAW SUB6Т╝6=Ь╞"BM12,12C6R228D146L228U146":├(2,2),6,66RжА P│18 е 78 й 156k░X$│"BM"л И(P)л",168"6Г║╞"C8;XX$;D12E4L8F4"6Й─Л6в╬╞"C5BM120,168;XSC$;"6м╪┴ 7,56╢▌┐ 1,06┼тC│0:Бж 2006╦Р6╥p:Г6█z╝(7)6·╞"BM0,0C8R254D190L254U190"7aДMU$│"C5;ND12F6E6ND12;BR6D12R8U12;BR6D12U12F12U12;BR12L8D12R8;BR4U12D6R8U6D12;BR6NU12;BR6U12F12U12"7┘ОMI$│"ND12F6E6ND12;BR8D12U12;BR14L8D12R8;BR6U12R8D6L8R2F6;BR6NR8U12R8D12;BR6U12R6F2D2G2NL6F2D2G2NL6;BR8NR8U6NR8U6R8"8У╞"S8BM20,40;XMU$;BM22,40;XMU$;BM60,110;XMI$;BM62,110;XMI$;S4"8#ШX│18-Э┐ 1,18<вА I│1 е 308NмЕX│1зX│0:ДX│18X╢┐ 1,X8j└а Д(200)л40,18q╩ЛI8Ф╘АI│0е190й2:╗(0,I)м(254,I),╜:ЛI8Ъ▐Р8мX╚1,1:└2:Бе 15R6U12R6F2D2G2NL6F2D2G2NL6;BR8NR8U6NR8U6R8"8У╞"S8BM20,40;XMU$;BM22,40;XMU$;BM6                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 1╚$:ГCOPYRIGHT(C) 1983 CLOAD INC.J
:Г1982 FEDERAL INCOME TAX PROGRAMi:ГB. GEDDRY, 5 DANA DR #15Б:ГHUDSON N.H. 03051Ц(:Г(603) 882 6187Э2:Г╖<:ГLATEST MODS 2/05/83╛F:Г┼P:Г╤Z:ГTITLE╪d:ГтnЮ:З:З:xЗ"   ------------------------":З"     FEDERAL INCOME TAXES":З:З"          82 RATES"zВЗ"     BY BERNARD L. GEDDRY":З:З"     --------------------"ММА II│1е 800:ЛЦЦЮ:З:ЗЭа:Г▒к:Г INSTRUCTIONS╕┤:Гр╛З"DO YOU WANT INSTRUCTIONS? (Y/N)";ь╚Бж 2220 ╥Е A$│"N" з 270%▄Е A$┤▓"Y" з З"Y OR N ONLY":Бе 2001цБж 34908Ё:ГJ·:ГDATA INPUTSQ
:ГW
Юt
З"        FILING STATUS"Ч
"З"   HIT APPROPRIATE LINE NO."╗
,З"   -----------------------":З)
6З" 1----SINGLE":З" 2----MARRIED FILING JOINTLY":З" 3----MARRIED FILING ALONE":З" 4----UNMARRIED HEAD OF";H
@З" HSE":З" 5----WIDOW(ER)"\
JЗ:З" ";:Бж 2220l
TS$│A$:З:З:Зв
^Е S$│"1"▒S$│"2"▒S$│"3"▒S$│"4"▒S$│"5" з 360 :Д 270и
hЮЄ
rЗ"     ANSWER THE FOLLOWING":З"     --------------------":З:E0│0:E1│0<
|З"LINE 6A-EXEMPTION FOR YOURSELF  (Y/N)? ";:Бж 2220:ЕA$│"Y" з E1│E0л1F
ЖE2│E1d
РЕ A$┤▓"Y" ░ A$┤▓"N" з 360x
ЪЕ S$┤▓"2" з 450Д
дЮ:E2│E1╬
оЗ"LINE 6B-EXEMPTION FOR SPOUSE    (Y/N)? ";:Бж 2220:ЕA$│"Y" з E2│E1л1ь
╕Е A$┤▓"Y" ░ A$┤▓"N" з 420'
┬Й"LINE 6C-EXEMPTIONS FOR CHILDREN <ENTER> A NUMBER";NCb
╠Й"LINE 6D-OTHER DEPENDENTS        <ENTER> A NUMBER";DOr
╓EM│E2лNCлDOШ
рЗ"LINE 6E-TOT NO. EXEMPTIONS ";EM╥
ъЗ:З"         INCOME ITEMS":З"         ------------":ЗЄ
ЇЙ"LINE 7-WAGES,TIPS,ETC ";W 
■Й"LINE 8-INTEREST INCOME ";I /Й"LINE 9A-DIVIDENDS";DV UЕ S$│"2" з XC│200.00 :Д XC│100.00 |DV│DVмXC:З"LINE 9B-EXCLUSION. ";XC О&Е DV┤0 з DV│0 м+DV│ Ш(100н(.0001лDV))о100 ╧0З"LINE 9C-DIV AFTER EXCL. ";DV!:З:З"WERE LINES 7,8 AND 9 YOUR ONLY  INCOME(Y/N)?";!DБж 2220!%NЕ A$│"Y" з 750!9XЕ A$┤▓"N" з 580!obЙ"LINE 10-STATE/LOCAL             TAX REFUND ";ST!РlЙ"LINE 11-ALIMONY RCVD. ";AR!┴vЙ "LINE 12-BUSINESS INC OR LOSS    (+/-) ";B!ЄАЙ"LINE 13-CAPITAL GAINS OR LOSSES (+/-) ";CG"=КЙ"LINE 14-40% CAPITAL GAINS NOT   REPORTED ON LINE 13(PGE 9 INSTR)";CN"xФЙ"LINE 15-SUPPLEMENTAL GAIN/LOSS  FORM 4797 (+/-) ";SG"├ЮЙ"LINE 16-PENSIONS,IRA DISTR,ANNU-ITIES NOT REPORTED ON LINE 17   ";OP"юиЙ"LINE 17A-OTHER PENSION/ANNUITIES";PA#,▓Й"LINE 17B-TAXABLE AMOUNT OF 17A  (WORKSHEET PGE 10) ";AT#d╝Й"LINE 18-RENTS/ROYALTIES ETC.    FROM SCHED E ";RR#Х╞Й"LINE 19-FARM INCOME/LOSS        (+/-) ";FI#╟╨Й"LINE 20A-UNEMPLOYMENT COMPEN-   SATION ";UC$┌Й"LINE 20B-TAXABLE AMOUNT OF 20A  (SEE WORKSHEET PGE10 INSTR)     ";CU$1фЙ"LINE 21-OTHER INCOME";OI$~юIC│OIлCUлFIлRRлATлOPлSGлWлCGлDVлIлSTлARлBлCN:З"LINE 22-GROSS INCOME ";IC$аєЗ"--------------------------"$▐°З:З"   ADJUSTMENTS TO INCOME":З"   ---------------------"%
З"ARE THERE ANY ADJUSTMENTS       (Y/N)?";%Бж 2220%,Е A$│"N" з 890%@ Е A$┤▓"Y" з 780%`*Й"LINE 23-MOVING EXPNS ";ME%Б4Й"LINE 24-BUSINESS EXPNS";BE%Ш>Й"LINE 25-IRA ";IR%╣HЙ"LINE 26-KEOGH PAYMENT ";KP%ьRЙ"LINE 27-SAVINGS WITHDRAWAL      PENALTY ";SP&\Й"LINE 28-ALIMONY ";A&_fЕ S$│"2" з З:З"WORKING COUPLE DEDUCT.(SCHED W)":З"-------------------------":Бж 2950&УpЙ"LINE 30-DISABILITY INCOME       EXCLUSION";DX&╪zAJ│DXлWCлSPлKPлMEлIRлBEлA:TA│ICмAJ:З"LINE 31-TOT ADJUSTMNTS ";AJ'ДЗ"--------------------------":З"LINE 32-ADJ GROSS INC";TA'bОЗ"--------------------------":З"ARE YOU ITEMIZING DEDUCTIONS    (Y/N)";'nШБж 2220'ЕвЕ A$│"N" з Бж 3060'ШмЕ A$│"N"з 1510'м╢Е A$┤▓"Y" з 920'ю└З:З"     DEDUCTIONS-SCHEDULE A":З"     ---------------------"(╩Й"LINE 1-MEDICINE/DRUGS";DR(.╘D1│ Ш(TA)о100:З"LINE 2-";D1(I▐DR│DRмD1:Е DR┤0 з DR│0([шЗ"LINE 3-";DR(|ЄЙ"LINE 4-MED INS PREMIUM";MI(о№Й"LINE 5A-DOCTORS AND HOSPITAL    EXPENSE";M1(╧Й"LINE 5B-TRANSPORTATION";M2)Й"LINE 5C-OTHER MEDICAL           SUPPLIES";M3)&DH│DRлMIлM1лM2лM3:З"LINE 6-";DH)H$M4│ Ш(3нTA)о100:З"LINE 7-";M4)c.DC│DHмM4:Е DC┤0 з DC│0)u8З"LINE 8-";DC)БBMI│MIо2)ЧLЕ MI▓150 з MI│150)йVЗ"LINE 9-";MI)╜`Е MI▓DC з DC│MI)╒jЗ"LINE 10-";DC:M│DC*
tЗ:Й"LINE 11-STATE, CITY OR          LOCAL TAXES";SX*=~Й"LINE 12-REAL ESTATE             TAXES";RX*vИЙ"LINE 13A-SALES TAXES            (SEE TABLES)  ";SL*оТЙ"LINE 13B-MOTOR VEHICLE(CAR)     SALES TAX    ";EX*╠ЬЙ"LINE 14-OTHER TAXES";OT*єжTX│EXлSLлRXлSXлOT:З"LINE 15-";TX:З+'░Й"LINE 16-MORTGAGE(HOME ETC.)     INTEREST ";MP+R║Й"LINE 17-CHARGE ACCOUNT INTEREST ";CA+p─Й"AUTO LOAN INTEREST ";CI+К╬Й"OTHER INTEREST ";OI+ж╪OI│OIлCI:З"LINE 18-";OI+╚тTI│OIлCIлCAлMP:З"LINE 19-";TI,
ьЗ:Й "LINE 20A-CASH CONTRIBUTIONS     UNDER $3000";C1,@ЎЙ "LINE 20B-CASH CONTRIBUTIONS     OVER $3000";C2:CC│C1лC2,xЙ"LINE 21-OTHER CONTRIBUTIONS     (PG 19 INSTR)";C3,Ф
Й"LINE 22-CARRYOVER";C4,дCC│CCлC3лC4,╣З"LINE 23-";CC:З,я(Й"LINE 24-CASUALTY LOSSES         (FORM 4684)";CL-
2Й"LINE 25A-UNION DUES";IE-8<Й"LINE 25B-TAX RET PREPARATION FEE";PR-WFЙ "LINE 26-OTHER MISC ";OM-yPMD│OMлCLлIEлPR:З"LINE 27-";MD-вZID│MDлCCлTIлTXлM:З"LINE 28-";ID:TX│0-╣dЕ S$│"5" з LL│3400-╨nЕ S$│"2" з LL│3400-чxЕ S$│"4" з LL│2300-■ВЕ S$│"1" з LL│2300.МЕ S$│"3" з LL│1700.(ЦЗ"LINE 29-";LL.CаID│IDмLL:Е ID┤0 з ID│0.VкЗ"LINE 30-";ID.О┤З"     BACK TO FORM 1040":З"     -----------------".б╛З"LINE 33-";TA.╪╚Е A$│"N" з З"LINE 34B-ALLOWABLE CHARITABLE DED";ID/╥Е A$│"Y" з З"LINE 34A-ITEMIZED               DEDUCTIONS";ID/4▄TA│TAмID:З"LINE 35-";TA/[цEM│EMн1000:TA│TAмEM:З"LINE 36-";EM/uыTA│ Ш(TAн100л.01)о100/ЦЁЗ"LINE 37-TAXABLE INCOME";TA/Э·:Г/╥В ROUNDOFF OF TAXABLE INC FOR TAX TABLE ACCURACY/ъT1│TAо100:T2│ Ш(T1)0FR│ В( В(T1)м В(T2))0$"Е FR┤│.50 з TA│ Ш(T1)н100л250D,Е FR▓.50 з TA│ Ш(T1)н100л750P6Бж 34200a@FP│TXм Ш(TX)0ИJЕ FP┤.5 з TX│ Ш(TX) :Д TX│ Ш(TX)л10ФTБж 34100═rЗ"DO YOU WANT TO TRY INCOME       AVERAGING? (Y/N)";0┘|Бж 22200ЁЖЕ A$│"Y" з Бж 31401ЛЕ A$│"Y" з 16851РЕ A$┤▓"N" з 16601;ХЗ"--------------------------"1BЪ:Г1Qд:Г CREDITS1Xо:Г1Ж╕З"DO YOU HAVE ANY CREDITS(Y/N)?";:Бж 22201Ъ┬Е A$│"N" з 18601├╠Е A$┤▓"Y" з З"Y OR N ONLY":Ю:Бе 17201ш╓Й"LINE 41-CREDIT FOR ELDERLY";CE2рЙ"LINE 42-FOREIGN TAXES";FT2,ъЙ"LINE 43-INVESTMENT CREDIT";IC2PЇЙ"LINE 44-POLITICAL CONTRIB";PC2В■Й"LINE 45-CHILD/DEPENDENT CARE    EXPENSE";DC2аЙ"LINE 46-JOBS CREDIT";JC2└Й"LINE 47-ENERGY CREDIT";EC2рЙ"LINE 48-OTHER CREDITS";OC2 &TC│CEлFTлICлDCлPCлJCлECлOC30З"LINE 49-TOTAL CREDITS";TC3B:TX│TXмTC:З"LINE 50-BALANCE";TX3dDЗ"--------------------------"3kN:Г3~X:Г OTHER TAXES3Еb:Г3╢lЗ"DO YOU HAVE ANY OTHER TAXES(Y/N)";:Бж 22203╩vЕ A$│"N" з 20103фАЕ A$┤▓"Y" з Ю:Бе 19004КЙ"LINE 51-SELF EMPLYMNT TAX";SE4&ФЙ"LINE 52-MINIMUM TAX";MT4LЮЙ"LINE 53-ALTERNATIVE MINIMUM";AM4}иЙ"LINE 54-RECAPTURE OF INVESTMENT CREDIT";RI4Ь▓Й"LINE 55-FICA ON TIPS";TP4╦╝Й"LINE 56-UNCOLLECTED TAX ON      TIPS";TT4Ё╞Й"LINE 58-ADVANCE EIC PAYMNT";AP5-╨T0│SEлMTлAMлRIлTPлTTлAP:TX│TXлT0:З"LINE 59-TOTAL TAX";TX5O┌З"--------------------------"5Vф:Г5fю:Г PAYMENTS5m°:Г5У¤З"     PAYMENTS":З"     --------"5▓Й"LINE 60-TAX WITHHELD";TW5▄З"ANY OTHER PAYMENTS? (Y/N)";:Бж 22205ЁЕ A$│"N" з 21206		Е A$┤▓"Y" з Ю:Бе20556MЙ"LINE 61-1982 ESTIMATED TAX      PAYMENTS FROM 1981 RETURN";TP6oЙ"LINE 62-EIC(SEE PGE 15)";EC6Ю Й"LINE 63-AMOUNT PAID WITH FORM   4858";AP6╝*Й"LINE 64-EXCESS FICA";XF6э4Й"LINE 65-SPECIAL FUELS TAX       CREDIT";SF7&>Й"LINE 66-REGULATED INVESTMENT    COMPANY CREDIT";RC7_HTP│TWлTPлECлAPлXFлSFлRC:З"LINE 67-TOTAL PAYMENTS";TP7БRЗ"--------------------------"7Т\TT│ В(TPмTX)7▄fЕ TP▓TX з З"LINE 68-AMOUNT OVERPAID";TT:З"LINE 69-AMOUNT REFUNDED";TT8
zЕ TP┤TX з З"LINE 71-TAX OWED";TT8#ДЗ"--------------------------"8)ОК80Ш:Г8Eв:Г INKEY ROUTINE8^мA$│ Т:Е A$│"" з 22208g▒З A$8v╢А II│1е1508А└Q$│ Т8Ж╩Л8М╘Р8У▐:Г8кш:Г TAX SCHEDULE MJ8┐ЄЕ TA┤3400 з TX│08р№Е TA▓3400 з TX│.12н(TAм3400)9	Е TA▓5500 з TX│252л.14н(TAм5500)9*	Е TA▓7600 з TX│546л.16н(TAм7600)9R	Е TA▓11900 з TX│1234л.19н(TAм11900)9z	$Е TA▓16000 з TX│2013л.22н(TAм16000)9в	.Е TA▓20200 з TX│2937л.25н(TAм20200)9╩	8Е TA▓24600 з TX│4037л.29н(TAм24600)9Є	BЕ TA▓29900 з TX│5574л.33н(TAм29900):	LЕ TA▓35200 з TX│7323л.39н(TAм35200):C	VЕ TA▓45800 з TX│11457л.44н(TAм45800):l	`Е TA▓60000 з TX│17705л.49н(TAм60000):Х	jЕ TA▓85600 з TX│30249л.50н(TAм85600):Ы	tР:в	~:Г:╖	ИВ TAX SCHEDULE S:╠	ТЕ TA┤2300 з TX│0:э	ЬЕ TA▓2300 з TX│.12н(TAм2300);	жЕ TA▓3400 з TX│132л.14н(TAм3400);7	░Е TA▓4400 з TX│272л.16н(TAм4400);\	║Е TA▓6500 з TX│608л.17н(TAм6500);Б	─Е TA▓8500 з TX│948л.19н(TAм8500);й	╬Е TA▓10800 з TX│1385л.22н(TAм10800);╤	╪Е TA▓12900 з TX│1847л.23н(TAм12900);∙	тЕ TA▓15000 з TX│2330л.27н(TAм15000)<!	ьЕ TA▓18200 з TX│3194л.31н(TAм18200)<I	ЎЕ TA▓23500 з TX│4837л.35н(TAм23500)<q
Е TA▓28800 з TX│6692л.40н(TAм28800)<Щ

Е TA▓34100 з TX│8812л.44н(TAм34100)<┬
Е TA▓41500 з TX│12068л.50н(TAм41500)<╚
Р<╧
(:Г<╪
2З TX=
<:Г TAX TABLE MARRIED FILING SEPARATELY=
FЕ TA┤1700 з TX│0=9
PЕ TA▓1700 з TX│.12н(TAм1700)=^
ZЕ TA▓2750 з TX│126л.14н(TAм2750)=Г
dЕ TA▓3800 з TX│273л.16н(TAм3800)=и
nЕ TA▓5950 з TX│617л.19н(TAм5950)=╨
xЕ TA▓8000 з TX│1006.5л.22н(TAм8000)=·
ВЕ TA▓10100 з TX│1468.5л.25н(TAм10100)>$
МЕ TA▓12300 з TX│2018.5л.29н(TAм12300)>L
ЦЕ TA▓14950 з TX│2787л.33н(TAм14950)>v
аЕ TA▓17600 з TX│3661.5л.39н(TAм17600)>а
кЕ TA▓22900 з TX│5728.5л.44н(TAм22900)>╩
┤Е TA▓30000 з TX│8852.5л.49н(TAм30000)>ї
╛Е TA▓42800 з TX│15124.5л.50н(TAм42800)>√
╚Р?
╥:Г?)
▄:Г TAX TABLE UNMARRIED HD OF HOUSE?>
цЕ TA┤2300 з TX│0?_
ЁЕ TA▓2300 з TX│.12н(TAм2300)?Д
·Е TA▓4400 з TX│252л.14н(TAм4400)?йЕ TA▓6500 з TX│546л.16н(TAм6500)?╬Е TA▓8700 з TX│898л.20н(TAм8700)?ЎЕ TA▓11800 з TX│1518л.22н(TAм11800)@"Е TA▓15000 з TX│2222л.23н(TAм15000)@F,Е TA▓18200 з TX│2958л.28н(TAм18200)@n6Е TA▓23500 з TX│4442л.32н(TAм23500)@Ц@Е TA▓28800 з TX│6138л.38н(TAм28800)@╛JЕ TA▓34100 з TX│8152л.41н(TAм34100)@чTЕ TA▓44700 з TX│12498л.49н(TAм44700)A^Е TA▓60600 з TX│20289л.50н(TAм60600)AhРAr:ГA7|:Г SCHEDULE W ROUTINEAiЖЙ"LINE 1-WAGES PAID YOU";W1:Й"YOUR SPOUSE";W2A╡РЙ"LINE 2-NET SELF EMPLOYMENT      PROFIT/LOSS YOU";S1:Й"YOUR SPOUSE";S2AЁЪW1│W1лS1:W2│W2лS2:З"LINE 3-(YOU)";W1:З"YOUR SPOUSE";W2BдЗ"LINE 4-ADJ+REPAYMENT OF SUB PAY"B7оЙ"YOU";A1:Й"YOUR SPOUSE";A2BM╕W1│W1мA1:W2│W2мA2B{┬З"LINE 5-YOU";W1:З"LINE 5-YOUR SPOUSE";W2BШ╠Е W1▓W2 з W3│W2 :Д W3│W1B▓╓Е W3▓30000 з W3│30000CрЗ"LINE 6-";W3:З"LINE 7-NO ENTRY REQUIRED":WC│ Ш(W3н5)о100:З"LINE 8-DEDUCTION";WCC?хЗ:З"    BACK TO FORM 1040":З"    -----------------"CEцРCLъ:ГCНЇЗ:З"CHARITABLE CONTR WORKSHEET","--------------------------"Cм■Й"LINE 1-CASH CONTRIB.";CCC╒Й"LINE 2-OTHER CONTRIB.";CO:CC│CCлCOCїЗ"LINE 3-TOTAL CONTRIB.";CCD!ID│ Ш(CCн25)о100:З"LINE 5-DEDUCTION";IDDC&З"--------------------------"Dz+З"     BACK TO FORM 1040","     -----------------"DА0РDЗ::ГDЯD:Г INCOME AVERAGINGDфNЮ:З"SCHEDULE G-INCOME AVERAGING","---------------------------":ЗESМ I(6),X(10),TI(7),TX(10)EXI(4)│100нT1E#bА N│ 3е0 йм1E0gM│1978лNEflЗ"ENTER THE AMOUNT FROM LINE 34  ";M;"FORM 1040";EqvЙ I(N)EЕ{Е M│1981 з 3240EтАЗ"ENTER YOUR TOTAL NO. OF         EXEMPTIONS MULTIPLIED BY THE    EXEMPTION $ FOR YR";M;EэКЙ X(N)FиTI(N)│I(N)мX(N):Е TI(N)┤0 з TI(N)│0F'нWW│WWлTI(N):ЛF]▓З:Й"EXCLUDED FORIEGN INCOME         1978-1981";XIFЫ╝WW│WWлXI:Й"EXCESSIVE DISTRIBUTIONS         SECTION 72";XDF╔╞XX│I(4)мXD:Й"LINE 17 AMOUNT SEE INSTR";CPFщ╨AI│I(4)мXDмCPм Ш(WWн30)о100G	╒З:З"AVERAGABLE INCOME";AI:ЗG5фЕ AI│┤3000 з З"SORRY, CANT AVERAGE":З:РGeщTA│ Ш(WWн30)о100:Бж 3420:TX(1)│(TX)::Г22-28GШюTA│TAл Ш(20нAI)о100:Бж 3420:TX(2)│(TX)::Г23-27G┐єTA│TAлCP:Бж 3420:T(3)│(TX)::Г25-26G▀°TX(5)│(TX(2)мTX(1))н4::Г 30G■
TA│I(4):Бж 3420:TX(6)│(TX)H
TA│XX:Бж 3420:TX(7)│(TX)H1
TX(8)│TX(6)мTX(7)HX
 TX│ Ш(100н(TX(1)лTX(5)лTX(8)))о100Hj
*Е TX┤0 з TX│0Hx
4Бж 3410:ЗH~
MРHЕ
O:ГHЩ
P:Г TAX PRINTOUTHа
Q:ГH╘
RЗ "LINE 38-TAX";TX:Й"LINE 39-ADDITIONAL TAX";ATHс
STX│TXлATH¤
TЗ"LINE 40-TOTAL TAX";TXI
UРI#
\:Г TAX TABLE FINDER ROUTINEI:
fЕ S$│"1" з Бж 2440IZ
pЕ S$│"2" ▒ S$│"5" з Бж 2270Iq
zЕ S$│"3" з Бж 2620IИ
ДЕ S$│"4" з Бж 2780IО
ОРIХ
Ш:ГIй
в:Г INSTRUCTIONSI░
м:ГI╢
╢ЮI■
└З"THIS PROGRAM WILL CALCULATE YOURTAXES FROM DATA YOU MUST SUPPLY."J0
╩З:З"DO NOT PUT COMMAS BETWEEN YOUR  FIGURES."J<
╘Бж 3600Jб
▐З:З"YOU SHOULD HAVE A COPY OF THE   FORM 1040 INSTRUCTIONS NEARBY   WHILE RUNNING THIS PROGRAM."K

шЗ:З"YOU NEED NOT HIT THE ENTER KEY  WHEN CHOOSING FROM A MENU OR    ANSWERING A YES OR NO QUESTION."Kh
ЄЗ"ON THE OTHER HAND,IF YOUR ANSWERTO ANY QUESTION  IS '0' ONLY THEENTER KEY NEED BE HIT."Kt
№Бж 3600KzРKЭЗ:З"TO CONTINUE, HIT ANY KEY."K╢A$│ Т:Е A$┤▓"" з Ю:РK┬$Бе 3610KEY  WHEN CHOOSING FROM A MENU OR    ANSWERING A YES OR NO                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "THE SCHOOL`LA ESCUELA"
"THE CLASS(ROOM)`LA CLASE"
"TO TAKE AN EXAM`TOMAR UN EXAMEN"
"TEACHER (FEM)`MAESTRA"
"TO LEARN`APRENDER"
"TO STUDY`ESTUDIAR"
"TO TEACH`ENSENAR"
"STUDENT`ESTUDIANTE"
"THE PENCIL`EL LAPIZ"
"THE PEN`LA PLUMA"
"THE PAPER`EL PAPEL"
"TO WRITE`ESCRIBIR"
"I DON'T UNDERSTAND`NO COMPRENDO"
"I DON'T KNOW`NO SE"
"THE CHALK`LA TIZA"
"THE BLACKBOARD`LA PIZARRA"
"TO ASK A QUESTION`PREGUNTAR"
"TO LISTEN(TO)`ESCUCHAR"
"TO ANSWER`CONTESTAR"
"TO UNDERSTAND`COMPRENDER"
"TO WORK IN THE LIBRARY`TRABAJAR EN LA BIBLIOTECA"
"TO READ A BOOK`LEER UN LIBRO"
"MAGAZINE`REVISTA"
"NEWSPAPER`PERIODICO"
"I SPEAK`HABLO"
"YOU(FAM) SPEAK`HABLAS"
"HE/SHE/IT/YOU SPEAK`HABLA"
"WE SPEAK`HABLAMOS"
"THEY SPEAK`HABLAN"
"I EAT`COMO"
"YOU(FAM) EAT`COMES"
"HE/SHE/YOU EAT`COME"
"WE EAT`COMEMOS"
"THEY EAT`COMEN"
"I LIVE`VIVO"
"YOU(FAM) LIVE`VIVES"
"HE/SHE/YOU LIVE`VIVE"
"WE LIVE`VIVIMOS"
"THEY LIVE`VIVEN"
S"
"HE/SHE/IT/YOU SPEAK`HABLA"
"WE SPEAK`HABLAMOS"
"THEY SPEAK`HABLAN"
"I EAT`COMO"
"YOU(FAM) EAT`COMES"
"HE/SHE/YOU EAT`COME"
"WE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ша╬#'╢ #Дє╖ #Ў "╩ў "К╖ #Ж
╖'╖ ╞╖ ╚╖ ╦╖ ╠╖ ╧╖ ╨╖ ╥╖ └╖ ├╖ ┼Жь╖ "Ж№╖ "ЖО(зАМ? &∙О8
р0єО8╒0
0
0
*0
=О8
ЩО8

0т0
?0Є0
M0
bЖZЖЦЖеЖi╢'LБ'I╖' ▌О.@зззИзИМ0$
зззИзИМ/А%
з
ззИзИ0И М0р%╨╖.C╖.D╖.E╖.V╖.W╖/C╖/D╖/V╖/W╖0╚╖0╔╖0╩╖0╓╖0╫Ж╖/X&ў&оО2╢&о├1?&Ў9 ■Ж зДзЙазИ@Ж├зИ зИ`зЙА9Ж├зДзИ зИ@Ж зИ`Ж<зЙАзЙа9Ж зДзИ`Ж├зИ зИ@зЙаЖ╠зЙА9Ж зДзЙаЖ<зИ зИ@зИ`зЙА9Ж зДзИ`Ж├зИ зИ@зЙАзЙа9ЖєзДзИ зИ@Ж╧зИ`зЙАзЙа9Ж зДЖ<зИ зИ@зИ`зЙАзЙа9Ж зДзЙаЖ├зИ зЙАЖ└зИ@зИ`9Ж зИ@Ж├зДзИ зИ`зЙАзЙа9Ж└зДЖ
з
ЖЁзИ ЖзИ!Ж№зИ@Ж?зИAЖ╠зИ`Ж3зИaЖ╧зЙАЖєзЙБЖ├зЙазЙб9Ж зДзИ`Ж├зИ зИ@Ж└зЙАзЙа9Ж зЙаЖ├зДзИ зИ@зИ`зЙА9Ж зДзИ@зЙаЖ└зИ ЖзИ`зЙА9ЖкзДзИ@зЙаЖАзИ ЖзИ`зЙА9Ж зДзЙаЖ├зИ зИ@зИ`зЙА9Ж зДзЙаЖ№зИ@Ж└зИ зИ`зЙА9Ж зЙаЖ└зДзИ зИ@зИ`зЙА9Ж╖'tЖ
╖ ╞╖ ╚╖ ╦╖ ╠╖ ╧╖ ╨╖ ╥╖ └╖ ├╖ ┼Жф╖ "О,┐д0Й┐о0Й┐╕Ж╖и╖▓╖╝О
┐й┐│┐╜О,┐ж0Й┐░0Й┐║ЖО(зАМ@&∙ЖU╖#2О=┐ b
xО=┐ b
mО)a┐@хО)c┐@▄О?Є┐@┐BО.р┐'Ж╖#,О┐ ┐ 
┐ X┐ Z┐ 0┐ 2┐ 4=
АS
wi
npЕ√b
mЄY╛'1?&№фK └╛@М?с'Ж▀╖ ╢ Бў&
0┐@Ж╠	╗9╛@М?■'Ж┐╖ ╢ Бў&
0
┐@Ж╠	Ь9Ж╖ ╢ Бў&R9╛B1й■└Жзд╝B'1и  є9╛@ЖВзДзИрЖкзИ└Ж(зИаЖзИАзЙ `зЙ @зЙ  зЙ Ж зЙ■рЖ<зЙ■└┐B9╛@╛ М&1й■а┐  ╛ 
М&1й■а┐ 
О 1?&№╞кШ■Z&°9╛ М'2Жзд1и└ждБ'
Бi'	О┐ 9М*$
О┐  Ж(зд┐ ╛ 
М'1Жзд1и└ждБ'
Бi'	О┐ 
¤М*$	О┐ 
9Ж(зд┐ 
9Ж√╖ ╢ Б┐&╜а
9╛д╜№дєй├ ■¤д│ж&%╛ ┐д╛ ┐ж╢  ╖и╛ !┐й ╛д╢инl╛о|№оє│├ ■¤о│░&
ф╛ ┐о╛ ┐░╢  ╖▓╛ !┐│ ╛о╢▓l+╛╕;№╕є╜├ ■¤╕│║&
г╛ ┐╕╛ ┐║╢  ╖╝╛ !┐╜9╛╕╢╝,ы9ОпДпИ пИ@пИ`пЙАпЙапЙ└пЙр9Б'SJ'J'ЕJ'└¤?О`пДО_пИ О\пИ@О@_пИ`ОPпЙАпЙ└ОUPпЙаОPпЙр9Оа
пДпИ ОбJпИ@О
@пИ`пЙАО└пЙаО  пЙ└ОЁпЙр9ОЁпДпИ ОкипИ@ОкZпИ`О)jпЙАОпЙаОпЙ└ОпЙр9О	пДОїпИ О5пИ@Ої
пИ`ОTпЙАпЙ└ОUпЙаОPпЙр9ОпДпИ О*кпИ@ОекпИ`ОйhпЙАОPпЙаОпЙ└ОпЙр9╢#,LБ<%О ╖#,r─А'╞ ╞
Ж
┐ !^TTTTё &'Їё ''я╢ '╖ &ў 'Ш╞├*
0И╛ !М
'¤ ┐  ¤ ┐  ┴x"Ж
 
┴╚"Ж Ж╛ !М'Л╖  9╢ ╞9=├[ў 9М:$Є ▒д'▒о'9▒╕'bЖ╖#(?╛дД¤╔╢иу =╛ ┐д╛ ┐ж╢  ╖и╛ !┐й№W?╛оV¤Ы╢▓╡ ╛ ┐о╛ ┐░╢  ╖▓╛ !┐│№)?╛╕(¤m╢╝З■с╛ ┐╕╛ ┐║╢  ╖╝╛ !┐╜√√?ОХVпДпЙрОeYпИ пЙ└ОX%пИ@пЙаОS┼пИ`пЙАОaи1?&№О ШнЖ J&¤1!М$%ыО╞\ШХ1!М %є9╞ Б&О9Б'Б'О
9О2
9╢ 0Б	'L╖ 00&ё9О 1Жз?ждБ	'Lзд х1! э╞ ў? ?О(ЕО 5┐ :жд'8J'cJ'ФJ'═J'■J'
+J'
\J'
ХJ'
╥
0╛ :1?М /&┴9ОккпДпИ пЙ└пЙрОа
пИ@пИ`пЙАпЙа ├ОАпДпИ`пЙАпЙапЙ└О
АпИ О*АпИ@ОккпЙр НОкипДОккпИ пЙ└пЙрО
пИ@О
кпИ`О*ипЙАОипЙа OОкипДпЙрОккпИ пЙ└О
пИ@пЙаО*кпИ`пЙА ОаапДпИ пИ@пИ`ОккпЙАпЙаОапЙ└пЙр■чОккпДпИ пЙАпЙ└ОапИ@ОкипИ`пЙрО
пЙа■▒О*кпДОккпИ пЙАпЙ└ОапИ@ОкипИ`Оа
пЙаО*ипЙр■sОккпДпИ Оа(пИ@ОапИ`ОАпЙАО
пЙаО(пЙ└ОапЙр■1О*ипДпЙрОккпИ пИ`пЙАпЙ└Оа
пИ@пЙа¤ О*ипДОккпИ пИ`пЙ└Оа
пИ@О*кпЙАО
пЙаОкипЙр¤┴0Й
─ў N╢AД▒ N'
9╛ XМ&┐ X9╛ ZМ&┐ Z9О XО Z
9одМ&
9ЖзИАМ?а%(╠зИАзИазИ└зИрзДзИ Опд╞О╠
KZ&°90И@пдМ>Ю%М:%
жДБ('Б&╝ЖiзД9жДБi'Б&
9О╢'tБ&1'Жь╖ "Оd√YШ■0&ЇЖ№╖ "Оd√EШъ0&Ї1?&╘╢'tБ'-J╖'t╛BБ
&О)c┐Bў:┐BuО)a┐Bў)┐BdО3Вї0ї0ї/0ЇгО3Лї>О3ОЇe0їMО3Ує°0їZ0Ї╫0їj0Ї0є┼Жў╖ ╢ Б√'їjЖ√╖ ╢ Б┐' ф╜аЖф╖ "ЖО╛ XМ'┐ XзИАзИазИ└зИрзДзИ ╛ ZМ'┐ ZзИАзИазИ└зИрзДзИ їщ ■J&¤╢ "И╖ "9Ж╖ f╞	ў d╢#2Ў dздZ'1! ў╢ fJ'╖ f╛ b1ир┐ bЎ d ╪Ж╖ fЎ d┴
'╦■ў d╛ b1ис┐ b ║9Жздзи зирЎЬ╛'МИ%}Ж╖#,О	╞Ш z\┴ &Ў1?&Ё╢#2Б &Ж╖#2 ЛU╖#2О=┐ b _О=┐ b TОd┐#7О
·╤О0&№╢#8Д&Ж
 '╛#71?'┐#7 ┘╛'1й№┐'9 аИ їщ ■J&¤╢ "И