' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.12.16.16.28]) on 2024.06.09 at 01:13 (Coordinated Universal Time)
' This program by Charlie Veniot is a port of Tom Lake's "structured" QB64 version of the WorldMap program.
' - Tom Lake's program: https://www.facebook.com/share/p/jZ3jvmpvSDwu81hi/
' - For more info about the WorldMap program, see https://basicanywheremachine-news.blogspot.com/2024/06/world-map.html)
' Any changes to Tom Lake's code will be highlighted with a "🟠"

REM DRAW PROGRAM from fast graphics HEX data
REM "z" WILL BE THE END OF FILE MARKER
REM
REM FIRST CHAR. HAS MOVE FLAG, 3 BIT HI X, 3 BIT HI Y
REM SECOND CHAR. HAS 7 BIT LO X, THIRD HAS 7 BIT LO Y

DECLARE FUNCTION ConvChar$(X$) ' 🟠 Added
' In BAM, functions must be declared before they are used, either with the actual FUNCTION declaration or with a DECLARE statement

' 🟠 SCREEN 9: WINDOW (0, 0)-(1023, 799)
' BAM does not support the WINDOW statement
SCREEN _NEWIMAGE( 1124, 600, 9)

' 🟠 BAM does not support "EXIT DO", so the DO LOOP needed some refactoring
DO
    READ G$
    C$ = MID$(G$, 1, 1)
    IF C$ <> "z" THEN ' 🟠 IF statement changed to remove "EXIT DO"
        F1 = LEN(G$) / 6
        FOR I = 0 TO F1 - 1
            H$ = MID$(G$, I * 6 + 1, 6)
            A$ = ConvChar$(LEFT$(H$, 2))
            B$ = ConvChar$(MID$(H$, 3, 2))
            C$ = ConvChar$(RIGHT$(H$, 2))
            A = ASC(A$)
            M = 20
            IF A >= 64 THEN M = 21: A = A - 64
            X = INT(A / 8) * 128
            Y = INT(A - X / 16) * 128 + ASC(C$)
            X = X + ASC(B$) + 100
            Y = 700 - Y
            IF M = 21 THEN preset (X, Y) ELSE LINE -(X, Y), 15
            IF x < 0 or x > xmax OR Y < 0 OR Y > YMAX THEN _alert("oh oh" )
        NEXT I
    END IF ' 🟠 IF statement changed to remove "EXIT DO"
LOOP WHILE G$ <> "z"
END
DATA "5307741303710B7F6F0B7B6D0B776B0B77700B73720B72770B6E750B6C71"
DATA "0B6B6C0B68710B6A750B6C790B71790B6C7A0B687C0B637C0B5E7B0B627E"
DATA "0C61004C10020B117D4B107C0C0E000B0C7F4B0C7C0B0D770B0C720B0C6D"
DATA "0B0C680B0E640B11600B135C0B15580B19550B1D530B1E504B4E3C0B5141"
DATA "0B55454B56450B5A470B5F470B63450B65490B6A490B6F480B74470B7643"
DATA "0B773E0B793A0B7C3E0B7B430B79470B7A4D0B7D5213015413055613075A"
DATA "13055613075B13055F130363130761130766130C6713116A130C6913126B"
DATA "13146F131673131B74131C76530861130763531E76132278132074132574"
DATA "132A7613267813227C131E7F142300141D0214170013147C141700141B04"
DATA "142006142606142C0514310714350914390B143910143513143011143513"
DATA "143115142C18142A1C142820142323141F21141A2014152014162514172A"
DATA "141526141128140D2B14072B14022C14022714022214021D140418140114"
DATA "0C7F100C7F0B0C7B090C770C0C77120C73150C6E160C69180C651B0C5F1B"
DATA "0C5B200C57230C59280C5C2C0C612D0C5B2F0C612F0C67310C62310C5C31"
DATA "0C56310C5C310C62310C68310C63350C68340C6D360C72360C78380C773D"
DATA "0C73400C6E3D0C6A3A0C663D0C603D0C5C410C5B460C56480C53440C5740"
DATA "0C553B0C513D0C4C3B0C463B0C423D0C3D3D0C373E0C38390C323B0C2C3B"
DATA "0C273B0C223C0C273D0C223F0C1C3F0C16400C11410C0C400C07400C0244"
DATA "047D4004783F047D4104784004723F046C3F04673F046341046241446524"
DATA "046724446723046B2104702304742004771C047B19047E15047F100C030E"
DATA "0C080D0C040B0C06070C0B060C0F040C100354360914360B446240045D42"
DATA "045841045342044D42044742044344043E45043844043344042F42042940"
DATA "04233F04253B042A38042636042134042532042B32042F30042B2D04262E"
DATA "04222A042526042A23042E2104332004382004361B043218042C15043116"
DATA "043718043B1B043F1E044321044625044A28044824044C22045024045525"
DATA "045A23045F23046523046A21046E1F04731F04751B047918047D16047D13"
DATA "433D29033D29433B2D033B2D43372F03372A03372F43332F03332F53224F"
DATA "13224F53040513060913080E130D0F13121313120E13100A13120E131610"
DATA "131A0D131F0D13240D132A0D132D0913310513330112387E123D7E523E7E"
DATA "12427B124576124872124B6D12506A125569125A66125F67126564126961"
DATA "126C5D126D57126C5112694C12674812644412643E12633812623312602F"
DATA "125F2A125927125426125023124C1E124C19124A1512471112440C124108"
DATA "123C0312360312320512360211377D113579113177112C77112972112570"
DATA "11216E11256B112168111F64111D5F11205B111C5811195411194F111B4A"
DATA "111C49511C48112147111C47111744111246110D48110A4C110C51110853"
DATA "11085811085D110A59110A5E110862110A67110C63110E68110F6D110A69"
DATA "110B6E110D71510C6E110C74110D79110E7F12110412120A121210121215"
DATA "12141912141E12142312142912142E121433121338120E3B120A3D120841"
DATA "12054612024A12014F0A7F530A7D570A795A0A795F0A7B630A7D670A7A6B"
DATA "0A7C6F0A7F7412037812027D1302014B70300B74330B79330B7E3213022F"
DATA "13062D130A2B13062913022C0B7E2E0B79300B74310B702F0B70304B752F"
DATA "0B752F530225130225531D26131D26531129130C26131125131724131528"
DATA "1311294B53280B57260B5C250B61270B622C0B662E0B6B2D0B69290B6824"
DATA "0B661E0B6A1C0B701D0B741A0B74150B73100B750C0B77080B7C09130209"
DATA "1304064B1E500B204B0B22470B26440B273F0B2B3D0B2B380B30350B2D39"
DATA "0B2C3E0B2A420B27460B254A0B294C0B2B460B2D420B313E0B343A0B3935"
DATA "0B3B300B3C2B5304061302011300060B7B060B76060B72090B6D0C0B6B12"
DATA "0B69160B64160B5E180B5A1D0B541C0B4F1D0B4B1F0B47210B42250B3E27"
DATA "0B3C2B4B513C0B50370B4F320B512D0B53290B5328747A0E347A0E747C0D"
DATA "347C0D747E16347E167C060B3C060B7C0B0B3C0B0B7C0A0A3C0A0A44040B"
DATA "04040B44050A04050A44070B04070A44090B04090B440C0B040C0B44100B"
DATA "04100B44120C04120C447C16047C16447B13047B13447A14047A14447A15"
DATA "047A1544771804781744771804771844761A04761A44731B04711F04741B"
DATA "04731B44711D04711D447218046F1C047218446F1B046F1B447418047418"
DATA "447915047517047915047915447714047714445A23045A23445223045223"
DATA "44512404512444432204432244481F04431E04472004481F44451D04411A"
DATA "04431E04451D444119044119443F19043F19443215043215443015043015"
DATA "445524045524442E15042E15442D14042D14442A13042513042A13442413"
DATA "042413442313042313442211042211441F10041B0E041F10441919041919"
DATA "44171B04171B442323042323441324041324441C2E04162F041A2D041C2E"
DATA "442D2F042D2F4C0E010C0A060C05070C07030C0C010C0E014C4D460C5246"
DATA "0C544A0C4F4B0C4A4E0C464B0C4A470C4D464C3D4B0C394D0C3D4B0C3D4B"
DATA "447B0C047A11047B0C047B0C447A13047610047A13047A134C0F450C1347"
DATA "0C17490C1C4B0C224D0C1F510C1A510C15500C0F500C0D4B0C09480C0E45"
DATA "0C0F454C46420C41440C3C490C384D0C39470C34480C304B0C2C490C284B"
DATA "0C244D0C1F4C0C1B4A0C1E460C23470C1E450C23430C29430C23420C1D42"
DATA "0C213F0C273F0C2D3E0C323E0C373F0C3D400C433F0C48410C46424C4A3F"
DATA "0C4F410C553F0C4F3E0C4A3F4C705E0C6A5F0C65620C5F640C5A650C5663"
DATA "0C595E0C5F5E0C5A5D0C605B0C655C0C605C0C665C0C6C5E0C705E4C4C5A"
DATA "0C485D0C425E0C3C5E0C425D0C485B0C4C5A4C585B0C525C0C565A0C585B"
DATA "4C5A590C545A0C5A594C63580C63584C7C510C78530C73530C6D530C6853"
DATA "0C63540C5E560C58570C53570C57540C5C530C60510C65500C6A500C6F51"
DATA "0C74500C79500C7C5154064B14024D0C7D4E14014B14064B4C3B510C3654"
DATA "0C32560C2E530C2A550C25550C20540C1C520C22510C27510C2D520C2751"
DATA "0C2D510C33510C39510C3B514C1F550C23590C1D590C17570C13550C1753"
DATA "0C1C560C1F554C1C530C1C534C41510C41514C30590C2A5A0C2F590C3059"
DATA "4C335C0C2E5C0C295C0C2E5C0C335C4C43550C43554C40580C3C5A0C4058"
DATA "4C5E4A0C624E0C5B4F0C564F0C56490C5A4B0C5E4A4C5A510C56530C5A51"
DATA "0C5A514C51520C4F560C49550C43540C47520C4D530C48520C4E510C5152"
DATA "540D3B140D3B54083A14043D14083A4C7C2F0C78310C73330C6E350C6C31"
DATA "0C712F0C76300C7B2F0C7C2F4C772C0C732A0C772C4C7D280C7D2854022D"
DATA "14022D54042F14042F541B24141B245423281423284C7A0E0C7A0E542A03"
DATA "142405142504542603142A01132A7B13257B53247B13247D53237B13267A"
DATA "53277A13297953287A132A7B532F7A132D79532E79132E7C532D7C132B78"
DATA "53417E133F7F544000133E7E533E7F144001544002143D00543E02143F04"
DATA "543D03143D04543B03143903543904143806543704143909143909543A09"
DATA "14350714360754350714330354340314320354310114310154320113317E"
DATA "53357E13357E53387F13387E533B7E133C7F533B7E13397C533B7C133D7E"
DATA "533D7F133D7B533F7D13417E542635142834542A36142A36542837142C37"
DATA "542C3814283954273A14253A54233914253B54243B14223C54203C141A3E"
DATA "141D3F54193F141D3F541F40141A40141840541740141D41541B43141741"
DATA "141641541842141444541545141245541445141147540E45140948140948"
DATA "54094914034A1400494C7F480C7B474C7C490C7C4A4C774E0C714D0C704C"
DATA "4C734C0C6F4B4C6F4A0C70494C6E480C70454C6E450C70484C70470C6D49"
DATA "4C6C4B0C714D4C714E0C6B4D0C654C4C654A0C63460C69454C65450C6A43"
DATA "0C6C434C6C420C72420C76414C77410C7C421400414C7F44140241540341"
DATA "14073F14073F54053F140A3F140A3F54093F140D3D14113B141338541439"
DATA "141837541437140E38140D35540D34140933540734140333540233140331"
DATA "540632140932540A32140F3114112F54113014142C14192B141D2914202B"
DATA "54182F141C2F541B2F141F2D14222C54232C14232D54222E142032541C35"
DATA "141C36541D36141D37541C38142034142333542434141F37141B3914173E"
DATA "141542141045140D4914094D14075114045514025914065B140A5E14075E"
DATA "540B5E14055E140B5F140E5F541460141862141E63142364141D65141864"
DATA "141D65141866141366140E66141467141A66141F66142467142A68142469"
DATA "14206B141A6B14156C140F6B14096B14046B0C7F6B0C7A6A0C75680C7069"
DATA "0C6B680C70680C6A680C65680C60670C64650C6A640C70640C6A640C6564"
DATA "0C6B630C70620C76620C7C631402650C7D620C78620C7D5F0C77600C7262"
DATA "0C6C620C705F0C745D0C6E5C0C735C0C75580C6F580C6A5A0C66560C6B55"
DATA "0C71550C76550C7C541402560C7C58140259140259545922145B28145D2C"
DATA "146030146334146737146B3514703814753B147A3D147F3D1C033F1C0940"
DATA "1C0D421C07431C02421C06461C00461C05461C09441C0F431C0D471C084A"
DATA "1C094F1C0D4D1C114F1C16511C11511C0D531C13521C0F541C14541C0F56"
DATA "1C15571C11591C16591C165E1C1B601C15601C1A611C14621C1A631C2063"
DATA "1C26611C29651C24661C1E661C19661C14651C0F651C0B631C0F671C0967"
DATA "1C0565147F651C05661C0067147B67147566147066147666147A681C0068"
DATA "1C06681C0B681C10691C0A691C05691C016B147C6B14776B14716A146C69"
DATA "14706B14766B147C6B1C026B147B6C14766C14706C146A6C14656C145F6B"
DATA "14596B14536B14596A145369145165144D67144767144166143D68143868"
DATA "143267142E65142864142262141D61142260141D5D14185C14125C140C5B"
DATA "141059141559141A59141657141157141756141B54142154142654142B54"
DATA "14305314354F14394B143A46143F47144445143D4414414214474214453E"
DATA "143F3D143D39143D3414413214432E14472B144A26144F25145323145822"
DATA "145922543C40144240143E42143C405C00431C06431C02451C00435C094B"
DATA "1C0D491C094B5C094C1C0F4B1C0A4C1C094C5C064C1C0B4C1C064C5C2D0A"
DATA "1C320C1C35101C36151C30151C2C131C2C0E1C2D0A5C142E1C1A2F1C2031"
DATA "1C22351C1E371C19361C14351C0F361C09341C0F341C0B321C0F301C142F"
DATA "1C142E732C7933307B332E7F343103343109342F0D342F12342C0D342D08"
DATA "342C03332C7E332C79730F6E33116F73166F331170330E6C330B67330B62"
DATA "330D5E330D5933095733055533065B33056033016233006733046A33096B"
DATA "330A6B730A6D330E70330F6E6C4D0B2C4D0B635261234E5F635C72236174"
DATA "23637563637723617863627B235F7B635D7B235A77235975635A74235A73"
DATA "635A72235C727300662B7E656B7B642B78636B78642B79646B79662B7C68"
DATA "6B7A692B76672B76676B73652B72646B71642B70646B6F642B70616B7161"
DATA "2B72616B725F2B745F6B77602B7A5F6B7B5F2B7C5D6B7A5E2B765A2B7356"
DATA "6B76552B78526B78512B79506B794F2B7A4D6B794E2B774F6B764F2B794D"
DATA "6B7A4C2B794A6B76492B79496B7A482B7B476B7A472B78426B76402B753E"
DATA "6B743E2B72396B72372B6F366B6E352B6D346B6C342B6B326B6B332B6932"
DATA "6B68322B65316B63302B612F6B612D2B5D2D6B5C2D2B5D2B6B5C2B2B5A2F"
DATA "6B582F2B582F6B572E2B53302B533264144224103F24133B241236241331"
DATA "24162D241229240E26240D255C77131C7713630F7623127763416323435F"
DATA "23475D234C5C234E60634F64234C69234E6523516A234F6E234C6A234C6F"
DATA "234871234876234D77234C7C23477C234279233E75233F7023416B234568"
DATA "23436463426423416463326C23326B63306C232E70232A7223257523277A"
DATA "23227B232077231C7423187723167B231277230F73230D6F230F6B23146A"
DATA "23196C231F6D23236B232869232E6A23306C730F6E331371331870331C72"
DATA "331F7633237B33277F342903342908342C0C342A10342613342111341D13"
DATA "341F1734231A34281C342C20343122343722343C22344222344722344D22"
DATA "34502634552A345A29345E2734632934672C346427346025345B2134571E"
DATA "34531B344F18344E1234500E34520934560C345A0F345D13345F1734621B"
DATA "345F1F346322346823346E24347323347725347B273C002A3C052C3C0A2A"
DATA "3C0A2F3C06323C0C333C11343C17343C1B313C20313C24343C28363C2238"
DATA "3C1C393C173B3C113D3C0C3E3C06403C0141347B4134754134703F346A40"
DATA "346541345F40345B43345545345045344B44344644344246343E49343849"
DATA "343249342C4B342749342347341D47341747341344340E44340A48340E4B"
DATA "34084C34024D2C7D4A2C774A2C714C2C6B4D2C664D2C614E2C5C4F2C614D"
DATA "2C5C4D2C564D2C514C2C4C482C504B2C544D2C5A4F2C60502C63542C5F56"
DATA "2C59562C54552C50572C4B592C46562C41552C3C542C35542C2F522C2951"
DATA "2C23512C1E4F2C184E2C134D2C15482C1A472C1A422C16452C12482C0C49"
DATA "2C07472C0B452C06452C054A2C00472C01422C053F2C0B3F2C093B2C043E"
DATA "2C023A247E38247936247338247938247E3B247E41247E46247C4A24764B"
DATA "247347246E44247140246D3E24673F246141245C3D24583F24533E244E3D"
DATA "24493E24453C243F3B243B38243B3E24353E243739243236242C35242732"
DATA "242334242630242132241D35241937241F36242536242B36242F3A242B3C"
DATA "24253E24203F241A3F2415412410425B5C6B1B5E6F1B5C6B5B5D631B5E68"
DATA "1B5C641B5D635B6B5D1B6D611B68611B6B5D630457230457631857231D57"
DATA "2318582318575B4E641B4E64641042241643241143240D45240845240442"
DATA "24043D2403431C7E421C79421C74421C6F3F1C6A3C1C66381C63341C6030"
DATA "1C5C2E1C582C1C542A1C53241C561F1C5B1F1C5F211C641E1C66181C6B17"
DATA "1C701A1C71201C76231C72251C722A1C772E1C7B30240034240633240130"
DATA "1C7D2D1C7D28240024240523240B24241123240B2224042224031D1C7E1D"
DATA "1C7B191C7A141C75131C70131C6A111C65131C60131C60181C601D1C5C1B"
DATA "1C5A161C5D121C58111C540F1C510B1C4C081C48051C44031C3F021C3B00"
DATA "1B407D1B447B1B44761B42721B3C721B37731B31721B306C1B30661B3061"
DATA "1B345E1B385A1B395B5C46071C480B1C460F1C44131C40171C411C1C3A1D"
DATA "1C351A1C38161C3C141C3E101C390F1C380A1C3E0A1C39081C3E071C4407"
DATA "1C46075B395B1B3E5D1B425F1B46631B47691B4B6B1B4E701B53711B5871"
DATA "1B5C741B60721B636D1B676A1B6C681B6E641B71681B6F6C1B6A6E1B6773"
DATA "1B65771B6A761B6E711B746F1B776A1B79641B7D621B7D5D23015F230064"
DATA "23006923056A230B68230F6A230B68230A63230C5F23105C23145E23185C"
DATA "231D5B23215D232158231F52231E4D23184C23164D5B385A1B35551B3153"
DATA "1B2F4F1B2D4B1B2C461B28431B243F1B213B1B1F361B1D321B1B2E1B1D2A"
DATA "1B1D241B1C1E1B1A1A1B1C161B1D111B200D1B240A1B26061B28021B2C00"
DATA "1A2F7C1A337A1A377C1A3C7C1A417B1A477D1B4B001B51001A547C1A587A"
DATA "1A5D7A1A60761A5E711A5E6C1A5F661A62611A655D1A66581A68531A684D"
DATA "1A68471A65421A643D1A64381A65331A682E1A6A291A6A241A6B1F1A6D1B"
DATA "1A6F161A70155A71151A73101A740B1A74061A78031A7E05220405220807"
DATA "220D0922110D22151122171522191A22191F221E2122202522202A221F2F"
DATA "222233222437222839222C3D222D42222D47222D4C222A51222A5722285C"
DATA "222B61222D6622306A22326E223672223A76223E7A22417E234203234508"
DATA "23470D234712234310233F0E233A0E23340E233314232F19232B1C232920"
DATA "23262523242923242E232232232036231E3B231C3F23194423194923164D"
DATA "23104A230B4C23064D23014F1B7C511B784E1B78491B724A1B6D4D1B6951"
DATA "1B63521B61561B615C1B5D5E1B585E1B545C1B4F5D1B4A5C1B455A1B4058"
DATA "1B3B581B385A624349224144223F3F223B3D22363C22353622363122342D"
DATA "223427223621223B20223E25223F2B22413122433722433D224442224347"
DATA "224349732C78332C7333296F33286A33296F332E6E333270333771333274"
DATA "332D76332C7873296A33276633266133215D331D5A331859331356331856"
DATA "331D56331D54731C54332057332557332A59332B5F332C64332C6A332B6A"
DATA "732A6A33296A731654331B5433165473124E331253330D53330F4F33124E"
DATA "72415D323C5C32405A32455C32486032445D32415D722C64322866322368"
DATA "321E66321A6432196932156C321169321666321661321C6032215D322459"
DATA "322254322854322D51323055323655323A51323E4E32434E323F51323C55"
DATA "323A5932365C323361322D63322C64720E64320963320F62320E64721B5A"
DATA "321B5A72466332485F324663324663716E5E316E5E71715F317561317765"
DATA "317B67317C6C317F70317A7131776C317369316F67316B62316F6031715F"
DATA "79016F390174317D7639007A317E7E327B02327F0039017C39057A390A7A"
DATA "39057639047139016F6B572E2B532C2B51262B53212B571F2B591B2B5B15"
DATA "2B5A102B550D2B52092B4E0D2B4A102B46132B42102B410A2B44052B4800"
DATA "2A4C7B2A4C762A4E722A49732A46772A447C2B43012B40052B3F0B2B4011"
DATA "2B3F172B3D1B2B3B212B381D2B35212B34262B312A2B2F2E2B2D322B2930"
DATA "2B232F2B202A2B1C262B17222B141E2B101B2B11152B100F2B0E0A2B0B06"
DATA "2B070A2B050F2B03132B01182B001D237F23237E28237D2D23792B23752F"
DATA "237833237235236E38236A3A236439235F3923593B23563F23513E234B40"
DATA "23484423454823404823414323443F23463A234836234E3523523A235637"
DATA "235A35235C30235A2C235826235424234F20234B1D23471A234318233D16"
DATA "23381423331623321B233220233024232E28232A2C23293223253623233A"
DATA "232140231E45231A432319482318486A117F2B15012B13072B10032A117F"
DATA "5C71551C75581C785C1C745F1C6F5F1C6A5E1C645F1C675B1C6B581C7055"
DATA "1C715564015D24075E240B602405611C7F611C7A621C74611C785F1C7D5E"
DATA "24015D6401581C7F5C1C7C58240158643862243D63243863243862643F60"
DATA "244560244A62244563244062243F6064403F24453F24403F24403F645460"
DATA "245960245461245460645C62246262245D63245C62645862245C65245565"
DATA "244F63245562245862646663246C6424666524666364584424534724554B"
DATA "24594D245D4F246251246852246E53247255246E57246A54246454245F53"
DATA "245B5124565124514F24554C244F4B244B48244F46245344245844645D40"
DATA "245D406C2B642C2B646C34602C3A612C37652C31642C33602C34606C3E5C"
DATA "2C425E2C3E632C3A602C34602C385D2C3E5C6C2F5F2C2D632C2F5F2C2F5F"
DATA "6C415A2C475A2C4D5B2C495D2C445C2C415A74304C342C4E34304C743251"
DATA "342C52342754342153341D51342351342951342F51343251743E51344451"
DATA "343E52343853343C51343E517C0A443C10453C0A463C0A446A367D2A3A78"
DATA "2A3D742A40702A436C2A45682A47632A4A5F2A4E5B2A515F2A52642A4E69"
DATA "2A4C6D2A49712A45742A41772A3E7B2A387D2A367D6A50592A54572A5956"
DATA "2A5E542A63542A67522A64562A60592A5B592A565A2A51592A50596A6658"
DATA "2A66586A67542A67546A6B522A6B526A6D532A72522A6E542A6D536A7250"
DATA "2A764E2A72506A74532A79522A7D542A77542A74536A5A732A586F2A5B6A"
DATA "2A5D642A63642A68612A6C642A6D692A6F6E2A73702A6F722A6F772A727B"
DATA "2A707F2A6B7E2A677B2A63772A5F752A5B722A5A736A72622A735D2A7661"
DATA "2A78652A785F2A7D5F2A7C642A79682A7D6B2A78692A766D2A7B6E32006E"
DATA "3202722A7D6F2A79712A756E2A736A2A72652A72626B77262B76212B741D"
DATA "2B76192B7A172B7E152B7A182B7A1D2B7C212B7B262B77266B78162B7816"
DATA "6B740F2B710B2B6E072B720A2B740E2B740F6B7A112B7A0C2B7E0F2B7A11"
DATA "2B7A116B7E0E2B7B0A2B7F0E2B7E0E73000F2B7E0B33000F73000C33000C"
DATA "73001333020F33021433001373010F33010F73030A3300062B7B052B7F03"
DATA "32027F33040333050833030A6B793A2B76352B77302B79342B7A392B793A"
DATA "6B5C2A2B58272B5D262B5F2A2B5C2A7204542A7F50320452320854320454"
DATA "730A3F330A3F733416333416721D02321A0732170B32130D320E0D32080B"
DATA "32030A2A7F072A7B052A76052A70022A6B032A68072A6A032A6A082A6A0E"
DATA "2A67132A66182A67132A65172A641D2A65222A65282A6A2C2A6E2F2A7231"
DATA "2A78322A7B362A7D3C2A7F382A7F3D32033F320543320941320E3F320E44"
DATA "32114832154A320F4B32144B321A49321F49321E44321E3E32223A322638"
DATA "322C38322C3E322C43322C49322E4D32304932304332344032363C323736"
DATA "323A32323E30323F2B32432832452432492032491A324B1632491032480B"
DATA "32450732430331417D313C7A31387731347A312F78312A7931277D322501"
DATA "322305321F02322207321D03321D02"
DATA "z"
FUNCTION ConvChar$ (X$)
    REM SUBROUTINE TO CONVERT X1$ TWO CHARACTER HEX TO ONE CHAR X2$
    Q$ = LEFT$(X$, 1)
    Q1 = ASC(Q$) - 48
    IF Q1 >= 10 THEN Q1 = Q1 - 7
    Q$ = RIGHT$(X$, 1)
    Q2 = ASC(Q$) - 48
    IF Q2 >= 10 THEN Q2 = Q2 - 7
    Q1 = Q1 * 16 + Q2
    ConvChar$ = CHR$(Q1)
END FUNCTION