10 CLS:CLEAR200,&H7F00:GOTO770 20 LA$="BM+1,0U4E2F2D2BL4R4D2BR3" 30 LB$="BM+1,0U6R3F1D1G1BL3R3F1D1G1BL3R3BR4" 40 LC$="BM+1,0BR3E1BU4H1L2G1D4F1R2BR4" 50 LD$="BM+1,0BR3E1U4H1L3D6R3BR4" 60 LE$="BM+1,0BR5BU6L5D3R3BL3D3R5BR3" 70 LF$="BM+1,0BR5BU6L5D3R3BL3D3BR6" 80 LG$="BM+1,0BR5E1U2L2BR2BU2H1L2G1D4F1R2BR4" 90 LH$="BM+1,0U6BD3R4BU3D6BR4" 100 LI$="BM+1,0BU6R4BL2D6BL2R4BR3" 110 LJ$="BM+1,0BU1F1R2E1U5BD6BR4" 120 LL$="BM+1,0U6BD6R5BR3" 130 LM$="BM+1,0U6R1F2D1U1E2R1D6BR3" 140 LN$="BM+1,0U6F5BU5D6BR3 150 LO$="BM+1,0BR3L2H1U4E1R2F1D4G1BR4" 160 LP$="BM+1,0U6R3F1D1G1L3D3BR7" 170 LR$="BM+1,0U6R3F1D1G1BL3R3F1D2BR3" 180 LS$="BM+1,0BU1F1R2E1U1H1L2H1U1E1R2F1BD5BR3" 190 LT$="BM+1,0BR6BU6L6BR3D6BR5" 200 LU$="BM+1,0BU6D5F1R3E1U5BD6BR3" 210 LV$="BM+1,0BU6D4F2E2U4BD6BR3" 220 LY$="BM+1,0BU6D2F2E2U2BL2BD4D2BR5" 230 MUS$="O4;T10;V12;A;V9;A;V6;A;V3;A;V2;A;V1;A;" 240 PMODE4,1:PCLS:SCREEN1,1 250 PLAYMUS$ 260 LINE(8,8)-(246,162),PSET,B 270 LINE(10,10)-(244,160),PSET,B 280 LINE(12,12)-(242,158),PSET,B 290 LINE(14,14)-(240,156),PSET,B 300 LINE(16,16)-(238,154),PSET,B 310 LINE(18,18)-(236,152),PSET,B 320 LINE(20,20)-(234,150),PSET,B 330 LINE(22,22)-(232,148),PSET,B 340 LINE(27,26)-(227,144),PSET,B 350 FOR X=1TO500:NEXT 360 DRAW"BM32,44;XLH$;XLI$;XLT$;" 370 DRAW"BM66,44;XLS$;" 380 DRAW"BM81,44;XLT$;XLO$;" 390 DRAW"BM102,44;XLS$;XLA$;XLV$;XLE$;" 400 DRAW"BM138,44;XLP$;XLI$;XLC$;XLT$;XLU$;XLR$;XLE$;" 410 DRAW"BM200,44;XLA$;XLS$;" 420 DRAW"BM82,55;XLA$;":DRAW"BM94,55;XLB$;XLI$;XLN$;XLA$;XLR$;XLY$;":DRAW"BM148,55;XLF$;XLI$;XLL$;XLE$;" 430 DRAW"BM32,70;XLH$;XLI$;XLT$;" 440 DRAW"BM66,70;XLC$;":DRAW"BM81,70;XLT$;XLO$;":DRAW"BM102,70;XLC$;XLH$;XLA$;XLN$;XLG$;XLE$;" 450 DRAW"BM160,70;XLC$;XLO$;XLL$;XLO$;XLR$;XLS$;" 460 DRAW"BM32,110;XLE$;XLN$;XLJ$;XLO$;XLY$;" 470 DRAW"BM32,125;XLR$;XLA$;XLY$;XLM$;XLO$;XLN$;XLD$;" 480 DRAW"BM97,125;XLL$;XLU$;XLE$;XLD$;XLE$;XLR$;XLS$;" 490 C=0:S=6:E=&H1D:IF PEEK(&HC000)=&H44 THEN D=1:S=S+8:E=E+8 500 POKE&H7FFC,S:POKE&H7FFD,0:POKE&H7FFE,E:POKE&H7FFF,&HFF 510 FORI=&H7FC0 TO &H7FEF 520 READH$:POKEI,VAL("&H"+H$):NEXTI 530 DATA BE,7F,FC,C6,1F,A6,84,47,A7,84,30,1,A6 540 DATA 84,46,A7,84,34,01,5A,C1,0,27,4,35,1,20,EE,35,1,BC,7F,FE 550 DATA 27,4,30,1,20,DC,39,1A,50,7F,FF,DF,7E,7F,63 560 FORI=&H7F00 TO&H7FB7:READ H$:POKE I,VAL("&H"+H$):NEXT 570 DATA EC,8D,0,FA,83,0,1F,ED,8D,0,AF,A3,8D,0,ED,43,50,5C 580 DATA ED,8D,0,8E,1A,50,7F,FF,DF,9E,33,30,6,10,8E,80,0,86 590 DATA 8,A7,8C,3A,86,6,A7,8C,34,A6,80,80,30,48,48,48,59,6A 600 DATA 8C,29,27,E,6A,8C,25,26,F4,E7,A0,C6,8,E7,8C,1C,20,EB 610 DATA 86,6,A7,8C,14,A6,80,26,A,A6,4,81,22,26,C,30,5,A6 620 DATA 80,80,30,48,48,20,D9,0,0,8E,80,0,10,AE,8D,0,91,A6 630 DATA 80,A7,8C,48,6F,8C,46,A6,80,A1,8C,40,26,F,E6,80,A6,80,A7 640 DATA A4,8D,15,8D,23,5A,26,F7,20,4,A7,A4,8D,A,8D,18,27,E2,7F 650 DATA FF,DE,1C,AF,39,10,AC,8D,0,1E,24,4,31,A8,20,39,31,A9,E8 660 DATA 21,39,6D,8C,F,26,B,10,AC,8C,4E,26,3,6C,8C,4,1A,4,39 670 PMODE4:PCLS1:SCREEN1,1:READZ:EXEC&H7F00:CLS 680 P=PEEK(&H155):IF P=251 THEN 710 690 IF P=254THENC=1-C:IF C THENEXEC&H7FC0 ELSE EXEC&H7FE8 700 Y$=INKEY$:GOTO680 710 IFD THEN PRINT@64,"(DEFAULT EXTENSION IS /MAX)":PRINT@0,""; 720 LINEINPUT"FILENAME FOR PICTURE: ";F$:IFF$=""THEN 710 730 P=INSTR(F$,":"):IFP>2 THEN F$=MID$(F$,P+1)+":"+LEFT$(F$,P-1) 740 IFD AND INSTR(F$,"/")=0 AND INSTR(F$,".")=0THEN F$=F$+"/MAX" 750 IFD THEN SAVEM F$,&HE00,256*(E+1)-1,&HA027:END 760 CSAVEM F$,&H600,256*(E+1)-1,&HA027:END 770 PCLEAR 4:GOTO20 780 DATA1 790 "m_H70>002P0lmPL00P0200;f2@04mZX01`850QD0@?Jc00D2M23@P<<06?H 800 "4008304@000410`L00`872P@81?H600;f100400CfVP031`013fV@0105@Xl:30P020@83f2P01mP@00`400@0100@000010 820 "04000Sf900D01D:5@Xo:alO3`lG2al;7`lO0PL31`850`D20@81mV00P002 830 "@81DP=@PA:14P<000H1505D0@@1E054PE@0A007f4@070alN7`hO3PL3E`< 840 "7mPH0P=3ZmQWo[eM_EbXM2QD00@0100400OI?0400000A030RD@1E01@85@ 850 "1E25D2G@QMRUdZEB]EZWF:ehX5007f302008010@400020h?3ookl100425 860 "@85SoHGookooonZoj[E^?FXE21EZWfZoCio?al?7`L1007fC@040=D:EHQE 870 "0UfRE@YEZUDRAJ1EPUFXeJ[mZUFZGBXO2`L20OH:083000421`hmo_FZok] 880 "o^onjoOkmn_okoo[oo_onooom^_oZmOSoj_GZmJ3@X?2P`8100420D:3@X= 890 "000830X=CXm:[ej_DXO@XM2PGfA002009EP5F2eJ[7jUDXEJYGZ]F^EJYMZ 900 "UFZGJ]eZWNZoo_Oo_nZmb]O3aL;5`lO3`L30`<70h630j43XL6QdJ?aXmNS 910 "EjOOXmNWaj?GSmn?GjlO_gloGkmo_gooOgmo?clo3`l30OH601D2E`X1mP@ 920 "0P020@211013f?@0100400@15P5FZMHQM[mn_OjmO[ooogjoe^eO^mj_MZ_ 930 "nkGkioZ_fZgj[mZ_GnokookoHjoel300010enooomo:`D000043PD2EjYG: 940 "QDo7@X7007f1@1087GZogmo?glo7clO3`l;1`<1mQd05@8M0TFZeJ[MZWFn 950 "okoO^_okoooo_oH5ocookoo[ojYeZ_FP=895P420EJ[mZ_gjm;[on_gZon[ 960 "f;OohmNoO_oooGbmGmPKoneDJGJWf1onkoooo_ooZoomE3aL01@YEZoHAok 970 "lO2oH@0060509E0UNREH1EX5G0eJ[gZ_gZoN_oo_ooonookoH7oo_o_oo_o 980 "jXE0040@0000420DJ3EP1FPE:SEZ]FnoO[f1?ommRGoeb[f3on_gj[OmPko 990 "Zoonoj[EZenZgoHEooH@04080J1EX7b_E@9EPPD8ABYeZUFZeK[mkognook 1000 "okooooo_oooo_oj_eZ7fZEH;AmPl00`LG3gOkOK_Oj]FhoN[eo_HOonof4O 1010 "onojko_oH=onoonon_GoHIooH<01B0E`X10020aKQM^gD0D:Q<0U20dH[m[ 1020 "gNZEj]EZ_ojoo_on_onoooon]FP@?H4080E0QGf1@1EZU<0009lo?cho?Sl 1030 "o_H5o`[0Z5D8EN[mmQKojookoO[f4OojeKYoooonokoO_ookmRKomP`01@? 1040 "OZUFj1`]EX=F2eF1l1PL00@iEZ?F^oK]ORUFReJ[EZ_nnojkooonZEOH505 1050 "FSgkYEZUD2003FZUGf1@0LS4@0D001PX40]nZEJ]OkoHIojYGP]GPo 1060 "?kf2Oono;QlnWnomRgoZ_H<05fJoN[oXan[mC[O_eNRGc[MPWEk3`IGZ]cZ 1070 "oOko_oN[gj_on?GognooomL70@000?cjokko[mn_E@00P72X4?H500@>7ci 1080 "oo_cRGbMo?onoOoHPojlGQ]6XmO[ooooX`0013gnomR_oj_FXl83f301gko 1090 "n_okof1OnoeN_G_mn0l:Ym2TGP=IYMj_gnonoo^ofjmj[oooGoonoo6QD20 1100 "N[MjoH5okmG3`D0000100020@117aloOgof:on_Gh[7Xg4[MooojookoOko 1110 "o_HSoo[m^?20@@050_H<0?gf1?okmPCooN1@Z?bneoooZ]f8AHSMZTF0EN[ 1120 "gj_FjEJ[mZ_Gjgk[mooGZojYGSUn_oOH6ookoZULoE@YoZUnkmT3oOomo_o 1130 "HKookon_GXeHYG3en_Gj]O[oH<0?njooooo_n[dj[E2PB0E83@X5FXE@1EZ 1140 "]FXG@9EX[oooo_mQooo 1180 "_H9okof:oonoooon_okeJ[ooon_oooo[oHFooH<0=D_GJYeP04PAJQER5B0 1190 "D8150@D2A08@X120081@0000@0050UD:Ah5e3al25@0000400830X=G0mn7 1200 "An?cXmOSEj_ojoOomo_ojoO[en_ooMooo^oonon[oooonmPGo_oHKookooo 1210 "onoooon_gkmn_okon_ooookoHRooH<0?oZm`lE0Q40401@P0D0D@00P3f0E 1220 "HP0000P`?H5014:EJ[i^_ooOjmERWD:1@9EmPH0P0B0`:1DZ4FP@H10P4F0 1230 "@:1@Z5BREJ30h=BPe:SEZ]GZoO[moogjoo_f2oojoo[mnogkonoojoOoojo 1240 "Ooon_okof=?of303D:]goEjXO0D22MCYE01FZEJQ5mPD00oH7042ZEjYEP5 1250 "CZonoe^UN[GJ]@mPT0E8PE:0D:E@05mPD04@0300485@871PL20H11P5FZe 1260 "joO[onS`n30Z=FZok[Oooonookf1oonookoo_onookmo_ojoOkmo_ojoo[m 1270 "n_gjon[oooojmR3omP`0ENmoo_fZG8P5jUB01:10P0B00001007f2P20M:k 1280 "EZUF:@:[oZ_n^moh=0_H900QEXOnZgbQEQef[e@Y7ZWnooomEZanogooo_o 1290 "ooOoogmPKomPD0`:3@X<2P`8;0PT60A80000B0@80@P4000800043f10200 1300 "801P4420H11P4>PEJ3@Z=Gho>[oo_onmQComP`0OK[mZ_40Mh9D04@00@8E 1310 "01@2@010><20000E0PD05001:3NREH[42T0Pm:Slj]o[okl5mP@00QF25Fo 1320 "m_Uf[oN;On_H5okkf4Oonooklh?H400420`810040D01000Cf6`0A8420`: 1330 "0@R52PE2YDZUD:5HYEXlFRmo_f4?of301LZ500123000004B9M:UBP1@0D0 1340 "1000004>?nSg@<5Z?N>oH1@P000401`0=NZoJYEh5@04BYG?_ojeOooo_n_ 1350 "GjYoZmnoGooo_oonoOkf1Oono?k`j<3P`83f1`20mRP0521DX5DZMCQe>GL 1360 "K?chO?anoGkof1oonookmn_gkmn_f1?of3P10mPL04:300008D8000008`8 1370 "P5Z?N^OKkmXUF^eOH90420`:100000@0RL<1C>gJSEZ=BlE:[l^?cho?Sdn 1380 "?3X`>30X<20mQX040000500@01@:70P4B9C8eL;5`lO7alomP@OOcmo?goo 1390 "OoH:ookoo_fho?S`h>3P`H7AXEN_gkmOogLWEgIeooHG02P0P?H600D043Q 1400 "`X<28L>YAZUFZD080007fA`10mPL0@81DP5F0d:3EZ=F:eJoOZ]F[ej?7Xl 1410 "N7aH_=RmN:eh9ERUNZOjYM[Wg_og_o[_ooonkokoH4om6gLOgaooHB04000 1420 "83f2004033f202PE010P7bjE`97mTP021@XD20`834PSdn?2hM:3`Z7BPL:0@Z5B8D9QL21`01H95P2 THEN F$=MID$(F$,P+1)+":"+LEFT$(F$,P-1) 740 IFD AND INSTR(F$,"/")=0 AND INSTR(F$,".")=0THEN F$=F$+"/MAX" 750 IFD THEN SAVEM F$,&HE00,256*(E+1)-1,&HA027:END 760 CSAVEM F$,&H600,256*(E+1)-1,&HA027:END 770 PCLEAR 4:GOTO20 780 DATA1 790 "oO3no_cll?ono_koookm:Olooo7m5?ono@Ko7gl?7`lO3clO?alo?alOoam 800 "o?cl7oalO3clOoamo0kl7_aoo3ol?nQdfo@T0o03`H000@?d=01l?7gom8O 810 "om2`200?d4P>30h>3Pl>3`h?chn?cln?cnookoo_onoA3oOod>oocon?S`h 820 "81`X>3P`>3PP?3Pl>30`<20`<20h<30`800P=3Po@C0l>30h<20d030P<20 830 "l?d90400`3P@:500G63m3P30h>3Pl?Shn?km6oom:020P<20P>30`<3P`?3 840 "0l?3Pn>3ho@Cln?Sh`?30l<3mGP20`>3m6?omM005oC<0oASooC@00@0100 850 "020@H1?`l>7@9d7P00@010oB@02Sl?0810oCD0oASooBX00`800a0OEGQ@` 860 "<20a03LX=0P083@0820oBT0X<20P:3m>@20l?Sm5?om7@010@L000@0000G 870 "@?60mh00P`20oCH0`?e403om5?om600103Ln7okocP4:7`000<@0`03FP03 880 "PoGP00`lO?odFoodJ05204;kiX000P?e<00<0:?d]00l??gooOcom6_om6P 890 "040028oE40P?dY008O?gom8oom6P03o@@08?eb00431@\G3`L1l?3m9?om6 900 "P21oG000`L77amoo@[o?l?ho?dQo`02oAP0@Oe^03km5?lOPo7noAko?olo 910 "X5KXoA@0l?e\02P0P=GhoAGo3n3m7ooEQeL>oA@00OdV0080;`0?G`QO;`m 920 "ooclO3`Lo0`lG0`<20@<000Om1`0<0`D:00\500<00OdF00P000407@3Ej? 930 "cm4olMh?dNogn1@?l00D403Od?083m9@05na3h081@093hoA3o?`Oo3ol^1 940 "BXFGmgoojom1on[7nmo:cn_MolE3aL00Od>00530`O_oA;o0`om8_m?ooMZ 950 "oodc00>9`hH18P52PR`l018\C00>;0`Si"3o0P20000P009100002X00<011180202080D2@0R000D`2T00QBXR"@1<4:81A9PR@I`P@h@h@HHh@H8l@H8db@8Ak0<0MhP11_4:1I9\01ST013PS "0022Ra8028_o08\O0400X00D0@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUP UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU fUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUfUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU f UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUfUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUUXebSgB;M8]dfjEnRGJ9MZWF:MIAZ"mPWn9MXWf?L]dSgZEkW6?O_6?O9?_O?>?O?>OkgccSoonLMn_loolCk?onnA"oF^oeohR`Coo_Ookh\;ogoo_OoKooK_?M_oYWoI;_7O9]TVfBJII0:H0@0TA"@82;=@0ZaAXT@H\=00H71`L?6S2000E88okmoo[Gooomkh\4ocoooooOR`_B"onh\9ogoooonokmogOO[o_mmW>Ye789T6J95^]mWnogO]V_Mmki9]nQF^DbB^"e2V0D220D200f;1`02<000022;2P090QD0:]DZ`Cc3?=<\dbcC;=9Oh1OX5B"nPDka2?L8m`SlXUf2KA;]4XebRFBKI9]4^dB[E:]DZeBkA?\6o@?l2oB?LhB"acS?]dRgO<LHIk1;]4^eB[E>\DjaC[4NhELX5^PGj1O<0kQ7X5dRg2>DDf"KCFZEJ9MXUfVNiEbRGJ9MXUfVFJII[U7nQG^4OkQ7nhAo^4Oh1onhAkcKI[D"eKi[e;]?m9]_m8]om<\oe>]oeJ[OOjGJOnnDngnUfWnQGZEJX5dR4:P5@00D"dP410@D00P80`00A02P0QT0iaS3=\VgJYeSomh\5onckokoooooLLnnof7NE)"_l5nXebSGJ9LXeRWF88U0520228\X004000<4:5<<<<<7j_fgommkonoooonomR`Go?mog?\labP@cc33?E"8maoSo0oacSO9=\TFjA0R`L02800000@R`D01P6XCS66R`6;A7^4NhAkPgbF-"1OX5n`Ck1?\4^TFjAKY9K9=\TfbAKe2_D:m@[bSFZENXEjSG:eG46n@KiC[Fn"7O8?m:]LhaodZecS7OH[g?LYeS_]eS_maS_m`[mmhmhmlnkO=O_^gGNjoleF"c_^oE>_o]E[__GK;_G;?]4_d284bA8T00W0008dH;50Z:20@8\708001f2HF"1_4;i1oim^oK_oenmn_oo=oc?ncOlRgNlBoB;=_d8m`3[54Ze2<8d0@P00PG1"2Rb@0P00000@80000aP0028\5084052]FjAkUnQgfjkgnogSggokmnnhoeOGr"onogoko>noeoooo_mkonnoggoomL>4HiokOnoggoooookooOoo__5:i160:G"5ooiaSgj]fgN^f;2oogoS_==P3KOJKoGk__oEJkkEJkK1OXR`D048\=07>>G"?<<LJiA[U6^DJm@_m0_fREJiA[E:]DZe:UFZEJ]DH5"ZeB[E:]D^dCjEJYEZ]D^fgF^DJkMLjkMLZeNljeNljeNlke>nodWg_gk9]oHv"mob;OoOljaogo^eK]oo^FKO^fBOnVFOoWVWfWF_F_F>LHm0lPg00a3T208AH"`2000008P4@100;0007>466>DLNhCo>lkeOk_6oO\oa_WW7oSW7^VGNZEJYH"M\TfRGJ1FZA9=X1942J00ER;90020020R`D010010000@P09118Y17>Iz"Bkm<_don_oE_f[m]dRcC02BH0fbGNhco04n`3<\gooookooOooomkS_Ok3OI"84n`3o`cgRgk=\dj]ePT8Q0Ra001P4nlDji5\TfbCK>HIi1_U7J1OX5oPBbMHYebSGC:=HYeRWF;M8mEZVbCK;M;]=ZUF^nEN^J="fGnVoE^VoE^oi]eo^^oE?okkiMloo_7?OkkkaCojaodke^niMlki=lkk=LjJ~"iM\^mEjYebkiEZWO9_W6>MH]fRGB;O<@kg21LXAiT6>d@[eBhAka;mCk9mSJ"oYeSoYeSo[eC[_eB[gfBkGJ9Oi9]TVfbCK9<\@k1Lkg>LjgNMh_mHYmdRohUffJIoPGkC[7n0Oh1oVNIOX7nAKYoPOh7nGj1L"oRGKMXWo=\Wf2OlFjOl4nkm4naoTn`Gjo`Ck3oBKI]TVfBjAKY5T6n0?T6PL"7T60=0]0X1042R00@00@8\^0400202@AR00R42;2@0@80200013`>000M"00409TRA1T01:1020@000P403800844250P3m0\@k`0EjP@Cj0@CJ803000MI"0401TP0402\0d0DZ`a3_TfSGXdZa@PFb0010000100020RaL00R0?l2oD>dM"ggEZTeb[E:]DZecW:WFMDZebSG:MHobFBKK=MJYEZUFZEJYJ\[e2_D:m@[eM":]DebcC?5^UGZWF:OMNZOMNZoGN?oWWoQoikoIO^NofGkgkiejmnnON?O_VN "GKoRgCobkEZUoU^UnPGndBki1_T6nLHiiQWf2OJYEZUGkQWVVGJ9OXMiiYeNM"bSgR7nEJ]NXGj1oQG[oP7n7N>nAKYMhkiAkQgR?lRgOL8m`Sg2?H9lPfPG`N"3`3j1@3X5P40R6@20ARcX04000P8\A00@01X\400P0H06NH1oP5bQ1WP1Q5N"XPS54RQ5TRg2?4>Lhab[EJY5\Tf2N0FBH0b1DR0809E28008T00R1@00F20O"0100:800@8\Q00H@RFHIi[]5oX9iQWVVeRWFJIK9MTVfBKI9]UV^KI9]TVgOQ"BKC=LEZUFZEJYETVVFJaA[E:m@_eB[E:]DiMXUfRGJ9OmHYomJ]NmjgJMonO"8ogN9o_M[W?mkYmckIikiIikkII[e2oJ=N^DJiA;Y5^T6fB:EJX5NX5>\0eO"2_D:m@XebSC;=;U>>MJYEZUG[]5nPGjYebSGNXEjYP"M]TVgJ9iQWf2NHIiQT2i1WR116:H0@IPV8\50260ReT0T4h0X40JiA2:I06PU"h@006n000l@J8H12PC91P2Y5TP72804@RV400880@@8\50200P8\[00A94:P"9L8m`QgR7N0Oh1oP5^TFjc7>nbGJQFjAJPB164022/u";8`2;2OnL79bLV9CK^k^cVMW0iSn8\9o`000100000v"08R`@0@42;1@0220@108000P0@00P0@00Ph004S8000020004P0000P8\400Ww"4000400082;1P1P0041R`@0P8\80;00@8\4082;1@1PR`D04000H000<2000x"0820P008022;1`0@R`T048\7012;2030R`@010B;1008R`X00@0300HI00L0y"h1gP0[e3W6>LHh1oP5lPcS60Oh1O8=hQW4>l@cc0?l0o`3O8?l0oiIYm`ki1z"o`CkohIiooH?nOoN9ogkoXMmoo_nSomeonoKockokooOokgokgoGo_^_ome1[{"oY__?O9?\3o8=0?\400P7R;2@0700000k`?GclO3cl?1al31@810X\<08\M1|"o`oS>IgLc^k^k\kLWCWS3h\9oh\50210R`H0P8\700B;1P20Ra`088\S0821}";3`0PRaP0P8\50400P8\;062;2@010088114Z001@80e24804Hi`R`B3N072~"V6hAh1oP7j1NXEJYE[U6^DJiA[UFZGK9=]TVfBKI9_U6^DJmhebcC[gSG[g2_";M[gkiUfohmim_n_FOoV_eWo[_Mmfkk_MoVNOonUnUnooF:OO[UVWGZU6_D2"Z52V0ERP0010P8\600<<0CH90_d2I1^4NhCYdZ3Mh<:dBN2Bh<`a@;88U522";202;2OnH58b;19b;2?o`mo6;3_gamo2;2On;100`RiX0P8L0X507223L0`3""0dR`6;@3b1@Q@[0=`S09m0;a;]4n`Co`Ck1?\5nPOl:m@[gC;?M8\1RgFnB3c"kC;OJIK]DZoAOXma[]mQW^ebWn5N[G?NZGNncG^gg^Ug_\Tom?\_e7^_e3_3"n9M\\dka_TWdPWb1JY14Z1308020@00100800@@26@HQ7d2o0>l@ka1_T6n3"@Ki1:]D0_T4bc04jQ44R6<@181X008@0@R`@00@0008\9olNVI^KTh^N;2?4&"l?knOgmo>k^kVMW9b>[ZnW]h?[28\9oh\57h\=?h\47`l?3`L30`6;OP0104g"20F@@RP4dB8<010P246f046n@85_T4jgBKI9nQG_TWg^TfgjQGkC;M;]6o@4"_djakeZeCk[eCkYeckYeckYgkAkakQoacS_gS7_m1__eB[om0_gV6ocS7Ni4"A_\8104:00@0200`052P4621LY5VlAoPoa3oIkSG:MIo5*"X=lPgbSGH9mPWR5LXdRGH9PWD8PWD8P7H120;e00P2116;202;2Ol6M6iN>5k"WH>R`Soh>o?gmnO]kLgIfO7emNG]kL7Gd2;3on;3Oj;3?mo?clO3`L30H]b5"00aC03Q4PbQ@Q0YQ48@;85072?L8HiacS?M8_g:=NXGoJ9Moo8=oS?=oc;=5"oQ?]oQ7^mA_^OI?^MI_^MI_^OIOnJKoFKK[OIMZeKoZMImZ]MmjYMmRWGk36."_6>LJi1W6:AK0;@8@`0D00RP400@L:5BYE;i=^WG?>_Gn2OOn2oGob[EojY6o"EoR_EZUGn0Oh1oP>;2?lOgamoOgQSCUaM@75WCUaLG1o?08\9on20P82;5@26"0P<30h>3`n?Slo_oooglO1h]\0044hQV40V0HP0@1H1Z4@B:HAC[5^TDbcC72";=\VfBOHYeRWOmRWOmSW_eSW?m[U?m[U>]oU>oKOZGOnRGOnVFOno`Wgo_]7s"ec[_oMLZomgWNkc7ngc7_o_4Oi_VOIoR7NXGjAK0;m0?hI9=PVfBKI1oc[57"oSW7oWVVfGN^fGJ_fGJYgVNhefVneFZeB[A;m2^@C[54^d2\Dj1LX1_485Z7"U0=8X1M0ZP5DPRU@P0lPdR`P0R`[ooX\Bo`KbNS\kNo\k>c]kn?hL@8\9oh86"\U0<3`n?cooal7RfH00b2<4f04b18180`348A;<0g2=0_D:m@[S7>0Ol0oc8w"C;_T7n0Onn@OmnPOmnaK_nOH=noN^FOofSG_fSgWoY]ekmkk?NONokmikmJ8"oNNnfggWnYeoh_fnDnbka7^DJiA[U>PCk17R313S5Pgb7F:m3_8AB8HQD80>856019:"4XP4H142R0AP0189R;202;2On;13Ta:9V;3Ol0ocRLgLo_ino?fiTao`2;29{"On;:P3Po?lORf401P4P6PCQ60;4:A84hAh1NXEZUB1OP6jAKY4^dbgJ9OYE9"Z]dWnTFjgBOjGJOJOJOJOKOZGKK[gGjSgGjSoEjohEkoX?mOljcoDob_Lmc9"_\5nPodZeb7NhAkS7:=8]dRGH0Vf@KX4BKI1[199]4XUV0IiP0ka17Z5NXE:>"j3O0?m0_l0?mDZebWF;e6^FJHKaCi3Y5^PGj1=\UfRG:=LZeO\4bcC;a1?X:"1l0LHh00C;<004P4X2;2@2;2Oo3WIo3NKW3R`go1oO7gino?glo_ioOaoL7:"R`WoRbd0h8]M004^081A;X01OP217V4NXEjQGX5n0Oh1lPgb3Oh3o2?M@[g;"^4Oh3oD:m`SgZ5N_D>nCO>\FoH_fON^FOJ?NOJ?LOj?LHkoL8miQ_mYUVnA;B"OXUVVFJM@[e2_D:l0OX5FZ@AJXAC[54ZU6>MofjAKi9mSg8=l`bSE:_@K?>l;"CoZEKkY5^dHiaQUW09P7022;203`R`SoPc\g;adkQh\Too2;R@064B3811><"PB0NhAIYUTVfBKI9]VVFjaC[5>]EZUFZGJ9EZ]LXebSO8MhQeRWf2OjGJ9M\5n\DBj3D:ocC;?>NKG>;2P30h?3hn?clRb?no?chn?3P`8\A008000L9=PT77R7O:QD;=PmA3S=J">=8e`76RE;11>X5`0?<@h31AX70@H;00400h];020A1TRP4`cP5`SW66NH@="ka3_4>l@KI8]dRe2WF:LHiaQVVFNHkeBkA;]4^lLl`cccC:=NXEnlhakQgR="gC;_5O[=<\dbcC;M8]lPcc3?LLhaSW>=LXe`3o0?d2o`3o8=mPW> "f2OL:oB;MN"oko_MoSh\6oc??o?logn3o?l5nWf2O85n08l1lP?hAkW6?L9n;@@01R`\0X>"ERPD;k_GkokiGoOo_noNoOm3oog:]om=noK=>lKo_D?ngnDkomoVomoSGOo>">\le7`<<0`03R``00@0010400`0310010P4800<0004200050P000@000X\?"=00B;1@101180ZD0D8\TD`bPFjAKY5QcS3?L8m`Sg2?L8m`Sg27O7=<\dbk?R"aC[g3?==\UfRo@;m2_D:mD^dBkI=^TFki1]TW^4NHIiQWV6NhAkU6n`Ck1??"n@KiQWVVFkE:]4naC[U6nHIiQgRoA_V6NHmffJmffJicWNKmFjodGj_om_d?";ooooo_FkOnoOoooooOjkooOOOoo_h\=ogO[gkooO??_WgkaSgbcCo`SgP4@"fb040]TR0LJaBRcH00H\9080088\500H0@>3`60l0<47nR`Co[moomoooOo@V"gjoonOiomooooo?oo;ooOo?ogOononnoMo_ooogoooKK_f3gnACb8=40L88@"19=4:]F;A;o;moeNZmOXEjo@;m0[e2W660O`200@8P`R`h0A8\50:010800@"1008<4:56>L8Lh`cg2?1?<C4,i"Y68\8o`7l7TkVl?oooh\5o_3VCQkl0H\9oh_S00410P0M4PgSV0Ok17n?Li- j"mokkeoRa[oOooNoonolgo_g3OkcCKk3?<4n`C80BiR`l0R-Kk"`GoOh\7okmoR`koh8lhLWOWkno_igMb>8oPR`WoRmP00@420@H13QdR_m0_-l"gb3o7nMhWooVOO^ogokoOoggR`Cokh\IoojonomOokG_N]fgJYEZUDZQ748-m"QS100@02P0X\803T;4J4SR`l0R`Woc8[6R`C>R`go?hkTMG4k^k^k>g5ei8.n"hoR`WoRa\00X]U00:;C0010P4>4@ha;5>\DRgB;M:]DZeBo@_f[E;]_e;ok.Oo"KocG?o_^gKMonoo__5oRaWoo_oooogOhkkoGN:oGJ9m`Sg04Za10188X8\<.p"010X:2R@R`l0R`WoHeH>ocl7hOQnOQ{"cnoGmmWeg?MMMaggGOMMmeggGOMMmeggGOMMmeggGKLMM]gcfoOOkloOnKlQ"ob:88XPRR2:88XPRR2:88XPRR2:88XPRR227;bae][KJjo?fLH[e9d^mnaOQ"hl_cV2?onokooeo?no_KkiPCo_mnSn>H@oco7n=kdiPOoOcloWeoOKlmgegR>"_KMmM_gen7:2X:2X[Rj?SliS?oo_kno?[mn?gjnO[il_D0i[oo8XPRR2:88R"XPRR2:88XPRR2:88XPRR2:H4V2\e6BYdN8^O?Yie[5>hko@kgnn7?_jnoglR"i?kSNLo`o?SfB<9XLX3V1?mOmOhOQn7ho^H>oal3o>HIognOYjNSZ`U9b<[S"V1n;bl_;V4?Sjn?gmiPCkmoOginO[dh_CRIFYUBYD:UBZEJYEZUFZEJYEZUSB"GV`?lRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2888XRbV9I`6X16S2Y88S"]SRj39HlUSBf;9hGb1no`]oEa6@0XP2R2:8h_SnonOco?koOko?mo_mo^H:S"ognOhocV8?moOcnoWhn_YjFXZ>H9ZZRZZ8:88P?V6?moOcmo_cno?imO[elT"0i[oo8XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2TF":88XPRR2:88XPRR2:8`\SRm9;@h_3l>XlWR2:80^Shoomo?af:P8>??gnOiT"PGokoOknogooooiinH=oogooO_innH?ooklh>[:2RZZZZRXZZZXZ26SQamoT"i^Oo8XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:U "88XPRR2:88XPRR2:88XPRR2:88XPR2<;0\SRl7Yn?[o^]WCeniPSoo_kdk>UJ"WImNG=gKemiP[mnoWknO_iloWcnOOemoGgmOOeingWmLN51`FW3@L=Q`f73U"iD:5@ZER\GZaN[Uj^GZiN;el_WjnO[in_WjnO[in_WjnO[il_GbmO;el_GbU"mO;el_Gb0>Joob:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPV "RR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88PQ2j?;ho_ooOiVN"nOgmo?Qg=MML9QR\Y:bVZZJ>Q9bdW;jB^YZZZZ:RZZ:ZQ_egOMMmeggGOMMV"meggGOMMmeggGOMMmeggGOMMmeEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEV"ZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZ^K0ob:88XPRR2:88XPRR2:88XPW"RR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2WR":88XPRR2:88XPRR2:88UegkO_]moWniPGoOklO[g=MMmeggGOMMmeggGNM=W"adggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMEJYEZUFZEJYEW"ZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJX0i[oX"o8XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XXV"PRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRgGOMMmeggMM]UnGklX"O?alnFGGGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMX"MmeggGOMMmeggEFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYY"EZUFZEJYEZUFZEJYEZUFZi\3o8XPRR2:88XPRR2:88XPRR2:88XPRR2:88XYZ"PRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRRY"2:88XPRgGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMY"MmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggEFZEJYEZUFZEJYEZUFZEJYZ"EZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZ0>Joob:88XPRR2Z^":88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88Z"XPRR2:88XPRR2:88XPRR2:88XPRR2:88]eggGOMMmeggGOMMmeggGOMMmegZ"gGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGO[!"MMmeEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJ[b"YEZUFZEJYEZ^K0ob:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88["XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88]eg["gGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGO\%"MMmeggGOMMmeggGOMMmeggGOMMmeEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJ\f"YEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZP3V_olRR2:88XPRR2:88XPRR\"2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:8\"8XPRR2:88XPRR2:88XPRR2;MMmeggGOMMmeggGOMMmeggGOMMmeggGOMMme])"ggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMEJYEZU]j"FZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZE]"J[V`?lRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:8]"8XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2;MMmeggGOMMme^-"ggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggG^n"OMMmeggGOMMmeggGOMEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZE^"JYEZUFZEJYEZUFZEJYEZUFZEJX0i[oo8XPRR2:88XPRR2:88XPRR2:88XPR^"R2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:_1"88XPRR2:88XPRgGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMm_r"eggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggEFZEJYEZUFZEJYEZ_"UFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZi\3o8XPR_"R2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:`5"88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRgGOMMmeggGOMMmeggGOMMm`v"eggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmegg`"GOMMmeggEFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZ`"EJYEZQ621H8AR5FZ0>Joob:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPa9"RR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2az":88]eggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMa"meggGOMMmeggGOMMmeggGOMMmeggGOMMmegZUFZEJYEZUFZEJYEZUFZEJYEa"ZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJX1RPF:5H9EZ^K0ob:88XPRR2:88XPb=3333333333?30?30303330?330??3??3?3?33333?33??0033330330300300300?00003?000?300 30330333330ꪯꪪꪪꪪ ꪪ ꪪ ꪪ PRR2:88XPRR2:88XPRRGSs"2:88]eggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMGt"MmeggGOMMmeggGOMMmeggGOMMmeggGOMMeFZEJYEZUFZEJYEZUFZEJYEZUFGu"ZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUD00>Jnob:88XPRR2:88XHv"PRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRRHWw"2:88XPRR2:88XPRR2:88XPRR2:88XPRgGOMMmeggGOMMmeggGOMMmeggGOMHx"MmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeHy"gEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJIz"YEZUFZENK0ob:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRRI[{"2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRgGOMI|"MmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeI}"ggGOMMmeggGOMMmeggGOMMmegEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJJ~"YEZUFZEJYEZUFZEJYEZUFZEJYEZUFZE@00i[ko8XPRR2:88XPRR2:88XPRRJ_"2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:8J"8XPRR2:88XPRR2:88XPRR2;MMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeJ"ggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGMEZUFZEJK""YEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEiKc"\3o8XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:8K"8XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2;MMmeggGOMMmeK"ggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGL&"OMMmeggGOMMmeggGMEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZLg"UFZEJYEZUFZEJYEZUFZEJYE0>Joob:88XPRR2:88XPRR2:88XPRR2:88XPRL"R2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:L"88XPRR2:88XPRgGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmM*"eggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmegEJYEZUFZEJYEZUFZEMk"JYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEOl0i[ko8XPRM"R2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:M"88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2;MMmeggGOMMmeggGOMMmN."eggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggNo"GOMMmeggGMEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEN"ZUFZEJYEZUFZEJYE003V__lRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:N"88XPRR2:88XPRR2:88XPRR2:88XLPS2N>9HPRR2:88XPRR2:88XPRR2:88XO2"PRR2:88]eggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggOs"GOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMeFZEJYEZUFZEJYEZUFZEJYEO"ZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUGoX>Jnob:88XPRR2:O"88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:888PPP3J=4H\??635_5P6"YHU3   33030303033300330333300333333033?30>303?>3033>3>3 3>3 3>33>33>3 33> 33>3 303>3300303030 30330330330033303003330030003303033330300100 ORG $E00 0110 BRA $E58 0120 BRA $E4E 0130 LEAX X+7 0140 ASR $0 0150 ORCC #$C3 0160 STU $300 0170 ERROR 0180 ERROR 0190 NEG $0 0200 NEG $70 0210 ASR $1 0220 ASR $0 0230 NEG $0 0240 NEG $0 0250 NEG $0 0260 NEG $0 0270 STA $FFD8 0280 LDA #$3C 0290 LBSR EAF 0300 CLR $6F 0310 LEAX (PC+35) 0320 CMPX $10D 0330 BEQ $E4B 0340 LDX $10D 0350 STX PC+74 0360 LEAX (PC+25) 0370 STX $10D 0380 LEAX (PC-3C) 0390 STX PC-34 0400 LEAX X+8 0410 STX PC-2E 0420 ANDCC #$AF 0430 RTS 0440 LDX PC+5B 0450 BEQ $E57 0460 STX $10D 0470 RTS 0480 BSR $E1F 0490 LBSR EE0 0500 LBSR F17 0510 BRA $E1F 0520 TST PC-56 0530 BEQ $E84 0540 DEC PC-56 0550 BNE $E84 0560 LDA PC-6A 0570 STA PC-5E 0580 LDA $FFBE 0590 LDX $FFBC 0600 STX $FFBD 0610 LDB $FFBB 0620 STB $FFBC 0630 STA $FFBB 0640 TST PC-77 0650 BEQ $EAC 0660 DEC PC-77 0670 BNE $EAC 0680 LDA PC-8C 0690 STA PC-80 0700 LDX PC-87 0710 LDA ,X+ 0720 CMPX PC-82 0730 BLO $EA5 0740 LEAX (PC-9E) 0750 STA $FFBA 0760 STX PC-9A 0770 JMP $0 0780 LDX #$FFA4 0790 STA ,X+ 0800 INCA 0810 STA ,X+ 0820 INCA 0830 STA ,X+ 0840 INCA 0850 STA ,X+0 0860 RTS 0870 PSHS X,A 0880 ORCC #$50 0890 LDA #$3C 0900 BSR $EAF 0910 STA $FFD8 0920 ANDCC #$AF 0930 PULS PC,X,A 0940 PSHS X,A 0950 ORCC #$50 0960 LDA PC-D1 0970 BSR $EAF 0980 STA $FFDF 0990 STA $FFD9 1000 PULS PC,X,A 1010 RTS 1020 LDB #$1 1030 STB $6F 1040 LBSR F99 1050 STA PC+2B 1060 CLR PC-E0 1070 LDU #$FFB0 1080 LDB #$10 1090 BSR $F0D 1100 LEAU (PC-F5) 1110 LDB #$C 1120 BSR $F0D 1130 TST PC+14 1140 BGT $EDF 1150 LDB #$F3 1160 LBSR F99 1170 DECB 1180 BNE $F06 1190 RTS 1200 LBSR F99 1210 STA ,U+ 1220 DECB 1230 BNE $F0D 1240 RTS 1250 NEG $6F 1260 BSR $F18 1270 LDD $8D7C 1280 TSTA 1290 LBEQ F98 1300 CMPA #$C8 1310 BLS $F28 1320 LDA #$C8 1330 STA PC-116 1340 STA PC-11F 1350 LDX #$8000 1360 LDA #$80 1370 STA PC-121 1380 STA PC-124 1390 LBSR FAD 1400 LBSR FA2 1410 LEAU (PC+83) 1420 LEAY (PC+95) 1430 LDB #$A0 1440 TST PC-137 1450 BMI $F87 1460 ASL ,U+0 1470 PSHS CC 1480 LSR PC-143 1490 BHS $F63 1500 ROR PC-149 1510 LEAU U+1 1520 PULS CC 1530 BLO $F6D 1540 LDA PC-154 1550 BRA $F89 1560 ASL ,Y+0 1570 PSHS CC 1580 LSR PC-15C 1590 BHS $F7D 1600 ROR PC-162 1610 LEAY Y+1'S>:200,&H7F00:28>N"USE UP AND DOWN ARROW TO SCROLL":"THE SCREEN.">:"HIT 'S' TO SAVE PICTURE AS A":"BINARY FILE">S6:E&H35: (&HC000)&H44 D1:SS8:EE8>&H7FFC,S:&H7FFD,0:&H7FFE,E:&H7FFF,&HFF:VS?I&H7F00 &H7FB7: H$: I,("&H"H$)::US24?U EC,8D,0,FA,83,0,1F,ED,8D,0,AF,A3,8D,0,ED,43,50,5C? ED,8D,0,8E,1A,50,7F,FF,DF,9E,33,30,6,10,8E,80,0,86? 8,A7,8C,3A,86,6,A7,8C,34,A6,80,80,30,48,48,48,59,6A@ 8C,29,27,E,6A,8C,25,26,F4,E7,A0,C6,8,E7,8C,1C,20,EB@9 86,6,A7,8C,14,A6,80,26,A,A6,4,81,22,26,C,30,5,A6@q 80,80,30,48,48,20,D9,0,0,8E,80,0,10,AE,8D,0,91,A6@ 80,A7,8C,48,6F,8C,46,A6,80,A1,8C,40,26,F,E6,80,A6,80,A7@ A4,8D,15,8D,23,5A,26,F7,20,4,A7,A4,8D,A,8D,18,27,E2,7FA) FF,DE,1C,AF,39,10,AC,8D,0,1E,24,4,31,A8,20,39,31,A9,E8Ac 21,39,6D,8C,F,26,B,10,AC,8C,4E,26,3,6C,8C,4,1A,4,39A4:3:1,1:Z:&H7F00:: 200,1AP(&H155): P251 22A P247 VV1:&H155,&HFF: VU VUB (&H156)247 VV1:&H156,&HFF: VS VSB&HBA,V:1:18BLD @64,"(DEFAULT EXTENSION IS /MAX)":@0,"";By"FILENAME FOR PICTURE: ";F$:F$"" 22BP(F$,":"):P2 F$(F$,P1)":"(F$,P1)BD (F$,"/")0 (F$,".")0 F$F$"/MAX"C D M F$,&HE00,256(E1)1,&HA027:C0M F$,&H600,256(E1)1,&HA027:C< 8:2CC1Cd"iR:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:Ce"88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRgGOMMmeggGOMMmDf"eggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggDGg"GOMMmeggGOMMmegEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEDh"ZUFZEJYEZUFZEJYEZUFZE@3V_olRR2:88XPRR2:88XPRR2:88XPRR2:88XPDi"RR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2E j":88XPRR2:88]eggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMEKk"meggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMeFZEJYEZUFZEJYEZUFZEl"EJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUD00>Jnob:88XPEm"RR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2Fn":88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XPRgGOMMmeggGOMMmeggGOMMFOo"meggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmeggGOMMmegFp"gGOMMmegEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYEZUFZEJYFq"EZUFZEJYEZUFZE@3V_olRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88XGr"PRR2:88XPRR2:88XPRR2:88XPRR2:88XPRR2:88X ;?3&UUUUUUUUUUUUU"ݻwݻwUDDDDDDDDU""""3U3333Dݎݸpw?9w?3_߿U8}Ur'UR T0EuDpc0U33D<O3<<O1?ۀ333?O3?`??`:3``` O31??3-/3?13133O38O3DODOD DD V J0p؆<o05 ' t0% 0į09[' 9 m'j&m'#j&ty~%0bf~LLL94P<54P/ط߷59o+o 3 m.Z&9Z&9o|M'v#ȧ꧍ᎀߧm_31Ơm+4h4d$f3A5% h4d$f1!5%` Z&j&9"v+3:p*93c*9ۧ"Z&9ILE128 BIN4_ICON1C BIN1Z&9Z&9o|M'v#ȧ꧍ᎀߧm_31Ơm+4h4d$f3A5% h4d$f1!5%` Z&j&9"v+3:p*93c*9ۧ"Z&9ILE128 BIN4_ICON1C BIN1 ;?3&UUUUUUUUUUUUU"ݻwݻwUDDDDDDDDU""""3U3333Dݎݸpw?9w?3_߿U8}Ur'UR T0EuDpc0U33D Ox3?3?O13|O1?O3>133?6O?;<11;~133?pc33/1?30/?>P11>z1?O3OgN1DOgl?3{8O3D?3~x13??33|O3D3?3VxO3?D3?p?DOO1?D DOD?3&-!> -1-0-------$   UDDDDDDDDU""""3U3333Dݎݸp?9w?3_߿U8}Ur'UR T0EuDpc0U33@@@`0Pf`&vff&a@hf& p`ffjfCgfhf 1cC!vfDDHdcWf@@FD#C{fddG}fd@@@FDǀDdfD@@@FD dFDd!FD!d AFDBAfdddhdB_FFjjFHFDDa_ddidhdH?_FFjjFHFDP؝_ddfdhdpƞmdFFjFHFD@ddidhd@<FFjFHD@DDJDDdD@jf@@JD@@ߜJ@@2JO@2@2J@2@ O@N@>JO@I@@JI@ @ kO@ 6@JI@@II@@~O@@I@@xߜJI@J@o@?@@J@@xJDO@@cJ@3@J@I@JJ@ID@C@&D@@J@@@@@@@@@@@@@@@@@4J@4@4@4@4@4@@@@LHJ@,@@ JD@@@@@@@@@@P @NԪ@ PݪK@M@N@\UܴN@\?(tML̴C\`(MLCU\``DGÀ]Hp pMML̻ME|] VFX ̴JKKEہ|}@V$A D̻NLNEہ=pT0@@$KKDLDEہ\5vx 0DPLDLMDEӃX5vXtD`DMDLEX5vXt$@3DĴͻEX`5tt@  LDLLEX`5tT  FMD̴̾N E`vv(J-KKL Eۅ`5vu$"LDݻ E߅Y 5t`up#!봻JKMDNDN EWQ `=t`USPh NDKͻD Gwc_ `=t7`]`IB$ MDJLͻM Aw`=v7@]`0 !@ܴDLM̾DD A׏`>VwC}@@HNDLLLD @׏@>W}=H(DKDݴ̴LD @׏>?@NKNDMD @ߏ>u?! AKݤLDD @ߏ>u7"JDDNԾ @ߏ@_>=]7̴̾ @ߏ`_>7]a$@L @_`p_>]aV@@@L̴ @ׇpX^>]aP$@@ NM̴NDKDK@>a[A*    3!"#'(9:7./0124568=;<>?@ABCAUTOEXECBAS%FISH BAS$FISH B BIN&MFISH F BINDFISH S BINFISHIN BIN TANK BIN gFISHIN SRCF44 PIXnDM3 2RATBAS)2 PIECE PIXVMAX PIX mSPIDY RAT,RAQUEL1 PIX+HF38 PIXRAQUEL2 PIX-SPIDY PICG RATAQUARIUM AND GRAPHICS MOKL @׃A>a`C """"/""K @߃>@a K"/"/"/"/NM @3>ca_FXK"/"/"/"DK̴ @v1>?χga@Å@EO"//"/""/̴KL @f36?χg]ar""/"//ML @`6=χc}Y;`0`/"/"" @f=@_߇ c_Y X̴/"KKKLL @=@߇Y`@KNKD AWa߇BJJ@  NDDMMKDLA߇?`} N! DLOKDNĻLKA[o=`=}pS8 ̴OMD̻A[Wo_}`=}?(dHMDLDC]o_}`=P@MDۻDKKG~]ߍ]=j NDMݻDKKKľD̴N E(uM^]`?$ MwwĻ̻DNMscm^]|Toq"N}/""//"/DDMKOc?}V|/ǔG D""/"Dw{wwKDOc]V|SeGL F!P }w"""/"w|}www}~ԻOCd?o|kÚ Dw/"̻{wwwDwww{~NH_0>_׹sXagGw~wwx}ww"//"www}{wwwDw<`f/C&3Fx@/"""/"ݻw~wwg Kawww"ww{wwwww~wwwwx ـg|IbA wwwww""/"ww|www|ww}wwwwwLj9gs?w?7( <E ~xw}www~|ϻx9g_hC2q!8܈//{w}w9g_`n``38rr&"wxwww/wwwww|wwwwwwwwwxy9^g~g~moofxr I @~w}-w}w{www YeTTQTiETwwxww kf$36&ff www/w@4LLwwww{ww|wwww}ww~wwww{wwww̏w ~v^PAVTKPPwwwww/"/wwww|wwwwwwwwwwwwwx;{3w33=3p- ԵTԪ*xw}{ww{w}wų0͚32-/~̷wf摀@3)ә13wxwww݂/wwwwwwwwwwwwwww{k~e^f^fgf0 $cww""wwwۻw}w}xߙc}ٙݙj# [U UDUwxw-"-(|}w|ww{ffFa1,"(w̸g`@s3335fg"wwwww'r/߇xwwwwwww~{wwwww{wwww|lzz֫ 5wwwww~ww'xrw(}'((wx}wwwwwwwwwwwwwwwwwwx3;?333373?6\}YUU CS`xwwwwxwxww{w}xY x}xwwxwnffxwwwwwxxwxw}|wwwwwwwwwwwwwwwwwwww ffffffffmofz8wwx~wxwxxwww}w{w ۙyUUUUUUUxxxw~wxwxwL3333333̀x߇xwx݈wxw @ ۙyUUUUUUUxxxw~wxwxwL3333333̀x߇&% 1,580: 2,580: 3,580: 4,580&4M"FISHIN"&< 2&Y("I",#1,"FISH F.BIN"::&p2 (6,13)(54,35),1&<"I",#1,"FISH B.BIN"::&F (6,13)(54,35),3&P"I",#1,"FISH S.BIN"::&Z (6,14)(42,32),4&d32'n"I",#1,"TANK.BIN": 3584:'1x&HFFD9,0:59078,33:2:X133:Y70:U100:V40'` 240:A(10)(10):B(10)(10)'pXXA:YYB' X2 X2' X242 X242' Y32 Y32' Y163 Y163'(X,Y)(X48,Y22),2(>ȅ A 4 (X,Y)(X48,Y22),3:: A 4 A 4 (X,Y)(X48,Y22),1:: (X,Y1)(X36,Y19),4(XҀ DLAY1 300: DLAY(q(X,Y)(X48,Y22),2(|恥 130(59078,33::&HFFD8,1:3586:: Y32' Y163 Y163'(X,Y)(X48,Y22),2(>ȅ A 4 (X,Y)(X48,Y22),3:: 7O1?D7O313?O31333O3_11>@O3.@??D %D17T|3?o63?Oώl??O?O13O3?hO BD& (235):"FISH" (A$) 128 110:: 130'PnA$A$(0): 100'px B1 255:B$B$(0): B'D,17,17,A$,B$' 40' 0:F YN$"Y" ::&P"ENTER NAME OF DRIVE";A$:A$A$(13)'Z (A$) 128 1,1:"NAME  ;?3&UUUUUUUUUUUUU"ݻwݻwUDDDDDDDDU""""3U3333Dݎݸpw?9w?3_߿U8}Ur'UR T0EuDpc0U33D O5O3DS3D>?O31?D|pO3D31D}3O1?m3Dx31333133O?13 3/?€O1103?30;?D10f,D?0v5?3=o??3?O31>w3??331?>>;w<3?3(3?n O1?DO? ODO1760 LDA #$3C 1770 STA $FF23 1780 PULS PC,A 1790 STX ,S+0 1800 PSHS A,CC 1810 LDX $71DA 1820 ORCC #$50 1830 STA ,X+ 1840 CMPX #$8000 1850 BLO $71A0 1860 LDX #$776D 1870 STX $71DA 1880 CMPX $71DC 1890 BEQ $71A3 1900 CMPA #$D 1910 BRA $71CC 1920 BRA $71CE 1930 BRA $71D0 1940 BRA $71D2 1950 BRA $71D4 1960 BRA $71D6 1970 BRA $71D8 1980 BRA $71DA 1990 BRA $71DC 2000 BRA $71DE 2010 BRA $71E0 2020 BRA $71E2 2030 BRA $71E4 2040 BRA $71E6 2050 BRA $71E8 2060 BRA $71EA 2070 BRA $71EC 2080 BRA $71EE 2090 BRA $71F0 2100 BRA $71F2 2110 BRA $71E1 2120 BRA $71F6 2130 BRA $71F8 2140 BRA $716D 2150 ASR $6D77 2160 TST Y-7 2170 LDA $FF22 2180 LSRA 2190 BLO $71DE 2200 LDX $71DC 2210 CMPX $71DA 2220 BEQ $71DE 2230 LDA ,X+ 2240 CMPX #$8000 2250 BLO $71F7 2260 LDX #$776D 2270 STX $71DC 2280 BSR $720F 2290 CLRB 2300 BSR $7211 2310 LDB #$8 2320 PSHS B 2330 CLRB 2340 LSRA 2350 ROLB 2360 ASLB 2370 BSR $7211 2380 DEC ,S+0 2390 BNE $7203 2400 LEAS S+1 2410 LDB #$2 2420 STB $FF20 2430 LDX $95 2440 PSHS X 2450 JSR $7346 2460 PULS X 2470 LBRA 7346 2480 LEAS S-5 2490 CLR S+3 2500 DEC $7345 2510 BNE $722E 2520 LDA #$3 2530 JSR $7318 2540 LDX #$152 2550 CLRA 2560 DECA 2570 STA ,S+0 2580 STA S+2 2590 LDA S+2 2600 ROLA 2610 LBHS 72ED 2620 STA S+2 2630 INC ,S+0 2640 JSR $7303 2650 STA S+1 2660 EORA ,X+0 2670 ANDA ,X+0 2680 LDB S+1 2690 STB ,X+ 2700 INCB 2710 BEQ $7237 2720 INC S+3 2730 TSTA 2740 BEQ $7237 2750 LDB #$F8 2760 ADDB #$8 2770 LSRA 2780 BHS $7259 2790 LDX #$7343 2800 ADDB ,S+0 2810 BEQ $7295 2820 CMPB #$1A 2830 BLE $7287 2840 LDX #$72F1 2850 CMPB #$20 2860 BLE $7295 2870 LDX #$72D3 2880 CMPB #$30 2890 BGE $7295 2900 JSR $730C 2910 CMPB #$2B 2920 BLE $7280 2930 EORA #$40 2940 TSTA 2950 BNE $729D 2960 ADDB #$10 2970 BRA $729D 2980 ORB #$40 2990 JSR $730C 3000 ORA $11A 3010 BNE $729D 3020 ORB #$20 3030 BRA $72CD 3040 ASLB 3050 BSR $730C 3060 BEQ $729B 3070 INCB 3080 LDB ,X+ACCB 3090 CMPB #$60 310&> (0) 14 1,1:"NOT ENOUGH ROOM! 14 GRAN NEEDED":&T&HFFD9,0: 113,0&k 200,&H7DFF:1000&( X&H7E00 &H7F75&2 A$&200;om1?okn?Ghookm1onoMc 970 "l0?omoOoe9oeL[1`01oBH0:P02000700l?O`lG7odCooch`_d6oochhel?o 980 "@@0h?d6oal2P03Ao@Coo_ooo_P00020`830P820`83Ph83P`N7m?omoobl3 990 "?`430OdK01`21alOooooo?kln<3Xo?30h?23mOkhoooRo@[oE`=5hmooooo 1000 "lo`00d>300000H>3P`<3P`>300000o@B0`030oA@0P<3Ph?3`n?cho?Sm?_ 1010 "mO2_dL0<2000007ooookmo1`L?o@Co7od9ooO[ookloeom1Om3S`L00@lG0 1020 "0021`071`030001o@h00_dJ0820`?_m=onoo@Co3@L10`L3o@@00Od90040 1030 "0@0100407ol7?gom;_nooolO_cooghLG0`3h`?Sho?cno_koookm6_omX 1060 "`20P830P?d6h?3Pl>3`n?3jd?S`n?kho?koo_fe0810oL<00P<20P;m^`0P 1070 "HJ8T:?fk0;XR>`XjoK\0BDW9BDWm^`0^Z6`X;P3E ICTURE: ";F$:IFF$=""THEN 710 730 P=INSTR(F$,":"):IFP>2 THEN F$=MID$(F$,P+1)+":"+LEFT$(F$,P-1) 740 IFD AND INSTR(F$,"/")=0 AND SCREEN. I HAD PROBLEMS STRETCHING THE PICTURE WITHOUT S T R E T C H I N G IT OUT. I FOUND DOUBLE POKING AND THE HBUFF UNHELPFUL.+,: I DERIVED THAT EACH PIXEL HAD TO BE CONVERTED TO A WORD, THEN TO BITS, SPLIT, ADDED TO ONE ANOTHER, AND CONVERTED INTO 2 PIXEL VALUES. THEN STORE THEM CONSECUTIVLY.+:IT TAKES ABOUT 15 MINUTES TO CONVERT, A DRAWBACK OF BASIC, BUT IT WORKS. GIVEN TIME, I MIGHT DO AN ASSEMBLY PROGRAM OF THE SAME.,):I USED HRSDOS TO TRANSFER PICTURES FROM OS9 AND RSDOS. ALSO, THIS PROGRAM ASSUMES THE FILE EXTENSION TO BE .PIC,:IT SHOULD BE NOTED THAT DM3 USE A RGB PALETTE AND UNDER CMP COLORS WILL LOOK STRANGE.,":BY SNAILSOFT SOFTWARE,,:-EOF-ME.,):I USED HRSDOS TO TRANSFER PICTURES FROM OS9 AND RSDOS. ALSO, THIS PRO"!ۻλ˾۾뻾{?[|۽̼νۻ?>?ܼܾ?~qq˻̽뻾`뼾ν̻;ܻ`~̾˽̻̾`̾̾˾λ̻WͿqq˾ۻ˾۽`c@?~o뽾`E&:200,&H7F00:32&M:"HIT 'S' TO SAVE PICTURE AS A":"BINARY FILE"&q:"PRESS 'C' TO CHANGE COLORS"&C0:S6:E&H1D: (&HC000)&H44 D1:SS8:EE8&&H7FFC,S:&H7FFD,0:&H7FFE,E:&H7FFF,&HFF&I&H7FC0 &H7FEF'H$:I,("&H"H$):I'4 BE,7F,FC,C6,1F,A6,84,47,A7,84,30,1,A6'r 84,46,A7,84,34,01,5A,C1,0,27,4,35,1,20,EE,35,1,BC,7F,FE' 27,4,30,1,20,DC,39,1A,50,7F,FF,DF,7E,7F,63' I&H7F00 &H7FB7: H$: I,("&H"H$):( EC,8D,0,FA,83,0,1F,ED,8D,0,AF,A3,8D,0,ED,43,50,5C(A ED,8D,0,8E,1A,50,7F,FF,DF,9E,33,30,6,10,8E,80,0,86({ 8,A7,8C,3A,86,6,A7,8C,34,A6,80,80,30,48,48,48,59,6A( 8C,29,27,E,6A,8C,25,26,F4,E7,A0,C6,8,E7,8C,1C,20,EB( 86,6,A7,8C,14,A6,80,26,A,A6,4,81,22,26,C,30,5,A6)$ 80,80,30,48,48,20,D9,0,0,8E,80,0,10,AE,8D,0,91,A6)b 80,A7,8C,48,6F,8C,46,A6,80,A1,8C,40,26,F,E6,80,A6,80,A7) A4,8D,15,8D,23,5A,26,F7,20,4,A7,A4,8D,A,8D,18,27,E2,7F) FF,DE,1C,AF,39,10,AC,8D,0,1E,24,4,31,A8,20,39,31,A9,E8* 21,39,6D,8C,F,26,B,10,AC,8C,4E,26,3,6C,8C,4,1A,4,39*24:1:1,1:Z:&H7F00:*OP(&H155): P251 26*y P254C1C: C &H7FC0 : &H7FE8*23*D @64,"(DEFAULT EXTENSION IS /MAX)":@0,"";*"FILENAME FOR PICTURE: ";F$:F$"" 26+P(F$,":"):P2 F$(F$,P1)":"(F$,P1)+KD (F$,"/")0 (F$,".")0 F$F$"/MAX"+uD M F$,&HE00,256(E1)1,&HA027:+M F$,&H600,256(E1)1,&HA027:+ 4:2+!1+d"nP1<c3ohN7j2_?Ph?o`h?X:in3`o-k"n7QnPCcl?3j1??QhOoo00000`8200?j1P3<<`00oolO3oX4cal?nPC?QhOo-l"7`oj17cloo7anOWoooOgoooinO7aoj2oo?c`.xn"l?oalOWioj1_nOWalOohN7nPC?3`oj13j18000<`c3.o"3<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<.p"<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``/;q@h]DgxwPlxLLRZG3333333331 CLS:CLEAR200,&H7F00:GOTO35 2 PRINT"USE UP AND DOWN ARROW TO SCROLL":PRINT"THE SCREEN." 3 PRINT:PRINT"HIT 'S' TO SAVE PICTURE AS A":PRINT"BINARY FILE" 4 PRINT:PRINT"PRESS 'C' TO CHANGE COLORS" 5 C=0:S=6:E=&H35:IF PEEK(&HC000)=&H44 THEN D=1:S=S+8:E=E+8 6 POKE&H7FFC,S:POKE&H7FFD,0:POKE&H7FFE,E:POKE&H7FFF,&HFF:V=S 7 FORI=&H7FC0 TO &H7FEF 8 READH$:POKEI,VAL("&H"+H$):NEXTI 9 DATA BE,7F,FC,C6,1F,A6,84,47,A7,84,30,1,A6 10 DATA 84,46,A7,84,34,01,5A,C1,0,27,4,35,1,20,EE,35,1,BC,7F,FE 11 DATA 27,4,30,1,20,DC,39,1A,50,7F,FF,DF,7E,7F,63 12 FORI=&H7F00 TO&H7FB7:READ H$:POKE I,VAL("&H"+H$):NEXT:U=S+24 13 DATA EC,8D,0,FA,83,0,1F,ED,8D,0,AF,A3,8D,0,ED,43,50,5C 14 DATA ED,8D,0,8E,1A,50,7F,FF,DF,9E,33,30,6,10,8E,80,0,86 15 DATA 8,A7,8C,3A,86,6,A7,8C,34,A6,80,80,30,48,48,48,59,6A 16 DATA 8C,29,27,E,6A,8C,25,26,F4,E7,A0,C6,8,E7,8C,1C,20,EB 17 DATA 86,6,A7,8C,14,A6,80,26,A,A6,4,81,22,26,C,30,5,A6 18 DATA 80,80,30,48,48,20,D9,0,0,8E,80,0,10,AE,8D,0,91,A6 19 DATA 80,A7,8C,48,6F,8C,46,A6,80,A1,8C,40,26,F,E6,80,A6,80,A7 20 DATA A4,8D,15,8D,23,5A,26,F7,20,4,A7,A4,8D,A,8D,18,27,E2,7F 21 DATA FF,DE,1C,AF,39,10,AC,8D,0,1E,24,4,31,A8,20,39,31,A9,E8 22 DATA 21,39,6D,8C,F,26,B,10,AC,8C,4E,26,3,6C,8C,4,1A,4,39 23 PMODE4:PCLS1:SCREEN1,1:READZ:EXEC&H7F00:CLS:SOUND 200,1 24 P=PEEK(&H155):IF P=251 THEN 29 25 IF P=254THENC=1-C:IF C THENEXEC&H7FC0 ELSE EXEC&H7FE8 26 IF P=247 THEN V=V+1:POKE&H155,&HFF:IF V>U THEN V=U 27 IF PEEK(&H156)=247 THEN V=V-1:POKE&H156,&HFF:IF V2 THEN F$=MID$(F$,P+1)+":"+LEFT$(F$,P-1) 32 IFD AND INSTR(F$,"/")=0 AND INSTR(F$,".")=0THEN F$=F$+"/MAX" 33 IFD THEN SAVEM F$,&HE00,256*(E+1)-1,&HA027:END 34 CSAVEM F$,&H600,256*(E+1)-1,&HA027:END 35 PCLEAR 8:GOTO2 36 DATA1 100"nS1<Ogn?cmOGlOcbO9<\`cc3?<30`<3j18000@010@D11@4501D45@@E5ELEEaEG5ElEGaEo 136"EomMoeGoGomgoeOoOomOooOoOoogoeooOooooeoooooOogOoOOmgogooOom 137"OogOoGomoogooOomonSWooOoloocml?c@d0140D41@@=51DE=EADE=EEEEM 138"Gj;ED030P8411@0500D01@441AD55@DE11D 141"4AaEG5EmDGe=O1ElEGeOoEOmEogOooomOooOj1OmoomooOoX7ogoooomoom 142"ojDOomoogooOoeoOCmd?C0d4710`D51@dE5CEEEEGEnSiE03?<<\`bc33<< 143"LPa`3718L4U`@G11lD7aAN51`DG1alG7aMO7elOGemoGgmOOemoGomOogoo 144"OomonS;oo_kmo?ghnOWgmOOeilOOUinGW`DDnPD00@010`431@<50@D10D1 145"0P51@MEEo5OlMoeOoEomgogoomomonPGoOoognPGogoYWooGooOodoE3eD? 146"A0d@=51@dE5CEEEMGjC5D05aEO5el7GaMoGomOogooOomonT?oo?ono_Cml 147"??`hmC3C=584H47QAlEGeMoGomOooooOoX9o`40000@OeooOomoooooO_al 148"n5Q`00000@mOOoognWGooOoeooCme?c@m=7e@M=5A@E=5EDeEEEEeOYGE@3 149"j@oono_cmo?Whlo3ck0nP`0`?SnnUgooOomooGooOoEoOCmm?cDm=CdD=50dD3C1<<<@ 151"1DE5CEEEEGEnVIE0?X`ookno?cmn?WamO7UhM7=THda335<3lo_XooogooOomoog 153"omOomooGomOodoMCmd?E@e4;DA=58Da1C14<<@``C33=<30`<20P01`OWlOOaMO1emEoeooOomoo 155"gooOomoogooGomOOeooOooOnS_o?`l3nPh0P<3Pl?cnnQgooOX5oogooOom 156"ooOooOoeoogomOoEoMGmeOgEoE7mD?EDm43E@=<4D`a335<<<``cC3?<20nP\0`?cooomoomojEolO1`7j1P01007j2020a>3dn?Slo 159"_X>oogooOooomgoeOoEomGoeOmEoEGeEOeDmECmE=E0eE1C14<<4``c33=< 160"3`m?3he?cDoECoEOMEgdEE1 163"5A@E43@@=00D0100400000113?<ookl 168"o?S`h<30P?XP0<3jH?mo0d@0500A0000D?X9007j6@0501D4E@EGEELEGeE 169"oEGmGOeGoEOmEOeMoEglEGeEOEEmEGaEOGELEE`EG5EL5E`EG1AD5EC4E0@ 170"D15@D70@D11@45P@611H45P@E1@D10@450@D11D51@DE1AnPE@DE1AnPE@D 171"E1AD55@DE1AD?X4DEEAEEECnPAAD55DEOX6E?X`E@3no_klo?chl?3P`820 172"nR`0oOYPoal0E@1504@0000@0100100000Cj3@050140@00000D0E@EOEOm 173"EoeooOomoomooOoXEogooGomOogooGomoogooGomOoeooOomOogooGomOog 174"ooGomGoeOoEgmGOaEO5EmGOaMoEgmGGemo5emGGaMOEElEGeEG5ELEOeEo5 175"GmEOEEoEGmmogoooomoooooOomooemoGglO7aLO5al7GdM7ADM5AdE5@DE1 176"AD55@DE1AD57ADM5AdE7ADM5Ad57ADM5AdE7DEMAEoXj05GjHOmo041A054 177"0@@100440@@010040D@0100D00@1504D0E@1E0541GeMoGomOnVGoOomOoe 178"ooEomEoeGOEOoEomGomOoeoogooOXGogooOomoogoooomonPGoOoXCo`071 179"`<10OX700Cj1`01nR@00OomoooooOX7oogooOomooOj2OoeomGoEooOgeoO 180"5mM1eOOooooOoeooGooGnR[on0050040@00000D01@1E05D0E01D05D0D01 181"@05@0DD=73cmoOoooOoYcogoooomoogooGOmEomGoeOoEomOj2ooeomGomO 182"XWo`3j1omoOclO3`L30@0001001@0401D05@1E00D11@0E01D11@4100400 183"@01007j1`0EEOMEogGomOoEomGoEOmMoeOjC_ol`0D0E01A0540E@1@0540 184"0@0100@0E01A0dL?7cmonX[oOoXCogooOOXWo`3OamOSlL7ll?cdoOGooOo 185"mOclO3dL3Da5D45DDEDAE1ELDMeCmEML0EAAD05@0@?X9050@M5GoEOmEoe 186"goMOoeooGomOomooGomOoeomGomOodo]goeOoeomGoeOgEooGooOomooGog 187"OoEoooomooooogj3ooeoooooOoeomGoeOomogSU05D01@1E04@0000@0400 188"@0010`L?7cmon]3o0?monPOoOglo?aoO3mo?gnOgaoOGmg=g4C41E@5E@D4 189"0@41004L15`DG15@05000010000010AMMoegoEOiDo5CmDO=Cmd77Ael?7` 190"LO1il?G`mO7el5G`EO5el7G`EG0DD1aD31@=50dE3ad?aDo=CmeOoeooGoe 191"OmeoogoeOoEomGomOooomOogomOoecaa140E@1005004@0100D11@LO?goj 192"O?omoooooOomooCmm?clo_cj1ogaoOGmmOgeoOGmmOcdo?Cnm?klo?GomOg 193"eoOGomOOeomGoGooOogooOoXMo`3j8olo3`l71oX<00<73`oOGmlO?cmo?g 194"moogoj5OmonPOoGomGoeMoEgmEGeEOEEM1E`4E0AD01OX50400@430@=1@l 195"53dD?3`l=3e`?G4E01401D1E@1E1AL5GamoOOilo?X8oO7mlOgaoOGmnPCl 196"m?cDo?Cll?gao=Cmm?oDoMClm?cDoOGomOoeoogogOoeoogomOomoogooOo 197"eoogooOoeoogooOomoooooOomoogoooomoogooOomoocooOodooonm?cdo? 198"ClmOganO7idOGemMGUaNG5aDGEEMGj1AGj;EDEUADE5EEEeEGEEMDEUAFEe 199"MEEeLG5aNG5nPGUnPKedO7al@3ooOXOookmn>C0P?X701000001?Oomoogj 200">OmoogoonPIo?glo?oX47`lO3`l?1`L?1`L73`MO1al?nPPO?amoOoXGook 201"ooooloocoo7d@40473aloOgaa@4<30`0401@0E01D0 204"E@05nPD00``c33=<?<\hbcS=>?dlo3cn?Wlo?cno?omnPOo 212"oOgmoogomOOd`41333?<30>33330>33330>30UUUZUUUZUUZUUUUZZUUUZUUUUUZUZ"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""33333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333331,(6001)/(ƅ X14081 720:: P/4C14081/bڀ A0 15: #1,CA: &HFFB0A,(A$): A/F$(F$,1,(F$)3)"RAT"/:"O",#1,F$/#1,(0);(0);(0);: X0 15:#1,((X&HFFB0));: X/ X393216 4253240 #1,((X));: X07:&HFFD8,1: F$ F$":0": 32394,255: 0::1,10L 810:8000T*:0o4&HFFD8,1:,:::1B>:CONVERTS DESKMATE 3'S ADDRESS SPECIFIC OVERLAY GRAPHICS TO RS RAT GRAPHICS. EVERY DM3 PIC CONTAINS 14224 BYTES. THE FIRST 14080 ARE THE PICTURE, IN STRAIT VALUE. THE NEXT 16 BYTES ARE THE PALETTE VALUES.1H:THE REMAINING BYTES ARE THE 4 DM3 PATTERNS AND THIS PROGRAM DOESN'T REQUIRE THEM.2R:THIER'S ABOUT 10 UNUSED RES LINES DO TO DM3'S OPTION BAR MENU. I SET THEM TO THE BACKGROUND COLOR.2\:DM3 USES A 320 X 192 X 16 SCREEN. THIS IS NOT POSSIBLE FOR MOST PICTURES & I WON'T GET INTO HOW THE MAKERS DID IT, ONLY THAT IT NEEDED CHANGING FOR COMPATABILITY.3Jf:I USE A 640 X 192 X 16 SCREEN. I HAD PROBLEMS STRETCHING THE PICTURE WITHOUT S T R E T C H I N G IT OUT. I FOUND DOUBLE POKING AND THE HBUFF UNHELPFUL.3p: I DERIVED THAT EACH PIXEL HAD TO BE CONVERTED TO A WORD, THEN TO BITS, SPLIT, ADDED TO ONE ANOTHER, AND CONVERTED INTO 2 PIXEL VALUES. THEN STORE THEM CONSECUTIVLY.4}z:IT TAKES ABOUT 15 MINUTES TO CONVERT, A DRAWBACK OF BASIC, BUT IT WORKS. GIVEN TIME, I MIGHT DO AN ASSEMBLY PROGRAM OF THE SAME.4:I USED HRSDOS TO TRANSFER PICTURES FROM OS9 AND RSDOS. ALSO, THIS PROGRAM ASSUMES THE FILE EXTENSION TO BE .PIC5Q:IT SHOULD BE NOTED THAT DM3 USES AN RGB PALETTE AND UNDER CMP COLORS WILL LOOK STRANGE.5:11-03-93 MADE MACH. LANG. SUBROUTINE CUTTING TIME TO ABOUT 8 MINUTES.5:BY SNAILSOFT SOFTWARE5:-EOF-OGRAM ASSUMES THE FILE EXTENSION TO BE .PIC5Q:IT SH橥 jeQUQDDUTU QTEefYieUQUQEQTUQ@Jif|?? DEdYYdjiP@PDYi jjiiaTaEDQDTQDTUQ UTUDP@YieQTQTQTUU QAUdY|?3? AAafYfj iPPEfjiijYUQDQQQETUUEU afeUTQT UTaUQVUaQEVef?<?&ETVeYiAQPef j榪ifUQ PQDEQDUTUTQP"c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33/|r"<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<<``c33<<</s"``c33<<<``c33<<0<`cc3?<00@0000nPD1nPL0EE5E5alGGaEG1EMEGeEo5El55aDG1@D10@000408_"@71kj13mo?clOOalO7el75`5E01D01@0500400@0000401?X905D0E@10048"00@00D0100E03@@=A@m5CmG7oMoiGoo?omoogoooon0<`cc3?<30`<3DP920U00@0540D01;k"@0400@01400A0eE3`d?1@m53@@=00e4CEE?eDOEEo5AlE7`DO1EM1E@1E05;"D0ED1A@5dE0<`cc3?<6"@00@0400000@nS<00@010040101@05<4w"cc3?<"000010nQD00@0100400`0300<00`@310<0@`0504405@01007j3`0A04400>"`1310<<4``cc3?<"