0 'WRDRP1
 1 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=549: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"WRDRP1",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 DATA385314CD4D4FCDFE6D576F7264205265706C61636509436F7079722E20313938352052696368617264204861770D0A0A0021SE01CDL701CD8C6EE5
 101 DATA38671821SC01CDF66D2170EFCDF66DCD3E4FCD3E4F21RC01CDF66D11U701CDJ0013AU701FE00C2M400CD454FC3J80021T501CDF66D11G602CDJ001
 102 DATA385616CD4D4FCDFE6D576F726B696E672E2E2E0021000022U501E1E53AU70111U801F57EFE1ACAG501471AB8C2VF002313F13DC2OF002AU5012322
 103 DATA38C618U501E13AU701473AG6024FFE00CAUF0011G7021A77231305CASA000DCAUF00C3RB000DCAVC00D5E5C51ACD9C82D2U700C1E1D1CD3E4F2192
 104 DATA386A1D74CDF66DC3KB01C1E1D12313C3SA00F5C5480600CDDA82C1F1C3VC00C3O800F1E123C3O800F1E1CD4D4FCDFE6D4E756D626572206F662063
 105 DATA383C1668616E6765733A20002AU501CD0B47C3KB01C3R901C3R901D5CDF65423783DFE1FFAJE013E1ED112FE00C81306004FCD1683C9CD3E4F2103
 106 DATA38691800CDDA72CDA467CDF66DCDF654DAR90178FE01CAR9010607237EFE2ECAN801FE00CAN80105C2M801362E23364423364F2336001170EFD5CD
 107 DATA38881B226DD179CD4F6EC0CD4D4F2170EFCDF66D21166FCDF66DC3Q201CD3E4FCD3E4F21037DCDF66DCDF712FE20C2QE01C3G000CDA46753656172
 108 DATA38BF0B63682020737472696E673A001B4146696C653A20005265706C61636520737472696E673A0000000000000000000000000000000000000000
 109 DATA2D0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
 110 DATA00