0 'WRDSPL
 1 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=978:D=0
 2 F=HIMEM+E:IFF>MAXRAMTHENBEEP:MENU
 3 PRINT@42,"Enter end address";HIMEM+E;"-";MAXRAM:PRINT@82,"<ENTER> for current MAXRAM"
 4 Y="":PRINT@122,SPACE$(30);:PRINT@122,;:INPUTY:IFY=""THENB=MAXRAM-EELSEB=VAL(Y)-E
 5 IFB>MAXRAM-EORB<HIMEMTHENBEEP:GOTO4
 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"WRDSPL",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 IFM<N*2+5THEN70
 61 IFL<>RTHENBEEP: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
 100 DATA38CC14CD4D4FCDFE6D576F7264205370656C6C09436F7079722E203139383620522E204861770D0A0A0021P803CDH803E5CDTB02CD4D4FCDVD02CA
 101 DATA387913JF003E0132O703E1CD8C6E22ND037EFE41DAJB0122NF031170EF7E12CDK101DALF001312C3L400133E00121170EFCD226D0D79326FEF32O3
 102 DATA38FF170332O403E5D5C5FE01CAIC012B22O1032AND03EB412170EF1AFE1ACAS000FE5FFAP500E65FBECAQ10013412170EFC3O80005CAQA002313C3
 103 DATA38E015O8002AO103DFCAP900131AFE41D2PA00FE27CAPA00C3IC013AO703A7CAI301216FEF4E591600197E41FE53C2T700051170EF2AO8037EFE1A
 104 DATA38BD1DCAI301F5E640CAPC02F1E61FF5B9CAVD007EE620CAH801F1B8C2H901F5F1F5E5C5D5231ABEC2H501132305C2G301D1C1E1F1C3IC01D1C1E1
 105 DATA381B1DF1D55F16001923D1C3TD00C1D1E1CDKF01C3J501C1D1E1CDQE02C3J501CDK101D2KC00E5E7E1C3J501237EFE1ACASF02FE27C8FE41D8C9CD
 106 DATA382E18884FCDQE02CD8D4F3A06EF6F3A07EF6722O503CDU502CDO901CDTB022AO503CD9B4F3AO40347C53E08E7E105C2N601CDFE6D1B4B00CDQE02
 107 DATA38AD1BC9CDGD03CAA467E6DFFE53C8FE43CAQ401FE41CAI102CD454FC3O90121PF03CDUB0206002170EFE5C5CDGD03CAHB02FE0DCAU301FE08C2T8
 108 DATA38F31801C105F2SA0104C3R001E12BE5C5CDFE6D08200800C3R101F5E7F1C1E1770423C3QF01C1E13AO303C590CAG4022ANF03F2VE012F3C06004F
 109 DATA38041ACDA882C3G40206004FCDDA822ANF03EB2170EFC17832O303480600CD1683C5E5CDVD02C1E1CDTB02C93AO703A7C821S903CDUB02CDGD03C8
 110 DATA38E418E65FEE59F5210F65CDUB023AO3034F0600F1F5C2L102216FEF097EEE53C2L1020D2AO803C50CCDA882DAP602C1C52AO80323EB2170EFCD16
 111 DATA389E17832AO803C1F179C5C2N502F620F64077EB2AND03DFDAP102C1032AND030922ND032ANF030922NF03C5C1CDTB02C9219274C3Q302F121OA03
 112 DATA38D919C3Q302E5CD4D4FE1CDF66DC3SF023AO303473A07EF80FE29D43E4F3AO3032ANF0347E5C57EE7C1E12305C2S2022BC921047DCDUB02CDGD03
 113 DATA38C91BC3A46721D846CDUB02CD544FC921QA03C3TE02E5CD594FCD964FE1CDF66DCDFE6D1B4B00C911OE033E0ACD4F6EC8CD8C6E22O803C9CD038B
 114 DATA38A516CAGD03FE1BC8A7C9CDF66DCDF654DANA0378FE01CANA030607237EFE2ECAJ903FE00CAJ90305C2I903362E23364423364F2336001170EFD5
 115 DATA38501ACD226DD179CD4F6EC0CD4D4F2170EFCDF66D21166FCDF66DC3M303CD3E4FCD3E4F21037DCDF66DCDF712FE20C2MF03C3G000CDA467000000
 116 DATA38700D00000000000000000000426164205F444943545F2E444F0046696C653A20004368616E676520746F3A002853296B69702F28432968616E67
 117 DATA1A6707652F28412964642F2845534329617065007320456E64696E6700
 118 DATA00