0 'XMDPW5.LDR -- Creates XMDPW5.CO an machine language Xmodem program with DIRACC, Splitscreen and Macros CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 1 'Original code by JR Chenoweth, Hugo Ferreyra, James Yi and Jon Diercks. Fixes the long-standing Prev bug! Phil Wheeler -- 71266,125 [11/29/87] 2 GOSUB99 3 PRINT@42,"Enter end address";:PRINT@82," for just below current HIMEM" 4 Y="":PRINT@122,SPACE$(30);:PRINT@122,;:INPUTY:IFY=""THENB=HIMEM-E-1ELSEB=VAL(Y)-E 5 IFB>=MAXRAM-ETHENBEEP:GOTO4ELSECLEAR256,B:B=HIMEM:GOSUB99 6 CLS:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@48,"Line";:PRINT@88,"Address"; 7 GOSUB60:IFO=0THENPOKEA,K:A=A+1:GOTO7 8 P=K:GOSUB60:G=P+256*K+B:P=INT(G/256):Q=G-P*256 9 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO7 40 SAVEM"XMDPW5",B,C,D:MENU 50 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN55 51 IFU>16THENU=U-16:O=1ELSEO=0 52 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN55 53 K=(U-1)*16+V-1:RETURN 55 BEEP:PRINT@165,"Bad character";:END 60 IFMRTHENBEEP:PRINT@165,"Checksum fail";END 62 READY:M=1:GOSUB50:IFK=0THEN40 63 S=S+1:PRINT@70,S;:PRINT@110,A;:N=K:M=3:GOSUB50:M=5:L=K:GOSUB50:L=K*256+L:R=0 70 M=M+2:GOSUB50:R=R+K:RETURN 99 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=4093:D=0:RETURN 100 DATA3886170021VA0CCD9157CD444221P700CDA542C3UC00E12CCD632CCD3142C3G502CDI2093A3EF6FE00C24442CD3F42C30B6ECD294221P700CD7C5A 101 DATA387115CD535DCDGE08CDVA0721IF002252F621LF00CD9157CD4446D7A7CAJ80011MC00CDA76CCAIF00C9584D44636F6D6D616E643A200053544154 102 DATA380013U5005445524DUF0143414C4CLA0146494E44MF014D454E55975746494C45S40046524545SA00FF46696E64208043616C6C20805374617420 103 DATA3891158046696C65738D467265658D805465726D8D4D656E758D4A52433337CDO203C3J800CDN903C3J80053657269616C20506F72742053746174 104 DATA38221475733A20002BD73C3DC2H80121T000CD9157215BF606057EE72305C2V7003E2CE73A2BF60F3E3298E721H201CDB127C3J800302070707300 105 DATA382D18DAI901FE2CCAJ501CDE90FFE4DC2IF0023CDE617CDCB6E2BD7A7CAJ800CF2CCD2E11FE14CAK501D60AC2IF003C322BF6C3J800214452CD58 106 DATA38B81C5AD1CDQ601CAIF00EBF637E5214452DC585AE1CD2D53DAIF00C2J800C3G50297CDB15DE5CDA65ACAIF00CDE35AEBE1CD3F5CD2IF00E5D5CD 107 DATA38781DC55DCDQ601C4R401CD2242CDT601CAIF00FE43CAKB01D1CD6D5CE1C3NF01CDSA01C8E7FE3A13C2Q601C3T001CDSA01C8FE3CCAS501FE3AC8 108 DATA386A1EE713C3R401E73E3EE7C9CD745C1B1AC8FE1ACAIF00C9D5212B5DCD7C5ACDAE5CF521P700CD7C5ACDBC5DF1FE51D1C9215AF6D7D45734F5CD 109 DATA38491CE617F13FDCE452DAH803CDVA073E403250F6327BF6AF32O40A32C2FA32C3FACDD3453EFF32MA0DCDPB08CDNB08CD4455CD5655CD6255CDA8 110 DATA38CB1942CD4942000000CD5D5D21Q5022252F63A42FFA7CAL2023A40FF21D9F7AE0FDC6255CDDB13CAN802CDCB12DAR202473A58F6A778CC444BFE 111 DATA38F11E80D4U408F5CDS009F1A7C4326EDAP802CD6D6DCAJ702CD7E6DDAJ702F5E67FE7F1473A59F6A778C4554BCDC556C3J702AF3240FFCD9F72DA 112 DATA38A313PC02C3J702CD2942AF3259F6CD5655C3J7025F16FF2AME0D19197E23666F11J702D5E9VD02J308KD083E555055HE00J003U902507265F644 113 DATA3865186F77EE2055F0808080586D6FE4204279E5218657CDI908FE59CAH803217157CD9157C3J7023A3DF6B7CA23553A99FF1FD2235521O40A347E 114 DATA38F9181FD2AB423FC3TA09AF3250F66F6722C2FACDCB6ECD4E42CDBB52CD7063C3G700CDIA093AC2FAB7C4K70821N90322ME0D21KF03CD7C5A3AMA 115 DATA3855170DCDP303C3IE02507265F653656EE4526563F646696CE5467265E580804E6F72EDVD02PC03K105O203N903HE00O803I202CD2242CDAC7EC3 116 DATA3807182242CD2242C33A1FCDIA093AMA0DEEFF32MA0D11E9F721J20CC36B5521MC082252F6E521O60ACDI908A7C832C6FACDFA21CD0B4CC0CD8F20 117 DATA38061322M00DEB22M20D22M40D217C57CA9157CDU70721R20ACD9157AF32M80D32M70D21010022LE0DC3VA033AM70D3C32M70DFE0BD021H70BCD91 118 DATA38271C57CDJF07CDS707CAVD0621FDFF2B7DB4CAU103010C00CDI007CD6D6DCAVD03E5CD7E6DE1C2VD03DAVD06FE15C2I304AFC3IA04FE43C2VD03 119 DATA38CC133EFFCDP003AF32M70D3AM70D3C32M70DFE0BD0CDS707CAVD06CDKB070E01CDHC073ALE0D4F2FF5CDHC07F1CDGF07AF32M60D21000022MB0D 120 DATA3810122AM40DEB0E801AFE1AC2MF0432M80D473AM80DB7CAN904061A78CDG307CDGF07130DC2M6043AMA0DB7C2P5043AM60DCDGF07C3Q0042AMB0D 121 DATA3866197CCDGF077DCDGF0701FDFFCD6D6DCAS404C5CD7E6DC1FE06CAT604FE15C2S40421L10BCD9157CDJF07C3J1040B79B0C2Q30421J30BCD9157 122 DATA383612CDJF07C3J1043AM80DB7C2V1042AM40D1180001922M40D2ALE0D2322LE0DC3ID04AF32M70D3AM70D3C32M70DFE0BC8CDS707CAVD060E04CD 123 DATA389618HC0701FDFFCD6D6DCAHD05C5CD7E6DC1FE06CAJ705C5016400CDI007C10B79B0C2GD0521MF0BCD9157CDJF07C3V504E121O90BCD9157C3O7 124 DATA3844160821M6082252F6E521P90ACDI908A7C832C6FACDFA21CD0B4CC0CD0F2222M20D22M40DEB22M00DD2O10521QB0BCDI908FE59C021LA05E52A 125 DATA389E14M20DEB2AM00DCDBE1F21010022LE0DAF32M80D3D32MD0DCDU70721S60BCD915721U70B0E153AMA0DB7CAQ90521VC0B0E43C5CD9157C1CDHC 126 DATA38371507AF32M70D3AM90DB7C2S005AF32M80D3AM70D3C32M70DFE0BD0FE07DAU7053AMD0D473AMA0DA0CAU705AF32MA0D21H10CCD9157C3O105CD 127 DATA388317S707CAVD06AF32M60D21000022MB0DCDP407C2RF06FE04CAV006FE01C2R906AF32MD0DCDP407C2RF065F3ALE0DBBC2R906CDP407C2RF062F 128 DATA38F813BBC2R90616001E8021NC0FCDP407C2RF0677CDG307FE1AC2JD0632M80D3AM80DB7C2K50614231DC2IB063AMA0DB7CAMB060E02C5CDP407C1 129 DATA387E18C2RF06CDG3070DC2L306CDP008C2R306C3N906CDP407C2RF06473AM60DB8C2QD067AB7CAP7064F06002AM40DC5E5CD6D6BE1C1DAU00611NC 130 DATA384E120FCDHE0822M40DCDNF07CDOF072ALE0D2322LE0D3AM80D32M90DC3R10521P70CC3S20621QE0CC3S20621L20CC3S20621JA0CCD9157CDJF07 131 DATA38F415CDT9070E153AMD0D473AMA0DA0CATA060E43CDHC07C3R50521N50CCD91572AM20DEB2AM00DCDBE1FE121S50CCD9157CDOF07C3O70821UA0C 132 DATA38A11EC3MF08F5E521M60D8677E1F1C3S608F5C5D5E54FCDHC07E1D1C1F1C9C5C33A6EF50000000B79B0C2I107F1C9E56F2600CDJ507E1C9F5C5D5 133 DATA387314CDD439D1C1F1C9F53AM70DCDIC07CD2242F1C921L107C3O2070D1B4D20202053656E64696E6720626C6F636B202320000D1B4D2020526563 134 DATA387B14656976656420626C6F636B2023200021M807CD91572ALE0DCDJ5073E0DE7C90E06C3HC07010F00D5E5C501050DC5CD6D6DCAQF07CD7E6DC2 135 DATA38751BQF07C1C1E1D1C9010A00CDI007C10B79B0C2PD07C10B79B0C2P9070DE1D1C9CD7072CAT607CDCB12FE03C8FE18C8AF3DC9010100CDP707C0 136 DATA38E813CDS707C8C3T90721N60DC3V00721N00D7EFE4DC2E61723C3E61721N00D115BF61A32N60D010500C3HE08384E3144AF32N50D32NB0D21N70D 137 DATA38A51711GA0801040079B0C81A7713230BC3HE08CD9157CD3E46D7C3E90FCD46213AC2FAEEFF32C2FACAK70821L308C38F56CD9E5AC3836321M008 138 DATA389117C3A055AF32C2FACD9E5A216857C3MF08215957C3MF0821QA0AC3MF0821P40ACD9157217157CDB127C3O70821T30222ME0D21T302C37C5ACD 139 DATA389616UD07CD4621C3J702E52AMB0D7CB5E1C83EFFC921NC0D0E00EB21000079C50608AC6729D2R6083E10AC673E21AD6F05C2QA08C1EB72247325 140 DATA38CF19230CC2Q008C9F5C5D5E52AMB0DEB0600AA4F21NC0D097EAB57245EEB22MB0DE1D1C1F1C9F511H8093E0ACDAB5ACAH209CDE35AF14F7EFE1A 141 DATA389718CAH309B923C2V5087EFE1ACAH609FE80D2H609CD326E23C3G009F1CD6276AFC9584D444D41432E444F003A99FF1FD0C3J2093A99FF1FD0C3 142 DATA380D17K109CDNC09CD7F6C2100002252F6C34F6CCDNC09CD224221L7092252F621225ECD7C5AAF3250F6C42942CD535D21155ECDB127CD3E46D7CA 143 DATA38CA12H300CD0622E521000022E7F63E0121H300C3715FCD314221P309CDB1272E000EC0CD3A1FCD2242CDAC7EC91B704449524143432031303020 144 DATA383D1520436F707972696768742031393835204875676F2046657272657972611B7100473A3DF6B7C82AO40A7D1FD05C781600FE0DCATA09FE15C2 145 DATA385512UF0921LC0A0627E536202305C2U009E17832O50AC3JC0A21LC0A19FE08C2G10A1DF836202B7BC3U909FE09C2J60A0E083E20CDH40A0DC2G8 146 DATA38A9120AC3JC0A77237B3CFE27D2I20A5F32O50AC921LC0A545D2306267E12231305C2IA0A2B1E26C9FE20D8CDH40A36E92A39F6E52108012239F6 147 DATA385208CD4E42AF32O30A21LC0ACDA211E12239F6C34942000000000000000000000000000000000000000000000000000000000000000000000000 148 DATA38F70F00000000000046696C6520746F2073656E64200053656E640046696C6520746F2072656365697665200052656365697665000D0A46696C65 149 DATA386E1020666F756E64202D20526561647920746F2073656E640D0A77616974696E672E2E2E000D0A20202020204352432072657175657374205245 150 DATA3821104345495645440D0A000D0A436865636B73756D20726571756573742072656365697665640D0A001B4D0D0709496E697469616C204E414B20 151 DATA38310F74696D656F7574202320001B4D0D0709426C6F636B2041434B2F4E414B2074696D656F7574202320001B4D0D0709426C6F636B204E414B6B 152 DATA38440E6564202D20726573656E64202320001B4D0D070946696E616C2041434B2074696D656F7574202320000D0A0A072053656E64204F4B20286E 153 DATA3899106F7720696E205465726D206D6F6465290D0A0046696C6520657869737473202D2045726173652028592F4E2920000D0A46696C65206F7065 154 DATA386A106E202D20726561647920746F20726563656976650D0A00436865636B73756D20696E206566666563740D0A00202020202043524320696E20 155 DATA3841106566666563740D0A001B4D0D09537769746368696E6720746F20636865636B73756D206D6F64650D0A0043524320436B536D1B4D0D070952 156 DATA3892106563656976652074696D656F7574202320001B4D0D0742616420686561646572207265636569766564202D207265747279202320000D0A07 157 DATA38CE104F7574206F66206D656D6F7279202D2066696C652064656C657465640D0A001B4D0D0709436865636B73756D206572726F72202320001B4D 158 DATA384D0E0D07092020202020435243206572726F72202320000D0A0A072052656365697665204F4B20286E6F7720696E205465726D206D6F6465290D 159 DATA381B0E0A001B4D0D07425245414B206B6579202D000D584D44505735202D2D2D20586D6F64656D2050726F6772616D205B31312F32392F38375D0D 160 DATA38F40D0A2077697468204449524143432C2053706C697453637265656E2026204D6163726F730D0A202020202020202020202020202D2D2D2D2D2D 161 DATA389E002D2D2D0D0A000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 162 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 163 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 164 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 165 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 166 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 167 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 168 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 169 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 170 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 171 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 172 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 173 DATA060000000000000000 174 DATA00