0 'Club 100 Library, Modem 415-939-1246 1 'XMDPW5.200 - Creates XMDPW5.CO 10 CLEAR50:GOSUB29 11 PRINT@41,"Input END address?";:PRINT@121,"ENTER alone to put it just below HIMEM" 12 Y="":PRINT@60,;:LINEINPUTY:IFY=""THENB=HIMEM-E-1ELSEB=VAL(Y)-E 13 IFB>=MAXRAM-ETHENBEEP:GOTO12ELSECLEAR256,B:B=HIMEM:GOSUB29 14 CLS:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@64,"Line";:PRINT@104,"Address"; 15 GOSUB24:IFO=0THENPOKEA,K:A=A+1:GOTO15 16 P=K:GOSUB24:G=P+256*K+B:P=INT(G/256):Q=G-P*256 17 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO15 18 SAVEM"XMDPW5",B,C,D:MENU 19 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN23 20 IFU>16THENU=U-16:O=1ELSEO=0 21 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN23 22 K=(U-1)*16+V-1:RETURN 23 BEEP:PRINT@165,"Bad Hex character":END 24 IFMRTHENBEEP:PRINT@165,"Checksum failed":END 26 READY:M=1:GOSUB19:IFK=0THEN18 27 S=S+1:PRINT@72,S;:PRINT@112,A;:N=K:M=3:GOSUB19:M=5:L=K:GOSUB19:L=K*256+L:R=0 28 M=M+2:GOSUB19:R=R+K:RETURN 29 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=4233:D=0:RETURN 100 DATA3802190021NE0DCD9E67CD634F21P700CDC44FC3UB00E12CCDD239CD4D4FC3KB02CDQ6093A0BEFFE00C2634FCD5E4FC30886CD454F21P700CD206E 101 DATA389916CD4B71CDP208CDNC0821IF002234EF21LF00CD9E67CDF654D7A7CAJ80011MC00CDED83CAIF00C9584D44636F6D6D616E643A200053544154 102 DATA38ED12U4005445524DJ50243414C4CQ00146494E44R5014D454E55A46746494C45S30046524545S900FF46696E64208043616C6C20805374617420 103 DATA389C158046696C658D467265658D805465726D8D4D656E758D4A52433337CDG604C3J800CDVD03C3J80053657269616C20506F7274205374617475 104 DATA384E16733A20002BD73C3DC2J00121SF00CD9E67213CEF06077EE72305C2V6003E2CE73A44EFA73E4FCAGB013E41E73E2CE73AF4EEA7C2HC013E54 105 DATA386E15E7C3J8000F3E3298E721IA01CD1735C3J800302070707300DAK101FE2CCAKD01CD1410FE4DC2IF0023CD1D19CDB5872BD7A7CAJ800CF2C2B 106 DATA387019D7FE2CCAMB01CD1410FE41CAM301D64FC2IF003244EFD7A7CAJ800CF2C2BD7CAND01CD1410D654C2IF00C3OB01CD5811FE14CAOB01D60AC2 107 DATA38D41AIF003C32F4EEC3J800214261CDF66DD1CDUC01CAIF00EBF637E5214261DCF66DE1CD2B62DAIF00C2J800C3KB0297CD5C71E5CD4A6ECAIF00 108 DATA380C1ECD8C6EEBE1CD4270D2IF00E5D5CD7471CDUC01C4VA01CD3E4FCDHC02CAIF00FE43CAP101D1CD7670E1C3S501CDH002C8E7FE3A13C2UC01C3 109 DATA38C61AH602CDH002C8FE3CCAGB02FE3AC8E713C3VA01E73E3EE7C9CD7D701B1AC8FE1ACAIF00C9D5213371CD206ECDB770F521P700CD206ECD6B71 110 DATA38D81FF1FE51D1C9213BEFD7D4A841F5CD1D19F13FDCE761DAPC03CDNC083E403232EF3266EFAF32G80B32F0F432F1F432EDFC32EFFCCDFB533EFF 111 DATA382B1F32V20DCDHF09CDVF08CDBE64CDD064CDDC64CDC74FCD684FCD557121I9032234EF3AF2FCCD6C86DCFB66A7CAQ1023AF0FC21C4F0AE0FDCDC 112 DATA38221A64CD2214CD4567C2R602CD0414CAT302CDF712DAJ60347DAJ603A7C42267DAHC033A39EFA778CC055AFE80D4M809F5CDK40AF1CD0885CAO0 113 DATA38C01902CD198547DAO002FE7FC2UE023A3CEFFE3AD2O00278E721EDFC7E70FE1B78C2H303FE49C2H3033AF0F4A7C2H30306087ECD43862305C2G8 114 DATA388319033E49CD5264CD6266C3O002AF32F0FCCD698BDAI003C3O002CD454FAF323AEFCDD064C3O0025F16FF2AV60D19197E23666F11O002D5E9O1 115 DATA38941903R708T108B864CA64HE00R403MD03507265F6446F77EE2055F0808080586D6FE4204279E5219367CDQD08FE59CAPC03217E67CD9E67C3O0 116 DATA38B919023A0AEFB7CA9D643A0DFD1FD29D6421G80B347E1FD2C74F3FC3LE0AAF3232EF6F6722F0F4CDB587CD6D4FCDBA61CD5177C3G700CDQE093A 117 DATA38231AF0F4B7C4SB0821VD0322V60D21T303CD206E3AV20DCDH704C3NA02507265F653656EE4526563F646696CE5467265E580804E6F72EDO103I0 118 DATA38F81704S505G604VD03HE00GC04ME02CD3E4FCDFD9AC33E4FCD3E4FC32A2ACDQE093AV20DEEFF32V20D11D4F021R60CC3E56421V0082234EFE521 119 DATA388A18GA0BCDQD08A7C832F4F4CD432DCDCA5AC0CDAC2B22U80DEB22UA0D22UC0D218967CA9E67CDM90821J60BCD9E67AF32V00D32UF0D21010022 120 DATA385B19U60DC3NE043AUF0D3C32UF0DFE0BD021PB0BCD9E67CDS107CDK908CAO10721FDFF2B7DB4CAM504010C00CDQ507CD0885CAO104E5CD1985E1 121 DATA380E19C2O104DAO107FE15C2Q704AFC3QE04FE43C2O1043EFFCDH404AF32UF0D3AUF0D3C32UF0DFE0BD0CDK908CAO107CDSD070E01CDQ0073AU60D 122 DATA383A184F2FF5CDQ007F1CDP307AF32UE0D21000022V30D2AUC0DEB0E801AFE1AC2V30432V00D473AV00DB7CAVD04061A78CDO707CDP307130DC2UA 123 DATA38C918043AV20DB7C2H9053AUE0DCDP307C3I4052AV30D7CCDP3077DCDP30701FDFFCD0885CAK805C5CD1985C1FE06CALA05FE15C2K80521T50BCD 124 DATA38AD179E67CDS107C3R5040B79B0C2I70521R70BCD9E67CDS107C3R5043AV00DB7C2N5052AUC0D1180001922UC0D2AU60D2322U60DC3R104AF32UF 125 DATA38CB180D3AUF0D3C32UF0DFE0BC8CDK908CAO1070E04CDQ00701FDFFCD0885CAQ105C5CD1985C1FE06CARB05C5016400CDQ507C10B79B0C2P10521 126 DATA387E1AV30BCD9E67CDS107C3N905E121GD0CCD9E67C3GB0921UA082234EFE521HD0BCDQD08A7C832F4F4CD432DCDCA5AC0CD7C2D22UA0D22UC0DEB 127 DATA385B1522U80DD2G50621IF0CCDQD08FE59C021TE05E52AUA0DEB2AU80DCDB42A21010022U60DAF32V00D3D32V50DCDM90821KA0CCD9E6721MB0C0E 128 DATA380818153AV20DB7CAID0621O00C0E43C5CD9E67C1CDQ007AF32UF0D3AV10DB7C2K406AF32V00D3AUF0D3C32UF0DFE0BD0FE07DAMB063AV50D473A 129 DATA389E16V20DA0CAMB06AF32V20D21P50CCD9E67C3G506CDK908CAO107AF32UE0D21000022V30DCDH608C2K307FE04CAN407FE01C2JD07AF32V50DCD 130 DATA386314H608C2K3075F3AU60DBBC2JD07CDH608C2K3072FBBC2JD0716001E8021G810CDH608C2K30777CDO707FE1AC2S10632V00D3AV00DB7C2S906 131 DATA38DE1614231DC2QF063AV20DB7CAUF060E02C5CDH608C1C2K307CDO7070DC2T706CDH409C2J707C3VD06CDH608C2K307473AUE0DB8C2J1077AB7CA 132 DATA38CD13HB074F06002AUC0DC5E5CDA882E1C1DAM40711G810CDQ20822UC0DCDG108CDH1082AU60D2322U60D3AV00D32V10DC3J50621HB0DC3K60721 133 DATA386F16J20DC3K60721T60CC3K60721RE0CCD9E67CDS107CDLB080E153AV50D473AV20DA0CALE070E43CDQ007C3J90621V90CCD9E672AUA0DEB2AU8 134 DATA38D31D0DCDB42AE1CDH10821K90DCD9E67C3GB0921ME0DC3V308F5E521UE0D8677E1F1C3KA09F5C5D5E54FCDQ007E1D1C1F1C9C5C5C34F86F50B79 135 DATA38AA1BB0C2Q607F1C9E56F2600CDR707E1C9F5C5D5CD0B47D1C1F1C9F53AUF0DCDQE07CD3E4FF1C921T307C3G4080D1B4D20202053656E64696E67 136 DATA380D1220626C6F636B202320000D1B4D2020526563656976656420626C6F636B2023200021UA07CD9E672AU60DCDR7073E0DE7C90E06C3Q007010F 137 DATA385B1900D5E5C501050DC5CD0885CAJ108CD1985C2J108C1C1E1D1C9010A00CDQ507C10B79B0C2HF08C10B79B0C2HB080DE1D1C9CD318BCAL808CD 138 DATA385414F712FE03C8FE18C8AF3DC9010100CDH908C0CDK908C8C3LB0821G00EC3N20821V80D7EFE4DC21D1923C31D1921V80D113CEF1A32G00E0107 139 DATA387D1500C3Q208384E31444E4EAF32VF0D32G70E21G10E11OC0801060079B0C81A7713230BC3Q208CD9E67CDF054D7C31410CD622C3AF0F4EEFF32 140 DATA38A319F0F4CASB0821T708C31966CD426EC3647721U408C31A65AF32F0F4CD426E217567C3V308216667C3V30821IE0BC3V30821H80BCD9E67217E 141 DATA38411567CD1735C3GB0921L70322V60D21L703C3206ECDMF08CD622CC3O002E52AV30D7CB5E1C83EFFC921G80E0E00EB21000079C50608AC6729D2 142 DATA38E217JA093E10AC673E21AD6F05C2IE09C1EB72247325230CC2I409C9F5C5D5E52AV30DEB0600AA4F21G80E097EAB57245EEB22V30DE1D1C1F1C9 143 DATA380C1BF511PC093E0ACD4F6ECAP609CD8C6EF14F7EFE1ACAP709B923C2N9097EFE1ACAPA09FE80D2PA09CD438623C3O409F1CD454FAFC9584D444D 144 DATA38D01641432E444F003A0DFD1FD0C3R6093A0DFD1FD0C3S509CDG00ACDBF832100002234EFC39583CDG00ACD3E4F21TB092234EF21D471CD206EAF 145 DATA386F153232EFC4454FCD4B7121C471CD1735CDF054D7CAH300CD732DE521000022D2EF3E0121H300C32773CD4D4F21H70ACD17352E000EC0CD2A2A 146 DATA387213CD3E4FCDFD9AC91B70444952414343203130302020436F707972696768742031393835204875676F2046657272657972611B7100473A0AEF 147 DATA387E14B7C82AG80B7D1FD05C781600FE0DCALE0AFE15C2N30A21U00A0627E536202305C2M40AE17832G90BC3S00A21U00A19FE08C2O50A1DF83620 148 DATA3841132B7BC3MD0AFE09C2RA0A0E083E20CDP80A0DC2OC0AC3S00A77237B3CFE27D2Q60A5F32G90BC921U00A545D2306267E12231305C2QE0A2B1E 149 DATA38631126C9FE20D8CDP80A36E92A06EFE52110012206EFCD6D4FAF32G70B21U00ACDCC11E12206EFC3684F00000000000000000000000000000000 150 DATA38D409000000000000000000000000000000000000000000000000000046696C6520746F2073656E64200053656E640046696C6520746F20726563 151 DATA382F1165697665200052656365697665000D0A46696C6520666F756E64202D20526561647920746F2073656E640D0A77616974696E672E2E2E000D 152 DATA3803110A202020202043524320726571756573742052454345495645440D0A000D0A436865636B73756D2072657175657374207265636569766564 153 DATA38050F0D0A001B4D0D0709496E697469616C204E414B2074696D656F7574202320001B4D0D0709426C6F636B2041434B2F4E414B2074696D656F75 154 DATA38D70E74202320001B4D0D0709426C6F636B204E414B6B6564202D20726573656E64202320001B4D0D070946696E616C2041434B2074696D656F75 155 DATA38780F74202320000D0A0A072053656E64204F4B20286E6F7720696E205465726D206D6F6465290D0A0046696C6520657869737473202D20457261 156 DATA38F61073652028592F4E2920000D0A46696C65206F70656E202D20726561647920746F20726563656976650D0A00436865636B73756D20696E2065 157 DATA38631066666563740D0A00202020202043524320696E206566666563740D0A001B4D0D09537769746368696E6720746F20636865636B73756D206D 158 DATA38ED0F6F64650D0A0043524320436B536D1B4D0D0709526563656976652074696D656F7574202320001B4D0D074261642068656164657220726563 159 DATA38B70F6569766564202D207265747279202320000D0A074F7574206F66206D656D6F7279202D2066696C652064656C657465640D0A001B4D0D0709 160 DATA384F0E436865636B73756D206572726F72202320001B4D0D07092020202020435243206572726F72202320000D0A0A072052656365697665204F4B 161 DATA387E0E20286E6F7720696E205465726D206D6F6465290D0A001B4D0D07425245414B206B6579202D000D584D445057352E323030202D20586D6F64 162 DATA38B310656D2050726F6772616D205B31322F32352F38375D0D0A202077697468204449524143432C2053706C697453637265656E2026204D616372 163 DATA3865046F730D0A20202020202020202020202020202D2D2D2D2D2D2D2D2D0D0A000000000000000000000000000000000000000000000000000000 164 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 165 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 166 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 167 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 168 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 169 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 170 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 171 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 172 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 173 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 174 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 175 DATA22000000000000000000000000000000000000000000000000000000000000000000000000 176 DATA00