Re: PDS and Stub Files

 BBS: Inland Empire Archive
Date: 06-26-92 (09:22)             Number: 1488
From: ALLAN ZACHARY                Refer#: NONE
  To: ROMMIE BREWER                 Recvd: NO  
Subj: Re: PDS and Stub Files         Conf: (2) Quik_Bas

 -=> Quoting Zack Jones to Rommie Brewer <=-

 > Any chance you could post it on 387/403?  I'd appreciate a copy.
Here it is Rommie, maybe we can kill 2 birds with one stone, since
theres been at least 1 other request for this! :)
                                               -Allan
-----------------8<------------cut here----------------8<---------------
DEFINT A-Z  ' Created by BIN2QB.EXE freeware 6/92
CLS : PRINT "Creating STUBSCAN.LZH"
OPEN "STUBSCAN.LZH" 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 24BC2D6C68352DEA0200000106000075536E1420010B424337535455422E444F43
DATA 40654D000002DA6B97B1B714CB1F92ECFF9876A4EB8DB91496CB8564B2A5025905
DATA 64E00C3BB35FDC7A4D7BAD6EEBEEE878E3FFEBB675420106108C1304C2310CBEF6
DATA 91A4E77BFDC019B3E4DBBBE19A5EFD99C026C3D53E2EAEC980374BA25F1963002C
DATA 4D7621DC4215880D550A600DA816A6715338078A92E6BDB5403CDF0BB7F9854A58
DATA BE3347FF31C0F0D3AB46D8E97573F4770A42F8F0438425D99BEBF4CDF2AD49AC37
DATA ADA9E20917410A605AA1496D11DBAE641560825B48983D4E6D81BC4D1CA6257752
DATA 349608AC25D1F868889FA6FA5C28816F6FE51DED5A75FD80F80DB14EE98029E175
DATA A106C776E78B8F1D2301758A608745CF3053DCA5A9BAC1641105359D37AC4C11FF
DATA 46A250C236306A6500F06B807E68B2D58E50D3AFEDF86E903EEEED520219487968
DATA EEEF29A24D989BCC237DD039A06B17C816D8B7203C09256221587C50E5237C69D9
DATA 4FBE0E24C3C3A18D0A96D441FD26074B418D8013D16408C127CC774D896B483EF0
DATA B7DD6DAD740949F8B6E8AD9E8A857C8C08EF445E1AF6786ADDA75C6D2F3721D1EE
DATA 4DB9C16B9BC1C8B228C70D372479D7F8DA238B7ABF313AF28DED26DCF4071FABDF
DATA EEBFF8B81840A5287112FE9E0CA19FCB5784B9BBB6DF7A73670C92CC14A9F03F8E
DATA 24F57AD5C2B8138AC6D2AABA6F11CEDB2D89B7AD56F6112034B9750606E01C1F3E
DATA DBE43BAD262A135CBFB78A4351D066B064087C9A5F15B84B18C132FB5F1BC1BC5A
DATA 4987AB8315528AA5C0B6D94C6CEE50E89E5E90DDFCD4D7A3E256750BB0E74E8DC7
DATA 925FDFBA28E6179F678C4243F80B0C310B30DDC259FC85F72E0FFD5C17C047A5C7
DATA ECDCA031E42ED3B667EDB1132F778BD2E55A7CF6FA77483F7C1FFF8C3F14D27651
DATA 37AB8CF07DEA2E516BD9ED59F287E571327CE3DBE3B8FDBE77AFE8EB93AE6C4527
DATA 3D124F3E32C1182C1AF668BEF7B1B52CB9FBE97C28C9264C7D664F3C9361FEA38B
DATA EC69543D6571498F1D072B8649E6FF254BE92DB3D66F0C9D98715EDBC9475FFB36
DATA 5F2BB799ED1263C935EB3A31E2FF8041F617E01C5CEEDBFAE823612D6C68352DA1
DATA 000000F9000000E6646F1420010A434C535455422E424154321B4D0000009A5B9A
DATA C125617CFEDBDDFFF3BB0F25C1EE1948762842C8573D3E5A3529645DAF8E615AB5
DATA 30004124069357CDC15451FBF805565C0A85B374E49E667B45D7766F5B1E22C2CB
DATA 3260E2C64F6DFC852DAF073DD6E22099CA2BF32F01BECC083413B93D62A1B7F4F9
DATA 84A9F58E17FFFDC02C6787E397116C7BFC5A82B9FB4AA129BFA2CA0E9D8254A8D9
DATA EA489550861D30336A3B20455530146D648BA66420D5550BC025DD2D6C68352DCB
DATA 060000D616000070616F1420010C535455425343414E2E42415300884D00000511
DATA 73BBB5A6DEC971E2539FD4E1A00A40C04B6A55CB6AC423247FD63626335B92BC0C
DATA E07A51AA0D89B67F744B7C6FEF7DEF79B00B4948A297496ACB6DB25B9D92CB2DC0
DATA CAE4B71F7C27DDC3DEB1B6DB7B6F680028DE7AFF15EB565BABC566F0FBD6E0A95F
DATA BD53C35801EAAC55B95402F607E103F6F3C518492E6E60E78319830450F3E38304
DATA B2554122A7F3F8E49071B061D75C74391C79C062AF2BF0E1C668F6F691DD6DFC72
DATA 1BE60F18565C1E8F31FCAA57576B6E5B69E65BDD3F20A2C0CC304A0FC81288555A
DATA B5494DE6306690D86AA8458E365EDD49151C369CB9AB81ABBA406F5CB2D3429267
DATA E3FE98020BF69C6857FAFDFDF2592D35791CB75D65B782F3C3FF7250A5DFADBE15
DATA FC3E0A7B3AEC23AB87475AC0A7D6195F8E4349DCF5416E1FB8B1F7A1F47E4C2F8D
DATA 9B826872EB04DC2852EF20BF9F86BD31774B7DAB2FA392C1F93E75BDA19C05CF6B
DATA 9485852A5F516484BD081264BA0A166BAE0E4DE6509F76282194D184B103F82582
DATA 28432C716536318A10C189F8C790D1C8444FED81B2EB9E62402D5E75A65B471377
DATA 6F8BD360E85A7D7C44F43C82F765C5E8279B0BF90CB885ADBE0CDB65A6282586F6
DATA 3B566DA420984AC0F72B0DA2612EFA7231F6412A4112037ED59BCC50A48F74101E
DATA 364CA49432D897D3D3BE0B555A62FA806B20BB31313E1BC2182A22DF29521246DE
DATA D57AC34D0B4D3979843CF9CF16C65990CF0642B706726C4E1561214B4D52376EBC
DATA B1C49CBEF284EC109D754866E0C902C084FB471A0DDC23D62AEB368248B34780C8
DATA 9731A4E45CF34B7E714E3B2F204DF947B81A62DBD4293CCDC26A7DFA65D117D783
DATA 1C583D557A4E1B10459A82130054A97867BEA542A63A1069257E5364343287AF14
DATA 18310647FA26A048D4CFDC49289C224A3F04FE5F0FDFE3D702FEF9B945AC0D681E
DATA 061CB6340B4A5430D33F1A21A864E584BEBDCAFBE0ED05055A72FB67AEEABC7781
DATA 35E61041E66864AAE50A4ED0A61DBFA88DA360C818CCFE1821F484995FC0691447
DATA 6986CA3D47FE223A794E9323ABC41633CB7366FB2574D8228F0E841D32DFF820F1
DATA 66CB94AE607F729713A8C783E7460EF4325576AD456ED403A489C1B088EB173B08
DATA EA39AAA9A9F0DE29922A3C23DBC81DE4D0666ABAA461A72D0C87A2A1627EF02E98
DATA D9CF5C2410C646458259F6567264035D29894D5A7A042D4CED0F140332C325C3FF
DATA 39E59C6B3D313C5E455315185443859872E697B8CCA3175143C7F127E9C3751883
DATA 0D77AD266A0EE0260209A7FCFFB91CBD7F882DD5F34704A674D9652A056A2CAB10
DATA 5F79608043F32C293C5FE2DDBE9B2D52EB61B335ED1DBFB303FC58330DF18C4677
DATA 264EB1678C3FE4CFB9351CB00659F426C4D96C6B052952D6AE529D5DA603251492
DATA 368E0EA5BD39987BDD0880007FAB68E77F5D7D6B66EEB04B0BFE8B5EEF6AD69D0B
DATA 7DEB58807EEB5EDED4F54A5CF6F71EB43F23BB29BC3AB1D84E801D383D63138481
DATA 04354BF2E583226E079C554A68466CB147295442084E3C9150D388FE7453DC8597
DATA 59EF3699C33D4F92689A404346B48B4C248A506A114D24BAC44EE6350825C57588
DATA 1E2D75082629FA8427D81B409AB97DC27DAC58B194466F1D4C915DC8FFC7327DE4
DATA B2FEA641B034995EC637B02C5936C62BB029ABAF75B0FE90D531A984265CF55BE0
DATA 8478872F51BC43710730F89E2BA482118B98623ED6121D9B510E434A12E23082C6
DATA 98D52D3DCB59FE6CD063C27EBAAE717FE056A24517C51643A343C3180842BB34D3
DATA F869A5D95F998A28C4C542E9A2ED41C60E9CD9193F0F41D1C97A329E7FA7B423D9
DATA F237CE89DAC512302E2F42C2E5492570167E8141632D4517A8FBEFC707A714B922
DATA 9252DB7C078165D626418048EACAC154D5B449A5C678E74CCE5CCF91A9EA4A7061
DATA 26A2A468F51AA621E3291F38C9161B63CEF4FEA23E8019F14199973ACF272E965E
DATA 7532A2042992FB47F8DD3F56C12B2A02F5EBB55E79B22D0C46B95F4302CC81CB76
DATA D6D7D4E9B24D0AA76E8554C56BEA787F9304663426C21CDD13D4C98F3B1D24B1D2
DATA ABCA1F38CD8EB22236259C30F2B43D7C2B675633D6F26447D7063C655EEF5224EC
DATA 7DE5C5ACBA54A49E5F57FCACA83AB330BE7509674DFFE037AF4D851563A3D8D064
DATA 6E52D9874098D4932C5249073633CDC0D4C01FC38602CF05FC73FC53D27C2A8A14
DATA 4BB7D9F05851F6BFFF65DBC565E01DFCE7DB6EFDE12B02DB83FA7B87E9F8C30816
DATA 6BF196F0C4D20B64FE01F8021D61EBEEB7A3E0BF23A4DF262AE990061D68A6BEB6
DATA 9A1A21049FE02B862166716687094D99A38C7FD28B22D97A0945A472BF8E51F49B
DATA 7A0F6FC3573D120A6C90721F838113668F6E0ADAB0D54B9060E6CC449991B74BCC
DATA 8B34A39ECA9E67EA81A4B57E19637C769FC2954459D8D84496E4D65D522E5F33E4
DATA 51C7D04AF25545E68E53DCC7EABCF317277C6590A000
Done:
CLOSE #1: PRINT
IF ChkSum<> 248  THEN
  PRINT "DATA corrupt!  File deleted."
  KILL "STUBSCAN.LZH"
END IF: END
-----------------8<------------cut here----------------8<---------------




--- Blue Wave/QBBS v2.05 [NR]
 * Origin: Pretzel Logic BBS 512-497-4552- San Antonio, TX (1:387/401.0)