movbytes 2/2

 BBS: Inland Empire Archive
Date: 06-24-92 (15:54)             Number: 1301
From: MARK BUTLER                  Refer#: NONE
  To: BRYAN HOOVER                  Recvd: NO  
Subj: movbytes     2/2               Conf: (2) Quik_Bas

 On 06-22-92 BRYAN HOOVER wrote to MARK BUTLER...

 MB> Awhile ago I sent you a linkable routine (movbytes.obj) that would
 MB> copy 80x25 screens to arrays rather than another video page --

 And here it is again, just run this code to reconstruct "demo.arj"....

 --------------------------8< CUT HERE  8<----------------------------
 DEFINT A-Z  ' Created by BIN2QB.EXE freeware 6/92
 CLS : PRINT "Creating DEMO.ARJ"
 OPEN "DEMO.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 60EA28001E040100100002A3A379D8180000000000000000000000000000000000
 DATA 0044454D4F2E41524A00007C45AF35000060EA2C001E040100100100A38679D818

 DATA 1E05000075100000D1A9E8C10000200000005341564544454D4F2E424153000025
 DATA 99967D000004146B9AEEAD36ECFCC54AF7FFB15B604A4280050CA2B921B1960ABA
 DATA 040764BB7044981E247A03F4CDB02CCAFC6FFDEF7BCC0242D8AC9A2A96E0DAE5B5
 DATA B6F06E08B75EE0BF03336F769234DC959AAF62CB85576FF1EEF72B34CB756E3457
 DATA 7D2C15681DCD78FEB293E9E580F9A593715F3E21F474D5B88AB2BA32370D0C576F
 DATA C0F9491F32656BBDBAEE537C2F7D07CAC7344684A4E57B0426E2F04B2140F8708A
 DATA 180F0AAC450558BF7918BF0041EC968F70ABDD1683DEC163B5B5B44E71BD090FEC
 DATA 4F3FC86C04F3E58603E32C67CA9474C3DEFC89D7F0163C90C4578C5CB01A133F11
 DATA 613C0510CDAD0D80D8CE511CB31E0E498563094191F7DE7F8938342562E3316F30
 DATA 467F2BD01DFC61052CB1BBC86274B79B61685E95D627860A13CC99315825E217E6
 DATA EC06496B7D82F123E7F071ABBB9EDC059F3F8F79383983192D5442C25CB607CD1A
 DATA 5B85276C812B798F50AE4F612B75AED395CE855D40417CB11DD0C92205106CE929
 DATA CCCE28E8CDAFDBCC78DBCE022BB577DAACD7A2D4C62ADDD794AD63D048817AB268
 DATA CD9B3654B4D46355467554ADAAA34AA8A7E3C39FDCF5387FBA9A20DBD9D107BFD5
 DATA 45C3297018B33D8B113E610C419C607832C85E3A605A11007040EF3424B6A50BDF
 DATA A188F8443B1549BEB9F4948388DEB88A1BF018385DBFBC90632541388C316798C5
 DATA 902282031A111089598F1D7CEFC41CE08AB5366FF7DA33455DE8048609750B4D90
 DATA 568B8C4FF08C8BD91FBFC681CA457D59AE2760BCEF10388CB1F29A051C122698A9
 DATA 8B4B28F7E684BE1F24022B1EE279F771465C434E1A4A96C3E77F6CBAC61B780690
 DATA B064BF13D94DB0434C01A2986F9F135F6B26EEF7243369BB570A9CB29C8A8D88DD
 DATA 915C583C5E529C4E5A29D4058A6C832FF2950A09B4A7E445AC8B7711ABD33BB73B
 DATA F26FF1CADC459D96BD4E0C50A49A2F7D9E4590EDB32E26D2D1213E336763EB88EE
 DATA BCD2DBE8866569CA646A238C3D0D70E65D39A0973BE98E143CF5C7D99D0C2A2790
 DATA BE304499017C072E8CD769AD1F88B651B259B4C361631AD841CDA34C7AF62E5D71
 DATA 40C0D9B3ED2EAD21254685433066033B1291775A66D59AC5CA88D15C7B677FB3A9
 DATA 4B2A22AC7B990AD3E6CB4DB52A5F20AAD41D416614169175B69AB653E349690F39
 DATA BB62E7EA1D009A1A43822AA780C4EFB80726FC838A4F7506D9FDC375ED7A6E39BB
 DATA F06753F48767219BCD533FA3F30F2D43D41FADFC07EC57EC0F002D3D41D9E1A5D0
 DATA 0210D129D2FA437D7EC0E35D21CFB4F662345B3096C1A07611A842762B44C55EE6
 DATA 8FEBAF343879C4357713D099A646CB78232C24845D8B5ED1824DEB779AEE24676B
 DATA 33F3EDFCAE269A9F6276FED4DD46633F286D4FF508DE07470CDA0509869618214D
 DATA A6A6EEA8E3F981B4C897BC0A45CE0767EA07E0B5F402A909F30331FB01B5016D59
 DATA 6BEAE4B46AA3F10255D004738DD4452A3811613E2E487BDDE45CFCBA3F15D72AB9
 DATA 61908AE07B0186EBB2536E5B6AC6CA1411BCAB7699AAE345A9102D74EEF73E6CE9
 DATA 5B81182C7CDDF92845CB8EE294A1729A73AA534EF431EFBA94717895BF2A42CB57
 DATA 46AF7B42AF52B2754F221596EAB2D2957A141E44A823DFDE343ACE5D4379BFC8DE
 DATA A212CD0D96C3578DAF7B7AD5E86943B078DA2FCC0C3E1DD46B0320DF9E47B97C02
 DATA BDB69AF3C9F0EECE473708F0C28D8AE525783AA14946A4A18BA350490356507B5F
 DATA 5BE4A41810702CDA6EEB5EEBAA8ABA082B15C505F5EC1768B65F6151577EADC0B7
 DATA 48DA6A3B22C85F62755D5B72E69BA5F627403D4B866AB6DE7ECD7FE766AD6D07DB
 DATA DB3FFE683D6D0341EFDCD039EEB5B40D0C5E6A9A776340D0DA7FF68060EA2C001E
 DATA 040100100100A38CA8CE182B010000A201000072AC44230000200000004D4F5642
 DATA 595445532E4F424A000034096D0A0000011C5A9AC2B4A2BFFB6DB3B79CE6AB9220
 DATA 783705C110F1BC90EDBD540B6676527827D697722412D05C705C292F05C5108C55
 DATA F03AE28BE05DDFBDB065E995006A27278B20B8BB3BFAFC32478F8307565580FA23
 DATA B747AF080A3AFBC651EAF0D755D7F9A0853720817E2AF6CF2E930DB705EB2E3F62
 DATA 059E33881506DB86F5A34C64007AF38A565FBAE5E84D01E137442A9F5D2943A296
 DATA B3DC76DFB96B5A5977DAD4599433A8C8603DA80E4DE145224C10194E70D25270B4
 DATA ACC1A80505E70B0520CBB8012A7FE0D0B8A722522722834D11B04D94B693DB51E4
 DATA 36600F8B36395C74C32AA07BD5C433D20539E2C1DB93BB1C7840CEC860E8F458F0
 DATA C592203E77C100B99BFB35F5A4AD9AFAF2C0B2C19960D495B4046797D97A7F0A06
 DATA 9547EEEDD487A5347205E7EDF2A1F348550060EA0000
 Done:
 CLOSE #1: PRINT
 IF ChkSum<> 67  THEN
   PRINT "DATA corrupt!  File deleted."
   KILL "DEMO.ARJ"
 END IF: END
 --------------------------8< CUT HERE  8<----------------------------

 Well... that's it Bryan, hope ya get it this time.


 -------------------> MHB :-)

... OFFLINE 1.39 * ALIENS IV: In space, no one can hear you if you break wind
..............................


--- WM v2.03/91-0012
 * Origin: Com-Dat BBS  Hillsboro, OR.  HST (503) 681-0543 (1:105/314)