BBS: Inland Empire Archive Date: 06-28-92 (14:29) Number: 1567 From: MARK BUTLER Refer#: NONE To: RAY CARSON Recvd: NO Subj: Tag_Revs 1/4 Conf: (2) Quik_Bas
On 06-27-92 RAY CARSON wrote to MARK BUTLER... RC> I allways like to see other peoples' work. Send away, but how are RC> you going to send it? I don't use FREQ. I'll send it right here, right now! <grin> You wanted to see how I got TagMenu to use C. Gemmel's windowing routines (QBNWS204). So... here it is. TagDir7 is PDS specific because of it's usage of the DIR$ finction (not included in QB45). I didn't know if you had PDS or not so I included TagMenu2 as well which can be run under either. Four OBJs are included in TAG_REVS.ARJ... DISPLAY7.OBJ <-----------PDS7 only----\ DISPLAY.OBJ <-----------QB45 only > By C. Gemmel as donated WINDOWER.OBJ <-----------QB45/PDS7----/ and seen in QBNWS204 WSNDS.OBJ <-----------QB45/PDS7----> Window 'sounds' by *me* You will need to make the appropriate LIB/QLB from the above OBJs to run the code in the environment or just link them up and run them. Just gather up the following messages, combine `em and run it to recreate TAG_REVS.ARJ --------------------------8< CUT HERE 8<---------------------------- DEFINT A-Z ' Created by BIN2QB.EXE freeware 6/92 CLS : PRINT "Creating TAG_REVS.ARJ" OPEN "TAG_REVS.ARJ" FOR BINARY AS #1 ON ERROR GOTO Done DO READ Lyne$:LynLen=LEN(Lyne$):PRINT "."; FOR j = 1 TO LynLen STEP 2 Char$="&H"+MID$(Lyne$,j,2):Ascii=VAL(Char$) ChkSum = (ChkSum + Ascii) * 2 ChkSum = (ChkSum \ 256) + (ChkSum MOD 256) Char$=CHR$(Ascii) PUT #1, , Char$:NEXT j:LOOP DATA 60EA2C001E040100100002DBDB71DC180000000000000000000000000000000000 DATA 005441475F524556532E41524A000093E568A2000060EA2B001E040100100100DB DATA 916CDC18460A0000F22C0000BCEC896C000020000000544147444952372E424153 DATA 0000CE96D23B00000751747BD626E3FF2799917FF4E6F008F75C01B8DCE6E47983 DATA D346F6C203601675E9D2666B0F40D90374BBBA47CFE1154D535F8017E097FEF7BD DATA EDDDD0001B1BB5BE724E93AF4CEB65A93AA1A92A1A8ED45732A1A83B17D4D51D41 DATA 7E17DCBF03EA5E7DF7B591B6DBBD27B5FC39D9EC1B7615E7EF5062AEAEECFACA03 DATA 20E93D2D3CD38D839E60AECDBF091BC01C5C81559E4059975E1C88F77551AD7819 DATA 6ED071B4DDA738C1CBE46CDDF66EB8F101E7303769E0806E09DE085BC2CBBE80DF DATA 0DDC0FDD23A1F87036409BF1FC7383D85A788C2A69BB60EB981F69B23C5072D71D DATA 69E7F9037897AF12E832F03C423618F76D361C3BB4FC55A74CD70945EA271BC1E9 DATA 72EE0BC40F8A7280D3CF601E90D70961A06E6376B14D7847CCBA42864526ECEAD2 DATA 637433167C142B06CEACD14C5F93034E92D0799C741FB8D08F08EC09CCCA3720DF DATA ED5C1417A2C53AE13D5F9440FA4C535A958A0BED0492AA82597B5789A925D22D4A DATA 7D55C28D8A6B5762A530F01391672D134C254BCF9BBC47E8B5748B09FAF8E8BCC3 DATA D6F5F259D28B575AC6E80E8EED069D9EEBA2C7328BB1A6CDE23DA52A5A8106CD40 DATA B260363DDA59DE558BF55CE3D350293EB3974BF6E1FBE8DBA6E3B787A3753D146D DATA EFB575A7CD849E9A36C4103F7E02107E7C2CFCEC3E4BCF0F570BFC958974965F25 DATA A1ED2E298961D6DB1C12F5566ED64252811EF45772F9D0A31E10ADBE3934022364 DATA A6B4067F67B003C3FCAD4AB1FA203E03BE122CED7CD69C7BE6ED6AF6A41F370A32 DATA F52313EC4480122525BD8DDA9629D08935CB97190B4AA2D3EBAE0A0FF4C3E0A0D2 DATA 3F656A4BAFC013525C9500894AACD0092681295A9DB27185F65D10E3E2F5D705D7 DATA F88AEBECDAB42D9AFB8957125E380E2E18070EEAE8BD36A884C80AB8EDA23AA95B DATA EAFB2F3C207834BCE05E311B3375E702CDC65BB671C3366CB979CB4CBE4071FB82 DATA 20B22D800C0945E926802BF7197C414DBEF2216CA03D7192BED91FB2175CB2CBE6 DATA 86BA09469BE80308C4A6082BB81A1ABB46E0A7D9931C28505307138E5D232DED84 DATA C14F6DB8889DE800F5F055C77D317A71B4AD581C10733331721AB67D2A495932BB DATA 8A06B0C44A68FDCC50364DFE1E8D7F63AAE26BFCCEB5CCCE8B54A552A9845B50B9 DATA A3144C2B12C676C857DF5E9870552C3564587851A4FE271D118C8DA05E9D03EC0F DATA 9D4ABD563C3A52AB57ABA52A326A5CBDB0900D14B4190E9F136A445B943C609105 DATA 3669E0BC51D4D0AF5213B2152024E24DB4EB6598A4C4ACD05897441F148DB80322 DATA 4577F7246145B001A10089B22283F7D35FE4414263BFB3D88E1375ABCFAEC2C95D DATA 4FBE58338A00629EF694A9D3260AB891F96420313DF7DD29B25FB6B8B03E4D3942 DATA 9E26A3368B2F3FC0EB4DBE13542FF8C0D50FB4C41F9028ECA50090E923BF747EF0 DATA 96A7C310B6193361932974C787C4419329F822F863062CC9621019AAE965039572 DATA B4665A877F0A778804D69A4071A8688F7F74C7D0C61497A72B191A50E4C3B6E19F DATA 7D76DEC03427A740580D7A59BAD5AD5849C864DA6DDE6E4961F9231B271F46D17A DATA 5597E7DF4D0D1BF11B8C459C3A18391B110342A078B7D8A4BC0684B0DC4C96B984 DATA D1766A15FD13A4A552A7040DA70374E24911EF4E9E129C70A7D828BB8D95285484 DATA 57E02B59B14FC0BFE3D24CC5AA70058A75D8A45CBEF6E19B40DA9482BBE0B7E262 DATA 50E66A02DBE2ADA6166AF9081FF945BAD529D6AE0BB6325532DED650177ACB37D1 DATA 1455065522F382491733BBAFAD393B2A0DC18E358EF746061466CC3697675E6775 DATA 3A5A338D85DCD6D82E8358FD9B1376140DF72F10E149BB3B1090F685259C273A70 DATA C8EAB5F66C93759313651DA28A015B47324D43BA244063BD6B8CBA556E64FD3762 DATA 5C12CCA446EDBF70CE03F08DB709730AD6C7489045CE5E18EC8E977231299E7F08 DATA D7874E180740378E5979178E1A62A70CD566C72B3ADC13D65F4A577664BDBCBA89 DATA D1EA241534152C00C930C85677725A7A75CD2E1FCC5617EDD82A530F1D6BFE4F1A DATA 7533764B9FF9FF4790DA109F76E878E8CE1ED58687A74B86F0E06B0E04FB36497D DATA F1EC9B33C9236D33A4B154D41E99B8815498148D8A76E885F7692C6C533830EAD0 DATA 61D58F175234A3A81AC7D178AD1D301754A980D004F7EDDC3403CA3154C46C1959 DATA E5A791402170EEBB68EE348666B968CDE9AE7EEF95C72F25A14F8234B8831E68AB DATA 1594FBB8092CB4FFB69BBDF8C65EC04F9EFDD2D4F6E36354B16A1D7ACBA3591C20 DATA 5E369FB837B39A99A8242460B99978D4BEF05CE321115CBF0397EC5F29CCA15032 DATA 873F943A2044E414399CA1CC650E5F1A12847F05F442576909ECEFBA757C86A92D DATA DF4DC2A4BE96BF8DD87345890D68787920390E6A1B007FB5031BBE8E0A1C062612 DATA 5799E9CBAB101EDC217117306631C35B96F542C6616B84B3E83C49B0EC13AFC528 DATA E151E8CB85B38EA717F918AF84EA890441D50B7E43259833373242373A8FCC9752 DATA A2F248AF0C0933A6FFE89AF3CD3CF5CD266590E4565E92EB5716CFACB9B490E49B DATA 08B2578652BCFC923A51B5791A6C542CF339AB835820EDBBCAAA97942F8A0CBE22 DATA 689DBE0286E60171E35DC58F68D5E33E26A8F8A45E7C6EACF4104F3EDC34532786 DATA 60F2B3020ADA957B6690496E422DD0C41BCC4836C00C02B8880CE5B71E33AA41C8 DATA E906F10A907C423C8165918280EEE40C00C727E8DF0ED3895655B45F128376DE3C >>> continued to next message ... OFFLINE 1.39 * A bird in the bush can't make a mess in your hand .................. --- WM v2.03/91-0012 * Origin: Com-Dat BBS Hillsboro, OR. HST (503) 681-0543 (1:105/314)
Books at Amazon:
Back to BASIC: The History, Corruption, and Future of the Language
Hackers: Heroes of the Computer Revolution (including Tiny BASIC)
Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution
The Advent of the Algorithm: The Idea that Rules the World
Moths in the Machine: The Power and Perils of Programming
Mastering Visual Basic .NET