Last active
August 29, 2015 14:06
-
-
Save revdancatt/b50981d7b672157477e5 to your computer and use it in GitHub Desktop.
Beeb Modesty Photo
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 10 F=OPENOUT("IMAGE1") | |
| 20 PRINT#F,"1177117733110011000011001100116611117711772211771177111133110000330000330000330022330033002233001100332233001100332233001100330011003322330011003300110033001100" | |
| 30 PRINT#F,"3300003300003300003300003300001133113322770011772233772255112255116633116633772233772233772233772233225522330011000011001144110011336633110011001100110011001100" | |
| 40 PRINT#F,"0011441166336633223300225522333344223344115500114433661122330011002233223322223300001100110000110022003322550011003322330022001100002233223300220011000022330022" | |
| 50 PRINT#F,"0011220011002233220011002233000011001144117700337722337722551122331166331166337722337722337722337700770033224400114400770011337700113366337700770055225500770077" | |
| 60 PRINT#F,"7733117733111100110022332255226611336611001111772211331133223300003322000033002233110033001144003355225500223300663344225533770044115500336600331144001133660033" | |
| 70 PRINT#F,"1100333300113300332233003322331100113311000077226633661100112255662255226633222255220055220055220011001166332233001100332255220011442233220011332233001111001100" | |
| 80 PRINT#F,"3322770077224433002255001100113311661155116677001155227733110022000033225522003300000011003300110022330022334411003322330022003311002233223333220033110000333366" | |
| 90 PRINT#F,"0055220011442233223300332200000011332244117722333366114411774411113322773322775522117722337722337711552233003366000077007700113366331155115522552233663344114433" | |
| 100 PRINT#F,"2277331111331122330011225522441144113322773322773366113311003333001100003300110011331100332233001100332233223322332233223311002200333322440022553322007733220033" | |
| 110 PRINT#F,"0022332200330022550022003333223311001111003377227733113366001144114411336633110077003311663311663322007700110033223300110011441100114422332255223366332233001122" | |
| 120 PRINT#F,"3322770077004433225500110011001111661155227733227711771111002200330011001100110033003333003322334411007733001144114411006633333322770033113300220033000022332211" | |
| 130 PRINT#F,"3300334411003300223333660022330011336633662233552200663311773322551166331166551100776633116633225511663322441144006633663311007700113322551100110033225522334433" | |
| 140 PRINT#F,"6633111177111100220022003366336600337722110011773322332233110033220033223300110011110011331133221133223322110033223300113300660033001155220011333322113333663344" | |
| 150 PRINT#F,"0011001100332233336600110033001100113322337700225511007700002277222255226633226611223366330077001100114411332200113322331144113366336633220011443366332255223322" | |
| 160 PRINT#F,"3322774411005522331133116633223311770077337766332255771133223300003322330011001133003333000011003322333322553322113377003322331100117722337700002255000022333322" | |
| 170 PRINT#F,"1144000011006633220033003300110011332255110055113300332255117733335522773322551100551100772233772277001155224411552244114422332233223322337700112233003322336633" | |
| 180 PRINT#F,"1155111144112233004422003322552277001122770011771122113311330022332233001133110011331100113300113322552233112233332233112233220077332233110033110011001133772233" | |
| 190 PRINT#F,"0011332200333322551122332200003311443300003300000077003300000022772233116611770077221177001166333322552211001100001133223311441155114411443322550077225500110011" | |
| 200 PRINT#F,"2200773311443322110033225522332233772255111100114411552211223300330011332200113322333333001133223311223322331166332233225511330011773377001100001100332277117711" | |
| 210 PRINT#F,"0000113300223311110055223311007700332255002233000000330033225500337700553300116633770011770011663377110077336633660077336633110022331100110033223300332233441144" | |
| 220 PRINT#F,"5511007700117700003322001100114411007711007711551166111133331100110033223311001133110011330000332233331133223333115522331100110033227711114422330011000011331177" | |
| 230 PRINT#F,"3311440011005522551122330000333355003300330044330033004400003300000011002244003300007700225511001122007700223322331100110011441144114411551166336611225522110011" | |
| 240 PRINT#F,"1100771122330022332200110011441122771100772255227733110077110011003322331100110011003333001133223322110011552211002233110011001100773322552233332233223377117733" | |
| 250 PRINT#F,"2200001100332211331144336633770011003322330033220000001100330033003300003333007722110077331166336633773311552255114411441155223311332233220033223300550011443300" | |
| 260 PRINT#F,"1166330055223300220033007700114411336611115522110077117711007700332255110011331133113322330022331133223322331100113322007700330011117711330033220033001100111122" | |
| 270 PRINT#F,"5511330000223377225511003333003300005500000000003300000000000022000011007722110033441100114433225522332266331100770011332200114422551144113366337722111100111166" | |
| 280 PRINT#F,"3311661100772255332200223322001144113366332277117700113311111122331122551100223300331133003300114411331133223311003333110011223355113377223366330022330077337733" | |
| 290 PRINT#F,"2200110033001133112233552255000033000033003300000000000000003300330000330033663322332255221177112255225511225511001144115511001155223311441133223300550077003333" | |
| 300 PRINT#F,"6600332233003322223322330011552211441111663311441111552277115533224433110011331111110033223366332233227700113300110022003300330022117711770000110033223311771111" | |
| 310 PRINT#F,"3300770011000011551144333300003344003300220033000033003300000000003300001100336633663322552200553322111100552233770011001100773322336600110066334411223311336622" | |
| 320 PRINT#F,"1155114411007700336600001144001144111144111144111144111111001122551111007733223300333311330011337700773300114411003300332233112233773311330011003322330011223311" | |
| 330 PRINT#F,"4411003300001177223333000000330000110044000000003300000000000000000000330033001100332233223377112277550077112277007733663366332255223311441133221144337700663333" | |
| 340 PRINT#F,"0011441100003322330011114422114411114411336611114411113377111133223366113322332233113300001144112233110011001100110011003322003311112277007700332200117733771100" | |
| 350 PRINT#F,"1100110022332233553344330033225533000033000000000000333300330000330000000044114411007700770022005522001100335522332233110011007700115522331144113311220011332277" | |
| 360 PRINT#F,"3322336633660033663300001100113366331166113366331166111133770077001133663311003311331133110011551166331100110033002200110033220033773311110011003300001111337711" | |
| 370 PRINT#F,"3300332233005511003300110044330000000000003300001144002255003322000033223300001100332233225511772233772277223311441144115522332233223377223311442255337700770033" | |
| 380 PRINT#F,"7700773311003322332244110011441122114411007711225511336611111100110077331100111100113322335511007733770077001111773333002200331100116633663300110011003366111111" | |
| 390 PRINT#F,"4411223300223355550033000011330033003300000033000033333300000044330000000000004433663366331100331144113300336600110011002233773366336633007700113300220011007722" | |
| 400 PRINT#F,"2255112244332244000011007700220077441111771100772233661133115511007700114411330011331133001100770011001100117777000066330033001100113322330011003322331111336633" | |
| 410 PRINT#F,"1100330055337700002200553344000022000000330022443300000000003300000033003300330011003300110066114411114411661133115522551155224411001133772233114411551144110033" | |
| 420 PRINT#F,"3322551100223300110033223300773322115522441177337711113377221100113311773322331133331133110077117700770033111111111100110022330011001133223322332233001100113311" | |
| 430 PRINT#F,"4411002211550033333300332233000000330000000033330022330033002233000000002233000033001166336633110011441133330077001133220022331133770066333366332233223322337722" | |
| 440 PRINT#F,"7711663311440011006600552233225511001177110011223366332211551100442233223311000011001100113322331177001100773377114433003300223300770077003300003322330077332233" | |
| 450 PRINT#F,"1100115533330000005522550000330000003322000000003300330000330000003322330000003300330033223366337700110066113322552255115511441100113311663322552255225533223355" | |
| 460 PRINT#F,"0055336600110000003322332255220077225522336633776611115511112211337700773322331133331133110077336633110033117711331122332200330011003300110011110000110011001155" | |
| 470 PRINT#F,"2233003377003300110033003300003300334400003300110000003300000011000000000033000000000033441133220011551100336633225522001100110077006633007733223322332200770022" | |
| 480 PRINT#F,"7711661133003300770033223322001122551100771177001133661133115533220011332233110033113311443311441133663322111133117700770033001100336611007700003322330033225522" | |
| 490 PRINT#F,"0077337700332255334433000000004433000033000000330033003300330033000033003322000033003300333322553377002233772255110011552255225522331133223366334411551155223377" | |
| 500 PRINT#F,"0077336600660022003366007700551155221177223322771166331122772200337733661133001111001144112233116633000033113366110033002200220011001100550033220033001144332233" | |
| 510 PRINT#F,"3333770033005500003300334433001100000000003300330033000033000000003300330000330000220000330000002233225511003322337700113322332233663366331133221100223322551100" | |
| 520 PRINT#F,"1122773311003300110033000011002211552233772255110011115511331111002211331111330033113311333366331166110000221133223366333300330055114411223322330022001122330066" | |
| 530 PRINT#F,"1100333344332233110044220000330033000033006633000000113300330033440000003300330033003300223333110077332255227733223366007733663377001133660077335511552277336611" | |
| 540 PRINT#F,"5577001144332233442200661100663366223366115511227755112233772255225500770033223311331133661100770033332233330011331133222233223322331144330033223300113333661133" | |
| 550 PRINT#F,"5511550022330055003333003333000000330000003300330033000033000000330000000000003300330000000033003300663322330022552233110022332233223366331133222233663333221155" | |
| 560 PRINT#F,"2233116633224400330011330000114411337711001100773322115511223333001111331122333300113377110011001111000011001100110022553300003322552233227722330000552211333322" | |
| 570 PRINT#F,"3333000033005533004400330000003300440022330022333300003300550000332200330033330033000033003300330000333311441177001155225511551144114411336600773366331166115522" | |
| 580 PRINT#F,"7777441100332200225500007700552211663366117722336611552211337722330077223333110011331100333344115500223300331133001155220011001133111155110033002233223377224433" | |
| 590 PRINT#F,"5500773355110000333300003322550011000033442233000055003300003300003300003300000000003300004433443322336600113300114411332255223311331144113311007733116633332255" | |
| 600 PRINT#F,"3311773366003300332255220011001144112233663377113366113377223322113311331122331133113377221133221133000011000011332233330000110011332211001100110000110033113377" | |
| 610 PRINT#F,"3300001100553300220000110033000000000000330000330000330033002233440033000011553322330033000000333300003377007700113366332233660077007711442255110077001166337722" | |
| 620 PRINT#F,"7722552211552233660022330000770011551155116633227733111111331133001100111133223311001133773322553366331100113322331100221133001111113377113311001133441177001133" | |
| 630 PRINT#F,"2255335533330033550000330000330033003366003300003333003300330000003300000000003344330000110033000033330033223322552233225522337733223322331111441122773333663333" | |
| 640 PRINT#F,"2255117733000022330033002277002255226611223322552211007700110011113311113333113311331111332233112233110033113311332233113300113311007711332211330000223300115533" | |
| 650 PRINT#F,"5500332233220055000000330055000000000000000066330000003300334433003344003300330033000033000000003355000022336633225522551155110022552255116600331155001166331166" | |
| 660 PRINT#F,"5511660022007700441166003300225511113366337711771155111133771133221133221122331100111155221111337711001111001100113311001111001133111133773333223377332233551100" | |
| 670 PRINT#F,"2233335533443333003333441100333300330033003300003300330033003300003300330000003300333300003300334433003355001133770011110022337733225511003377225522115522336633" | |
| 680 PRINT#F,"1155115511000011000033224411001144225511663366332277001111001133332233333311113311332211333366110011113311113311331133110011111111337722111111332233007722335533" | |
| 690 PRINT#F,"0055110033005500000022330000220000442200000033003300005500000033440033000033000033004433004400220033330000114422331144337700220077110011772233772233663311001155" | |
| 700 PRINT#F,"7722772255223344223366330000770011772233112211114411117700113322113322111100332233113333111133331133332233001133221122331133330011223311331100113322113355332200" | |
| 710 PRINT#F,"3300553344110033003333003333003333003300330000006633000033001100330022550000005500330033003300330000550033001100770011220011551100337700005511005511337700773322" | |
| 720 PRINT#F,"6633773300332200337700002277002255225511665533661133663311330022330011330011113322332211223322110011223311113322113333112233221111331111332233113311550011113355" | |
| 730 PRINT#F,"3333110033333300000044335500330000000033000022330033330033003344000033000000330033003300003300004433003344003377001100551155225522770011771166331166332244110077" | |
| 740 PRINT#F,"1177007722443300220033225500115522112255112277336611113322001133001100223300001133223300332233331100331100110011332211003311333300110055223311001100111155004433" | |
| 750 PRINT#F,"0077553344330033223311002233000033005500223344000033443300550033003344330033000055000033334433001100553300330011336633223322110011332255001133224433225511336633" | |
| 760 PRINT#F,"5511770033220077336600002200661155007722551122113366337733220000110033001133220033001133223322001111441100113300113300113322112233111100113322331100335533003333" | |
| 770 PRINT#F,"3333003311550000334433330033330044220033000033005500330033000033000033000044330033334400003322000033003300003344113366336633773366337722336633771100110077223366" | |
| 780 PRINT#F,"7700771144110000003311005522330011770011110077441177112211333300003322330000001100110000330033330000330011004411000011332233003311000033110011332233221100551100" | |
| 790 PRINT#F,"3377334433333333003300114433003300330000330000002233003300330000773300553322003300003333330044334400004433330022552233223311007700110055113322330011551100551133" | |
| 800 PRINT#F,"1177770011007700772244332233442277007711447711113322551133000022330000220011330033000011001100223322332233001133001155000033001100223311002233000011553300110033" | |
| 810 PRINT#F,"5533007733330000552255003333000033000033000077005500443344330033000055000033000000553344000033330011443333000033223377337700663311663311224411441144110077223366" | |
| 820 PRINT#F,"7700115500000033223300224422117700112255223366007711110011001100001100330000002200110033000077003300110033223300110000111144110055332200333344113300110055003355" | |
| 830 PRINT#F,"1100553333003322003300113300336600334422003300330066330033003344330000334400443333002233333300004400330044003300552200772233111144113366331133225511007733114411" | |
| 840 PRINT#F,"7777221166332244336633003344001177007711772233772255117700330033000033223322333300001100110000110000001100332200001100000011003322003366001100001144333322550033" | |
| 850 PRINT#F,"5533115533003355110033443333003300330033440000003300770033443300007733003311000055335500004433003300223333000000115511007711441133663311443366332255110077001133" | |
| 860 PRINT#F,"2255773300770033220077002211441100772233223377110077223311220022332200000033220022330000002233000011330044003311003300113300110000110033110033110011005500335500" | |
| 870 PRINT#F,"1100553300330000005500333300770055000000330033660033005500330033003300550044330000003300333300550033440000553300001144113344114411337700112233773322441100773366" | |
| 880 PRINT#F,"3377114411000022551100225500110077115522557722007711337700330033000033001100334433000077330033001144002233110044110077000011003311003322003322003355330033330055" | |
| 890 PRINT#F,"3355773333003377330011335500330011005522330033003300441100334433003344110033000077334433440033000044332233000000332233116611331100772233663377002255113322332233" | |
| 900 PRINT#F,"7722552200336633220033002233667700221155221155112255221133223300223322550000223322332200001100770033110033002233003300110044332200332233002233001100114433003311" | |
| 910 PRINT#F,"5500333300550000334433550033443300002233443366330000115500553300004411443344003300003333003344331100004433003344005522551100776611335511336633115522336633770077" | |
| 920 PRINT#F,"7777115522003300552266334422332277552211552211551111551100332233000000223300330000003311004411001100001100110011002233001100110055225500115522336633003300773344" | |
| 930 PRINT#F,"3377334433337733001100333322334433550000330033007700005522330055110033330033660055334433550011004433000044330033001111007711003377220077001166001133223322337700" | |
| 940 PRINT#F,"0077001155220077223333220011441133225522114411660077227711000000332233003366001100770000110000330000770044005500115522550011003322330011000033003355334433003333" | |
| 950 PRINT#F,"3355333333000055334433550055115522003333443366330033000033443333003300665500330000003300330055003300330011443300000077770033771100551100773333110077007700770011" | |
| 960 PRINT#F,"7777115522003300003366003344225522551122551122337711331100332233223344110022330011003366330011006611330011332200332200332255007700332255001166337733220033005533" | |
| 970 PRINT#F,"5522553300551133001155333333001144334400332233441144333366333344330044333333443322550077005500550000443300000033003311001166110077110077110077225522332233223377" | |
| 980 PRINT#F,"1144112233442277114400114411332277225577225577221144115511003300004411000033224400110000110055223300225522007733663311001100110011441100110033225500333344115511" | |
| 990 PRINT#F,"4433330077330044115533336600555500110011550055110033004433550033005511004422330055003300333300332233000000335500004411551133441133661133663322332233773366337700" | |
| 1000 PRINT#F,"7711554422330000331100002244114411332233112233770011772233220011001100114411001100441100441100332255001133223322330066334411441100110033441144333333443333335533" | |
| 1010 PRINT#F,"1155330033441133443333335511007700443344331144553366333322335533550000553355000000334433443366334400335500000033003366114411336633336633114411443322001133223377" | |
| 1020 PRINT#F,"0077221133001144225522552233661100776611447700771144113311330000330044001100550033110033110011441100114400552233441133223322330077005522110011115500330022550033" | |
| 1030 PRINT#F,"4433553377335500553344336633553377330011004411007733443344334433225533003322553366330033005533003333000000552200330033001144110077223377223311001155225522552233" | |
| 1040 PRINT#F,"7711551144225522332233223344110077001155221177114411116633220011002233114400223322005522004433223344110011110055223300770077007700332233007733443322550055335511" | |
| 1050 PRINT#F,"5533004433001144115533333355116600005555337733551144113333225533553322550055004433005500773300443344000033003300003366117711337700115522551144115522332233110077" | |
| 1060 PRINT#F,"3366001100330033663344002211441166114411114411001177331100333300770000001133660055220011332211441100114433441122336611001133110011770077330011550033003333553300" | |
| 1070 PRINT#F,"3333331155663333550055114433770033552222552244114411550055335500552255003300773322440033005533330022333344000000330033550022770011552233223322332233773366007733" | |
| 1080 PRINT#F,"6633770077220011002211005522336633771144113366770011663377220000001177000011332233332244114433001144332211003366333344114400773300113322770055333300550011007733" | |
| 1090 PRINT#F,"5500443311554422553333551144550022335533663355777755115500007733550033443300004433330055330066334433000033005500002222115533225522110077336633663366001133110077" | |
| 1100 PRINT#F,"3311441100007700773344002233663311223366116633117733771100330011330000336600443300663300330011441100114411441100772211001111002277006633001133225500330055550033" | |
| 1110 PRINT#F,"5533335544333355113355005511773344336633552255115511443311553355337755110055335522441100443355003344000000000033003355001166331133441133223377331133770077441100" | |
| 1120 PRINT#F,"7766112255110044332233223366001166556633663311660077223311001100007700770011332266332233661100110055223300110011003300773344115500331100770077330033005511335533" | |
| 1130 PRINT#F,"3300336611336600335511551155000011003344115577447766337755003322550033000033220044330000337700333300334433003300440022117700110066113366337700220077001100110077" | |
| 1140 PRINT#F,"0011553322003311225522443322774411221111336677337711551100110000110033223344223333003366330077001122336633551144115511001100332211770077331155003344333344332233" | |
| 1150 PRINT#F,"4433773355663355330033441155005500552255777711773377552233554455336655334400553333005533000055004433002233440000333355003311441133227700110011551100117733771100" | |
| 1160 PRINT#F,"7744114433660044110033224433112255336644113322770011225511003300441100552233006633663300223300770055223322001133660077007711443344331100225533330011001155553333" | |
| 1170 PRINT#F,"3300336633550033553355114433000077003377336655777733775522333333553322553300004466332244333300553300330000330033000011772255114411551111441100114411441166005511" | |
| 1180 PRINT#F,"3311661122330011441144001144225511663311661144112255771100110011334422001144113322332233225522330011332255114422331100113300111111660077001100550055334411330033" | |
| 1190 PRINT#F,"5500553377337733333300337733003300551144771177336677007755770055330055330033003333443300334433114433443300000000330044223322332233223344113377001133114433111144" | |
| 1200 PRINT#F,"6655115500441100332233223322551122337722770077115511223377003300002233770011002233663366330011441155225511001133336633770077114400331133773355330033005533553355" | |
| 1210 PRINT#F,"0033116655004433003377550000550033005577774477775577775511003333335500770000550066330044330055003300000000335500000011336633663377007711007700114411441177114411" | |
| 1220 PRINT#F,"1177441100110066336600552277224477223377337722441166337700110011003322330055115522332233116633110022332233663366110011007700331111441144330011003355001155003311" | |
| 1230 PRINT#F,"3344773333113333553300333300001155117733777777441177336655770055443333003333003300007700330033005500330055000000336633773322336633114411770011551133113322441133" | |
| 1240 PRINT#F,"5522114411003300113322003300771100772244223377110077111133002233663344111100223344113344333322551155225511332233663377001111443366332211115533000033553333335500" | |
| 1250 PRINT#F,"3333777700443333005511443377330033447766551177777777773311551133335500550000006633440033443344330055000000003300003322114411110077001100115522110066774411336611" | |
| 1260 PRINT#F,"1155771100660022441144336611007733663377117700117733225522333300332211004411552233770011226633220011332244114411331100115500112233115500550055114433002255003333" | |
| 1270 PRINT#F,"4411005533334433333300330000003355115511777777337744777766334433443333114433333300333322003333443300330033000033003300551100773322773377332255225511331144113344" | |
| 1280 PRINT#F,"6677223344330055110033220011441166336611006611556611551122332200225500771133223311001100333322551155223311003366336633770011115511552211113333003300335533333355" | |
| 1290 PRINT#F,"0033771155003333552255007733334411447777775566777777337733551155333355003300004433440044335500330033550022443300000077112255110077001100663322331100114411110011" | |
| 1310 CLOSE#F | |
| 10 F=OPENUP("IMAGE1"):PTR#F=EXT#F | |
| 20 PRINT#F,"1155114411223322007700663366110011773366773366112255111155003333441133223366336633663366114411330022334411332233770011001144332233223377005500334433773300334400" | |
| 30 PRINT#F,"3377443300333300335500113300333377771144777777775511776655114433005500334433003300110000330033443344000033000000550011005522337733773366331155225511663311441155" | |
| 40 PRINT#F,"7722552200552255002233007733667700227733227733663322770011002200110077001133113322332233441144115500110000773366117733770011663377110011553377003300335533333333" | |
| 50 PRINT#F,"0077115500553333003333443355007700777777771155776677551177551144333333550000330044334422005500330033330000330033003366113377002211007711223322552233114411332211" | |
| 60 PRINT#F,"4477115511000000773344110022332255773366113366117755115522331133443322336633662255113300113377002211001111001133663366001133113322337700113333005533443300333300" | |
| 70 PRINT#F,"3377553300330033770033330033003377775577557766117777777755225511335500333333000033443300330055223300443300440000330033663322337700771100557733110077001100663344" | |
| 80 PRINT#F,"7711552200663311220011004411447711002277336633770011221111330022001100773366331133224422556600113355005500225566337733115500224411552277335500003300113333550022" | |
| 90 PRINT#F,"5577003300333333330055003300557777777777667777557755770077337700550033550044003300003344003300334433330000000055000077114411552255110077110011225511001133110011" | |
| 100 PRINT#F,"7744116633332244337700221155110077663322772277007777553300223300770077332233114411331133663377006600110011332233772266332211331133223333443333003355334433333333" | |
| 110 PRINT#F,"7733550033330055003300333355117766551177777777777722777777007733333333003333000055330000003333000033443300330000330011001155223311007733227700552233663366337755" | |
| 120 PRINT#F,"1177001144223322550011440022772233117744337700112233227733007700332233663366331144220033772255113322330000556611443311443300770077116611333300334433333300330000" | |
| 130 PRINT#F,"7777330055333300330033000011665577777777551177447777551177553366334433550000330000663300004433550000330000003322005511552211552277332277331111007700110011002211" | |
| 140 PRINT#F,"4477770011005500116600113377005577660011112277551177773322110033225500111133772233773322005511440033001100110055777700116611001100331155337700332233443333003355" | |
| 150 PRINT#F,"0077330033001155003300553355777777777766777777117777665577663377333300335533003300334400330000330055000033000044330044111144113322337733663344113322337700770055" | |
| 160 PRINT#F,"7711441144110022550033006633661122331177441144112244111155003322330077114411223311000077337700111144110011003366114411443300337733661100330033005533333333552233" | |
| 170 PRINT#F,"7777003300333300330033332277777777775577776655777755771177335566334433333300000033003300003300330033003344003300330011114433114411001166336611336633770011331111" | |
| 180 PRINT#F,"7733770033006633221144223366336655665522115511665511114411002233441100332255336633113300225522550011003300116611552255112233223322331155334433003300330033003377" | |
| 190 PRINT#F,"7733330033550033005500557777777722777711557777775511775577771133553300334433000044330000000055005500334433000000003377001166331133773311113322770011007700663366" | |
| 200 PRINT#F,"7766116622330077330011441122773322112255662255112255111100113300225522773322113366001133770077110033002233005522777722553366336633770011333300334433333300330055" | |
| 210 PRINT#F,"7700333300333300330033117755667755777777777777116677776633445522333333003333003300005500330033000000003300334433000011550011660011007744770011551144113377336633" | |
| 220 PRINT#F,"6633773333441100336600110055006633774411337711447711665511000077332233007711441111552200337700114411003300332255110055112233113322337700550033003355003333005511" | |
| 230 PRINT#F,"7733000033550033003355557777777777777766777755777777337777771155770055333355000033003300000000333300330000003300443300117700337700770011113366332277336633223377" | |
| 240 PRINT#F,"1177770066110000772233005522117711441111661144113366331100331100004411771100336633223300110033552233001100225511447711225522336633661133003333003300335500333366" | |
| 250 PRINT#F,"5533443333000000335511667777557777777755777766775577777733773377003333005500330000005522000033334400334433000033003366110077110011331166336633227733661166337722" | |
| 260 PRINT#F,"7744110033007711443344222277441144114466336611661155117733220033111144330077113311441133441166330033220033114422773344331133663311331144335500335533330033227777" | |
| 270 PRINT#F,"3300330033003333336677777711777755227777771177777766777766774411553300330033000033440033003344003300003300005500001133007733007700776633773311553322335511663355" | |
| 280 PRINT#F,"7711441166000000112233550011225522771133773377336611441100332244003322771100770077330022330033221100330022003355227711660011332255225511330033000033330033335577" | |
| 290 PRINT#F,"3333003333003300775577775577667777777777775577771155773377115533663355333344330000330000000033003300003344000033000077110011223377331144116633661155222233116611" | |
| 300 PRINT#F,"4477115500113366334422225522552255223366227700663377111177003322336633004411332233223300114411005500110033552211001144331155225522332255003300333333003300332255" | |
| 310 PRINT#F,"3300330033003355117711777777773377775577776677557777777755771177552233003333003300003355000000330055000000330000330011441177441100227733113322770077115566552255" | |
| 320 PRINT#F,"7711552211004411441100332255116611776633770011772255225500110033223300111133663377001100332233003322003300223300557700114422332233771133335533007700333300777733" | |
| 330 PRINT#F,"0033003333003355777777441177777777777711777777667755667777665544115533003300770000330000000033443300003333000000007700115500110077773322774477337722552233225511" | |
| 340 PRINT#F,"7766114400770011332255225522441144332277007777007711773311003322443322550066332200114433225500770033002233007700110011441133663311005500003300330033000033557700" | |
| 350 PRINT#F,"3300335500337777665577777755777744777744777733777711775511771177334433330033003300005500330000330033000044003333003311441111441133225522331111441133663377331166" | |
| 360 PRINT#F,"1155661100332244114400001177336611663377110077114411336633220033002233661133223344332200332233223322334411003322551100110033336633221155330033443333333300773333" | |
| 370 PRINT#F,"0033003333551177777777777777661177777777777777777777777777557733771144333344330000330000000033003344330033000000006633114411336677337755663366114411336633665511" | |
| 380 PRINT#F,"6677335522443333223322770000663366337722447722551166773311003322003322335522552233223333665522552255001100007700114477005522110011443322553300330033000033115500" | |
| 390 PRINT#F,"3355330011776677117755117777557711557711557777774477114477776677005533330033225500003300330000330000003300004433003311661133663311001122115511551166773366112255" | |
| 400 PRINT#F,"5511661100332266552255002277111155116633771100770077331166330000336600552277003322330066332233770000110000110011441133221100005522332233330033005533003377443300" | |
| 410 PRINT#F,"3300335577775577557777665511777755777777772255777777777711557733777733003333003300330044000033000033000000330000005566333366111144774411552255227733336611335511" | |
| 420 PRINT#F,"7777334411005500110000115500774422663366336677116611663300332233003311223300114400663311447777007722005522334411773366550077332233441155003300333300330055113300" | |
| 430 PRINT#F,"3333777777777777776677777777777766775566777777771155777777667755770033330000550000003300330000005500330033000033001111667733441111331177227711336633663300772244" | |
| 440 PRINT#F,"1166110066001100773366007722337733772277223344115511551122003322000044336655223333000077332255223355223300223344116633110000223322332233330033003300333377003333" | |
| 450 PRINT#F,"0055116655771144771155777755667733771155775577667766774477777711557700553333007733000033000000330033000000330000005511332277114477225533770077337722117711441111" | |
| 460 PRINT#F,"5577441133110077002233002255662277005511556611770077227733110033223311663322332200770000225522776600332200550011441177441177334400334433005500005533000033770055" | |
| 470 PRINT#F,"3322557711557777777777117777337777667711772277337733777733775577225511330000333300003300003300003300003344003300334422557700331100551166337733661155550077336655" | |
| 480 PRINT#F,"7722773366004433225500663366331144116633661166336633773311000000000022335522550033002233775511443333225500332277337700223300000011002211330033330033005522550033" | |
| 490 PRINT#F,"0055337777667711775577447777777755775566335500774477665577776677557744330033334477000055000000330044330000000000001177110011770077116633227700114411221133663311" | |
| 500 PRINT#F,"1155220033221122552233114411665522773366115533661177225500001100551155662233002200110044002255221144000011005500770077336600110000337700330000335500330033001144" | |
| 510 PRINT#F,"1100777733775577551177777733777711771155663377331155331166337733771155330033661100330000330000000033000033003300336633663377007733225511551166331144770077116655" | |
| 520 PRINT#F,"6633777700550055223366001144116633661155227722552255111111003322000011334411005500443311336633441100110044112233225522330033001100000055333300223333003366334411" | |
| 530 PRINT#F,"5522336677771177667777777766556655007733770077442277443366336677667711443333335577003300003300330033000000000000001155116633112255111144110011441133115522551122" | |
| 540 PRINT#F,"1166330011001100770000114411663377225522770077117711663344110000336600552255223322332200003322332233441100003366332255223366334400332277003300553333005500331144" | |
| 550 PRINT#F,"1133443311447755777755773377771177777722557700115533227733663355335577330000772255000055000000000000333300330033003322773322553311665511665511551166552255223355" | |
| 560 PRINT#F,"7755661166007700114411443366337722552277007755225566337711330033223355221100330000110033772255225500110000332200336633001100000011006633330033003300331177777733" | |
| 570 PRINT#F,"6655117755771177115522777777115577336655771177445522774455114411667744773333773344110033005500330033440000000000334477332255221166332277332211006633221177337722" | |
| 580 PRINT#F,"0011334433000077003300227700770077115522771122552277110033661111441122553366111155007700113322332233001155225511441100114433223300551144330000773300336655114411" | |
| 590 PRINT#F,"5511441166337755777777775577447766775511665533117755771177777777331133770044336677330000330000000033003300330000001111441133773355115522551144113377550077225511" | |
| 600 PRINT#F,"7766110077223300772255001166116600667733447744115511557722334433113311223333441122331155225511551122550011001100113377001100332200225511003300003300557777777755" | |
| 610 PRINT#F,"1177115511774411777755116611773377337755116677552277557744773366774411443311553366550033003300330000330000000033005522336611006611441133663311442233227700770077" | |
| 620 PRINT#F,"3377441100443366332200114411443377114411772211772277227733111122336633776611337733770011551133225533221100115511441100113366114411332277333300337733337711552277" | |
| 630 PRINT#F,"7700775577337777441177777755777755772277551144117755227711777755777755110055227733663300330000000033000033000000332233773300771155112277115522337722551155227733" | |
| 640 PRINT#F,"7744115522332200114433441144117722552277225555665511551133225533773311331133112233227733116611552211337733770011337711552233001133441155003300770033227744773377" | |
| 650 PRINT#F,"0055771100777733777777775511770077227755115577774411557744770077115566775566335566115500004433003300550000003300003377220077110077225533441122332233225522773366" | |
| 660 PRINT#F,"1177220055225533663322225522556655225522552211227744116633773322332255225522551177331122553311113377001100111155223311223377115522113311330000337755775511336633" | |
| 670 PRINT#F,"7700115577114477775577667777557777335522772233331144113377337777447711552233441155770033330000330000000000000000007700337700007733772277114433770077551133336633" | |
| 680 PRINT#F,"4411551100002244336633441166110077116655117744551177331122332255113311331133223322553311221144110011551177332211551155113322331133772255113300771111552255777766" | |
| 690 PRINT#F,"5577002255771155117777337777227733667755335500005511446633663377115577777777336611557700003300005500330033000033003311223311770022553366331122331100226677223377" | |
| 700 PRINT#F,"7777665522550011223300224411556611447711442277114411663355223311442200663366337733116633550011337733223300115533110011441155225522333311443300337755113311440033" | |
| 710 PRINT#F,"2244773300773377776677777777557777337711552233776677777777550055661166337700773300770077334433000033000000000000000077336611007733661155116655110077113344337722" | |
| 720 PRINT#F,"1144110011001100550066331144227733661100777700772277337722330000003311003322330022000033221155002200770011552211007700113322331133227700113300777777007744000000" | |
| 730 PRINT#F,"0000336633775522773377776655117700776655220077443300000044116633115577556655770077773366330000003300003300000033001111001133663377114411663311223322550011772233" | |
| 740 PRINT#F,"7777007700443366110011442255114411556677007777007755223300001100110000332233001133331100330000113333001100223344110011552255114411550011440033337700114400115500" | |
| 750 PRINT#F,"7700007733661155777777777711774477337733557777000000000000775500557700771177337733665511443322000033000000003300441100770011336611007733773366331155221144003366" | |
| 760 PRINT#F,"0077770011006633441100337722552266113366770077772277771133000033001100000000000000660022001100002200110055001100332233003322003300223322333300771155773300772200" | |
| 770 PRINT#F,"0066000077337711557777337777551177775522773300770000770000007777001177557700774433771155110055000000330033000000331133110066113377337722552233110022552211770011" | |
| 780 PRINT#F,"7711441144110033225522442255227755666633116633225511007700110022000033663311441100330055000044003344000011000011005500223300110011005500110000557711000000775500" | |
| 790 PRINT#F,"0000330044336655116677775566777755227733777700777700000000000000770077225577117777005566550033003300000000003300005522551133007700772233771166337700110033007733" | |
| 800 PRINT#F,"5566336633005522770044113366115522773377441177552277770011003300334422330000330000001100002233002233001100005500110022334411005500110011443300115511443377772200" | |
| 810 PRINT#F,"3300001177225511775577777777114477775566330077770000000033000000557733557766553366337711551155000033003300336600332233223366115511663377114411332233225522773322" | |
| 820 PRINT#F,"7711770022552233441100224477442277007722774422777733771144000011001100002233220077000000334400004400223344110022443333660000332200330000110033777755110055775500" | |
| 830 PRINT#F,"7700007744337777557777777755777711557711557777774433660000225500114411771155116655114433660000330000000000003333661155116633661144113366331144115522552255332255" | |
| 840 PRINT#F,"7744115500225522330077332211773366770077117755224477001133223344000055114400552233001144223300110033000011003333220022331144223366007700332200551166337722777700" | |
| 850 PRINT#F,"0033447777773366117777007777114477777744114477777700330000557700551155665511775511552255115522000033003333000077003322331155110077336633663311441133223322770011" | |
| 860 PRINT#F,"0077772255332200772200774411446633117744225522771111774411000033223322003322330000770033006600440000114400336600551155000011550033110011005533115577771155007777" | |
| 870 PRINT#F,"6677777733667777557777777744777777661177557733667700007700770077114477116655661144777700557733550000000066330011551144114422337722773311115522336633663377337700" | |
| 880 PRINT#F,"7777003300224411550055002255661177664411776633665566331133443322336600552255224411000022000033220077000011442233110022007733002277003366332200777777337755777733" | |
| 890 PRINT#F,"7777774477337733661177777711775511557777771177557777777777007755777711551177337777337733663300000033003333003377006633117733772233336611442233773366331144114411" | |
| 900 PRINT#F,"7722776633003366001100663366336633661155225577116611770022332244003377000011001144337700550044005500007700113366005533770022553300114433225533771177775511770077" | |
| 910 PRINT#F,"5511551177777777775577557777776677777700775566115577443366777722557766775577777700770077337700770000005566330077331166552277005511663322551144112233770011771144" | |
| 920 PRINT#F,"7755001144114411552233227711665522556611552266551155117700003311442200770055225522000033224411002200110055223333662233225511221144332233442233775522777766557777" | |
| 930 PRINT#F,"1144777755225511777777227755115577007777771155772255777755775577773377777700777777777733663355003300332255110055225511001100771100117733223377007733661144336611" | |
| 940 PRINT#F,"6611774411002255220066334400552277773366661155116677441155110000003377001166003344117744001144005500443322552266330077001144334411225522113366117755115511771155" | |
| 950 PRINT#F,"7777552277777744115577777777777777777777774411557711551177227711776677337777441155115577336611000000005511443311770077115577110077333366337700773366115511441133" | |
| 960 PRINT#F,"5577441100005511007733441177663377006677337722556633111100002255116600114433336611440022334422552200110077001155337722336633661100552255336633777777771177774477" | |
| 970 PRINT#F,"1155117755773377777777557733774411775566337777775577776655775566557755667711775577667700773344330033337766331144331166336611007711332211332277336611443322113366" | |
| 980 PRINT#F,"7722114411552200770000227700776600771144772255661177665511005500225533663366223300115500442255000077007700774422770055770011334477110077223377773377337755337711" | |
| 990 PRINT#F,"5566775577116677557777776677777777557777777733661144115577117777117711775577771177337777337733000077667733550077114433770033770033223344770077223377332255770011" | |
| 1000 PRINT#F,"7755770000225533007700552277007777007711447722556633110055220011442255224433665566002255223300770000770011001155227700115566111100773300770011777777774411775577" | |
| 1010 PRINT#F,"1155771166557711777722777755115577661177556677557777771155773377447777777700775566773366552255223300337777225533661111007722337722331111007733770011661100117700" | |
| 1020 PRINT#F,"1166113366330077663322225566114411665566114411771177771122333300335522331166332233115522334466001144001144775522551111442255004477007744114477337755117777771144" | |
| 1030 PRINT#F,"7711777777115577557777557777667711775577775511775511557766556677775577337777777733665577337733000000550055770077331144771155223311001144113366115522553377550011" | |
| 1040 PRINT#F,"6655556633224422332244334411441177552211447777007744114433006633662233664433663366442244006633334400114400110077336644115522117722336611225511777777775511557777" | |
| 1050 PRINT#F,"7766557755777777117777771155777755777722777777776655667711771155771177667755773377777733663366003333001177775511006655113366114411332233770077336633116633221177" | |
| 1060 PRINT#F,"7711223300551155005522772277774422777744117700776611551122330022334411441100336633330033663366660011441177441100663311441155003355663355336677551177777777771155" | |
| 1070 PRINT#F,"7755771177114477777755777777773377777755777766551177775577557777777755777711667777336677337700334422552255227733773322774411331100773366001144113322001166335500" | |
| 1080 PRINT#F,"5566552200220077220033005522337744223377663366773377225533663344110055225522552244772255007700336600334411007777336633770011662211336622773311777755117777447777" | |
| 1090 PRINT#F,"1177775577771155777777667733667777447777773377777755117766777711447711775577557744773366551155001155005511557700227733223366007733221133773377661155113311661177" | |
| 1100 PRINT#F,"2277007733441144337700772255666611777744116677336677552211000011007722332255225511007700225500770033660011441100770077225522550055663377002255771166775511777777" | |
| 1110 PRINT#F,"5511776611557777777711557777777777771177777777777777775511775577777755117777117711771155225522330055110077007777331144771155110077115511006611005522002255336633" | |
| 1120 PRINT#F,"7733663300223300772244225566113377006611447733666633111155001144114433447700770022550022550077001144225522552255225511441100337722113366337777775577777777773377" | |
| 1130 PRINT#F,"7777777755667777225577771177775511557755667755773377667777776677337777665577447755775511556633447711665577777700224411114411663311443322551133772233115522110077" | |
| 1140 PRINT#F,"0077332255007722330033663366556644771144117766115577663300110000441166332233007733663344227700440033001100115522552200114411442255441144110077117777337777777777" | |
| 1150 PRINT#F,"5577551177115577557777775566337766777711777711667777551155773377777777551177117722552255223377114455337711550011551155001144110077116633663366337700770011557700" | |
| 1160 PRINT#F,"5522441122550077442244116633227711447777663377661177336633443311005522443366336600114411440077336622550055225522337744332200333322114411441155777777777755777711" | |
| 1170 PRINT#F,"7711777755771177777777777777777777775577557777775577777777777777774411777755775577775511556633441166774477777700772277773311551144113377116633663377001133227711" | |
| 1180 PRINT#F,"2255225500001100773311443366774411661144116633665522771122336600772233116600110055663300225522443300223322441100770011443377002255225511007777337733777711777755" | |
| 1190 PRINT#F,"7766777711775577777766557777551155117777777755777777777733777755117777777766777733771144773377337733551155114411115500116644116611447722553377117700117700770055" | |
| 1200 PRINT#F,"0033223366116655220066006611552255114411775566771155114433220055000077000033665522332244336600004422550044113377001144110000225500773366330077777777777777557777" | |
| 1210 PRINT#F,"7777557744777777115577117733667777667777227777777722557777667777777755773377336677774477336600776655227777663311441111663311663333772233772277004411770077336611" | |
| 1220 PRINT#F,"0066550033003322550033771144667766557766007711446677113322333322775500115522332255225511443377001100001133447700770011007700331111442233007777115577773377771177" | |
| 1230 PRINT#F,"5577117711775511777777777777775511557777557777775577777777551155777777667777775511551133663377553322557700771144114455115522551166337755225522771144115522115522" | |
| 1240 PRINT#F,"0033227722556633227700446611336611663377770077115522557700442233002255220033663322552244224422550077440011223366336655003322334433114411001155777711777766775577" | |
| 1250 PRINT#F,"1177775577117777557777556655117777775577777777117777775577777777663377337755117777665511556633667755777777552255111166336633770077110077115533663377001155225511" | |
| 1260 PRINT#F,"0000000011003366334422332255667744116633667700667777110011333366337700113322336633663300551155224400007700770077330011001100112233663366336677777755777755777777" | |
| 1270 PRINT#F,"7777441177557777667777117777557744117711777755667777772277777755777777777777556633773366331177330077114433773311447733661177007711447722552277336633776611441144" | |
| 1280 PRINT#F,"0033663344114422552233665522770011774477661177770077007733220033660022332200110055223366336644770011770000335511006633441133223377007700005511551177775511771166" | |
| 1290 PRINT#F,"5577115577777755777777557711663377775577441177777755777777777711775577773377771177556611556633667777551177442277223366115500117700771155227733661177223355114411" | |
| 1310 CLOSE#F | |
| 10 F=OPENUP("IMAGE1"):PTR#F=EXT#F | |
| 20 PRINT#F,"0000001144001155223366336677557766551122557744117711773322005522331133110011336611441144114411007700007711661100773322113322331100770011661177777766777777557755" | |
| 30 PRINT#F,"7777777711777711777755777755777777552277777777557777777755774477777766557766337755115533663366337733667755117700551100772277441155225522551166337700556622771144" | |
| 40 PRINT#F,"0000334411000022550022552255225522665577225522556655223333220033660011001100113300114411441155660077003344336633225500113311113377332255005577775511557777777777" | |
| 50 PRINT#F,"1155115566557777777777667777557711775577557777117777777777777777773377771177777766772255115577557777337766332277227733663311114411007711663377225511225511007711" | |
| 60 PRINT#F,"2200002244225511441144225566116655117700776677114411777700331100337733113311001155223322337766337700776611773311552211441111001100114433221155117777777733771155" | |
| 70 PRINT#F,"7766777711777766551177773377116655777711773377775577556677117777777777777755775511557755663322770077661155115522553366115566336633772255007700552277552277441144" | |
| 80 PRINT#F,"0000770033330044114422336611447711664477661155667777332233220055222233223322331122337700770077336633663355225566001155331133111111110011005577777777337777777777" | |
| 90 PRINT#F,"7711551155777777777777557777775577777744556677776677117777557755777733774411772255773322336655777755775577006633116611336633227711663311770077116633227733114411" | |
| 100 PRINT#F,"0000003366225522330055661144772255771166337766114411663322330022333311113311110011552233667700663366117722551177336600112233113300337744117711557755777755665511" | |
| 110 PRINT#F,"5577777777773377777755116655117777337711771155115577775577777722775577777755775577225577551155115511771100117733663366552277550066336644111144115522550066771144" | |
| 120 PRINT#F,"0000002233442255661100556611556622447733665522557777337700332255221100112233113311001133337777336633447755225522773377331111001111223322005577117711776611777777" | |
| 130 PRINT#F,"6633773377777777776677777777557777665533775577777711777777777755777766551177117755772233663366776677447777001166337700115522117733771111447722552255117733007711" | |
| 140 PRINT#F,"0033005522003322334422114477225577116677227777225522773322330033003311333322332211113366114433663377772277777777447722113311113311332255110077665577775577557733" | |
| 150 PRINT#F,"7777557711447777337755115511663377771144772277007755775577337777771177775577447722555577336633773377773322336633772211661100770077224477001155227711660077663366" | |
| 160 PRINT#F,"0000220033663366552233447700776633665522557744772277552233223322111100112233111133332211551166552255225577336633773377331100111100115511007711551177551177771177" | |
| 170 PRINT#F,"7777772255117777777711447755777777775511777755777777771166777777557755117755771155772233663377447777551144773366114455115577007722337700117700773366337700114411" | |
| 180 PRINT#F,"0000334422334411002244116677441166551177441177007755113322330033001111331111001111223333227733225522551122777777227700111111331111332200550077777777117755114455" | |
| 190 PRINT#F,"1155115577557700775577771166115577332255775511773366557755775511776677776611557733775577337777117766114411116633227722552211770077552277441166336633661177007700" | |
| 200 PRINT#F,"0000003344223344115522443322775511664411774411770077225500002233110011003322113311331111331177111155117755110077557711552233113322113311223311551155777777551177" | |
| 210 PRINT#F,"7766773311227777336633775555777766557777777755227777117777117766557777557777114477001144225500775577331144331166333377225500771100773311663377223366334411772277" | |
| 220 PRINT#F,"3300002200552211440000116677552244773377441155447733771111333322001133221133110011113322110011443322770011777711663366113311221111331144334433777777774411775577" | |
| 230 PRINT#F,"7755777733553355771166330011003311003377337777773355775577775577775511773366551177775511552277771155665522776633667722552277225566116644115522557711661144007733" | |
| 240 PRINT#F,"0000330033220044336611554433007777007700773366115511663300002200331100113322331111001111337711111111331177113377337711331111333311336633223322773377337777336611" | |
| 250 PRINT#F,"7711773366337711225533001155335533557777776677557711776611557777117777777755776633663366337755007777332277330077113344115511441133663311552277332244114411773366" | |
| 260 PRINT#F,"0000224400335522330055221166770033775577337733552277332233223333110011332233111133111133111133113311111133221100772255111100111144113322330077557766777733777755" | |
| 270 PRINT#F,"7755777733110055551155115522336611776655771155114477551155771155775566337711551155773377441155777700225522117700661111441166337722552277225522663377331166336611" | |
| 280 PRINT#F,"0000003322000055227700550033775566332255770077005522551100330022331100113322332211113322111111221100113311331111551122331111331111007700550033115511557777337777" | |
| 290 PRINT#F,"6611776677551111336633663377773344771177775577771133777777667777661155775566775522556633770011553300113377007733336633663311663377225500772255116633665522770077" | |
| 300 PRINT#F,"0000000044110022550033225577003311551144115511551133114411003322332233110011331133111133113311331111111111111133225533113311110077113322332200771177115511665511" | |
| 310 PRINT#F,"7755773377115566551155115522557711557744777766557777007733775511557777771177007755115511441144110000556622552277663366117766336622551177337700773366110077007700" | |
| 320 PRINT#F,"0022330000004433223366337700337744775511557733663377441133002233001133223311001111110011112233111133110011003322331122111122331111550033000033775577441177557777" | |
| 330 PRINT#F,"5511777777557733114411557777777777777777117711776633775577777777777733665533775511661144115500000033221133225522336611550033771133772255224411552277337722551177" | |
| 340 PRINT#F,"0000440033001100556633550077773311337755110055337700113322003300110022331100113311331111331111113311331133111155225511333311114411001100330000773377117755117777" | |
| 350 PRINT#F,"6677551144117777551177771155774477777755775577557777331144115566337777551166552255555511441100000066556655112255115522227722441144225522771166225522441155224411" | |
| 360 PRINT#F,"0033002200004411333366337733447755663366557711443377114433002233001133223311001122111111113311332211223311001111332233112233111155110044003300117733775522775511" | |
| 370 PRINT#F,"5511667777773366115577447777771177552277776677115577665577771155774411775511775522772255114433330033113322551166001155114411770077117733007733770077114411772255" | |
| 380 PRINT#F,"0000330000113344665533770055110077337733115533773366331122330022330000332200113333113311332211113311331100773344225522113311113311223322330000007766117755776611" | |
| 390 PRINT#F,"7755777733777755777711777766775577777755771155667755771133775577117755227755007777337733663300220000661144116633776633663377007733660077663366337722552255225522" | |
| 400 PRINT#F,"0044224433004411333377005511775511551155770077115511337700330033220011003311332211001100111111331100110011110077113311331111001122333300000000775511557711773377" | |
| 410 PRINT#F,"4411773377557711775577557755117766777777775577777711777755661144775577775511777700770066551100553300114411663377223366117700771166337722337700772255227711441177" | |
| 420 PRINT#F,"0000000000663300774411551155007755114477337755007700770011001100331100110033223333111111113311223311001144337700552233111100113311002200330000007777777777551155" | |
| 430 PRINT#F,"1177777766115577556677771177775511551166771177337744770077337777114411441144773377557733224433000077773366332255114411441166336633663377661177005511550066114433" | |
| 440 PRINT#F,"0033000033003344331144114411551144773377551155331155113366336611443311001100112211001133112233111133110011663377223322331111111133110044002200337733770077776611" | |
| 450 PRINT#F,"5500333355772255113377557755777777775577556677665511777733775577557777775511447700770077331100003300227733663322551177003377223377116633334411661144117733661166" | |
| 460 PRINT#F,"2200002200002233665511551155773377337733225522556633661133773333112255114411553377336633115511332233223377336611337733111133331111003311005500003377777777115577" | |
| 470 PRINT#F,"7733007711557733777733661177007755227777117755117777557766117700771155116655117777551155665500114411552222337766116600776611556600114411661144114411663366334411" | |
| 480 PRINT#F,"0044003300005522553333663377007733663344551155330055113366110077663377001155223322331111551111663377337700771155114411223322110011336600000022336677115577777766" | |
| 490 PRINT#F,"1177553300331155773377775577777733775533445511775500773377557777337744773377773344114422551100330011441155772233003377223355221111441144114411551166336633661177" | |
| 500 PRINT#F,"0033000000330033007744337700553366335522334400227711007733337733337700115511117755225522110055117700110011552277001133113311331133223311551144223377557777551155" | |
| 510 PRINT#F,"7777225533330033557733775511553366551177113300000011776677117755667711556633667777337733663344116655112255225577772233772266337744117711441166225511441177336600" | |
| 520 PRINT#F,"0000220000220044113377005511665533660055223344330055110077227722773377112255001177337733771177001177557711115511775522111133112211336600223311552255116611777777" | |
| 530 PRINT#F,"7755771155553322330055330033005533003300550055337700333377447711775566117755773366336655114411001122552211441100114477005511663377007700773377332255114422773377" | |
| 540 PRINT#F,"0000330000003300004433663344332200550000442200440022007711553377001166335511556633227700770077336633112255663377001111553322113300113311552255223311775577777700" | |
| 550 PRINT#F,"7711775522773355777733335577110033003355003366777777667777777755771155773377007755663322551100770055225544112255661133772277007722770077116633667722441177007722" | |
| 560 PRINT#F,"2200440000000022003322550055004455002244000044004411551100116633115511551122113311773377115511115511447733111155117744112211333311663344115522551144771177557777" | |
| 570 PRINT#F,"7777337733553377336611667766775533775511557777775577337733771177776677336677775522551155770077007711552211115522115522663333772255007711443366110055117700552255" | |
| 580 PRINT#F,"0000000033000000004433006600660022444400664400223300114433773377661100114433552255007700114411441177113366774411443311333300112233336611332233114411557766771177" | |
| 590 PRINT#F,"7777663377117755337755117733333377557755771155116677777777665577007755667733661155225522551100110066115522441144114411552266337722773366116633667722552277225522" | |
| 600 PRINT#F,"0033220000000033000044000044004444224400006600446633001144112233337755113322337700113377331155114411441133111177116633661133001144113366557700773311225511775577" | |
| 610 PRINT#F,"4477777733553377773355553377777755113366557766557733774477777777777711557755115511441155225555225511001155225511441166115511663333661100551166333366114433772255" | |
| 620 PRINT#F,"4400000000220000000000660066006600440066440044003322553322553366770011001155003311552233225522331155117777665500773377115522770011441133225511336633337755777777" | |
| 630 PRINT#F,"1177337777337733557711777755775577335577115511777777117711773377337755771166556655114477552211441100776600771144117700114411007766115522772255116611441166007711" | |
| 640 PRINT#F,"0000000000334400220000004400440066446644224466440055332233007711337711553333331144113333773311447722336633331177114411001100331100337700770011663311117711772277" | |
| 650 PRINT#F,"7777777755661155115577335511551100777733777777557766557777557777667766114455111155225511441144332255223377114422110077007722551100552255114433663355116633771144" | |
| 660 PRINT#F,"0033000000000000000033000066446644004400446633007700333333773322552233332233225533336633332233113377773377225511551177336633663377223377337733110011003366557755" | |
| 670 PRINT#F,"7777661177115577551155777755115577556677665577117733777744776633773377551177445522551144115511225522552200552255770077114411663377225522441166116622553366007722" | |
| 680 PRINT#F,"0000000000000000000000000044224422446666440066330033224433223311337700115533330022333311333344110033227733771166114411551133110033770077221144771133111133777711" | |
| 690 PRINT#F,"7733775577551155116677337755667777115577117766557777777711777777775522774411770077007711552255001166337711225522337700771155226633772277115511443377227733663377" | |
| 700 PRINT#F,"0022000000000000000000000000444444664400447700552255333300332255223377333300113333113300331133441155113377225511337711225522441177007733557733225511331177337744" | |
| 710 PRINT#F,"7777776611776677773377557711551155771155775511667777667777773377441177551144773377336655663377114433114422551155227722334422551155225522552244117700552266337700" | |
| 720 PRINT#F,"0000000000003300000000440022446622440066442255223311001133225511331133003377330055001155113300113322336611551177773322551155113344111166110011773311111133667711" | |
| 730 PRINT#F,"7755777755115511557777772255777766777766777777557777115577447777117755227777336633665511337700552211660077336622114433661177336622552255114411770077227733772277" | |
| 740 PRINT#F,"0000330000000000004422000044004444666644225522337700773322333322552255111133331100113333113311330077331155225522337777332233227711550011557744111133113311337755" | |
| 750 PRINT#F,"7711771177667755227733775577115577337755116677771155777711777700554411557700773366337766552255225500117700110077551166336633225511663366112255225522550066005522" | |
| 760 PRINT#F,"0000000000000000000000330000660066004444441155113311337733771133115522334411441133441133441144113322552211771155110011773366330077225511223311441111331111113366" | |
| 770 PRINT#F,"7777447777551177557777007777661177667777551177777766777777557777117744115577007733773311773377332277001155661100225511663366116633117700557722552277117733772255" | |
| 780 PRINT#F,"0000000000000000000000000000002244442244224422336633663322336633661133771133115511114411331133332233115511335522771177007733661133552255552277337700771133771155" | |
| 790 PRINT#F,"1177775511777711773377777733775577557711775577557777774477661155663377667722551144776655663366773344114422773377663322337722551144663366110077225533660066114411" | |
| 800 PRINT#F,"0000000000000000000000440033004444114422445511551177331155773377113377225511551144331177007733663333002233661111334433110077330077221133227733223377113377225522" | |
| 810 PRINT#F,"5577117777556655776633773377777777117766777766117755771177115566337711550055114411551100773377336611663311334422331166552233770077110077225511441166337711552277" | |
| 820 PRINT#F,"0000000000006600000000000000442233442255223322113311771111336633115511331144111111773311551122331122551155110055111177007711007733335522553322551100771144111155" | |
| 830 PRINT#F,"1166777766771177115577667777007755665577557777777711775577551177774477117711441177665577336677337700336622441177441155225566007722557700772255116633660077007700" | |
| 840 PRINT#F,"0000000000000000005522000022000066334433447733774411005566111177007766773377114433116633115511443311003322551122550011773366331166223377223377007711551177552277" | |
| 850 PRINT#F,"5577551155777755777711551177777711777711771177556677667722774433771144550077334411552277007700773377225577776677114411112255110077001177007722552255116633663377" | |
| 860 PRINT#F,"0000000000000000000000004400000033441166223322331133771155115511773311337722551177337722552233111100112233225533117711331133663333332233441100113300116633117733" | |
| 870 PRINT#F,"2211777777771177777777775577557777557777774477777755115577337777225577227700777744771155773377776633776655777744777700665522777700776600770055225522663377227722" | |
| 880 PRINT#F,"0000000000000000000000003300000066110033550077336611773311551166331155771155117733661133117711550011443355110011223300770077110077225511332255114411775511774411" | |
| 890 PRINT#F,"7755774411775566773377777777117766771144777777661177777744777700775522555533663377114477007777005511447777774477776677332255110077001155117722552277337722550055" | |
| 900 PRINT#F,"0000000000004400004400000000443300337722117733115511007711225511772277007711663377115522550033221133111122337733551177337733115511332233225511001155001144111155" | |
| 910 PRINT#F,"2277117777777777557777447777665577777777771177557744115511770077552255112277551166551133777700777700771144661144337733661122441177114422552255115522441144117722" | |
| 920 PRINT#F,"0000000044000000000000660000000066332255001144112255113377331133551133773311337700111155111177330077005511441122114411112255223322333366332233770011771177552277" | |
| 930 PRINT#F,"3344777755117711777777117755777711557777557777117777667700775511773366553366115511776677007777337777336677556633667766335577114400771177007722663377114411441155" | |
| 940 PRINT#F,"0000000000000011000000000000000033225511773311551133116633663366114411772255661177114411441100773311332255111155331144337711337733663311337700113322333322551155" | |
| 950 PRINT#F,"1111551177774477773377777777117777667711667755663377335577116655441155227733667744115533773377773366773377007744007777002211441177006633663377007700663366114422" | |
| 960 PRINT#F,"0000000000000000004433000066000022551133007722332255663311337711331177005511115500337711111155111144115511225522773311771100772233111155223377337733771155110077" | |
| 970 PRINT#F,"2255227744777777776677775577777755777755777711777744776611445511114411550077773377557722776677007777337700774411447777443344117700773366337722552277336611441177" | |
| 980 PRINT#F,"0044000000004400000000000000000055225522773333773311336633663344114411771144111177770055114411007711336611551133116633114411331177005522117700112277007722771155" | |
| 990 PRINT#F,"1133775511773377557777337777557711777777773366551177337755117744771144117755227777225555773377777700774411777744777744002277006611661155222255114411663355225522" | |
| 1000 PRINT#F,"0000000066000000000000440000330000331155221144116633223377001111551100337733443322337722551177115522773377336677331177331177552255111155331177553311113355337700" | |
| 1010 PRINT#F,"7711007777777777117777776611776677552277667755665522770077441133447733441177556633772211777700771177117755007766007777000077115533006611557700771144116611441155" | |
| 1020 PRINT#F,"4400000000000000440022000000440000224411335511223377551100773344223377660011661155661133771155225511551122773322775522775522115511225511667733221155007711223311" | |
| 1030 PRINT#F,"2255113377336677775577775577775577775577551177115577337766115566110077114477115577775577007777775544773366773377447777440022552266771155220077224411441144116622" | |
| 1040 PRINT#F,"0000440000000000000044002200000000551133667722555522114411552277115566333377553366113366552255117733661155331177332277331111551111551166333311775522773322557711" | |
| 1050 PRINT#F,"5511225522777733772277117777777711777711774411447722552255114411557700777733776611552255777711441177336677114477007777000000772233000066337722551144115511663355" | |
| 1060 PRINT#F,"0044000000000000220000334400000022336677332255116611557722770055663311667722116655114411117711441177115522776633775511447744116655115511772255221155117733110055" | |
| 1070 PRINT#F,"2233551155777777775577556611556655667744771155770077557733663377001155774477775577663377115577777755777733771100777777660000000000005511663377007711442255227722" | |
| 1080 PRINT#F,"4400000033440000443300000000440000441166775577663377663377557711776655114477551166557777443377774411447777337777007711771177337722772255337711551122552277551111" | |
| 1090 PRINT#F,"5522110011007755777777115577771177337711556611441155225522552255774411771177227733777766772255114411663377447755667777550000000000000066116633660077114411550077" | |
| 1100 PRINT#F,"0044224400000000000000000000000000225555116633776633776677227766551166557777665577114411777744117777773366770077115566336633667755115577227744114477337733225566" | |
| 1110 PRINT#F,"1155777755773322551144777766775577667755663377336611552255115522331155665577557777225511557766771155777755116611557777770000004400000000773366115511441166114411" | |
| 1120 PRINT#F,"4400440000220000000000440022330000332277667777777777773377556633776677771144117766777744776611777744116677337777776611775577114411447722774411777711770066777711" | |
| 1130 PRINT#F,"4411663322336677117777115511552277115522337700777755225511552255776677117777116677557777773377337766771166773355776677667700000000000000336611552244227700552277" | |
| 1140 PRINT#F,"0044000000004400004400000044000044007755115566336655667766777777665577667777777755117777115577663377777777667744115577667766557777777755771177441144777733663366" | |
| 1150 PRINT#F,"7777336677771155443355776655777755441155770077330077336633663377225577556655775511007733667777774411556633776677777777557766000000000000663366225511552277225522" | |
| 1160 PRINT#F,"0000440044000000002200000000000000006677777777777711775511775577771155775566777766774477776677777766775577777777776677551177772277441166775577777777007777777755" | |
| 1170 PRINT#F,"1166777755665511772200331111007711552211447700777700773366336655777711777711667777777777773366117777115577337777775500000000000000440000001155112277005511552255" | |
| 1180 PRINT#F,"4400440000000000000000002200000000000011441144117744776677776633667777661177775577771166777755777777772277770077777777776677777777777755667722774477774411441166" | |
| 1190 PRINT#F,"5577552277117766777777774455770055225555113377330077336633773377115577665577775522551144117777557755667777667777220000000000440011000000000011447700772244116611" | |
| 1200 PRINT#F,"0044004400000044000044004433006600003344777777774477117777007777775577777777772277777755777711774477557777777777225577117755665577777711777755777711777777777777" | |
| 1210 PRINT#F,"7722777777556633773377663311005522115522556677007733001155116677556677771177771155777777776655116611551144777700000000000000000000000000000044110077225511770055" | |
| 1220 PRINT#F,"4400440000000022330000000000000000004477776633777777774477777777667722557744777777447777776677777711777744777777777766557777117766116677777777667777441144777755" | |
| 1230 PRINT#F,"7777556611667777667766332255111155552233223333663366775522557711661155774477447777225511551177557755117777777700000044000033000044000044000000771100770066007722" | |
| 1240 PRINT#F,"0044004400660000000000000000000044000022557777661144771177556611557777777777775577116677115577667777667777776655777777776677777755775577441177551177777777007722" | |
| 1250 PRINT#F,"7777115577551177557777000077005522337755114411337733007777115577557777117777115577777766775522771166556677770000000000002200440000000033000000665522551155114477" | |
| 1260 PRINT#F,"4400004400000000440044000044000033000000772277557711775566115577776677776611667766777755667777777755777777771177774477771144777766777777777766775566770077777777" | |
| 1270 PRINT#F,"1144776677774477663377000011332255110022553366330077771144776611777766777777777700771155117777665577777777000000000000440000000000002200000000001144116622552211" | |
| 1280 PRINT#F,"0000440000000000000000220000002200000000775577227744776677777766775511557755771177557777777766557766773366557766771177777777773377771166775511776677777777007744" | |
| 1290 PRINT#F,"7777775511777711777700000000775511443377332233447711005577117755771155774411441177775577665577337722777777000000442233000000000000000000000000007722770033772255" | |
| 1310 CLOSE#F | |
| 10 F=OPENUP("IMAGE1"):PTR#F=EXT#F | |
| 20 PRINT#F,"4444004400440000000000000000004400000055227777557777773377665511776677667777775566772277775511777777777777777755777766556677776677774477776677777733774411777777" | |
| 30 PRINT#F,"7700771166552277550000000055110011337700775577113344777711557766775577117777777777227711551177775577777700000000000044000000002244000044000000007733007766007700" | |
| 40 PRINT#F,"0000440000000044002233440044330000440000552277661144776677117766557777771166777777775577667777667711667777667777777777117755777777777777117755777766777766551166" | |
| 50 PRINT#F,"7777777777775577220000000000773366336633223322557711557766775511776677775577336655775566777700772277777700004400000000000044003300000000002244000077223377007777" | |
| 60 PRINT#F,"2244004444000000440000000000000000220000225511557711771155665577117711447755776677776611777777777777557777337766116655777777227777007777447777007777007733667755" | |
| 70 PRINT#F,"7711447744116677000000000000337733773377337755663377661155227755117755771166777777771177337777557777770000000022550000002200000000000000000000000077336600770022" | |
| 80 PRINT#F,"4400440000220000000000000000224400000000447766777744004477777766774477777777777733667755777744775566777766777777557777776677775577777777777766777777771166775511" | |
| 90 PRINT#F,"6677771177777700000000000000770077007700774411117755115577777777667711667755773377337744777722777777000000000000000044000000004400000000550000000033661155221155" | |
| 100 PRINT#F,"0000440044000000000044000000000000334400110077777777117777115511777777447722557777775577667711777777771155776677777766773377667766775522777733777744774411552277" | |
| 110 PRINT#F,"5577447777552200000000000000007733773377331155663366777777557777557755777777776677667711773377777777000000440000000000003300000000004422000000000066114411556622" | |
| 120 PRINT#F,"3300224400000044000000224400000044000000007777774466005566776677447711777777776677772277777777667711447777777733667733777777551177117777556677777711777744777777" | |
| 130 PRINT#F,"2277114411775500000000000000331166336633667733777711556611772277117766773366115577115577667755777700004400001144002200004400002200000000000044000000771144223355" | |
| 140 PRINT#F,"2244000044000033000000000000000022000000000000771177336611775577776655776655777722557777774477556677776677667777777777667766777777447766117777774477225522114477" | |
| 150 PRINT#F,"7755777777660000000000000000005533115511770077007755117777557755667733777777771155777777337766777700000000000000004400000000004400000000000022000000006677337722" | |
| 160 PRINT#F,"5500000000000022004400000000440000002244005577776633667755667722551177777711665577777744771177777777777711557777447777775577774477777755777755227777556677557777" | |
| 170 PRINT#F,"7722776677330000000000000000001177441166553377777766777744117777777777774477557777661144777777774400002200440000000000000000000000330000000000000000007733662255" | |
| 180 PRINT#F,"0000000044000000000000334400003300440000002277775566551177773377776677007777777777661177777777667755777766777766771144777711777777667777667766777777115522772255" | |
| 190 PRINT#F,"7755773377000000000033000000004411115533777711553377337777775522551177771177661155775577777777770000000000000000000000442200000000440000440033440000000077115522" | |
| 200 PRINT#F,"2200000000004400000000002200000000000000000077770011664411667766775577777744771155774477774477117766775577771155777777776677447711551177551177557744776633777766" | |
| 210 PRINT#F,"1166777700000000000044000000000077552277007744117777665511667777775566557777777766117711667777000000440033000044000022000044000000220000000000000000000066552255" | |
| 220 PRINT#F,"5500440022000000002244000000006600000000005577777744337777557755771177667777777766777722777777557777227755667766777766115577777777776677667777227777115577663377" | |
| 230 PRINT#F,"5577337766000000000000000000003300117733771177556655117777557733777711776633773377556655777777440000000044000022004400003300004400000033000000000000000000777722" | |
| 240 PRINT#F,"0000000000330000440000000044000000004400002277770033667744776611667744115511774477777755777777667755777711777777775577777766115566775577775577557766776622557777" | |
| 250 PRINT#F,"7766774400000000002200000000000055775566115544117711775566117777776655777777667777117777777777000000002200000000330000000000110000000000442200442244000000002255" | |
| 260 PRINT#F,"0000000044000000330000000000000000552200007777770077114411771155775577776677447711447777667711777766777766775566116677776677776677771166771166777733775577116655" | |
| 270 PRINT#F,"2277332200000000000000000000000022332255772277775566551177556677337777773377775577665577777700000000550000004400000000440000000000004400000000003300000000447711" | |
| 280 PRINT#F,"6600000000000066000044001100443300000000007777770044113377667766772277775577777777772277775566777777557755777777777755773377777733667755777777007766772255667777" | |
| 290 PRINT#F,"7755220000000000000000000000000000775511555511007711776677773377667711667777116633777777777700000000000000000000004400000044000044000000000000000000000000000077" | |
| 300 PRINT#F,"3300440000000000000000004400002200000000007777663322552233557755777755227766117744777755777777665577227766772277556677667777447777777777774477777777557711551155" | |
| 310 PRINT#F,"2277000000000000005500000000000000337733661177775577557733777777777755775566557777777777774400004422000044003366000033220000000000002200000044000000443300000044" | |
| 320 PRINT#F,"0000002200440000000000000000000044004400007777552255001155227722776677777777557777116677227755117777777777775577777711777766117777774411661177775566116655667766" | |
| 330 PRINT#F,"7700000000000000000000440000000000661166115566551177227777667744115566117711777733776677771100000000000000006600000000440022000000330000003300004400002200000011" | |
| 340 PRINT#F,"0000000000000000440022000000440000000000007777003366333377337755773377447722776677557755777766777766557777667777227755775577774477667777557766772277557722773377" | |
| 350 PRINT#F,"0000000000440000000000001100000000335555771155116655775511551177777711775577772277777777660000000000440000000000000000000033440000004400002200002200000044000000" | |
| 360 PRINT#F,"4400000000000000220055000000000000220000777777225500116633663366776677115577775522776677777777557777772255771155777766776677777711557777667733777777665577776633" | |
| 370 PRINT#F,"0000000000330000002200000000000000001166336677551177116677777755667755667722557777777777550000440000002200000000442200004400000022000000440000000000000000000000" | |
| 380 PRINT#F,"2200443300440000000000004422003300000033777777330066335511551133775566777744777777557711665577661166777777776677665577777711556677776633777777556655117722551144" | |
| 390 PRINT#F,"0000440000000000000000000000000000005511557700777744775577336677337777115577775566777777220000220000330000440000334400000000000044000000000000000044000000004400" | |
| 400 PRINT#F,"0000000000330044000000000000000044007777776677006633332277114477007711556677116677776655771177777777557766557777777777225566771155667777774477661177776655776600" | |
| 410 PRINT#F,"0000000000220000440000000000000000001166773377115511771166777711777744777711777777777777000000330044004400330000000033000000000000000000000044003300000000000000" | |
| 420 PRINT#F,"0000000000000000000000000000440000117777447755223300777755661133771166771177557733667777667766557777661177777744117766557777776677115577661177775566551177003300" | |
| 430 PRINT#F,"0000000000440000330000440000000000000055116655776655775577557744771177774477447777777700000044000000000022000044000000660000440000330044000000000000224400002233" | |
| 440 PRINT#F,"0000004422000000000044000000000000557711777722556633441177557766335577556677667777773377775577776633777755661177775577777766557777776611557766777711665577660000" | |
| 450 PRINT#F,"0000000033000000000000000000000000000077551177337711661177227777556677117777777777777700000000000022000044000022000000000000110000442200000000224400000000330000" | |
| 460 PRINT#F,"4400000000000022000000004400000011773377447777003300774411441155661100117755116655667766777766777777776677777777776611667777117766557777775577336655776611770000" | |
| 470 PRINT#F,"3322000000000000000000330000000000000000773366770077556655775511771155773377777777777700440000440000550000000000004400000000000000000000003300000000000000440000" | |
| 480 PRINT#F,"0000000000000044000000220000003377776611777700114422551155115577115577774477777777115577337777337766775577776655667777551155665511776655661166777777115577000000" | |
| 490 PRINT#F,"4400004400000000000000000000000000000077114411557711551177117777447777776677776677770000000000000000000000004400000000004400004400000000004400000000000000000000" | |
| 500 PRINT#F,"0000004400000000003300000000777777337755667733440033774477661144770011331177447766776677667766777755777722557777775577667777777766771177777755776655667722440000" | |
| 510 PRINT#F,"0000000000000044220000660000000000000000777755116655776655665511777700777777777777770000000022000044002200330000002200000000000000000044002200000044330000000044" | |
| 520 PRINT#F,"0000000000000000004400000033773366777700777700770033223377337711557755663366771155773377777755776677227777777722777777776677667755775566776611551177775577000000" | |
| 530 PRINT#F,"0000000022000000000000000000004400000077337722557711551177117766557777777777775577440000440000550022000044002200443344000022440000660000000000000000224400000000" | |
| 540 PRINT#F,"2244000000004400000000000000777777337777337744110066557700774477114433117733557777667766557722777777775577667755661144773377551177667755115577667766116633000000" | |
| 550 PRINT#F,"0000003300000000000000000000000000000077770055115577227755665511771166557766777777110000000000000000000000440000000000330000003300000000000000440000000000220000" | |
| 560 PRINT#F,"0000220000000000000000000077777700777700776611550033336633773377551177556633227722557711777755771155776677557777777777777777667744771177667766777755775566000000" | |
| 570 PRINT#F,"0000000044330000005500003300000000004477007777667700775577117777665577777777777777000000220044000000550000000044000000004400000000000033000000000000000000000000" | |
| 580 PRINT#F,"0000000000000000220044003377337777553344115566000077223344776677665522773377005577772255667766776677777711667777447766774477117777774477773377336611661100000044" | |
| 590 PRINT#F,"2200000000000000000000004400000000001177551100551177552277557733777777777777777744000044003300224400000000000000000022000000440000440000440000000000004400004400" | |
| 600 PRINT#F,"0000004400002244000000000077773377227700776633110055552233773355117755227733770011447777777777557766557777773377771155771177447766117777667766775577550000000000" | |
| 610 PRINT#F,"0000440000000000000000000000000000007777007777114411775511667766557777776655777700000000000044000000002244000011004400000000220000220000220000006600000000000000" | |
| 620 PRINT#F,"4400000000330000000000000033776655773377333377443322005511447766550011557766331144115566775522777711776655667766776677776677777755774477337755777766114400000033" | |
| 630 PRINT#F,"0000000000000044220000002200000000007766337700557755116655115511777777777777777700000000000000000000000000000000000000440000004400000000000000000000000000000000" | |
| 640 PRINT#F,"0000000000440000000000000077551177336677007766337733551144117733117755661133774411007777116677776655771177777777557777447755777722777777776611661177440000000000" | |
| 650 PRINT#F,"0000000022000000000044000000000000667733774477115522775577667766777766777777773300660044006600003344005500000044000000000000000000440044000044330000000044000000" | |
| 660 PRINT#F,"0000000000000000004400000077116655773377337733114477225511556611441177337766331155110077557777557777667755661155661177117766114477770077665577557744110000004400" | |
| 670 PRINT#F,"0000000044000000000000000000440000777766551133661155772277337777777777557766770000000033000000002200000000224400000000332244003300000000000000000000000022000044" | |
| 680 PRINT#F,"0000000000000000003300000055777733667733770077331155116655115577115511443377441100551100770077667777556677777777774477665577777777777755117766771166000000002200" | |
| 690 PRINT#F,"0044003300000000330000330000000000777755225577556633773377777777777777777777770000000000220000440000000000000000006600440000000000000000000000004400000000000000" | |
| 700 PRINT#F,"0000440000004400000000000022337777335577337755225522553311770011557777770011552255225522551155115522777777447744117755776633665522556677447711447733000000000000" | |
| 710 PRINT#F,"0022000000000000440022000000000000777777663366115522556655667777557766777777770000440000440033000044000044000000000000000000000044002200440022000000440033000000" | |
| 720 PRINT#F,"0000003300000022440000000055777755227711665522553377117766557755227700115522551144110055110077007777552277114411004422003366777777777711777755774400000000000000" | |
| 730 PRINT#F,"0000000000000000000000440000000066774477552277552255117777777777667777777777000000000000000044000000220000000055000000000000002200003300000000002200000000440000" | |
| 740 PRINT#F,"0000220000000000000000001177770077335577337733661144552255116633775577552255114411336611007711551100777744000000000000550000007700442255660066000000000044003300" | |
| 750 PRINT#F,"0000000044220000000000000000000033777777663355115577667777777777777777557777000044002244000022000033000000002200000000440000440000004400000044000000000000000000" | |
| 760 PRINT#F,"0000000000000000000000005511777755221155225577335511773377551166336611773322551144333344115522115511441133000000440000000000004411004400337700000000000000000044" | |
| 770 PRINT#F,"0000440000000000000000000022000066777777770077667777777777777777557766777744000000003300000000004400004400004400004400002200000000000000000000000000000000000000" | |
| 780 PRINT#F,"0000440000440000000000000077441177554411552233661144770077007755777744336655114411776611552255556633773366336600000022000000000044000000000011000000220000000000" | |
| 790 PRINT#F,"0000000000330000224433004400000077774477774411557777777777776677667777777711002200004422000055000000000000000000220000000033004400000044000033000000000044220000" | |
| 800 PRINT#F,"0000000000000044000000007755117755113377335566335577115577773377225511775511007733443300225511223377006633220033000000002200000000000000000000443300440000000022" | |
| 810 PRINT#F,"3300000000004400000000000000000055777777007777777766557766775577777777777700004400000000440000002200002255000000000000004400000000000000224400000044000000004400" | |
| 820 PRINT#F,"0000000000003300000000003366115522774400773311552255007700776633777744112255770077225511550066552233773300773322000055000000000011000022440000000000000000000000" | |
| 830 PRINT#F,"0000000000000000000000000000000077777777777777667777777777777777777755776600000000440000000022004400000000000044003300000000002200440000000000000000000000000000" | |
| 840 PRINT#F,"0000003300002200000000000077557755110000336655115511773377007755225511557700773344110044115511557700007733007733440000000044330000000000000000000000000000440000" | |
| 850 PRINT#F,"4400002200000000000000220000000066777777777777777777777755776677776677773300000000110000330044000000440000000000004400220044000000000000000000000000000000000000" | |
| 860 PRINT#F,"3344220000000000000000001155221177773366000033663366336633770077552255663366336633665511002255220077332244110055112200000000000000440033000000002200000033000000" | |
| 870 PRINT#F,"0000000044000000334400005500000033774477776677775577776677777755777777774400004400000022440000000000000000442200000000000000004400220044000000004422004400000000" | |
| 880 PRINT#F,"0000004400000000440000000077115566334433443311441144330077007755117777337733663377551100443366337755225533114411005500000000000000000000004400000044000022000000" | |
| 890 PRINT#F,"0000003300000000000000000000000000777777775577777766777777667777777777770000000000004400000000000033000000000044220000440000000000000022004400000000000000440000" | |
| 900 PRINT#F,"0000330000330000000000005511447733772200220044330011007700115522550011442255772244114433772255224422336600441133660000000000220000000000000000000000000000000000" | |
| 910 PRINT#F,"0000440000000066000000000000000000777777667777667777557777777766776677000000442233000000000055006600004400000000000000000033000000330000000000000000000000000000" | |
| 920 PRINT#F,"0000220000220033220000000077337777553344330011005500330055001155227755115522553377007700005511553344113377000077331100440000440000000000002233000000004400004400" | |
| 930 PRINT#F,"2200000000000000000000440000000000777777777755777777777766557777777777000000000044000000442200000000002200330000004400002244000044000000000000220000000000220000" | |
| 940 PRINT#F,"5500003300330000003300000077115511777700000000223322770011005522553366336655116633663366332244332277004400115500224433000000000000000044000000440033000000000033" | |
| 950 PRINT#F,"0000000000000000000000002200000000777766337766773377667777777777777777004400000000000033000000000000000000440000003300000000220000000044000044000044000000000000" | |
| 960 PRINT#F,"2200330022000022330000000077441166553300223300552255007700770077336633667733664433663300225500114433663322550022553322000033000044220000000000000000000000000000" | |
| 970 PRINT#F,"4400002244000000007700000044000000775577777777776677773377777755777700000000224400006600000000440000440000220044000000440000000000000000000000000000330000004400" | |
| 980 PRINT#F,"0000002233003300002233003311557755116600330011003311003344331100770077335522551166334411550077441100336633007733007700000000000000330000000000002200000000000000" | |
| 990 PRINT#F,"0000000000000000000000000000000000776677776677777777777766777766777700000000330000000000440000000000000000000000002200000000440000442200000000000000000000000000" | |
| 1000 PRINT#F,"0033440000110033000022000077001177553300223300110033770011443366337744116633663355223300225522334411443366330077000055000000000000000000000044000000442200000000" | |
| 1010 PRINT#F,"0000000000000044000000440033000044777777557777557777667777777777770000000044000000440000002200002255000044000000004400000000000000000000000055000000004400000000" | |
| 1020 PRINT#F,"2200223300440022005500110033770077777744330022330011001155227733663311441155114422552255003344110055223300770066337722000000440000000000000000000000000000000044" | |
| 1030 PRINT#F,"0000004400000000000000000000000000777766777777667777557755777777770044220000440022000000000044000000000000000000000000004400000000000044000000004400000000000000" | |
| 1040 PRINT#F,"3300330033223300332233000066115577550011001133001100113322333344331144775522443377334422336611005522334477004433770000440022000000004400002200000000003344000022" | |
| 1050 PRINT#F,"0000000000000000004400000000000000777755777777777777667777774477770000000022000000001144003300000000002200000044000000000000002244000000000022000022000000000000" | |
| 1060 PRINT#F,"0000220022000011000000330033776611773300110011331133001144114411663377001144114400001155003344114411441100113366005522000000000000000000003300004400000000000033" | |
| 1070 PRINT#F,"0000440011000000110000224400000066777777227755776655777777777777000000004433000044000000000000004400004400000022000044220000440000330000000000000000000000440044" | |
| 1080 PRINT#F,"2255003300330044332233223366335577441100330011000011332233113344336633552233551122550022770011440033660055442233223344000000000000000000000044000000000000000000" | |
| 1090 PRINT#F,"4400000000440000000000000000000000777777777766777777777766777722000044000000000000000000440000000000000000004400000000003300000000000066000044000000440000000000" | |
| 1100 PRINT#F,"3300220055223322003300000033661177773344001100111100113322332211773300225500224433225533441144331166330011663344556633000000004400000000000000000000000000000000" | |
| 1110 PRINT#F,"0000000000000000004400000000000000777755777777557766777777777755000000000000440033004400220044002200000000000000330000000000000000000000000000000000000000000000" | |
| 1120 PRINT#F,"0033003322330000332200113322337755115500113311330011332233331100334411770011553322552200114433224455007744334411223300000000000000000000000000002200002200440000" | |
| 1130 PRINT#F,"0022000000000000000000000044000066777766776677777755777755776600000000006600002244000033000000000044000044000000004400004400440000440000000000000000000000000000" | |
| 1140 PRINT#F,"0066330000001133223311001100774477660033442233223333223311223311111100331133226633005577007700773322770011663366552244000000000000004400000000000055000000000000" | |
| 1150 PRINT#F,"0000000000000000000000552200000000777777775577661177776677770000004400330000000000000000000000003300000011000000002200000022000000000000440000440000000022000000" | |
| 1160 PRINT#F,"3300225522330022330033003333117733770011333322332233110033110033001133223322335566110077003366007700336633441100553322000000002200000000000000440000000000000000" | |
| 1170 PRINT#F,"4400004400004422005522000000000044777777777777777777777777110000000022000000000000006600004400004400220000004400000000000000000000220000000000220000440000004400" | |
| 1180 PRINT#F,"1100330033001100332233221122003366333344660033113322331122331111332233113311332255337700776633770055663344114477224400000000440000000000000000000000000000000000" | |
| 1190 PRINT#F,"0000000000000000000000000000000033776655776677557766777777440044000000004400004400000000000022000000004400000000004400004400000000440000000000000000000000000000" | |
| 1200 PRINT#F,"4433221100110033223322330033337777004411773322332233110033332200331100110011007733224411443333663366115522551100551100000000000000000000440000000000000000442200" | |
| 1210 PRINT#F,"0000000000000000000000000000000022777777777777667777557766000000000044000000000033000000440000000000000000000000000000000000440000000044000000004400000000000000" | |
| 1220 PRINT#F,"3322003322333322331133223322332200331155443311003311001111223311110011331133113366551155116666336633441155224411440000440000003300000000000000000000440000003300" | |
| 1230 PRINT#F,"0000002200000000440000004400000044777777225577777777777700000000000000000022000022440000000000440000440000006600000000000000000000000000000044000000000000000000" | |
| 1240 PRINT#F,"0033223300223333220033331100115500004411774433110011330033331100331100110022332233663366335533663377006633773344114400000000000000000000220000000000000000000000" | |
| 1250 PRINT#F,"4400004400004400000000000000000033777777777777777766773300000022440011004400004400000000110000000000000022000000440022440011000044003300220000000000004400000000" | |
| 1260 PRINT#F,"1100332233332200332233220033332277001155115522331100113322110033223311003333113311551144116622551144114411442255223300000000000000440000000000000000000000000000" | |
| 1270 PRINT#F,"0000000000000000000044002200000000777744777766775577770000005500000044003300000000004400004400000022004400000000000000000000000022000000000000003322000000000000" | |
| 1280 PRINT#F,"0033223311001133113300113311225500114477667700332233223311003311331100331111003322332255663355114411551144115522550000000000004422000000004433004400001100004400" | |
| 1290 PRINT#F,"0022003300001100001100003344000066777777775577777777660044000000000000000044330000110000000022004433000033440033000033000000440000002244004400000044332200440000" | |
| 1310 CLOSE#F | |
| 10 MODE 2 | |
| 20 F=OPENIN("IMAGE1") | |
| 30 X=0:Y=0 | |
| 40 REM VDU 19,1,7:VDU 19,1,7 | |
| 50 REM VDU 19,2,6:VDU 19,2,6 | |
| 60 REM VDU 19,3,4:VDU 19,3,4 | |
| 100 FOR L=0 TO 499 | |
| 110 INPUT#F,CHUNK$ | |
| 120 PROC_DRAWPOINT(1):PROC_DRAWPOINT(2):PROC_DRAWPOINT(3):PROC_DRAWPOINT(4):PROC_DRAWPOINT(5) | |
| 130 PROC_DRAWPOINT(6):PROC_DRAWPOINT(7):PROC_DRAWPOINT(8):PROC_DRAWPOINT(9):PROC_DRAWPOINT(10) | |
| 140 PROC_DRAWPOINT(11):PROC_DRAWPOINT(12):PROC_DRAWPOINT(13):PROC_DRAWPOINT(14):PROC_DRAWPOINT(15) | |
| 150 PROC_DRAWPOINT(16):PROC_DRAWPOINT(17):PROC_DRAWPOINT(18):PROC_DRAWPOINT(19):PROC_DRAWPOINT(20) | |
| 160 PROC_DRAWPOINT(21):PROC_DRAWPOINT(22):PROC_DRAWPOINT(23):PROC_DRAWPOINT(24):PROC_DRAWPOINT(25) | |
| 170 PROC_DRAWPOINT(26):PROC_DRAWPOINT(27):PROC_DRAWPOINT(28):PROC_DRAWPOINT(29):PROC_DRAWPOINT(30) | |
| 180 PROC_DRAWPOINT(31):PROC_DRAWPOINT(32):PROC_DRAWPOINT(33):PROC_DRAWPOINT(34):PROC_DRAWPOINT(35) | |
| 190 PROC_DRAWPOINT(36):PROC_DRAWPOINT(37):PROC_DRAWPOINT(38):PROC_DRAWPOINT(39):PROC_DRAWPOINT(40) | |
| 200 PROC_DRAWPOINT(41):PROC_DRAWPOINT(42):PROC_DRAWPOINT(43):PROC_DRAWPOINT(44):PROC_DRAWPOINT(45) | |
| 210 PROC_DRAWPOINT(46):PROC_DRAWPOINT(47):PROC_DRAWPOINT(48):PROC_DRAWPOINT(49):PROC_DRAWPOINT(50) | |
| 220 PROC_DRAWPOINT(51):PROC_DRAWPOINT(52):PROC_DRAWPOINT(53):PROC_DRAWPOINT(54):PROC_DRAWPOINT(55) | |
| 230 PROC_DRAWPOINT(56):PROC_DRAWPOINT(57):PROC_DRAWPOINT(58):PROC_DRAWPOINT(59):PROC_DRAWPOINT(60) | |
| 240 PROC_DRAWPOINT(61):PROC_DRAWPOINT(62):PROC_DRAWPOINT(63):PROC_DRAWPOINT(64):PROC_DRAWPOINT(65) | |
| 250 PROC_DRAWPOINT(66):PROC_DRAWPOINT(67):PROC_DRAWPOINT(68):PROC_DRAWPOINT(69):PROC_DRAWPOINT(70) | |
| 260 PROC_DRAWPOINT(71):PROC_DRAWPOINT(72):PROC_DRAWPOINT(73):PROC_DRAWPOINT(74):PROC_DRAWPOINT(75) | |
| 270 PROC_DRAWPOINT(76):PROC_DRAWPOINT(77):PROC_DRAWPOINT(78):PROC_DRAWPOINT(79):PROC_DRAWPOINT(80) | |
| 280 PROC_DRAWPOINT(81):PROC_DRAWPOINT(82):PROC_DRAWPOINT(83):PROC_DRAWPOINT(84):PROC_DRAWPOINT(85) | |
| 290 PROC_DRAWPOINT(86):PROC_DRAWPOINT(87):PROC_DRAWPOINT(88):PROC_DRAWPOINT(89):PROC_DRAWPOINT(90) | |
| 300 PROC_DRAWPOINT(91):PROC_DRAWPOINT(92):PROC_DRAWPOINT(93):PROC_DRAWPOINT(94):PROC_DRAWPOINT(95) | |
| 310 PROC_DRAWPOINT(96):PROC_DRAWPOINT(97):PROC_DRAWPOINT(98):PROC_DRAWPOINT(99):PROC_DRAWPOINT(100) | |
| 320 PROC_DRAWPOINT(101):PROC_DRAWPOINT(102):PROC_DRAWPOINT(103):PROC_DRAWPOINT(104):PROC_DRAWPOINT(105) | |
| 330 PROC_DRAWPOINT(106):PROC_DRAWPOINT(107):PROC_DRAWPOINT(108):PROC_DRAWPOINT(109):PROC_DRAWPOINT(110) | |
| 340 PROC_DRAWPOINT(111):PROC_DRAWPOINT(112):PROC_DRAWPOINT(113):PROC_DRAWPOINT(114):PROC_DRAWPOINT(115) | |
| 350 PROC_DRAWPOINT(116):PROC_DRAWPOINT(117):PROC_DRAWPOINT(118):PROC_DRAWPOINT(119):PROC_DRAWPOINT(120) | |
| 360 PROC_DRAWPOINT(121):PROC_DRAWPOINT(122):PROC_DRAWPOINT(123):PROC_DRAWPOINT(124):PROC_DRAWPOINT(125) | |
| 370 PROC_DRAWPOINT(126):PROC_DRAWPOINT(127):PROC_DRAWPOINT(128):PROC_DRAWPOINT(129):PROC_DRAWPOINT(130) | |
| 380 PROC_DRAWPOINT(131):PROC_DRAWPOINT(132):PROC_DRAWPOINT(133):PROC_DRAWPOINT(134):PROC_DRAWPOINT(135) | |
| 390 PROC_DRAWPOINT(136):PROC_DRAWPOINT(137):PROC_DRAWPOINT(138):PROC_DRAWPOINT(139):PROC_DRAWPOINT(140) | |
| 400 PROC_DRAWPOINT(141):PROC_DRAWPOINT(142):PROC_DRAWPOINT(143):PROC_DRAWPOINT(144):PROC_DRAWPOINT(145) | |
| 410 PROC_DRAWPOINT(146):PROC_DRAWPOINT(147):PROC_DRAWPOINT(148):PROC_DRAWPOINT(149):PROC_DRAWPOINT(150) | |
| 420 PROC_DRAWPOINT(151):PROC_DRAWPOINT(152):PROC_DRAWPOINT(153):PROC_DRAWPOINT(154):PROC_DRAWPOINT(155) | |
| 430 PROC_DRAWPOINT(156):PROC_DRAWPOINT(157):PROC_DRAWPOINT(158):PROC_DRAWPOINT(159):PROC_DRAWPOINT(160) | |
| 900 NEXT | |
| 910 CLOSE#F | |
| 999 END | |
| 1000 DEF PROC_DRAWPOINT(P%) | |
| 1010 C$=MID$(CHUNK$,P%,1) | |
| 1020 IF C$="0" GCOL 0,0 | |
| 1030 IF C$="1" GCOL 0,3 | |
| 1040 IF C$="2" GCOL 0,2 | |
| 1050 IF C$="3" GCOL 0,1 | |
| 1051 IF C$="4" GCOL 0,4 | |
| 1052 IF C$="5" GCOL 0,5 | |
| 1053 IF C$="6" GCOL 0,6 | |
| 1054 IF C$="7" GCOL 0,7 | |
| 1060 MOVE X,1012-Y:DRAW X,1012-Y | |
| 1070 PROC_NEXT | |
| 1080 ENDPROC | |
| 2000 DEF PROC_NEXT | |
| 2010 X=X+4 | |
| 2020 IF X>1279 THEN Y=Y+4 | |
| 2030 IF X>1279 THEN X=0 | |
| 2040 ENDPROC |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment