7gmadiso@pomona.bitnet.UUCP (04/06/87)
Use the BASIC listing in this section to 'De-HEXify' the listing after the BASIC program. This will create 'HEX/CMD', a machine language program capable of HEXifying and De-HEXifying much faster than this BASIC example!!! 1000 CLS:DEFINT A-Z 1010 PRINT"Hex - To - Binary File Converter" 1020 PRINT"By George D. Madison" 1030 PRINT:INPUT"Enter the input filespec";HX$ 1040 INPUT"Enter the output filespec";BIN$ 1050 CLS 1060 OPEN "I",1,HX$:OPEN "O",2,BIN$ 1070 IF EOF(1) THEN GOTO 2000 1080 LINE INPUT#1,A$ 1090 A=LEN(A$) 1100 FOR I = 1 TO A STEP 2 1110 I$=MID$(A$,I,2) 1120 GOSUB 3000 1130 PRINT#2,CHR$(NUM); 1140 NEXT I 1150 GOTO 1070 2000 CLOSE 2010 PRINT"Conversion completed. Binary file reconstructed and ready to run!" 2020 END 3000 I$(1)=LEFT$(I$,1):I$(2)=RIGHT$(I$,1) 3010 FOR J = 1 TO 2 3020 IF I$(J)="0" THEN I(J)=0 3030 IF I$(J)="1" THEN I(J)=1 3040 IF I$(J)="2" THEN I(J)=2 3050 IF I$(J)="3" THEN I(J)=3 3060 IF I$(J)="4" THEN I(J)=4 3070 IF I$(J)="5" THEN I(J)=5 3080 IF I$(J)="6" THEN I(J)=6 3090 IF I$(J)="7" THEN I(J)=7 3100 IF I$(J)="8" THEN I(J)=8 3110 IF I$(J)="9" THEN I(J)=9 3120 IF I$(J)="A" THEN I(J)=10 3130 IF I$(J)="B" THEN I(J)=11 3140 IF I$(J)="C" THEN I(J)=12 3150 IF I$(J)="D" THEN I(J)=13 3160 IF I$(J)="E" THEN I(J)=14 3170 IF I$(J)="F" THEN I(J)=15 3180 NEXT J 3190 NUM=(I(1)*16)+I(2) 3200 RETURN HEX/CMD for the Model 4 ---------- Cut Here ---------- 050648455820202001020026F3ED732826E52100003E67EFFB2100000600 3E65EFFDE5D121120019223626E1CD8526210000AF310000C921FFFF18F7 3E4EEFC9E5210000CBC6E13E3BEFC93E3AEFC8F5FE2A2003F1AFC9F1C93E 3CEFC90E003E09EFC9C54F3E1AEFC1C93E0AEFC81807C54F3E02EFC1C826 006FF6C0CD5726C327263E03EFC8B728F9C9C54F3E04EFC1C921242CCD54 28CD4428FE31CAAA26FE32CA0C27FE33CAAF27FE34CAF328FE35CAFF29C3 8526CDE027CDFF27AF32E42DD511162ECD7626D1280DFE1CCAEC26F6C0CD 5726C32B26F5CDFD26CD3828F1CD0127CD38283AE42D3CFE1E20063E0DCD 3828AF32E42D18C83E0DCD3828CD2E2821A62DCD5428C323260F0F0F0102 00270FE60FFE0A3802C607C630C9CDE027CDFF27C32627D511162ECD7626 D1C8FE1CCA4F27C3C326CD1527CD8B2728F8FE1ACA5027CD7C27CB27CB27 CB27CB276FCD1527CD8B27CD7C2785CD3828C32627E1CD2E2821A62DCD54 28C323263AE32DFE03300FCD1527FE0D20F9AF32E32DE1C32627E121062C CD5428C32B26FE4730DCD63038D8FE0A3802D607C9FE0D281BFE0A2817F5 3AE32D3C32E32DFE3DD2A227F1C921F92CCD5428F1C9AF32E32DC9CDE027 0E0011162ECD7626CAC527FE1CCAC927C3FC27814F18EB21DA2BCD542879 CDFD26CD642679CD0127CD6426C3232621BE2DCD54280620CD462828F311 162ECD3026217A2E0600CD3426C8C3C3262101020028D02DCD54280620CD 462828F311482ECD3026217A2F0600CD3F2620E0D821E72BCD5428CD4428 E65FFE59C2FF27C911482ECD4D26C2FC27C9D511482ECD7E26D1C8C3FC27 060121EE2DCD5126DA2B2678B7C87EC9E57EFE03280AF5CD6426F123FE0D 20F1E1C911162ECD76262019FE01281BFE022820FE032817CD762647CD76 26200410F918DFFE1CC2FC27AF327B30C9212D401814CD7626C2FC27CD76 26C2FC276FCD7626C2FC276722E62D18DD11162ECD762620344705CD7626 202D217D307705CD76262023237778327C3023CD762677201610F7ED5B7D 302AEA2DB7ED52DA6628ED53EA2DC36628F6C0CD5726C32326CDE027CDFF 2721FFFF22EA2DCD0102002966283A7B30B7CA8929CDAF28217F303A7C30 473DD60F0E10C326293A7C30B7CA0229470E1091DA3029327C3079C33529 AF327C3078F53E3ACD3828AF327A30F1CDE9290600C53A7E30CDE9293A7D 30CDE929C1E52A7D3009227D30E1413A7C30B720063A7B30B728023EFF2F CDE9297ECDE9292310F93A7A30CDE9293E0DCD38283E0ACD3828C31B293E 3ACD3828060A3E30CD382810F93E0DCD38283E0ACD3828AFCD38283E1ACD 382821272DCD5E263AEB2DCDDB293AEA2DCDDB293E0DCD642621442DCD5E 263AE72DCDDB293AE62DCDDB293E0DCD6426C35027F5CDFD26CD6426F1CD 0127C364264F3A7A3091327A3079CDFD26CD382879CD0127C33828CD0102 002AE027CDFF2721FFFF22EA2D210000227D3022EC2D22E82D217F30AF32 7A3011162ECD7626C2B82AFE1ACABD2AFE3AC21E2ACD612B327C30CD612B 47CD612B4FC5CD612B32E52DC1E52AEC2D7CB5E12812E52AE82DED42E128 14CD0B2B21000022EC2DED437D30ED43E82D217F303A7C30B7CABD2A47CD 612B7723E52AE82D2322E82D2AEC2D2322EC2D2425E12812CD0B2B210000 22EC2D2AE82D227D30217F3010D33A7A30F5CD612B4FF1B9CA1A2A21172D CD5E26C32B26FE1CC2FC272AEC2D7CB5C40B2B2AEA2D22E62D21272DCD5E 263AEB2DCDDB293AEA2DCDDB293E0DCD642621612DCD5E260604CD462828 09CDB62B38EEED53E62D3E02CD38283E02CD0102002B38282AE62DCD422B C34F27C5E5ED4BEC2DCD172BE1C1C93E01CD3828793C3CCD38282AEA2DED 5B7D30B7ED523804ED53EA2DEBCD422B217F307E23CD38280D20F8C97DCD 38287CCD3828C937C9FE613802E65FFE4730F4D630D8FE0A3FD0D607C911 162ECD7626CA7F2BF53AE52DB7200A3A7C30B72004F1C3B82AF1C3FC27CD A82BCB27CB27CB27CB274FCD7626C2FC27CDA82B814F3A7A3091327A3079 C921062CCD5428C32B26FE4730F3D63038EFFE0AD8D607C9CDBF2B57CDBF 2B5FC97ECD4D2BD8CDD12B4F237E23CD4D2BD8B1C9CB27CB27CB27CB27C9 20436865636B73756D203D20034578697374696E672066696C65202D2075 73652069743F20280102002C592F4E2920030A4E6F6E202D206865782064 6967697420656E636F756E7465726564210D0A0A204845582046696C6520 636F6E76657273696F6E2070726F6772616D0A0A0A203C313E203D204269 6E61727920746F2041534349492048455820696D616765200A203C323E20 3D2048455820696D61676520746F2062696E6172790A203C333E203D2043 6865636B73756D2066696C650A203C343E203D205452533830206C6F6164 20666F726D617420746F20494E54454C204845580A203C353E203D20494E 54454C2048455820746F205452533830206C6F616420666F726D61740A20 20456E74657220796F75722063686F6963653A20030A5741524E494E01F0 002D47202D206C696E6520666F726D6174206572726F72210D436865636B 73756D206572726F72210D204E6F74653A204C6F77206C6F616420416464 72657373203D20582703202020202020205472616E736665722041646472 657373203D20582703456E74657220484558205472616E73666572206164 6472657373206F72207072657373203C454E5445523E0A20746F20757365 206C6F77206C6F61642061647265737320030A46696C65206F7574707574 20636F6D706C65746564200D0A496E7075742066696C65737065633A2003 0A4F75747075742066696C65737065633A20030000000000000000000000 020200260000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000 ------------------------------------------------------------ Following a suggestion from G. Madison, I have decided to post this hex/unhex program for the TRS-80 model I and III. This program was originally distributed with a package called modem-80 from The Alternate Source (Which, to the best of my knowledge went out of business a couple of years back.) According to the copyright, it is released for personal use, but not resale. HEX/CMD for the Models I/III, contributed by HORSTMIH@UREGINA1.BITNET ---------- Cut Here ---------- 01020052C31552E57EFE03280AF5CD3300F123FE0D20F1E1C921BB56CD03 52D521D2570601CD4000D1DA30403AD257FE31CA3D52FE32CA9A52FE33CA 4053C32D40CD7253CDF654AF32D157D5117553CD1300D12808FE1CCA7A52 CD0944F5CD8B52CDAD56F1CD8F52CDAD563AD1573CFE1E20063E0DCDAD56 AF32D15718CD3E0DCDAD56CD9F5621AD57CD0352C32D400F0F0F0FE60FFE 0A3802C607C630C9CD7253CDF654C3B652D5117553CD1300D12808FE1CCA DF52CD0944C9CDA352CD1B5328F8FE1ACAE052CD0C53CB27CB27CB27CB27 6FCDA352CD1B53CD0C5385CDAD56C3B652E1CD9F5621AD57CD0352C32D40 3A3A53FE03300FCDA352FE0D20F9AF323A53E1C301020053B652E1215257 CD0352C33040FE4730DCD63038D8FE0A3802D607C9FE0D281CFE0A2818F5 3A3A533C323A53FE3DD23253F1C9217057CD0352F1C900AF323A53C9CD72 530E00D5117553CD1300D12808FE1CCA5B53CD0944814F18EA21C457CD03 5279CD8B52CD330079CD8F52CD3300C32D40C3A754080809090909090707 070707070A0A0A02020202030233713D7147715171B771D97113725F72C6 7285719671F272FD72097316731C7325734F73427367715C736873777386 739573AB73CD33727AB4577BB55FC9CD33727AAC577BAD5FC9CD33727AA4 577BA55FC93AD388E683FE00C4A0552AD4880E207C2F577D2F5FC92AD488 3AD388F5E680C47C55F101020054E603C4A0557C2F577D2F5F133AD3884F C9CD3372EB131B7AB3CA947129C38A71EBC9CD3372232B7DB4C87A1F577B 1F5FC39A712AD4883AD388E680C879E680FC7C55C9CDA77179E680C2C871 3AD388E680CAD371CDD37179F6804F32C688C9CD437219EBC9CDA7713AD3 88E680FC7C5579E680CAF57132C688CDF57179F6804FC93AD388E603CA0C 72F579E6034FF1B9C4A055CDB4730E207B955F7A9C57C9CD3372444D2100 0018120A496E7075742066696C65737065633A2003D5E521A954CD0352E1 D1D521A753061FCD4000D1DA2D40E5D521A753117553CD1C44D1E1E5D5C5 21A7531175530600CD2444C1D1E12803CD0944C9C32B56BE727CA8477CB5 01020055CA87727CB7EBFCBE72C5CD8A72F1B7FCBE72EBEBC1C97C2F477D 2F4F032100003E11F5B7C3A572F5E509D2A472F1373EE17B175F7A17577D 176F7C1767F13DC29B727CB71F677D1F6FC9AF4F935F799A57C9CD3372C5 EB7AB3CAE4727CB5CAE4727CAAF5D5EBCD6272EBE1F1FCBE72EBEBC1C93E 4F11FE6FD5C547C3B555CD3473CD065ED601C31073CD3473CD065ED6013F C31073CD3473EBCD065E9F575F0E20C9CD3473C32973CD3473CD065EC310 73CD3473EBCD065E37F210733FC310733AD388B9C4A055CDB4732AD488C9 3E204F32D3882AD4885CAF57C93E204F32D3882AD4885DAF57C9CD33727D CDCB5FE607835FC9CD33727DCDCB5FE60717171701020056835FC9CD3372 7DCDB95FE606171717835FC9CD33727DCDAF5FE602171717835FC9CD3372 7DCDCB5FE6076F18130A4F75747075742066696C65737065633A2003D5E5 212D56CD0352E1D1D5212B55061FCD4000D1DA2D40E5D5212B5511F954CD 1C44D1E1E5D5C5212B5511F9540600CD2044C1D1E12803CD0944DA9A5621 8E57CD0352D521D2570601CD4000D1DA2D403AD257E65FFE59C29B56C9E1 C31552D511F954CD2844D12803CD0944C9D511F954CD1B00D12803CD0944 C91C1F0A202020202046696C6520636F6E76657273696F6E207574696C69 74790A2020202020204C6573204D696B6573656C6C202030372F31312F38 310A0A203C313E203D2001D6005742696E61727920746F20415343494920 686578200A203C323E203D2048657820746F2062696E617279200A203C33 3E203D20436865636B73756D0A0A2020456E74657220796F75722063686F 6963653A20030A4E6F6E202D2068657820646967697420656E636F756E74 65726564210D0A5741524E494E47202D206C696E6520666F726D61742065 72726F72210D4578697374696E672066696C65202D207573652069743F20 28592F4E29200346696C65206F757470757420636F6D706C65746564200D 20436865636B73756D203D200300397502020052