0 'WRDCNT
 1 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=315: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"WRDCNT",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 DATA38AB13CD4D4FCDFE6D576F726420436F756E7409436F7079722E20313938352052696368617264204861770D0A0A0021IC01CDRD00E521IA01CDF6
 101 DATA3861176D2170EFCDF66DCD3E4FCD3E4FE1CD8C6E1100000100007EFE21FAMC00237EFE21F2L50013FE1ACAOA00FE0DC2MC000323C3MC00237EFE20
 102 DATA383719CAMC00FE09CAMC00FE0DC2O2000323C3MC00FE1ACAOA00C3L500C5EBE521I201CDF66DE1CD0B47CD3E4F21J301CDF66DC16069CD0B47CD3E
 103 DATA380E194FCD3E4F21047DCDF66DCD038BFE20C2R200C3HF01CDF66DCDF654DAHF0178FE01CAHF010607237EFE2ECATE00FE00CATE0005C2SE00362E
 104 DATA38E71923364423364F2336001170EFD5CD226DD179CD4F6EC0CD4D4F2170EFCDF66D21166FCDF66DC3G801CD3E4FCD3E4F21037DCDF66DCDF712FE
 105 DATA23860A20C2H401C3G000CDA467576F7264733A20001B4146696C653A20004C696E65733A2000
 106 DATA00