1 'CMENU.CO by Harvey Chrisley (4/13/92) 10 CLS:CLEAR50:X=99:AA=63574 11 DEFINTI-N:H$="0123456789ABCDEF" 12 PRINT@59,"Data line" 13 PRINT@99,"File address" 14 READA$:X=X+1:PRINT@72,X 15 B$=MID$(A$,1,2):GOSUB25:N=K 16 IFK=0THENSAVEM"cmenu",63574,63795,63574:END 17 B$=MID$(A$,3,2):GOSUB25:L=K 18 B$=MID$(A$,5,2):GOSUB25:L=K*256+L:L1=0 19 FORI=1TON 20 J=I*2+5:B$=MID$(A$,J,2):GOSUB25 21 POKEAA,K:PRINT@112,AA:AA=AA+1:L1=L1+K 22 NEXTI 23 IFL<>L1THENBEEP:PRINT@165,"Checksum error":END 24 GOTO14 25 B1$=LEFT$(B$,1):K1=INSTR(1,H$,B1$):IF K1=0GOTO28 26 B1$=RIGHT$(B$,1):K2=INSTR(1,H$,B1$):IF K2=0GOTO28 27 K=(K1-1)*16+K2-1:RETURN 28 BEEP:PRINT@165,"Non HEX Character in DATA":END 100 DATA 38C01CCD4D4F0152F20AFEFFCA95F8E680CA8AF80AE60ACA70F8C38AF803030360690606CDC6263E2EE70602CDC6263EF5E7444DC35CF879CE0BD2 101 DATA 38B32091F8044FC35CF8CD3E4FCD3E4F2113F9CDBFF82225F9211CF9CDBFF82227F9EB1A2A25F9BEC207F9CDE2F8CD494FC359F8CDF66DCDF654EB 102 DATA 388916133E092133F8CD066E3E00771133F81AFE00CA10F9CD556ECA10F9C93E0B2A25F9EB2129F9CD066E3E0B2A27F9EB2A25F9CD066E3E0B2129 103 DATA 363C11F9EB2A27F9CD066EC9CDAB8FCD494FC359F8C3A46753776170203A1B4A0057697468203A1B4B00000000000000000000000000000000 104 DATA 000000