Login

Z!re · 05-27-2004, 11:10 PM

Code:
Microsoft (R) BASIC Compiler Version 7.10

Copyright (C) Microsoft Corporation 1982-1990. All rights reserved.

 0033   0006    FUNCTION GETDATA14$ ()

                                     ^ Formal parameter specification illegal

 0033   0006    GETDATA14$ = t$

                ^ Variable required

 0033   0006    END FUNCTION

                    ^ END SUB/FUNCTION without SUB/FUNCTION

 066F   000A    FUNCTION GETDATA15$ ()

                                     ^ Formal parameter specification illegal

 066F   000A    GETDATA15$ = t$

                ^ Variable required

 066F   000A    END FUNCTION

                    ^ END SUB/FUNCTION without SUB/FUNCTION

 0CAB   000A    FUNCTION GETDATA16$ ()

                                     ^ Formal parameter specification illegal

 11CC   000A    GETDATA16$ = t$

                ^ Variable required

 11CC   000A    END FUNCTION

                    ^ END SUB/FUNCTION without SUB/FUNCTION

At the end it just flips out, and gives errors like:
t$="893539472983475203475"
^ Type Mismatch

Which is just stupid.

So, what's the problem.

If needed I can upload the sourcecode somewhere, it can't be posted as it's kinnda huge.

Source works fine in the IDE (QB 7.1) but won't compile.

I'm compiling from the commandline, here:

Code:
..\..\bc /o /Ot /Fs /G2 /Fpi /E /X test.cnx;

..\..\bc /o /Ot /Fs /G2 /Fpi /E /X mod0000.bas;

..\..\bc /o /Ot /Fs /G2 /Fpi /E /X mod0001.bas;

..\..\bc /o /Ot /Fs /G2 /Fpi /E /X mod0002.bas;

..\..\bc /o /Ot /Fs /G2 /Fpi /E /X mod0003.bas;

..\..\bc /o /Ot /Fs /G2 /Fpi /E /X mod0004.bas;

..\..\bc /o /Ot /Fs /G2 /Fpi /E /X mod0005.bas;

..\..\bc /o /Ot /Fs /G2 /Fpi /E /X mod0006.bas;

..\..\bc /o /Ot /Fs /G2 /Fpi /E /X mod0007.bas;

..\..\bc /o /Ot /Fs /G2 /Fpi /E /X mod0008.bas;

..\..\bc /o /Ot /Fs /G2 /Fpi /E /X mod0009.bas;

..\..\link test.obj+(mod0000.obj)+(mod0001.obj)+(mod0002.obj)+(mod0003.obj)+(mod0004.obj)+(mod0005.obj)+(mod0006.obj)+(mod0007.obj)+(mod0008.obj)+(mod0009.obj),,nul,..\..\bcl71efr.lib;

(TEST.CNX is a BAS file, with a weird name, lol)

EDIT: Tested with smaller BAS file, here it is:

Code:
DEFINT A-Z

REM $DYNAMIC

'$INCLUDE: 'MODULES.BI'

EXTRACTFILE "Dummy.Exe"

DEFINT A-Z

REM $DYNAMIC

FUNCTION GETDATA00$ ()

t$ = "4DB4EC0B000100010020003408F0EF1F1B0100101C1AA34022000F00360600202000A800"

t$ = t$ + "15307EC2680964C78D2A57B26CE9F225CC983267D2AC69F326CE9C3A77F2ECE9F327D0A0"

t$ = t$ + "4287122D8AB3CA22763380A1D341C0CA223B061671F84720DA386236D42530B108C0222F"

t$ = t$ + "04121D084B60D08F7F750CAC00E6A5CB3048C70C905310E0C9A203A3D029C0E5C700236D"

t$ = t$ + "A3DC29980B87C0C345C246F939E0F700145C8723D78D7C100ABA7F1706114330C8C7E127"

t$ = t$ + "7544D933F037009D4DA5FF22A04369B50108741A01F271C9000239866ADFC66067403A3E"

t$ = t$ + "FF02F9806400908039C0E30CF721C900A400CAD399F917164128E364C32A08F59C2C6FDC"

t$ = t$ + "7630846500AA930115E41439F894BEDD8060EC431988BF0E417950B7D593C5D5F1ED30A4"

t$ = t$ + "EC70310080EECA005C420060066580B380B975013CC1C52D41E0C10A14333E6018F1BFC7"

t$ = t$ + "9127E3AA8CEB32BA1D9B3B7F0E5DA703AE2B011944071C0B208C8C0B062D4C00B3575634"

t$ = t$ + "600160E890009730661CE2416204C025B172E0822414771258C402781288C58068C08946"

t$ = t$ + "1A7F92A9031F29A0F8C706721220539C0440012701F5A000251C1E71F96346069274E018"

t$ = t$ + "23F8D9284F7A36C2C59619F12900425CB699D11D42956CC4087FA060D49E478DD047527A"

t$ = t$ + "24E5073321FCE14C81448CC027483F3A08C40F7EFE01C00F0BFEB1C39F55ED59559F55F9"

t$ = t$ + "F12F00CC6051548141FCC007803F78C1A5825AD1014551011671322E5A606826041E9213"

t$ = t$ + "A019107EE12480456C9068857B02F1070008E418C0976EF571E49A4088F187817DE680C0"

t$ = t$ + "820FD0B92780A530B38300269960761072FCB12111138008805F1378A8D698580898061C"

t$ = t$ + "246C1845870006B827916B0160649815BCB9671B5A9460D606463C8825000B0EE0E7171E"

t$ = t$ + "08C885A1159E596A1E55DA4D1180972519009D000498A11D32A571C806687876260074B0"

t$ = t$ + "70141D7100C0855A47B0C16500006C98CB8700001900B33D82EE27C153C7B4206A65991D"

t$ = t$ + "6596007001A0066613F1E0930018312094001CF860EC1274F104DA10DA5DC4012B0618C7"

t$ = t$ + "05470C00D92B1B5800A01803B01820B019B6B1E11F0FA818608E02DA4DA709800BE70271"

t$ = t$ + "6D76699A71C70768D76FC0F11E7C1C1B1C0966867F4C00A40700E8602197027D91248079"

t$ = t$ + "4CA163815CFEF96329795CA9238375CA31C083033E58E49E5F740980154C2261C51F2103"

t$ = t$ + "40421571EE69779784003965F95FC62682593914B0471840E828009047960762893CCEF1"

t$ = t$ + "058C017E891F1D5100805F7EFA150120C0A47C1183805F0202203AFA70BFF80990667400"

t$ = t$ + "C03A0620A0FFC94F0C3433C3FD22884074B0C140280B12EE7495903A14204F8801402E1E"

t$ = t$ + "00805D140000F638C4F25043005AF880594310873CD07100B018C185F70A01DEF4368E03"

t$ = t$ + "EC42228D7B9C078A6181B4C58D591FA80D373A428706780014DD084011BD11005A942089"

t$ = t$ + "C3D8C13DE6A08027E0A501E3785534D6210F2D72D10183780701165180051441007490C7"

t$ = t$ + "3F3AB00E770C030002C2C59EAA2680CF88A38988B100209934A334180B59B890483AB6E0"

t$ = t$ + "8F2C2C821B2BC086F876E0017204400E6C1CC73FC2B1947414C11F5698813D72B1201990"

t$ = t$ + "831FAC900138C4B10F40D0A30A4E44872B42D411CCB06049FF19C6230C608E00E8422238"

t$ = t$ + "B040D8E89082D005C0047E1BDCDAAC112F6064026580489DEF7EB78F231C21113EA04600"

t$ = t$ + "74F70FDFDD231A8B88C62F3AE28B4000C0111F631E0F4040877DF0200174B8070F1A4087"

t$ = t$ + "372840486B38821358C14E3AA0039E7420073DE9C0057CD2010B3C10011D48C0032ED061"

t$ = t$ + "004258073966908C20F4F3A1FA50281D083000324E6311C188463A26100D5404A00ECA58"

t$ = t$ + "4700F849D0151CF4041BD58543212A51A55814A374D0E8423B4AC66D8474A4253D691DA4"

t$ = t$ + "B18E4BB42B9B401BC0358E108D732C1510E2F0C70AC4B108628CC2678BC0C600F621327E"

t$ = t$ + "FD60084328860DB6C90A55E0B30EFA30A7D3D20932062E4515FD6CE73BE339CF06D40138"

t$ = t$ + "7442EB00D69107487C35AC2D6DE736027A0D828AE1A05ED8684C1F3A00554CB4A217A5E9"

t$ = t$ + "4EE960005870A165EB88C66547DAB2395856048F2D464BEBE98283AA60A3B7A0A963D771"

t$ = t$ + "53C96674A396C5EC63B3C1D97478D612B008ED3A9A01D7761DC38600509D2F055485B6C6"

t$ = t$ + "2B19215D443A16918F24586B700BB0071D20E00863ACCE072AA9ACEF8AF03B7D14E11240"

t$ = t$ + "20813F16D18F6894630045FCC0157E9100031502005F58C433CA3B007C24C2053B2B9E23"

t$ = t$ + "BC31CA248C630281E0C10E8670BE44F8010045288259D1AA0F71B423114E88D907BA702C"

t$ = t$ + "B808C80A5728DE22AC40005FA86100ADD88130A80B044BD0810197584A377D87BC75ACC3"

t$ = t$ + "125FF08285852111015D61550440C732FEB1410A486211FA58F143BE198D24001100B400"

t$ = t$ + "02B3E4EBA41A83051A0330C0BFE450831C18A061732841014A0885686023160398063A18"

t$ = t$ + "918D45A87305CB888F2386A1558D310B0B72800009E081048605A0128B70C1BF42F6AF36"

t$ = t$ + "1F231D91D8871C26B0140B0F630EF8C00C0600808543CFE100E870C0D11E9289439FB266"

t$ = t$ + "FC13852D02A00072D46104B509DB00E4D00085CEC1D4209043016EB58E0340820713B083"

t$ = t$ + "006031815DD4EC1A9818C52A02300C4510631DF710D020D841802B58C117FE08C00AFEB1"

t$ = t$ + "8E0A40C21E447810EEAC800E180C004240A043008E30086320200736B000E4CCB1886378"

t$ = t$ + "A1C9174E0AB111706C5F1840008C3280A7F851ED740400428BC087BCC744AF6A8701DBC4"

t$ = t$ + "98F7A7328C0E29F891186CFC14BA0F3D6C76B41B2A525104110E80094FE96311C66881B2"

t$ = t$ + "C33C0D7C2C02195A8A8F960A40374FE123DAD33640CAB5BD004030C1002060D23FD20181"

t$ = t$ + "00405BDA287DC7CBE10D083218E01D6D4904118C75DF52A59C017590AF3702B10E8E8B79"

t$ = t$ + "1F8B18065606800DACA8906E2835C2B6E05DD96D39400075489D1DF4818E703C004241AA"

t$ = t$ + "430BFE61007E0480EB6137805F08B00E02400217F2E81411C6C2462FE0E318479088008C"

t$ = t$ + "718000DC0712D5E6040020947204006F114C777A003A1EF5A98FA3EA573F44D6E9008545"

t$ = t$ + "F060057C6023DF819008BF7F5CF04818BA0016F00F3F4C00C71C85153A1AB100CE0C9C1F"

t$ = t$ + "EBD00024C2A20F152EAF9D0F502483DA0205284C011DF4C8556716C105022802878838C0"

t$ = t$ + "3A2E00097282E518922240BFCB0E05DB0B9CDE39281544D3E174E813403D0C4716241C2E"

t$ = t$ + "00A8E070E39417F3C7430E8E9183A3E402F0943FC62600CC708101F9164B228E40800D3E"

t$ = t$ + "00104FC04D58FC11F8C1539FF7620948021A80C2F943E91520033A604798C522CCC322F0"

t$ = t$ + "1D5938E046CC18B238DC53440562B81DDCF903BCD50102E4893FF841DD3100247C5DD891"

t$ = t$ + "000CEA1DD2419EE43DDD34581ED5599D186DDE4770545BAC430D645CFC751CFD899C48E1"

t$ = t$ + "9FC9E9C92234CAD0F55D58CC8A4710A0FE115DE1490DCCE5120090A0BAB103B1B95F07B9"

t$ = t$ + "CE16908A0174DD01A821D8D5811D84850128C211541C66F84303A49D9090C1141AC012CE"

t$ = t$ + "1FC83921C94561AB48053A2C01E3290903161E0088205878C154CC83D08D4501AE830A44"

t$ = t$ + "A00104C21F10800CD2411B6EA2DED50106D0A11DA2C328E4A1926CD09918220224A20088"

t$ = t$ + "61FF9061B11D1B0A32DBC41900090C80B3D48111381E0F369D0F0221E60921D615E1092C"

t$ = t$ + "0201AC0008EA49A86CC09870D4C495E21824C0EDED809E7822CF494B628020011C03D16D"

t$ = t$ + "84B9A9DF18E20219044D08E4032D4A4523188227F8C3286881C221C0282881C211C028F8"

t$ = t$ + "40371A00152444231A8014F06370080020F04009901F16448801745847B4C528E0D02808"

t$ = t$ + "813D42813DF2DD2838813D32813D02813D9ACC2820413E8201012C0420F04100C0401DF0"

t$ = t$ + "8011CC0548C2C002CDC040AE401D3440DBE1D05C60E446AC830840C24082404C7E060E01"

t$ = t$ + "401D5440DB61E43A3C40DB99CC3A24C040B6401D4443DB79A411280201600266D4C301E8"

t$ = t$ + "611DA08315E082F36186195C65C22D023C7C86F301401F30C05312402838DF3D60C32838"

t$ = t$ + "DF40BA00A8B59D451AC156761866F00058B2D158FA408799656124240174C43F3880454A"

t$ = t$ + "2526F48011B88E0CF48084D1410DF4001AB80E08F40006ADC55CF09D447C06DF0125FAF0"

t$ = t$ + "0013D4410018C14002E506A403220440660EE6028DC36A1EC43A6CC36AB6E23A4C036226"

t$ = t$ + "822170823FF44011B88E02F4C011B84E01F4001600E5991800440E426EFA03082CC272B6"

t$ = t$ + "C01800400F540000FC463A5080C300C324B8C03F9C823C34C099D1E3227C4028FC23590C"

t$ = t$ + "8201D0A300A4431ADC5CDB49E45C98CC9F28C08CFC01BE29493A44C1CDE1026DC20324B4"

t$ = t$ + "9D46B65D72FA80451AE75C60016BBA9A5C180E3FD2653E7658427026013C1E7020020030"

t$ = t$ + "E432F2C395391F1D9CC05A8E859E7C8647BA4E02CC45592E900440C220B880F315C08706"

t$ = t$ + "491F0800433A1F7AAAE789CCC8A9148A0ECCC833049C1F958AEB88808826041D54C014F2"

t$ = t$ + "430BA0D05B1A2030C4E88CD6DDAB99283FAE283DD60B8A840B84A4C30784C841A4C30BFC"

t$ = t$ + "43F1154D00A4830AFC03DE75C43ACCC37FDA826EA2432EAC6706FC8384BACE00649C132C"

t$ = t$ + "823F1C01EB0827EB94401DD483B9AD8031408107541B7CDC1EF29426F9F1413F7CC63F02"

t$ = t$ + "E52379003EDAC311C41C1D54C843AC4313784203E80203904203802AA8BA42A73200A99E"

t$ = t$ + "6A0390AA28308033300035986AAA360025C4AA2DC02AA93A421EFAC03EBACE0438AA0741"

t$ = t$ + "C0994D6AA5F2E42DD89D11AC432640C93F8A635C381C061C5B072980EC1980444A681C5D"

t$ = t$ + "A50FF01D04D4810584271B95C515E89F9E2482156C4A7A1240DDA9C06748A4EB4480B7E6"

t$ = t$ + "05BDC1E04D3A00EF7980781E4026D01BB99AAB7A7E867C3AD1912E40A39CCF14D69D8C02"

t$ = t$ + "C3288885B5C0E3BA7A90BAFA01B7F40109446B1D5C803110400B18C19172983FB4E52048"

t$ = t$ + "0300DC8336E86BB9E6093EA029087DCA46300A3AE85B8EE118ABC80A3ACC0035B2088112"

t$ = t$ + "69085C013A2440CD1A4BDE24233244183DAC430140C2C5C280C606431204C91FD483D0E2"

t$ = t$ + "0D442A4201208201268327F24018F0C10000020B808011E8691F9C4A1DA443C302250584"

t$ = t$ + "020E2D8001602407ED8A67FAC7021D2C66C802C2BD62BA35EBBAB1030440AB0CBA0E05F8"

t$ = t$ + "424784023D9E1C2378813ED42801AC6724305EB612C0B65EC0BB82ABB8DE97151CEEB9D6"

t$ = t$ + "DDB345AEBE7E4AE15A6EBF36EEB682E7A708AC3ED40105E00206F0153502691D24002E7C"

t$ = t$ + "C00010AEE14EE1C755AEA7C803B9D2C30AD843B859241D70000FD51DBD128317CC9111C8"

t$ = t$ + "C3EAFC80EB548011EC8033F80104AC433B40821110AFF1222F20286F1D78A00F38DF0A6C"

t$ = t$ + "8A0F8C681D1C80CE7AC07DBA1FACAC0A3EA0C31BDCE783842F91922F3A0CC0F932AB090A"

t$ = t$ + "2E886E8A0C9E416575D011D40101C0C2E109800A00032284E8CD02A501CC458719000000"

t$ = t$ + "02903AD167FC25660A2661DA0044924987E51899C0E3AAB48A050841C0290004EFC990F8"

t$ = t$ + "AB07B59E0D78B00510818FA2B0EB48C004A770070B1212BCF0B9BEA00188C546A0AD01AE"

t$ = t$ + "2D01D0C1047CF03F588012F8E8061500DCAE83DCA20302544B092685157CC6AED6C10B04"

t$ = t$ + "2B623C8100E081039CDF22DCC03F1C00D5AAC73A2C00244C418EA14325D803671000108C"

t$ = t$ + "6FDBED23D1FEA73F120080B05FDE0A00B4EAAA073D17BD48971F489450DA003E920948A2"

t$ = t$ + "4317B071C2BD710AEEA39D864AB74A6A166FF1368002482E425A88710190313750B10795"

GETDATA00$ = t$

END FUNCTION

DEFINT A-Z

REM $DYNAMIC

FUNCTION GETDATA01$ ()

t$ = "050E05401DDB6F1EA7A367F0315042C13A5405211300F1128009284229FE433DB43123C7"

t$ = t$ + "3162E0D0230B490760F13F68311E50C32BC772594832268731226C3239AC833478325082"

t$ = t$ + "F2138FF2DD3A9C02D0E20A2723306CEEE1FAC04A8AE295F9AE045C994656D69521680583"

t$ = t$ + "E4422C42F73E053A0C43B19CDC0AE0C30AC8E0900225062C651DF42A371380493240F360"

t$ = t$ + "46276C8A92FC8313E0C367AC24EEB45E63D4331D64C01956D63F4C0A3A7C01E3F23044EB"

t$ = t$ + "093AA801E38AAF09E8EC2708F48F12E9EAEA0350D24C0D54B448EBCA9EE0153AB48EFA16"

t$ = t$ + "2A3A4C8340BFEF883A914A862400E86C188034B3FA24912AF10A2C50822C04661C0048C7"

t$ = t$ + "052EB02466EC43A32AC96788C5E37E0644BACEDC15A7DDE11D1ECC483734B500E0AD2C1A"

t$ = t$ + "5BC42D70A374C440AA401D3CC0BBFE00E20AC0B122814EF200538A75AB4434B30D240CF0"

t$ = t$ + "410D0C640EFC010CE4C0CDD681CBF180492EB001AC240020E67C45433828F6003C036323"

t$ = t$ + "C320A4030C3417690A361F7CA6F885C31476EC3BE89B5924C20F641CB3E2B12CBA9F2F98"

t$ = t$ + "C0002882453231F52AAA02E840D2D9C3120F0024B4052C9236B1F91D0154927FACDAD824"

t$ = t$ + "8025DE8311B4A2F92081AED0271D68404589937F0841F82C81705F04503AC0001881014C"

t$ = t$ + "801520401EA0C0D858403EAC03BF942BBD31B70038770854F77567771E80A71390971560"

t$ = t$ + "A179AF033670D854380102409F02D08279AFDAF62C4F3FA44331C883C3E18758F0362639"

t$ = t$ + "060024403EA4C32BC8C3EF05403B2D802209C1724743F8ACC3839B8F1BD077F12CC5FED1"

t$ = t$ + "1B3FD022C6E1AE197C9C7D8F0315C08202F84E1D28013A508374A242751A373B180B37E8"

t$ = t$ + "8247F4000A24C700E802205C685551439089CC22D8773F492B03ECC03E3474F5D0033A8C"

t$ = t$ + "C00285012C348092B334A3A9828A4774EE8D033A34C0028903BAAD4315AC4311785227B4"

t$ = t$ + "C3F145C17CAD80328C03B08A8592854F4334CA061940166C81A3E9C330700602CC810B01"

t$ = t$ + "B7073C78CBC961F66A005EE1C33A30403E8C0D07ACC35434CA0A486189A35B3A44433C14"

t$ = t$ + "39022CC09714404801F8A55B8101C47908F8392D003739A81D38083A1D6C883614FAA1AF"

t$ = t$ + "C3332C3A00347A326441285CD20E10C367AD0031B425272DC53AE8838098C5026C034725"

t$ = t$ + "A0B2359C145FC12EB000B6696F0A140F2EA0103ACC014A15C05264C23A908078B9A3B38F"

t$ = t$ + "820B0C80251C036B7A5B3712813FB44AC4C8409D5A242360832330857BC9D8A1A5833300"

t$ = t$ + "4010E8142084C3A6E4833BCC813C2CC21D08003FB4029E9E141D080112EC4030CC819146"

t$ = t$ + "193CB402C2D3C0000843014804F20C9D3FAC43B9F9038A0D403E2402134C5530A85E0110"

t$ = t$ + "2DC8FBC3C8675C60304234EC40349C8F09788C0EC4EE1F74B50918C3940D8000F440ABD0"

t$ = t$ + "4109E0E900443CC207BC3F2C7CC3F7C22240BCC4A3863854FCC58305C4A03BC72FC21164"

t$ = t$ + "BA901080D2AC030598803F3800100C001D44C0BB33C235ECC031C87C3AD9409DDEC03AF0"

t$ = t$ + "82C01BC052643400EC8031381109040010000126A08317B84E03F84313F8033A7080705A"

t$ = t$ + "82133801B296FDCB0703479900C3D4E9016861B60F839A8312C20FC00A204312044110E8"

t$ = t$ + "C2EE98C00E58000F0C00BD44833AFC69480D8031C84105547CA9DD83348C8030082A3A14"

t$ = t$ + "880BCA3EEAD741392C45160C831444013A7480EB3C2B9E8AE500C88337A6FB3F24C21D4C"

t$ = t$ + "8535ACC03528412254813F60411668C1304C0114CC80347880148809DC428101B84B09F1"

t$ = t$ + "F920C4CA0768C116D001EB49031E61D8153C881FB4621DE0C02FFC0B7D172C128C2F3A4C"

t$ = t$ + "8140009073621D9280A6421200127444B0C33D662E82A0A60CF0A803005ECC0143A4042C"

t$ = t$ + "1A903CBBB40069B0095FFFC8C43A3AB0086D0C62180F88C636B8B80E5A206183E9904422"

t$ = t$ + "B242859BD8409EDA390094A8982A06E42A074C980903086A5090C8231FEBF8414407C001"

t$ = t$ + "39E46011D3704430EEC9A61C78C03C7330C1442BBA0D9429751D404DC000B2110A76AD00"

t$ = t$ + "1B8E0046BC36D800A066C502E691C421B4120DF8B16311D71056551791A7DC1D8E85D148"

t$ = t$ + "422478A52400C4EF0AB300403A201080D9018F8701E8430406B10F00F08101EA0CD33605"

t$ = t$ + "A01D2ACA957657F080A414600C23D0A31998448411EAC18312D041013C308198226B8F65"

t$ = t$ + "AC830191C5C732227B0F228096088CB0823C88450F4DC103AD7629C022BA80932668A50A"

t$ = t$ + "7671D33FEA70193F28C011057044170CF0852AFCC30BF0E8023F1A7B1BB42A8011057844"

t$ = t$ + "11ECE2070424A20089C06D22749B08DE26C24DD655801C08C01DA1A1C309EEF0054616C1"

t$ = t$ + "DD3ABC94180AF8C04933782B4F6A454FBE491502C6D1835B0461165AB005081441024514"

t$ = t$ + "4001E4A0030882C801231C4107E790830174308E3B084000E6D0C1312CAC8361685800C6"

t$ = t$ + "D00138DC240E6C6CC7C4744840BED829802424E11ED170952823E284CB34C88A683D8C6F"

t$ = t$ + "F8318920C6261F0AA88303129A0705C0A205AAB8C73606210D00DC431BB992C40CA4A13F"

t$ = t$ + "01DC231E93D8B257A7410018F02007761000014EA08A572D6018751007220AF0045618A2"

t$ = t$ + "008820C23F1A418400ECE0C3F2C0C27DE34ABA264C010452A8831B5A408534B4A10C2060"

t$ = t$ + "421AC4208730C8210F2068010886F00638E4410E6938031A1C8C8231A4000431C8010E70"

t$ = t$ + "C0021034210D6390C31BE6F006333818D37280430400A0002B14610A4168741AE6E0E02A"

t$ = t$ + "D0210D6C48031D922C195DF31A00CA0E02AE9B0D023270DA0E65900308DCF00607A7C10D"

t$ = t$ + "C00E031BD8500632B8E000C9DE75AFA92D8739A4E10D6E004109C4FD6E1DB8DB08738876"

t$ = t$ + "19E8508631E05BDCEE66031940B00410C41A0476480319CAF0064207A1092E904CAECB30"

t$ = t$ + "8730A8FA0D074F801420FE0636D461D8EC4E80108C5D6F38541B045048031ECA702505B4"

t$ = t$ + "60E52C6779025A0EF316BC3CE634974C09704086049480067500011EDCDD029EEB1CE792"

t$ = t$ + "A1F9CA676E74A41B9DE59ABB844F00402DD9497D74FCD9C110BE60842430A1085F488213"

t$ = t$ + "8CF004D751000081287B0030823A6C04805A43009D032067810D63A001096080DD0F8000"

t$ = t$ + "0B58E01F1268800404B0370070632F823F00DA33D712CD6D587384783AE6CC3CF5C84B3E"

t$ = t$ + "756877DCE42F8F79CD5942002870431DBE9D020074FEF36C08FD0A2C3D82D31107721F6A"

t$ = t$ + "3D015C8F3A381C80073C7082A08FE0031F0C440A368081EF1BA07210747B0C6B1038BACD"

t$ = t$ + "C08637DC01F800F009EF7D3F03E05B7ADBF83EC3C8C99086821F1C0462A0340C98CF98E7"

t$ = t$ + "C32007D2BF76B64150066CD7C1D3C2874318C6C06833BCC1DAE92FB8ABDDB06837984932"

t$ = t$ + "6D63FEDEE460E8160C7BD1E89783ABAD4D1000885F06E547FE1BC2306C379C0104707803"

t$ = t$ + "F5CDEFE0E487E1E064603E46C41F83F27BFEDB01A1400BD4BF910B833950B733C0BFF4DB"

t$ = t$ + "3F00389C7F00080000"

GETDATA01$ = t$

END FUNCTION

DEFINT A-Z

REM $DYNAMIC

SUB EXTRACTFILE (target AS STRING)

fil=FREEFILE

OPEN "#__T3@MP.__Z" FOR OUTPUT AS #fil

tt$=GETDATA00$

ft$=""

FOR b=1 TO LEN(tt$) STEP 2

 ft$=ft$+CHR$(VAL("&H"+MID$(tt$,b,2)))

NEXT

PRINT #fil, ft$;

tt$=GETDATA01$

ft$=""

FOR b=1 TO LEN(tt$) STEP 2

 ft$=ft$+CHR$(VAL("&H"+MID$(tt$,b,2)))

NEXT

PRINT #fil, ft$;

CLOSE #fil

INFLATE "#__T3@MP.__Z", target

KILL "#__T3@MP.__Z"

END SUB

DEFINT A-Z

REM $DYNAMIC

SUB INFLATE(LZWfile$, Expandedfile$)

True = -1

False = 0

DIM Prefix(4096), Suffix(4096), Used(4096)

DIM Outcode(4096), Powers(7), LongPowers(12) AS LONG

DIM Masks(12)

DIM OSeg AS LONG, ISeg AS LONG

FOR a = 0 TO 7

 Powers(a) = 2 ^ a

NEXT

FOR a = 0 TO 12

 LongPowers(a) = 2 ^ a

NEXT

FOR a = 1 TO 12

 Masks(a) = (2 ^ a) - 1

NEXT

InBuffer$ = STRING$(5000, 0)

OutBuffer$ = STRING$(5000, 0)

a& = SADD(OutBuffer$) - 65536 * (a& < 0)

OSeg = SSEG(OutBuffer$)

OSeg = OSeg + (a& \ 16)

OAddress = (a& MOD 16)

OEndAddress = OAddress + 5000

OStartAddress = OAddress

BytesIn& = 0

ff1 = FREEFILE

OPEN LZWfile$ FOR BINARY AS #ff1

ff2 = FREEFILE

OPEN Expandedfile$ FOR OUTPUT AS #ff2

FreeCode = 259

StartCode = 259

codesize = 9

GOSUB GetCodeD

CurCode = Code

OldCode = Code

FinChar = Code

IF OAddress = OEndAddress THEN

 PRINT #ff2, OutBuffer$;

 OAddress = OStartAddress

END IF

DEF SEG = OSeg

POKE OAddress, FinChar

OAddress = OAddress + 1

FileLength& = LOF(ff1)

DO

 GOSUB GetCodeD

 SELECT CASE Code

  CASE 256

   OutBuffer$ = LEFT$(OutBuffer$, OAddress - OStartAddress)

   PRINT #ff2, OutBuffer$;

   CLOSE #ff1, #ff2

   EXIT SUB

  CASE 257

   codesize = codesize + 1

  CASE 258

   REDIM P(4095), s(4095), U(4095) AS LONG, Pn(4095), c(4095)

   REDIM location(4095)

   Num.Entries = 0

   FOR a = StartCode TO 4095

    IF Used(a) > 0 THEN

     Used(a) = 0

     P = Prefix(a)

     s = Suffix(a)

     P(Num.Entries) = P

     s(Num.Entries) = s

     U(Num.Entries) = P * 4096& + s

     c(a) = Num.Entries

     Num.Entries = Num.Entries + 1

    END IF

   NEXT

   Num.Entries = Num.Entries - 1

   FOR a = 0 TO Num.Entries

    Pn(a) = a

   NEXT

   mid = Num.Entries \ 2

   DO

    FOR a = 0 TO Num.Entries - mid

     IF U(Pn(a)) > U(Pn(a + mid)) THEN

      SWAP Pn(a), Pn(a + mid)

      Swap.Flag = True

      CompareLow = a - mid: CompareHigh = a

      DO WHILE CompareLow >= 0

       IF U(Pn(CompareLow)) > U(Pn(CompareHigh)) THEN

        SWAP Pn(CompareLow), Pn(CompareHigh)

        CompareHigh = CompareLow

        CompareLow = CompareLow - mid

       ELSE

        EXIT DO

       END IF

      LOOP

     END IF

    NEXT

    mid = mid \ 2

   LOOP WHILE mid > 0

   FOR a = 0 TO Num.Entries

    location(Pn(a)) = a

   NEXT

   FOR A1 = 0 TO Num.Entries

    a = Pn(A1)

    P = P(a)

    s = s(a)

    IF P >= StartCode THEN P = StartCode + location(c(P))

    IF s >= StartCode THEN s = StartCode + location(c(s))

    Prefix(A1 + StartCode) = P

    Suffix(A1 + StartCode) = s

   NEXT

   IF OldCode >= StartCode THEN OldCode = StartCode + location(c(OldCode))

   New.Entries = Num.Entries + 1

   FreeCode = New.Entries + StartCode: codesize = 9

   IF FreeCode > 4096 THEN

    FreeCode = StartCode

    GOSUB GetCodeD

    CurCode = Code

    OldCode = Code

    FinChar = Code

    IF OAddress = OEndAddress THEN

     PRINT #ff2, OutBuffer$;

     OAddress = OStartAddress

    END IF

    DEF SEG = OSeg

    POKE OAddress, FinChar

    OAddress = OAddress + 1

   ELSE

    Ignore.Next = True

   END IF

  CASE ELSE

   CurCode = Code

   InCode = Code

   IF Code >= FreeCode THEN

    IF Code > FreeCode THEN

     CLOSE #ff1, #ff2: EXIT SUB

    END IF

    Used(Code) = Used(Code) + 1

    CurCode = OldCode

    Outcode(OutCount) = FinChar

    OutCount = OutCount + 1

   END IF

   IF CurCode >= StartCode THEN

    DO

     Used(CurCode) = Used(CurCode) + 1

     Outcode(OutCount) = Suffix(CurCode)

     OutCount = OutCount + 1

     CurCode = Prefix(CurCode)

    LOOP UNTIL CurCode <= 255

   END IF

   FinChar = CurCode

   Outcode(OutCount) = FinChar

   FOR a = OutCount TO 0 STEP -1

    IF OAddress = OEndAddress THEN

     PRINT #2, OutBuffer$;

     OAddress = OStartAddress

    END IF

    DEF SEG = OSeg

    POKE OAddress, Outcode(a)

    OAddress = OAddress + 1

   NEXT

   OutCount = 0

   IF Ignore.Next THEN

    Ignore.Next = False

   ELSE

    Prefix(FreeCode) = OldCode

    Suffix(FreeCode) = FinChar

    FreeCode = FreeCode + 1

   END IF

   OldCode = InCode

  END SELECT

LOOP

CLOSE #ff1, #ff2

EXIT SUB

GetCodeD:

IF BitsLeft = 0 THEN

 IF IAddress = IEndAddress THEN

  GET #ff1, , InBuffer$

  a& = SADD(InBuffer$)

  a& = a& - 65536 * (a& < 0)

  ISeg = SSEG(InBuffer$) + (a& \ 16)

  IAddress = (a& MOD 16)

  IEndAddress = IAddress + 5000

 END IF

 DEF SEG = ISeg

 TempChar = PEEK(IAddress)

 BytesIn& = BytesIn& + 1

 IAddress = IAddress + 1

 BitsLeft = 8

END IF

WorkCode& = TempChar \ Powers(8 - BitsLeft)

DO WHILE codesize > BitsLeft

 IF IAddress = IEndAddress THEN

  GET #ff1, , InBuffer$

  a& = SADD(InBuffer$) - 65536 * (a& < 0)

  ISeg = SSEG(InBuffer$) + (a& \ 16)

  IAddress = (a& MOD 16)

  IEndAddress = IAddress + 5000

 END IF

 DEF SEG = ISeg

 TempChar = PEEK(IAddress)

 BytesIn& = BytesIn& + 1

 IAddress = IAddress + 1

 WorkCode& = WorkCode& OR TempChar * LongPowers(BitsLeft)

 BitsLeft = BitsLeft + 8

LOOP

BitsLeft = BitsLeft - codesize

Code = WorkCode& AND Masks(codesize)

RETURN

END SUB

EDIT 2: MODULES.BI just holds the DECLARE [...] statements

Z!re · 05-27-2004, 11:32 PM

Found the problem and fixed it.

Code was written in notepad, with () present.

I opened it in QB, and QB IDE doesent show the ()!!!

So, I tried to compile, and as I couldn't see the () I was like, WTF?!

All solved now. =)

Login
Username:
Password:	Lost Password?
	Remember me