0 'GRPHRL
 1 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=469: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"GRPHRL",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 DATA386E13CD4D4FCDFE6D477261706820524C09436F7079722E20313938362052696368617264204861770D0A0A0021SE01CDJA01CD8C6E2B237EFE1A
 101 DATA387913CAPF01FE1BC2J400237EFE47C2PF01237EFE48C2PF012322S40122S9012AS401CD4D4F1100003AS60132S7011E002B233AS7012F32S7017E
 102 DATA38C619DE20FASA00FE00CAO300F5CDQ200F13DC2NA00233AS7012F32S7017EDE20FASA00FE00CAM700F5CDQ200F13DC2P600C3M70014C2QD001C7B
 103 DATA38FE20FE80CASA00D5E521S8017A9657DARD00C610D2S000E1D1C93AS701A7CC768DE1D1C9E5D5CD038BFE00CASC00D1E1477BFE80CAU10078C3V3
 104 DATA382B160078FE1FC2V3001E00E5D5CD4D4FD1E1C3QD00FE1ECAIC01FE1DC2G5013E0032S801C3IC01FE1CC2H2013E1032S801C3IC01FE1BC2I1013A
 105 DATA387519S6012F32S601C3IC01FE20CAPC01CD454FC3SA00C3L500CD038BFE20C2IF01C3PC01CDF66DCDF654DAPC0178FE01CAPC010607237EFE2ECA
 106 DATA385C17LB01FE00CALB0105C2KB01362E23364423364F2336001170EFD5CD226DD179CD4F6EC0CD4D4F2170EFCDF66D21166FCDF66DC3O501CD3E4F
 107 DATA388F19CD3E4F21037DCDF66DCDF712FE20C2P101C3G000CDA467CD4D4F2170EFCDF66DCDFE6D206E6F7420612067726170686963732066696C650D
 108 DATA157F0300C3O50100000000000000001B4146696C653A2000
 109 DATA00