'VА A│1 е 9:А B│1 е 4:C│ Д(V3):C(A,B,1)│ Ш((X(C)нRC)лCX):C(A,B,2)│ Ш((Y(C)нмRC)лCY):C(A,B,3)│C:Л B:Л APП'`╚ 4,1:╝:┬(7,7),3:─(0,0)м(15,15),S,G:╝Pв'jO│5:BD│0:BR│75Pъ'tЮ:З@224,"DIFFICULTY LEVEL                (1)HARD (2)MEDIUM (3)EASY"Q4'~A$│ Т:ЕA$│"1" з L│1 :Д Е A$│"2" з L│1.5 :Д Е A$│"3" з L│2 :Д Бе 10110Qg'ИЮ:OX│Lн4250:BO│Lн48:FU│Lн2000:CI│36:HB│(Lн2)м1QО'Т╚ 4,5:╝:┬(CX,CY),50:├(CX,CY):╚ 4,1QЩ'ЬБж 200Qг'ж┐ 1,1Qн'░Бе 20RЬ*°┐ 0,1:Ю:З "YOUR OBJECTIVE IS TO DESTROY ALLTHIRTY-SIX OF THE CITIES ON AN  ENEMY WORLD.  EACH CITY IS      EQUIPPED WITH A DEFENSIVE SHIELDAND A CORBOMITE MISSILE. WHEN A CITY IS DESTROYED, THE CITY WILLFIRE ITS MISSILE TO RETALIATE."Rж+З " "S/+З "UNLESS YOU DO MORE THAN 50%     DAMAGE TO A CITY'S SHIELD, IT   WILL REGENERATE IMMEDIATELY.":З:З " PRESS ANY KEY TO CONTINUE..."SL+A$│ Т:Е A$│"" з Бе 11030T
+ Ю:З "TO OPEN THE SHIP'S CONSOLE,     PRESS C.  TO RETURN TO THE      VIEWSCREEN, PRESS V. TO CHANGE  ORBITS, USE THE LEFT AND RIGHT  ARROW KEYS.  TO DROP A BOMB,    PRESS THE SPACEBAR."TЬ+*З " ":З "TO DEFEND AGAINST INCOMING      MISSILE ATTACKS, USE THE RIGHT  JOYSTICK TO AIM AND FIRE.":З " ":З "   PRESS ANY KEY TO CONTINUE..."T╣+4A$│ Т:Е A$│"" з Бе 11060T┴+>Ю:РE LEFT AND RIGHT  ARROW KEYS.  TO DROP A BOMB,    PRESS THE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ╝Бж8000/╞RI$│A$/╦A$│""/7╨А E│1 е ( З(LE$)н2) й 2/M┌A$│A$л Р(LE$,E,1)/eфA$│A$л Р(RI$,Eл1,1)/mюЛ E/s°Р/ТLВ RECORD JOINING ALGORITHM/дVLE$│"":RI$│""/╗`А E│1 е  З(A$) й 2/╥jLE$│LE$л Р(A$,E,1)/ыtRI$│RI$л Р(A$,Eл1,1)/є~Л E/■ИA$│LE$0
НKE$│K1$0ТБж90000 ЬLE$│A$0+жA$│RI$07лKE$│K2$0B░Бж90000M║RI$│A$0W┐A$│""0s─А E│1 е ( З(LE$)н2) й 20Й╬A$│A$л Р(LE$,E,1)0б╪A$│A$л Р(RI$,Eл1,1)0йтЛ E0пьР0╩@В ENCRYPTION ALGORITHM0╘JD$│""1TЕ  З(KE$)▓ З(A$) з B$│ О(KE$, З(A$)):Бе81301)^Е  З(KE$)│ З(A$) з B$│KE$:Бе813013hB$│""1LrB│ Ш( З(A$)о З(KE$))1e|C│ З(A$)м(Bн З(KE$))1sЖА D│1 е B1БРB$│B$лKE$1ЙЪЛ D1ждЕ  З(B$)│ З(A$) з Бе81301╖оC$│ О(KE$,C)1─╕B$│B$лC$1╫┬А D│1 е  З(A$)2╠B│ К( Р(B$,D,1))м К( Р(A$,D,1)):Е B┤0 з B│Bл2552╓D$│D$л Л(B)2#рЛ D2-ъA$│D$23ЇР2N#(В DECRYPTION ALGORITHM2X#2D$│""2И#<Е  З(KE$)▓ З(A$) з B$│ О(KE$, З(A$)):Бе91302н#FЕ  З(KE$)│ З(A$) з B$│KE$:Бе91302╖#PB$│""2╨#ZB│ Ш( З(A$)о З(KE$))2щ#dC│ З(A$)м(Bн З(KE$))2ў#nА D│1 е B3#xB$│B$лKE$3
#ВЛ D3*#МЕ  З(B$)│ З(A$) з Бе91303;#ЦC$│ О(KE$,C)3H#аB$│B$лC$3[#кА D│1 е  З(A$)3С#┤B│ К( Р(A$,D,1))л К( Р(B$,D,1)):Е B▓255 з B│Bм2553б#╛D$│D$л Л(B)3й#╚Л D3│#╥A$│D$3╣#▄РB│ Ш( З(A$)о З(KE$))2щ#dC│ З(A$)м(Bн З(KE$))2ў#nА D│1 е B3#xB$│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┬>

Бе10000>@XS│ Ш((X(S)нRS)лCX)мV8:YS│ Ш((Y(S)нмRS)лCY)мV8>nS│SлSS:Е S▓V3 з S│SмV3 :Д Е S┤V1 з S│SлV3>╓(A$│ Т:Е A$│" " з Бж 100 :Д Е A$│"C" з Бж 300 :Д Е A$│"V" з Бж 400 :Д Е A$│ Л(8) ▒ A$│ Л(9) з Бж 500?{2┼(XS,YS)м(XSлV5,YSлV5),S,╜:Е BD│V1 з BX│ Ш((X(BA)нBR)лCX):BY│ Ш((Y(BA)нмBR)лCY):╜(BX,BY):BR│BRм Ш(BV):BV│BVнV4:BA│BAлBS:Е BA▓V3 з BA│BAмV3 :Д Е BA┤V1 з BA│BAлV3?Ш7Е BD│V0 з А A│1 е 10:Л A?н<Е SC│V1 з Бж 350?▌FOX│OXмV1:Е OX┤1 з Бе 700 :Д Е CI│0 з Бе 900@:PЕ BR┤52 з А A│1 е 3:┬(BX,BY),A,1:Л A:А A│1 е 3:┬(BX,BY),A,0:Л A:Бж 600:BD│0:BR│75:Бж 200@ЙUЕ QQ│1 з ┐ 0,1:Ю:З@261,"ENEMY MISSILE INBOUND!":А A│1 е 3:╔ KL$:Л A:Бе 800@УZБе 20@▌dЕ BD│V0 ░ BO▓V0 з BD│V1:BR│V7:BA│SлSS:BS│SSоV2:BV│V6:BO│BOмV1:╔ FI$:Р@уnРA<╚╟ 5 е 1:╟ 6 е 2:╟ 7 е 3:╟ 8 е 4:А A│1 е 4:Е C(O,A,3)▓мV1 з ┬(C(O,A,V1),C(O,A,V2)),V9AN╥Л A:╞ P$(O):РAX
,Ю:┐ 0Ac
6SC│1:РA}
^З@9,"SHIP'S CONSOLE";A┘
hЗ@64,"OXYGEN:";OX:З@128,"FUEL:";FU:З@192,"BOMBS:";BO:З@256,"ENEMY CITIES REMAINING:";CIA▀
ЖРAЁ
Р┐ 1,1:SC│0:РA 
ЇЕ FU┤1 з РB"
■Е A$│ Л(8) з O│Oл1:Е O▓9 з O│1BEЕ A$│ Л(9) з O│Oм1:Е O┤1 з O│9BO╔ RB$BkBD│0:FU│FUм100:Бж 200:РBzX╔ EX$:QQ│0BИbА W│1 е 4BЮlQ│ В(C(O,W,3)мBA)B─vЕ Q┤5 з C(O,W,3)│м10:CI│CIм1:QQ│1B╬АЛ W:РC!╝┐ 0:Ю:З@256,"MISSION FAILURE: OXYGEN DEPLETEDBEFORE ALL TARGETS ELIMIMINATED!"C<╞A$│ Т:Е A$│"" з Бе 710C\╨Ю:З@263,"PLAY AGAIN? (Y/N)"CШ┌A$│ Т:Е A$│"Y" з Ю:Бе 10060 :Д Е A$│"N" з Ю:К :Д Бе 730C▌ ╚ 4,5:╝:┬(128,190),128,1,.1,.5,1:├(128,185):╗(0,0)м(256,191),╛,BD0*MX│ Д(25)л115:MY│ Д(15)л160:MH│ Д(3)м2:MV│1:MS│1:DS│1:M$│";N;M+1,+4;M-1,+4;R2"DУ4┐ 1,2:MI$│"BM"л И(MX)л","л И(MY)л";S"л И(MS)лM$:╞ MI$:А A│8 е 5 й м1:╟ A е Aм4:Л A:╚ 4,1:┐ 1,1D╟9JX│( Н(0)н4):Е JX┤9 з JX│9 :Д Е JX▓247 з JX│247D√:JY│( Н(1)н3):Е JY┤7 з JY│7 :Д Е JY▓185 з JY│185E_>╗(JX,JYм5)м(JX,JYм10),╜:╗(JX,JYл5)м(JX,JYл10),╜:╗(JXм5,JY)м(JXм10,JY),╜:╗(JXл5,JY)м(JXл10,JY),╜E╟HP│ Ж(65280):A$│ Т:Е P│126 ▒ P│254 ▒ A$│" " з ╗(0,0)м(JX,JY),╜:╗(255,0)м(JX,JY),╜:╔ SH$:LB│1 :Д LB│0FRRЕ LB│1 з LX│ В(JXмMX):LY│ В(JYмMY):Е LX┤HB ░ LY┤HB з А A│1 е 3:┬(MX,MY),A,1:Л A:А A│1 е 3:┬(MX,MY),A,0:Л A:╔ EX$:QQ│0:╞"S4":╝:Бе 10130FфpMX│MXл Ш(MH):MY│MYм Ш(MV):MV│MVл(( Д(2)м1)н.24):MH│MHл(( Д(3)м2)н.8):DS│DSн1.07:MS│ Ш(DS):╚ 4,5:┐ 1,2:Е MS▓31 ▒ MX┤2 ▒ MX▓252 ▒ MY┤3 з Бе 895FяzБе 820G\┐ 0,1:Ю:З@256,"YOUR SHIP WAS DESTROYED BY AN   ENEMY MISSILE. MISSION FAILURE!        PLAY AGAIN? (Y/N)"GгАA$│ Т:Е A$│"Y" з ╞"S4":QQ│0:Ю:Бе 10060 :Д Е A$│"N" з Ю:К :Д Бе 896G┬ДЮ:З@264,"MISSION SUCCESS!"G▌ОA$│ Т:Е A$│"" з Бе 910HШЮ:З@256,"WOULD YOU LIKE TO PLAY AGAIN?   (Y/N)"HNвA$│ Т:Е A$│"Y" з Ю:Бе 10060 :Д Е A$│"N" з Ю: К :Д Бе 930HЭ'Ю:З@44,"XENOCIDE":З@143,"BY":З@235,"ALISON DENU":З@360,"COPYRIGHT (C)2020"H╒'└ 8:М S(16,16):М C(9,4,3):М X(360):М Y(360):М P$(9)I*'$V0│0:V1│1:V2│2:V3│360:V4│1.057:V5│15:V6│.6:V7│77:V8│8:V9│5:VC│57.29577951:PC│3.6J')EX$│"L255;O1;T255;V31;1;12;6;8;3;9;10;5;11;3;9;12;5;8;2;2;3;12;6;9;2;7;10;4;12;8;5;9;8;1;4;V26;1;9;10;3;1;V19;2;1;4;7;1;V10;2;9;5;2;10;12;6;8":FI$│"L255;O1;T255;V31;12;11;10;9;8;7;6;5;6;7;8;9;11;12":SH$│"L255;O1;T255;V31;5;6;7;8;9;10;11;12"K'+RB$│"L255;O1;T255;V20;12;6;3;9;10;8;2;4;6;9;1;5;10;7;3;9;4;10;7;11;2;7;9;3;9;11;5;V25;1;5;9;10;4;7;2;V30;2;9;6;10;8;2;5;3;11;5;V31;9;4;5":KL$│"L1;O1;T255;V31;A;B;C;B;D;C;E;D;F;E;G;F;O2;A;O1;G;O2;B;A;C;B;D;C;E;D;F;E;G;F;P2"K┼'.P$(1)│"C0;BM128,70;F40;BM108,140;M150,70;M150,121;BM85,80;M95,90;M85,100;M95,110;M85,120;C1":P$(2)│"C0;BM140,70;F30;BM140,140;M160,70;M162,120;BM110,80;M120,90;M110,100;M120,110;M110,120;C1"LЯ'2P$(3)│"C0;BM150,80;M160,90;M150,100;M160,110;M150,120;BM90,100;M110,140;BM110,120;M91,125;C1":P$(4)│"C0;BM168,80;M173,90;M168,100;M173,110;M168,120;BM120,95;M125,140;BM135,115;M95,120;BM104,90;G20;BM90,105;F25;C1"MН'4P$(5)│"C0;BM140,75;M110,120;BM121,102;M145,140;BM130,125;M176,95;BM160,85;M168,119;BM105,110;H25;BM95,120;H14;C1":P$(6)│"C0;BM150,70;M120,115;BM133,95;M145,142;BM135,130;M168,120;BM105,70;M91,125;BM115,107;M88,73;BM105,120;M78,85;C1"N='5P$(7)│"C0;BM120,70;M110,140;BM105,80;M155,115;BM95,90;M145,125;BM160,120;M172,85;BM165,112;M167,121;C1":P$(8)│"C0;BM135,70;M125,145;BM120,80;M175,105;BM115,95;M170,120;C1"N░'6P$(9)│"C0;BM150,80;M175,90;BM147,95;M175,105;BM170,74;M167,121;BM100,65;M135,130;BM85,120;M128,75;M115,120;C1"Nє'8┐ 0:Ю:З"PLEASE WAIT,                    CALCULATING VARIABLES"O@'BА A│V1 е V3:X(A)│ Е(AоVC):Y(A)│ Х(AоVC):З@63, Ш(AоPC);:З"% COMPLETE":Л AOН'LRS│88:RC│50:CX│128.5:CY│96.5:S│ Д(V3):SS│(( Д(3)м2)н2):Е SS│0 з Бе 10060O╕'QЮ:З "WOULD YOU LIKE INSTRUCTIONS? Y/N"O№'RA$│ Т:Е A$│"" з Бе 10066 :Д Е A$│"Y" з Бж 11000 :Д Е A$│"N" з ЮPe/	╝Бж8000/╞RI$│A$/╦A$│""/2╨А E│1 е  З(LE$)/H┌A$│A$л Р(LE$,E,1)/`фA$│A$л Р(RI$,Eл1,1)/hюЛ E/n°Р/НLВ RECORD JOINING ALGORITHM/ЯVLE$│"":RI$│""/╕`А E│1 е  З(A$)м1 й 2/╧jLE$│LE$л Р(A$,E,1)/шtRI$│RI$л Р(A$,Eл1,1)/Ё~Л E/√ИA$│LE$0НKE$│K1$0ТБж90000ЬLE$│A$0(жA$│RI$04лKE$│K2$0?░Бж90000J║RI$│A$0T┐A$│""0h─А E│1 е  З(LE$)0~╬A$│A$л Р(LE$,E,1)0Ц╪A$│A$л Р(RI$,Eл1,1)0ЮтЛ E0дьР0┐@В ENCRYPTION ALGORITHM0╔JD$│""0∙TЕ  З(KE$)▓ З(A$) з B$│ О(KE$, З(A$)):Бе81301^Е  З(KE$)│ З(A$) з B$│KE$:Бе81301(hB$│""1ArB│ Ш( З(A$)о З(KE$))1Z|C│ З(A$)м(Bн З(KE$))1hЖА D│1 е B1vРB$│B$лKE$1~ЪЛ D1ЫдЕ  З(B$)│ З(A$) з Бе81301моC$│ О(KE$,C)1╣╕B$│B$лC$1╠┬А D│1 е  З(A$)2╠B│ К( Р(B$,D,1))л К( Р(A$,D,1)):Е B▓255 з B│Bм2552╓D$│D$л Л(B)2рЛ D2$ъA$│D$2*ЇР2E#(В DECRYPTION ALGORITHM2O#2D$│""2#<Е  З(KE$)▓ З(A$) з B$│ О(KE$, З(A$)):Бе91302д#FЕ  З(KE$)│ З(A$) з B$│KE$:Бе91302о#PB$│""2╟#ZB│ Ш( З(A$)о З(KE$))2р#dC│ З(A$)м(Bн З(KE$))2ю#nА D│1 е B2№#xB$│B$лKE$3#ВЛ D3!#МЕ  З(B$)│ З(A$) з Бе913032#ЦC$│ О(KE$,C)3?#аB$│B$лC$3R#кА D│1 е  З(A$)3Ж#┤B│ К( Р(A$,D,1))м К( Р(B$,D,1)):Е B┤0 з B│Bл2553Ц#╛D$│D$л Л(B)3Ю#╚Л D3и#╥A$│D$3о#▄Р#ZB│ Ш( З(A$)о З(KE$))2р#dC│ З(A$)м(Bн З(KE$))2ю#nА D│1 е B2№#xB$│B$лKE$3;12;5;8;2;2;3;12;6;9;2;7;10;4;12;8;5;9;8;1;4;V26;1;9;10;3;1;V19;2;1;4;7;1;V10;2;9;5;2;10;12;6;8"+mbА A│1 е 4+аlЕ C(O,A,3)▓BA з B│C(O,A,3)мBA :Д B│BAмC(O,A,3)+┴vЕ B┤5 з C(O,A,3)│м10:CI│CIм1+╦АЛ A:Р,╝┐ 0:Ю:З@256,"MISSION FAILURE: OXYGEN DEPLETEDBEFORE ALL TARGETS ELIMIMINATED!",9╞A$│ Т:Е A$│"" з Бе 710,Y╨Ю:З@263,"PLAY AGAIN? (Y/N)",Х┌A$│ Т:Е A$│"Y" з Ю:Бе 10060 :Д Е A$│"N" з Ю:К :Д Бе 730,┤ДЮ:З@264,"MISSION SUCCESS!",╧ОA$│ Т:Е A$│"" з Бе 910-
ШЮ:З@256,"WOULD YOU LIKE TO PLAY AGAIN? (Y/N)"-<вA$│ Т:Е A$│"Y" з Бе 10060 :Д Е A$│"N" з Ю: К :Д Бе 930-e'В THIS IS THE INITIALIZATION SECTION-Э'└ 8:М S(16,16):М C(9,4,3):М X(360):М Y(360):М P$(9)-Є'$V0│0:V1│1:V2│2:V3│360:V4│1.057:V5│15:V6│.6:V7│77:V8│8:V9│5:VC│57.29577951:PC│3.6.╡'.P$(1)│"C0;BM128,70;F40;BM108,140;M150,70;M150,121;BM85,80;M95,90;M85,100;M95,110;M85,120;C1":P$(2)│"C0;BM140,70;F30;BM140,140;M160,70;M162,120;BM110,80;M120,90;M110,100;M120,110;M110,120;C1"/П'2P$(3)│"C0;BM150,80;M160,90;M150,100;M160,110;M150,120;BM90,100;M110,1$/╝Бж8000/╞RI$│A$/ ╦A$│""/4╨А E│1 е  З(LE$)/J┌A$│A$л Р(LE$,E,1)/`фA$│A$л Р(RI$,E,1)/hюЛ E/n°Р/НLВ RECORD JOINING ALGORITHM/ЯVLE$│"":RI$│""/╕`А E│1 е  З(A$)м1 й 2/╧jLE$│LE$л Р(A$,E,1)/шtRI$│RI$л Р(A$,Eл1,1)/Ё~Л E/√ИA$│LE$0НKE$│K1$0ТБж90000ЬLE$│A$0(жA$│RI$04лKE$│K2$0?░Бж90000J║RI$│A$0T┐A$│""0h─А E│1 е  З(LE$)0~╬A$│A$л Р(LE$,E,1)0Ф╪A$│A$л Р(RI$,E,1)0ЬтЛ E0вьР0╜@В ENCRYPTION ALGORITHM0╟JD$│""0ўTЕ  З(KE$)▓ З(A$) з B$│ О(KE$, З(A$)):Бе81301^Е  З(KE$)│ З(A$) з B$│KE$:Бе81301&hB$│""1?rB│ Ш( З(A$)о З(KE$))1X|C│ З(A$)м(Bн З(KE$))1fЖА D│1 е B1tРB$│B$лKE$1|ЪЛ D1ЩдЕ  З(B$)│ З(A$) з Бе81301коC$│ О(KE$,C)1╖╕B$│B$лC$1╩┬А D│1 е  З(A$)2╠B│ К( Р(B$,D,1))л К( Р(A$,D,1)):Е B▓255 з B│Bм2552╓D$│D$л Л(B)2рЛ D2"ъA$│D$2(ЇР2C#(В DECRYPTION ALGORITHM2M#2D$│""2}#<Е  З(KE$)▓ З(A$) з B$│ О(KE$, З(A$)):Бе91302в#FЕ  З(KE$)│ З(A$) з B$│KE$:Бе91302м#PB$│""2┼#ZB│ Ш( З(A$)о З(KE$))2▐#dC│ З(A$)м(Bн З(KE$))2ь#nА D│1 е B2·#xB$│B$лKE$3#ВЛ D3#МЕ  З(B$)│ З(A$) з Бе913030#ЦC$│ О(KE$,C)3=#аB$│B$лC$3P#кА D│1 е  З(A$)3Д#┤B│ К( Р(A$,D,1))м К( Р(B$,D,1)):Е B┤0 з B│Bл2553Ф#╛D$│D$л Л(B)3Ь#╚Л D3ж#╥A$│D$3м#▄Р#ZB│ Ш( З(A$)о З(KE$))2▐#dC│ З(A$)м(Bн З(KE$))2ь#nА D│1 е B2·#xB$│B$лKE$3#В╚ 4,14'ЬБж 2004'ж┐ 1,14#'░Бе 20'tЮ:З@224,"DIFFICULTY LEVEL                (1)HARD (2)MEDIUM (3)EASY"3╡'~A$│ Т:ЕA$│"1" з L│1 :Д Е A$│"2" з L│1.5 :Д Е A$│"3" з L│2 :Д Бе 101103▌'ИЮ:OX│Lн7250:BO│Lн42:FU│Lн1000:CI│364'Т╚ 4,5:╝:┬(CX,CY),50:├(CX,CY):                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
п&Х 4000&
В MAIN LOOP&"Ю&GЗ"PRIVATE LEDGER BY ALISON DENU"&MЗ&gЗ "1. FIND RECORD(S)"&ГЗ "2. REPLACE A RECORD"&в(З "3. CREATE A NEW RECORD"&├2З "4. CREATE A NEW DATABASE"&с<З "5. ENCRYPT A DATABASE"& FЗ "6. DECRYPT A DATABASE"'PЗ "7. QUIT PROGRAM"'5ZЗ:З "WHICH OPTION? (1-7)"'OdA$│ Т:Е A$│"" з Бе100'fnЕ A$│"1" з Бе 1000'}xЕ A$│"2" з Бе 2000'ФВЕ A$│"3" з Бе 3000'лМЕ A$│"4" з Бе 4000'┬ЦЕ A$│"5" з Бе 5000'┘аЕ A$│"6" з Бе 6000'ЄкЕ A$│"7" з К :Д Бе10(шВ FIND RECORD(S)(
эЮ(BЄЙ"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8)(a№╗ Й"SEARCH STRING? ";SE$:З(yЩ "D",#1,FI$л"/DAT"(ЕR│ е(1)(УА A│1 е R(Ю$─ #1,A(к.Й #1,A$(╔3А B│1 е ( З(A$)л1)м З(SE$))8Е  Р(A$,B, З(SE$))│SE$ з З "RECORD #";:З д2); И(A):З A$:З:B│( З(A$)л1)м З(SE$))$=Л B),BЛ A)5LЪ #1)WQЗ"END OF FILE. PRESS ANY KEY"){VA$│ Т:ЕA$│"" з Бе 1110 :Д Бе 10)Т╨В REPLACE A RECORD)Ш╒Ю)═┌Й"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8))хфЙ"RECORD NUMBER";RN)№юЩ"D",#1,FI$л"/DAT"*°─#1,RN*Й #1,A$*З A$*1Й"NEW RECORD";A$*< ┘#1,A$*H*┼ #1,RN*Q4Ъ #1*[>Бе 10*u╕В CREATE A NEW RECORD*м╜Ю:Й"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8)*├┬Щ"D",#1,FI$л"/DAT"*╥╠RN│ е(1)л1*ы╓╗ Й"NEW RECORD? ";A$+█Е  З(A$)о2┤▓ Ш( З(A$)о2) з A$│A$л Л(0)+!р┘#1,A$+,ъ┼#1,RN+4ЇЪ#1+=■Бе10+ZаВ CREATE A NEW DATATBASE+СкЮ:Й"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8)+и┤Щ"D",#1,FI$л"/DAT"+┐╛┘#1,"FIRST RECORD"+╩╚┼ #1,1+╙╥Ъ #1+▄▄Бе10+їИВ ENCRYPT A DATABASE+√ТЮ,0ЬЙ"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8),Fж╗ Й"KEY #1? ";K1$,\░╗ Й"KEY #2? ";K2$,s║Щ"D",#1,FI$л"/DAT",Е─А A│1 е  е(1),╗╔З@160,"ENCRYPTING RECORD #"; И(A);" OF"; И( е(1)),┼╬─#1,A,╨╪Й#1,A$,█Бж7000,ц
┘#1,A$,Ё┼#1,A,°Л A-(Ъ#1-	2Бе10-"pВ DECRYPT A DATABASE-(zЮ-]ДЙ"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8)-sО╗ Й"KEY #1? ";K1$-ЙШ╗ Й"KEY #2? ";K2$-авЩ"D",#1,FI$л"/DAT"-▓мА A│1 е  е(1)-ш▒З@160,"DECRYPTING RECORD #"; И(A);" OF"; И( е(1))-Є╢─#1,A-¤└Й#1,A$.шБж7500.Є┘#1,A$.№┼#1,A.%Л A.-Ъ#1.6Бе10.WXВ RECORD SPLITTING ALGORITHM.ibLE$│"":RI$│"".ВlА E│1 е  З(A$)м1 й 2.ЩvLE$│LE$л Р(A$,E,1).▓АRI$│RI$л Р(A$,Eл1,1).║КЛ E.┼ФA$│LE$.╤ЩKE$│K1$.▄ЮБж8000.чиLE$│A$.Є▓A$│RI$.■╖KE$│K2$ 
н&Х 4000&
В MAIN LOOP&"Ю&IЗ"PRIVATE LEDGER 2 BY ALISON DENU"&OЗ&iЗ "1. FIND RECORD(S)"&ЕЗ "2. REPLACE A RECORD"&д(З "3. CREATE A NEW RECORD"&┼2З "4. CREATE A NEW DATABASE"&у<З "5. ENCRYPT A DATABASE"'
FЗ "6. DECRYPT A DATABASE"'PЗ "7. QUIT PROGRAM"'7ZЗ:З "WHICH OPTION? (1-7)"'QdA$│ Т:Е A$│"" з Бе100'hnЕ A$│"1" з Бе 1000'xЕ A$│"2" з Бе 2000'ЦВЕ A$│"3" з Бе 3000'нМЕ A$│"4" з Бе 4000'─ЦЕ A$│"5" з Бе 5000'█аЕ A$│"6" з Бе 6000'ЇкЕ A$│"7" з К :Д Бе10(	шВ FIND RECORD(S)(эЮ(DЄЙ"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8)(c№╗ Й"SEARCH STRING? ";SE$:З({Щ "D",#1,FI$л"/DAT"(ЗR│ е(1)(ХА A│1 е R(а$─ #1,A(м.Й #1,A$(╦3А B│1 е ( З(A$)л1)м З(SE$))8Е  Р(A$,B, З(SE$))│SE$ з З "RECORD #";:З д2); И(A):З A$:З:B│( З(A$)л1)м З(SE$))&=Л B).BЛ A)7LЪ #1)YQЗ"END OF FILE. PRESS ANY KEY")}VA$│ Т:ЕA$│"" з Бе 1110 :Д Бе 10)Ф╨В REPLACE A RECORD)Ъ╒Ю)╧┌Й"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8))чфЙ"RECORD NUMBER";RN)■юЩ"D",#1,FI$л"/DAT"*	°─#1,RN*Й #1,A$*З A$*3Й"NEW RECORD";A$*> ┘#1,A$*J*┼ #1,RN*S4Ъ #1*]>Бе 10*w╕В CREATE A NEW RECORD*о╜Ю:Й"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8)*┼┬Щ"D",#1,FI$л"/DAT"*╘╠RN│ е(1)л1*э╓╗ Й"NEW RECORD? ";A$+█Е  З(A$)о2┤▓ Ш( З(A$)о2) з A$│A$л Л(0)+#р┘#1,A$+.ъ┼#1,RN+6ЇЪ#1+?■Бе10+\аВ CREATE A NEW DATATBASE+УкЮ:Й"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8)+к┤Щ"D",#1,FI$л"/DAT"+┴╛┘#1,"FIRST RECORD"+╠╚┼ #1,1+╒╥Ъ #1+▐▄Бе10+ўИВ ENCRYPT A DATABASE+¤ТЮ,2ЬЙ"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8),Hж╗ Й"KEY #1? ";K1$,^░╗ Й"KEY #2? ";K2$,u║Щ"D",#1,FI$л"/DAT",З─А A│1 е  е(1),╜╔З@160,"ENCRYPTING RECORD #"; И(A);" OF"; И( е(1)),╟╬─#1,A,╥╪Й#1,A$,▌Бж7000,ш
┘#1,A$,Є┼#1,A,·Л A-(Ъ#1-2Бе10-$pВ DECRYPT A DATABASE-*zЮ-_ДЙ"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8)-uО╗ Й"KEY #1? ";K1$-ЛШ╗ Й"KEY #2? ";K2$-ввЩ"D",#1,FI$л"/DAT"-┤мА A│1 е  е(1)-ъ▒З@160,"DECRYPTING RECORD #"; И(A);" OF"; И( е(1))-Ї╢─#1,A- └Й#1,A$.
шБж7500.Є┘#1,A$.№┼#1,A.'Л A./Ъ#1.8Бе10.YXВ RECORD SPLITTING ALGORITHM.kbLE$│"":RI$│"".ДlА E│1 е  З(A$)м1 й 2.ЫvLE$│LE$л Р(A$,E,1).┤АRI$│RI$л Р(A$,Eл1,1).╝КЛ E.╟ФA$│LE$.╙ЩKE$│K1$.▐ЮБж8000.щиLE$│A$.Ї▓A$│RI$/╖KE$│K2 
F&
М A(10,2)&>╣ ╠X(DX)│ Ш(( Е(DXо57.29577951)н50)л128.5)&m╣ ╠Y(DY)│ Ш(( Х(DYо57.29577951)нм50)л96.5)&v(╚4,1&|2╝&Е<┐1,1&ЛF╝&ХPA│Aл6&зZЕ A▓359 з A│0&╡dА D│1 е 2&╜nB│A&╔xC│Aл180&┌ВA(1,1)│╠X(B)&ыМA(1,2)│╠Y(B)&№ЦA(2,1)│╠X(C)'
аA(2,2)│╠Y(C)'кЛ D'<┤╗(A(1,1),A(1,2))м(A(2,1),A(2,2)),╜'E╛Бе70DY)│ Ш(( Х(DYо57.29577951)нм50)л96.5)&v(╚4,1&|2╝&Е<┐1,1&ЛF╝&ХPA│Aл6&зZЕ A▓359 з A│0&╡dА D│1 е 2&╜nB│A&╔xC│Aл180&┌ВA(1,1)│╠X(B)&ыМA(1,2)│╠Y(B)&№ЦA(2,1)│╠X(C)'
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
a>	
└ 8>М V(20,20)>"╚ 4,5>((╝>22╚ 4,1>8<╝>GF┬(11,11),9>^P─(1,1)м(20,20),V,G>dZ╝>mdSF│1>{nX│ Д(235)>ЙxY│ Д(171)>ТВXV│1>ЫМYV│1>еЦ┐ 1,5>░а╚ 4,SF>╢к╝>┴┤X│XлXV>ф╛Е X│235 ▒ X│0 з XV│XVнм1:а 1,1>я╚Y│YлYV?╥Е Y│171 ▒ Y│0 з YV│YVнм1:а 1,1?-▄┼(X,Y)м(Xл19,Yл19),V,▒?8ц┐ 1,SF?DЁSF│SFл4?U·ЕSF▓5 з SF│1?`
Бе 160╝>mdSF│1>{nX│ Д(235)>ЙxY│ Д(171)>ТВXV│1>ЫМYV│1>еЦ┐ 1,5>░а╚ 4,SF>╢к╝>┴┤X│XлXV>ф╛Е X│235 ▒ X│0 з XV│XVнм1:а 1,1>я╚Y│YлYV?╥Е Y│171 ▒ YV3 з C2│C2мV3 :Д Е C2┤V1 з C2│C2лV3@XnC3│C3лSC:Е C3▓V3 з C3│C3мV3 :Д Е C3┤V1 з C3│C3лV3@ОxC4│C4лSC:Е C4▓V3 з C4│C4мV3 :Д Е C4┤V1 з C4│C4лV3@оВ┐ 1,SP:SP│SPл4:ЕSP▓5 з SP│1@╕МБе 20@с'В THIS IS THE INITIALIZATION SECTION@¤'└ 8:М S(8,8):М C(12,12)A='$V0│0:V1│1:V2│2:V3│360:VC│57.29577951:PC│3.6:М X(V3):М Y(V3)A`'.SS│( Д(7)м4):Е SS│0 з Бе 10030AГ'8SC│( Д(7)м4):Е SC│0 з Бе 10040A┬'BЮ:З"PLEASE WAIT,                    CALCULATING VARIABLES"A╥'LА A│V1 е V3B'VX(A)│ Е(AоVC):Y(A)│ Х(AоVC):З@63, Ш(AоPC);:З"% COMPLETE"B'`Л AB8'jRS│75:RC│50:CX│128.5:CY│96.5Br'tS│ Д(360):C1│ Д(360):C2│ Д(360):C3│ Д(360):C4│ Д(360)B╕'~╚ 4,1:╝:┬(3,3),4:─(0,0)м(7,7),S,G:╝:┬(5,5),6:─(0,0)м(11,11),C,G:╝B┴'ИSP│1B╩'ТБе20 е V3B'VX(A)│ Е(AоVC):Y(A)│ Х(AоVC):З@63, Ш(AоPC                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ┼     ─  ─                            OTATE  BAS IETPUT  BAS!dRBITS1 BAS"ZRBITS2 BAS#╪DEMO    DAT
 $
EGG2    DAT
 '
EDGER  BAS▓OUNDS  BAS%2HIS TIMDAT
 (
RAWINGSBAS&ILEDGER2 BAS░ENOCIDEBAS┼ESD    DAT
 (                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 W>

Бе10000><В THIS IS THE BEGINNING OF THE ACTION LOOP>I╚ 4,SP:╝>В(XS│ Ш((X(S)нRS)лCX):YS│ Ш((Y(S)нмRS)лCY):╜(XS,YS,V1)>╜2X1│ Ш((X(C1)нRC)лCX):Y1│ Ш((Y(C1)нмRC)лCY):╜(X1,Y1,V1)>°<X2│ Ш((X(C2)нRC)лCX):Y2│ Ш((Y(C2)нмRC)лCY):╜(X2,Y2,V1)?3FX3│ Ш((X(C3)нRC)лCX):Y3│ Ш((Y(C3)нмRC)лCY):╜(X3,Y3,V1)?nPX4│ Ш((X(C4)нRC)лCX):Y4│ Ш((Y(C4)нмRC)лCY):╜(X4,Y4,V1)?ЬZS│SлSS:Е S▓V3 з S│SмV3 :Д Е S┤V1 з S│SлV3?╥dC1│C1лSC:Е C1▓V3 з C1│C1мV3 :Д Е C1┤V1 з C1│C1лV3@nC2│C2лSC:Е C2▓V3 з C2│C2мV3 :Д Е C2┤V1 з C2│C2лV3@>xC3│C3лSC:Е C3▓V3 з C3│C3мV3 :Д Е C3┤V1 з C3│C3лV3@tВC4│C4лSC:Е C4▓V3 з C4│C4мV3 :Д Е C4┤V1 з C4│C4лV3@ФМ┐ 1,SP:SP│SPл4:ЕSP▓5 з SP│1@ЮЦБе 20@╟'В THIS IS THE INITIALIZATION SECTION@╧'└ 8A'$V0│0:V1│1:V2│2:V3│360:VC│57.29577951:PC│3.6:М X(V3):М Y(V3)A2'.SS│( Д(7)м4):Е SS│0 з Бе 10030AU'8SC│( Д(7)м4):Е SC│0 з Бе 10040AФ'BЮ:З"PLEASE WAIT,                    CALCULATING VARIABLES"Aд'LА A│V1 е V3Aс'VX(A)│ Е(AоVC):Y(A)│ Х(AоVC):З@63, Ш(AоPC);:З"% COMPLETE"Aщ'`Л AB
'jRS│75:RC│50:CX│128.5:CY│96.5BD'tS│ Д(360):C1│ Д(360):C2│ Д(360):C3│ Д(360):C4│ Д(360)BM'~SP│1BV'ИБе20BЮ:З"PLEASE WAIT,                    CALCULATING VARIABLES"Aд'LА A│V1 е V3Aс'VX(A)│ Е(AоVC):Y(A)│ Х(AоVC):З@63, Ш(AоPC);:З"% COMPLETE"Aщ'`Л AB
'jRS│75:RC│50:CX│12                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╒>

Бе10000>╚ 4,SP:╝>`XS│ Ш((X(S)нRS)лCX):YS│ Ш((Y(S)нмRS)лCY):┼(XS,YS)м(XSл7,YSл7),S,▒>к(X1│ Ш((X(C1)нRC)лCX):Y1│ Ш((Y(C1)нмRC)лCY):┼(X1,Y1)м(X1л11,Y1л11),C,▒>Ї2X2│ Ш((X(C2)нRC)лCX):Y2│ Ш((Y(C2)нмRC)лCY):┼(X2,Y2)м(X2л11,Y2л22),C,▒?><X3│ Ш((X(C3)нRC)лCX):Y3│ Ш((Y(C3)нмRC)лCY):┼(X3,Y3)м(X3л11,Y3л11),C,▒?ИFX4│ Ш((X(C4)нRC)лCX):Y4│ Ш((Y(C4)нмRC)лCY):┼(X4,Y4)м(X4л11,Y4л11),C,▒?╢PS│SлSS:Е S▓V3 з S│SмV3 :Д Е S┤V1 з S│SлV3?ьZC1│C1лSC:Е C1▓V3 з C1│C1мV3 :Д Е C1┤V1 з C1│C1лV3@"dC2│C2лSC:Е C2▓V3 з C2│C2мV3 :Д Е C2┤V1 з C2│C2лV3@XnC3│C3лSC:Е C3▓V3 з C3│C3мV3 :Д Е C3┤V1 з C3│C3лV3@ОxC4│C4лSC:Е C4▓V3 з C4│C4мV3 :Д Е C4┤V1 з C4│C4лV3@оВ┐ 1,SP:SP│SPл4:ЕSP▓5 з SP│1@╕МБе 20@┴'Бе20@ъ'В THIS IS THE INITIALIZATION SECTIONA'└ 8:М S(8,8):М C(12,12)AF'$V0│0:V1│1:V2│2:V3│360:VC│57.29577951:PC│3.6:М X(V3):М Y(V3)Ai'.SS│( Д(7)м4):Е SS│0 з Бе 10030AМ'8SC│( Д(7)м4):Е SC│0 з Бе 10040A╦'BЮ:З"PLEASE WAIT,                    CALCULATING VARIABLES"A█'LА A│V1 е V3B'VX(A)│ Е(AоVC):Y(A)│ Х(AоVC):З@63, Ш(AоPC);:З"% COMPLETE"B '`Л ABA'jRS│75:RC│50:CX│128.5:CY│96.5B{'tS│ Д(360):C1│ Д(360):C2│ Д(360):C3│ Д(360):C4│ Д(360)B┴'~╚ 4,1:╝:┬(3,3),4:─(0,0)м(7,7),S,G:╝:┬(5,5),6:─(0,0)м(11,11),C,G:╝B╩'ИSP│1B╘'ТБе 20е V3B'VX(A)│ Е(AоVC):Y(A)│ Х(AоVC):З@6 (2)MEDIUM (3)EASY"CZ'ЬA$│ Т:ЕA$│"1" з L│1 :Д Е A$│"2" з L│2 :Д Е A$│"3" з L│3 :Д Бе 10140Cz'жOX│Lн1000:BO│Lн50:FU│Lн1000CП'░З OX:З BO:З FU:К(0,0)м(7,7),S,G:╝:┬(5,5),6:─(0,0)м(11,11),C,G:╝B╩'ИSP│1C'ТЮ:З@224,"DIFFICULTY LEVEL                (1)HARD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "FIRST RECORD"
A2 cCU[LSE#EeGNWYE  'B FEbO!T#AgH"
"
"
G."
                                                                                                  "THIS IS A TEST. THIS IS ONLY A TEST."
 FEbO!T#AgH"
"
"
G."
                                                                                                  "HAD THIS BEEN AN ACTUAL EMERGENCY, YOU WOULD HAVE BEEN UNSTRUCTED WHERE TO TUNE IN YOUR AREA"
"
                                                                                "WE NOW RETURN YOU TO YOUR REGULARLY SCHEDULED PROGRAMING.  THIS IS ONLY A TEST"
"
 YOUR AREA."
                                                                                 A NEW RECORD*C╜Ю:Й"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8)*Z┬Щ"D",#1,FI$л"/DAT"*i╠RN│ е(1)л1*~╓Й"NEW RECORD";A$*Йр┘#1,A$*Фъ┼#1,RN*ЬЇЪ#1*е■Бе10*┬аВ CREATE A NEW DATATBASE*∙кЮ:Й"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8)+┤Щ"D",#1,FI$л"/BAS"+'╛┘#1,"FIRST RECORD"+2╚┼ #1,1+;╥Ъ #1+D▄Бе10┬Щ"D",#1,FI$л"/DAT"*i╠RN│ е(1)л1*~╓Й"NEW RECORD";A$*Йр┘#1,A$*Фъ┼#1,RN*ЬЇЪ#1*е■Бе10*┬аВ CREATE A NEW DATATBASE*∙кЮ:Й"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8)+┤Щ9│5:VC│57.29577951:PC│3.6D['8┐ 0:Ю:З"PLEASE WAIT,                    CALCULATING VARIABLES"Dи'BА A│V1 е V3:X(A)│ Е(AоVC):Y(A)│ Х(AоVC):З@63, Ш(AоPC);:З"% COMPLETE":Л ADї'LRS│88:RC│50:CX│128.5:CY│96.5:S│ Д(V3):SS│(( Д(3)м2)н2):Е SS│0 з Бе 10060E^'VА A│1 е 9:А B│1 е 4:C│ Д(V3):C(A,B,1)│ Ш((X(C)нRC)лCX):C(A,B,2)│ Ш((Y(C)нмRC)лCY):C(A,B,3)│C:Л B:Л AEИ'`╚ 4,1:╝:┬(7,7),3:─(0,0)м(15,15),S,G:╝EЫ'jO│5:BD│0:BR│75Eу'tЮ:З@224,"DIFFICULTY LEVEL                (1)HARD (2)MEDIUM (3)EASY"F+'~A$│ Т:ЕA$│"1" з L│1 :Д Е A$│"2" з L│2 :Д Е A$│"3" з L│3 :Д Бе 10110FS'ИЮ:OX│Lн1000:BO│Lн50:FU│Lн1000:CI│36Fz'Т╚ 4,5:╝:┬(CX,CY),50:├(CX,CY):╚ 4,1FЕ'ЬБж 200FП'ж┐ 1,1FЩ'░Бе 20Eу'tЮ:З@224,"DIFFICULTY LEVEL                (1)HARD (2)MEDIUM (3)EASY"F+'~A$│ Т:ЕA$│"1" з L│1 :Д  />Y
B$│"L1;O1;T255;V31;A;B;C;B;D;C;E;D;F;E;G;F;O2;A;01;G;02;B;A;C;B;D;C;E;D;F;E;G;F;P2">dБж 140>yА A│1 е 3:╔ B$:Л?(A$│"L255;O1;T255;V31;1;12;6;8;3;9;10;5;11;3;9;12;5;8;2;2;3;12;6;9;2;7;10;4;12;8;5;9;8;1;4;V26;1;9;10;3;1;V19;2;1;4;7;1;V10;2;9;5;2;10;12;6;8"?2Бж 140?<╔ A$?мFC$│"L255;O1;T255;V20;12;6;3;9;10;8;2;4;6;9;1;5;10;7;3;9;4;10;7;11;2;7;9;3;9;11;5;V25;1;5;9;10;4;7;2;V30;2;9;6;10;8;2;5;3;11;5;9;V31;4;5"?╖PБж 140?└Z╔ C$?■dD$│"L255;O1;T255;V31;12;11;10;9;8;7;6;5;6;7;8;9;10;11;12"@	nБж 140@x╔ D$@ВК@.МА A│1 е 300:Л A:Р255;V20;12;6;3;9;10;8;2;4;6;9;1;5;10;7;3;9;4;10;7;11;2;7;9;3;9;11;5;V25;1;5;9;10;4;7;2;V30;2;9;6;10;8;2;5;3;11;5;9;V31;4;5"?╖PБж 140?└Z╔ C$?■dD$│"L255;O1;T255;V31;12;11;10;9;8;7;6;5;6;7;8;9;10;11;12"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 F>

Бж 1000>eA$│"BM128,70;F40;BM108,140;M150,70;M150,121;BM85,80;M95,90;M85,100;M95,110;M85,120">n╞ A$>И(I$│ Т:Е I$│"" з Бе 40>Ф2Бж 1000>ё<A$│"BM140,70;F30;BM140,140;M160,70;M162,120;BM110,80;M120,90;M110,100;M120,110;M110,120">·F╞ A$?PI$│ Т:Е I$│"" з Бе 80? ZБж 1000?ydA$│"BM150,80;M160,90;M150,100;M160,110;M150,120;BM90,100;M110,140;BM110,120;M91,125"?Вn╞ A$?ЭxI$│ Т:Е I$│"" з Бе 120?йВБж 1000@МA$│"BM168,80;M173,90;M168,100;M173,110;M168,120;BM120,95;M125,140;BM135,115;M95,120;BM104,90;G20;BM90,105;F25"@%Ц╞ A$@@аI$│ Т:Е I$│"" з Бе 160@LкБж 1000@╣┤A$│"BM140,75;M110,120;BM121,102;M145,140;BM130,125;M176,95;BM160,85;M168,119;BM105,110;H25;BM95,120;H14"@┬╛╞ A$@█╚I$│ Т:ЕI$│""з Бе 200@ч╥Бж 1000AZ▄A$│"BM150,70;M120,115;BM133,95;M145,142;BM135,130;M168,120;BM105,70;M91,125;BM115,107;M88,73;BM105,120;M78,85"Acц╞ A$A~ЁI$│ Т:Е I$│"" з Бе 240AК·Бж 1000Aэ
A$│"BM120,70;M110,140;BM105,80;M155,115;BM95,90;M145,125;BM160,120;M172,85;BM165,112;M167,121"AЎ
╞ A$B
I$│ Т:Е I$│"" з Бе 280B
"Бж 1000B\
,A$│"BM135,70;M125,145;BM120,80;M175,105;BM115,95;M170,120"Be
6╞ A$BА
@I$│ Т:Е I$│"" з Бе 320BМ
JБж 1000BЎ
TA$│"BM150,80;M175,90;BM147,95;M175,105;BM170,74;M167,121;BM100,65;M135,130;BM85,120;M128,75;M115,120"B 
^╞ A$C
hI$│ Т:Е I$│"" з Бе 360C$чБе 10CEш╚ 4,1:╝:┬(128,96),50:┐ 1,1:Р5;BM115,95;M170,120"Be
6╞ A$BА
@I$│ Т:Е I$│"" з Бе 320BМ
JБж 1000BЎ
TA$│"BM150,80;M175,90;BM147,95;M175,105;BM170,74;M167,121;BM100,65;M135,130;BM85,120;M128,75;M115,120"B 
^╞ A$                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "ПsаХжeЦеaСбУФеСШlУЧУfлСФЬЮПОЕdйПКУlгНйХeМЯЬМФЧИЯНЭrХЧРПвСЖiЯЯiОТЦЩЬХХЬбвeЩФЧаiТeЛФРЩеЮЬoУЬйФФжСiЩЭiУЛЙРШеtУЧРЭдКТeавlжКЫЩФiлЫЗcФВЫrУУgЩЮlеТЫПУКвsМЛЖНЯЧвМЧ"
                                                  "ЪЫТзsЩМгЖurОeЬЪиСдХФЗнОЖsжЛОaЩеМeФТsаЬОeЪнШiЮКЬжaзбrЩЧНлlНОлwiОТЦЩЬХХжrиНКlеРНiИОФЫХЦжИбФwЫРeжФОlФХИПУЭШлиcЛКвЧiЖУРsЧЩвДfФЧЪеЫУжФiжМКgСЫСбiЧОЖЫЧЦЭИЧ"
"
GE"
                                                  "ПsагбlЧvДСУУМШlХЪлЭЧПеРbШЮЦОmdЫХeФЮЧСжiЩХvФОШХcзЙЩrХНРШгСРРЧfСШТШЪЧsaжбtЩНСvЧОвШfФЧШsжЛФaзЮГОааОдШiЮПСХsФаПeГЫrКССyЦНдЬ~fРЧЫsЛcйКХЮdЪЪСeЯЬЦдТКiбШвЦeЛиеиeУЯoОЬПСШЧ"
"
                                             "ПsаЭЯСcЧНЬбeИеСХаЧiРfЫКЦФФДЬЖdйРЩНlЩЫйЫeШЫМШеЙЦsФгrжНРаwаКОrЙСКТЦМЦeХвrШКИЮпЬЭiЖШШiбФкМЬК▒ЧЖsrХpвЙiУХШЭsанcШЖЩдОЩeРШПгНЧШoЫабЙ"
"
L USE SIMPLE KEYS JUST AS BEFORE."
                                             °─#1,RN*Й #1,A$*З A$*0Й"NEW RECORD";A$*; ┘#1,A$*G*┼ #1,RN*P4Ъ #1*Z>Бе 10*t╕В CREATE A NEW RECORD*л╜Ю:Й"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8)*┬┬Щ"D",#1,FI$л"/DAT"*╤╠RN│ е(1)л1*ъ╓╗ Й"NEW RECORD? ";A$*їр┘#1,A$+ъ┼#1,RN+ЇЪ#1+■Бе10+.аВ CREATE A NEW DATATBASE+eкЮ:Й"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8)+|┤Щ"D",#1,FI$л"/DAT"+У╛┘#1,"FIRST RECORD"+Ю╚┼ #1,1+з╥Ъ #1+░▄Бе10+╔ИВ ENCRYPT A DATABASE+╧ТЮ,ЬЙ"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8),ж╗ Й"KEY #1? ";K1$,0░╗ Й"KEY #2? ";K2$,G║Щ"D",#1,FI$л"/DAT",Y─А A│1 е  е(1),П╔З@160,"ENCRYPTING RECORD #"; И(A);" OF"; И( е(1)),Щ╬─#1,A,д╪Й#1,A$,░тKE$│K1$,╗ьБж7000,╟ЎKE$│K2$,╥Бж7000,▌
┘#1,A$,ч┼#1,A,яЛ A,ў(Ъ#1-2Бе10-pВ DECRYPT A DATABASE-zЮ-TДЙ"DATABASE NAME";FI$:Е  З(FI$)▓8 з FI$│ О(FI$,8)-jО╗ Й"KEY #1? ";K1$-АШ╗ Й"KEY #2? ";K2$-ЧвЩ"D",#1,FI$л"/DAT"-ймА A│1 е  е(1)-▀▒З@160,"DECRYPTING RECORD #"; И(A);" OF"; И( е(1))-щ╢─#1,A-Ї└Й#1,A$.╩KE$│K2$.╘Бж9000.▐KE$│K1$."шБж9000.-Є┘#1,A$.7№┼#1,A.?Л A.GЪ#1.PБе10.nXВ ENCRYPTION ALGORITHM #1.xbD$│"".иlЕ  З(KE$)▓ З(A$) з B$│ О(KE$, З(A$)):Бе7130.═vЕ  З(KE$)│ З(A$) з B$│KE$:Бе7130.╫АB$│"".ЁКB│ Ш( З(A$)о З(KE$))/	ФC│ З(A$)м(""
WAS SO HONORED AND THRILLED WHEN PAUL FISCARELLI CRACKED MY ENCRYPTION THAT I EAGERLY REWROTE MY LEDGER PROGRAM TO RAISE THE BAR ON MY RIGINAL CHALLENGE"
                                                  "TWI! ¤SgAET.SI.1TkI \SZOLv D "
"
"
RHT EEKSYO  RNIT EHP ALNIETTXM SEASEG"

"
HANCES."
RS IN THE ORIGINAL RECORD ALTERNATELY, INSTEAD OF WADTING THE SECOND KEY BY USING THEM BOTH ON THE WHOLE FILE."
                           "I\MJA¤ gT=RgAJL¤ wSEJOSU 1 "
"
"
T"
RHT EEKSYO  RNIT EHP ALNIETTXM SEASEG"

"
HANCES."
RS IN THE ORIGINAL RECORD ALTERNATELY, INSTEAD OF WADTING THE SECOND KEY BY USING THEM BOTH ON THE WHOLE FILE."
                           dC│ З(A$)м(Bн З(KE$))2"#nА D│1 е B20#xB$│B$лKE$28#ВЛ D2U#МЕ  З(B$)│ З(A$) з Бе91302f#ЦC$│ О(KE$,C)2s#аB$│B$лC$2Ж#кА D│1 е  З(A$)2║#┤B│ К( Р(A$,D,1))м К( Р(B$,D,1)):Е B┤0 з B│Bл2552╩#╛D$│D$л Л(B)2╥#╚Л D2▄#╥A$│D$2т#▄Р3'В DECRYPTION ALGORITHM #23'─Р(Bн З(KE$))2"#nА D│1 е B20#xB$│B$лKE$28#ВЛ D2U#МЕ  З(B$)│ З(A$) з Бе91302f#ЦC$│ О(KE$,C)2s#аB$│B$лC$2Ж#кА D│1 е  З(A$)2║#┤B│ К( Р(A$,D,1))м К( Р(B$,D,1)):Е B┤0 з B│Bл2552╩#╛D$│D$л Л(B)2╥#╚Л D2▄#╥A$│D$2т#▄Р3'В DECRYPTION ALGORITHM #;BM90,100;M110,140;BM110,120;M91,125;C1":P$(4)│"C0;BM168,80;M173,90;M168,100;M173,110;M168,120;BM120,95;M125,140;BM135,115;M95,120;BM104,90;G20;BM90,105;F25;C1"MН'4P$(5)│"C0;BM140,75;M110,120;BM121,102;M145,140;BM130,125;M176,95;BM160,85;M168,119;BM105,110;H25;BM95,120;H14;C1":P$(6)│"C0;BM150,70;M120,115;BM133,95;M145,142;BM135,130;M168,120;BM105,70;M91,125;BM115,107;M88,73;BM105,120;M78,85;C1"N='5P$(7)│"C0;BM120,70;M110,140;BM105,80;M155,115;BM95,90;M145,125;BM160,120;M172,85;BM165,112;M167,121;C1":P$(8)│"C0;BM135,70;M125,145;BM120,80;M175,105;BM115,95;M170,120;C1"N░'6P$(9)│"C0;BM150,80;M175,90;BM147,95;M175,105;BM170,74;M167,121;BM100,65;M135,130;BM85,120;M128,75;M115,120;C1"Nє'8┐ 0:Ю:З"PLEASE WAIT,                    CALCULATING VARIABLES"O@'BА A│V1 е V3:X(A)│ Е(AоVC):Y(A)│ Х(AоVC):З@63, Ш(AоPC);:З"% COMPLETE":Л AOН'LRS│88:RC│50:CX│128.5:CY│96.5:S│ Д(V3):SS│(( Д(3)м2)н2):Е SS│0 з Бе 10060O╕'QЮ:З "WOULD YOU LIKE INSTRUCTIONS? Y/N"O№'RA$│ Т:Е A$│"" з Бе 10066 :Д Е A$│"Y" з Бж 11000 :Д Е A$│"N" з ЮPe'VА A│1 е 9:А B│1 е 4:C│ Д(V3):C(A,B,1)│ Ш((X(C)нRC)лCX):C(A,B,2)│ Ш((Y(C)нмRC)лCY):C(A,B,3)│C:Л B:Л APП'`╚ 4,1:╝:┬(7,7),3:─(0,0)м(15,15),S,G:╝Pв'jO│5:BD│0:BR│75Pъ'tЮ:З@224,"DIFFICULTY LEVEL                (1)HARD (2)MEDIUM (3)EASY"Q4'~A$│ Т:ЕA$│"1" з L│1 :Д Е A$│"2" з L│1.5 :Д Е A$│"3" з L│2 :Д Бе 10110Qg'ИЮ:OX│Lн4250:BO│Lн48:FU│Lн2000:CI│36:HB│(Lн2)м1QО'Т╚ 4,5:╝:┬(CX,CY),50:├(CX,CY):╚ 4,1QЩ'ЬБж 200Qг'ж┐ 1,1Qн'░Бе 20RЬ*°┐ 0,1:Ю:З "YOUR OBJECTIVE IS TO DESTROY ALLTHIRTY-SIX OF THE CITIES ON AN  ENEMY WORLD.  EACH CITY IS      EQUIPPED WITH A DEFENSIVE SHIELDAND A CORBOMITE MISSILE. WHEN A CITY IS DESTROYED, THE CITY WILLFIRE ITS MISSILE TO RETALIATE."Rж+З " "S/+З "UNLESS YOU DO MORE THAN 50%     DAMAGE TO A CITY'S SHIELD, IT   WILL REGENERATE IMMEDIATELY.":З:З " PRESS ANY KEY TO CONTINUE..."SL+A$│ Т:Е A$│"" з Бе 11030T
+ Ю:З "TO OPEN THE SHIP'S CONSOLE,     PRESS C.  TO RETURN TO THE      VIEWSCREEN, PRESS V. TO CHANGE  ORBITSM USE THE LEFT AND RIGHT  ARROW KEYS.  TO DROP A BOMB,    PRESS THE SPACEBAR."TЬ+*З " ":З "TO DEFEND AGAINST INCOMING      MISSILE ATTACKS, USE THE RIGHT  JOYSTICK TO AIM AND FIRE.":З " ":З "   PRESS ANY KEY TO CONTINUE..."T╣+4A$│ Т:Е A$│"" з Бе 11060T┐+>РTHE LEFT AND RIGHT  ARROW KEYS.  TO DROP A BOMB,    PRESS THE