0 'WRDLST
 1 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=280: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"WRDLST",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 DATA3857123E0132H701CD4D4FCDFE6D576F7264204C69737409436F7079722E20313938352052696368617264204861770D0A0A0021H001CDQB00E5CD
 101 DATA38D4184D4FE1CD8C6EE57EE7E1FE1ACAQ200FE0DCAM0003AH7013DCALC0006FF05C2L500C3KF0023C3JE002323CDFE6D0A00E5CD038BC2N200E1C3
 102 DATA38AE14JE00FE1BCAGD01FE1EC2O8003AH701C60532H701E1C3JE00FE1FC2P6003E0132H701E1C3JE00CD038BFE20C2P600E1C3JE00210300CDDA72
 103 DATA38C316C3GD01CDF66DCDF654DAGD0178FE01CAGD010607237EFE2ECASC00FE00CASC0005C2RC00362E23364423364F2336001170EFD5CD226DD179
 104 DATA38A519CD4F6EC0CD4D4F2170EFCDF66D21166FCDF66DC3V600CD3E4FCD3E4F21037DCDF66DCDF712FE20C2G201C3G000CDA46746696C653A200000
 105 DATA00