0 'MERRY
2 GOSUB99
3 PRINT@42,"Enter end address";:PRINT@82,"<ENTER> 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"MERRY",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
99 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=1130:D=0:RETURN
100 DATA38C614CD3142CD2D4221U303CDA211F321QC007E32Q8002356235EEB22QA00EB237E32Q50047FE00CAN300237E32Q6004F237E32Q70057237E32Q9
101 DATA38BE140023E52AQA0005CAO4000DCAOF0015CAPA007BFE00CANE001DFE05CAN8002B7CFE00C2JE003AQ9003DFE00CAMF0032Q9002AQA00C3JE00E1
102 DATA38EA11C3HE003E04D3B2C93E4030C3L6003EC030C3L6003AQ8005F3AQ50047C3K2003AQ8005F3AQ6004FC3K6003AQ8005F3AQ70057C3KA00000000
103 DATA38CD0C00000000050D804E4E4E025D4E3A015D4E4E015D4E3A015D4E34015D4E3A015D4E3E01755845017558580175584501755858017558450253
104 DATA386A0C453401534545015345340153452E015345340153453A01684E3E027C684E017C6868017C684E024E3A2E014E3A3A014E3A2E014E3A2C014E
105 DATA386A0C3A2E014E3A340158453A0275584502755D4E01755D4E01755845024E3E3402684E3E025D4E3A03051919014E4E4E025D4E3A015D4E4E015D
106 DATA38EB0C4E3A015D4E4E015D4E3A02684E3E03684E4E01684E3E025D4E3A02684E3E0275584502755D4E04343434024E3A2E025D4E34025D4E3A015D
107 DATA38C20C4E3A013A2E2702755D4E01755D5D01755D4E01755D4E01755845024E3E3402684E3E025D4E3A03051919014E4E4E025D4E3A015D4E4E015D
108 DATA381E0D4E3A015D4E34015D4E3A015D4E3E01755845017558580175584501755858017558450253453401534545015345340153452E015345340153
109 DATA38070D453A01684E3E027C684E017C6868017C684E024E3A2E014E3A3A014E3A2E014E3A2C014E3A2E014E3A340158453A0275584502755D4E0175
110 DATA388F0C5D4E01755845024E3E3402684E3E025D4E3A03051919014E4E4E025D4E3A015D4E4E015D4E3A015D4E4E015D4E3A02684E3E03684E4E0168
111 DATA381E0D4E3E025D4E3A02684E3E0275584502755D4E04343434024E3A2E025D4E34025D4E3A015D4E3A013A2E2702755D4E01755D5D01755D4E0175
112 DATA38A30E5D4E01755845024E3E3402684E3E025D4E3A06051919044E4E4E025D9C3A015D9C3E015D9C3A015D9C34015D9C3A015D9C3E0175AF450175
113 DATA388112AF4E0175AF580175AF4E0175AF450175AF5801538B3401538B3A01538B3401538B2E01538B3401538B3A017CD03E017CD045017CD04E017C
114 DATA380E11D045017CD03E017CD04E014E752E014E7534014E752E014E752C014E752E014E753401588B3A01588B3E0175AF450275BA4E0175BA4E0175
115 DATA380612AF45024E7C3402689C3E025D9C3A044E4E4E025D9C3A015D9C9C015D9C3A015D9C9C015D9C3A015D9C3401689C3E037CD04E017C9C3E017C
116 DATA388C0F9C34015D9C3A015D9C3401689C3E01689C340175AF450175AF340175BA4E0305191901343434024E752E025D9C34025D9C3A015D9C3A013A
117 DATA38530D5D270275BA4E0175BABA0175BA4E0175BA4E0175AF45034E7C3403689C3E045D9C3A0C00000000000000000D0A2020202020202020202020
118 DATA386E0F2020204D756C7469566F6963650D0A20202020436F7079777269746520313938382C204A616D657320432E205363616C65730D0A0D0A2020
119 DATA389F0F2020205765205769736820596F752041204D65727279204368726973746D61730D0A20202020202020202020416E64204120486170707920
120 DATA0BF2024E657720596561720D0A00
121 DATA00