0 'WRDENC 1 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=555:D=0 2 F=HIMEM+E:IFF>MAXRAMTHENBEEP:MENU 3 PRINT@42,"Enter end address";HIMEM+E;"-";MAXRAM:PRINT@82," for current MAXRAM" 4 Y="":PRINT@122,SPACE$(30);:PRINT@122,;:INPUTY:IFY=""THENB=MAXRAM-EELSEB=VAL(Y)-E 5 IFB>MAXRAM-EORB16THENU=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 IFMRTHENBEEP: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 DATA385318CD4D4F21VC01CDP501E521VA01CDF66D2170EFCDF66DCD3E4FCD3E4FE1CD8C6E22I9027EE68032I802CAJ50021H002CDF66DC3JB0021HC02 101 DATA386818CDF66DCDTE00CD4D4F3AI802A7CAP50021H002CDF66D2AI9027EFE1ACAO501E5472192EFCDMF01A8472190EFCDMF01E6073C4F780DCANE00 102 DATA3834180FDAN900E63FC3MC00F640C3MC0047218EEFCDMF01A8E1E67FFE1AC2P0003E2E7723C3L10021HC02CDF66D2AI9027EFE1ACAO501E547218E 103 DATA384C1AEFCDMF01A8472190EFCDMF01E6073C4F780DCASE000707D2S8000FF601C3R9000FE6FEC3R900472192EFCDMF01A8E1F6807723C3PE00E521 104 DATA38AC16G602CDF66DCDF654DAV70178FE01CAV701061E2170EF0EFF7EFE00C2G0010E005779A7C2GB013E20C3GC017A772305C2V8003E00328EEF21 105 DATA38B51CG202CDF66DCD884F2170EFCDF66DCD8D4FCD3E4FCD3E4F21F069CDF66DCDF712FE59CAK601FE79CAK601E1C3G0002170EF118EEF0E06C5D5 106 DATA380616E5CDM001E1D1C11213230DC2KE01E1C906063E00AE232323232305C2M401C9D5E55E237EE67F571A67131A6F131AEBE1732372D1C9068021 107 DATA38E21770EF3E00772305C2OC01C3V701CDF66DCDF654DAV70178FE01CAV7010607237EFE2ECAR601FE00CAR60105C2Q601362E23364423364F2336 108 DATA38801C001170EFD5CD226DD179CD4F6EC0CD4D4F2170EFCDF66D21166FCDF66DC3U001CD3E4FCD3E4F21037DCDF66DCDF712FE20C2UC01C3G000CD 109 DATA33F60DA4671B4146696C653A001B411B4B50617373776F72643A004465636F64696E670D0A0A00456E636F64696E670D0A0A00000000 110 DATA00