(defun wrACADPGP ( / fn fn1 i line1 pgpfile pgppath q1 q10 q100 q101 q102 q103 q104 q105 q106 q107 q108 q109 q11 q110 q111 q112 q113 q114 q115 q116 q117 q118 q119 q12 q120 q121 q122 q123 q124 q125 q126 q127 q128 q129 q13 q130 q131 q132 q133 q134 q135 q136 q137 q138 q139 q14 q140 q141 q142 q143 q144 q145 q146 q147 q148 q149 q15 q150 q151 q152 q153 q154 q155 q156 q157 q158 q159 q16 q160 q161 q162 q163 q164 q165 q166 q167 q168 q169 q17 q170 q171 q172 q173 q174 q175 q176 q177 q178 q179 q18 q180 q181 q182 q183 q184 q185 q186 q187 q188 q189 q19 q190 q191 q192 q193 q194 q195 q196 q197 q198 q199 q2 q20 q200 q201 q202 q203 q204 q205 q206 q207 q208 q209 q21 q210 q211 q212 q213 q214 q215 q216 q217 q218 q219 q22 q220 q221 q222 q223 q224 q225 q226 q227 q228 q229 q23 q230 q231 q232 q233 q234 q235 q236 q237 q238 q239 q24 q240 q241 q242 q243 q244 q245 q246 q247 q248 q249 q25 q250 q251 q252 q253 q254 q255 q256 q257 q258 q259 q26 q260 q261 q262 q263 q264 q265 q266 q267 q268 q269 q27 q270 q271 q272 q273 q274 q275 q276 q277 q278 q279 q28 q280 q281 q282 q283 q284 q285 q286 q287 q288 q289 q29 q290 q291 q292 q293 q294 q295 q296 q297 q298 q299 q3 q30 q300 q301 q302 q303 q304 q305 q306 q307 q308 q309 q31 q310 q311 q312 q313 q314 q315 q316 q317 q318 q319 q32 q320 q321 q322 q323 q324 q325 q326 q327 q328 q329 q33 q330 q331 q332 q333 q334 q335 q336 q337 q338 q339 q34 q340 q341 q342 q343 q344 q345 q346 q347 q348 q349 q35 q350 q351 q352 q353 q354 q355 q356 q357 q358 q359 q36 q360 q361 q362 q363 q364 q365 q366 q367 q368 q369 q37 q370 q371 q372 q373 q374 q375 q376 q377 q378 q379 q38 q380 q381 q382 q383 q384 q385 q386 q387 q388 q389 q39 q390 q391 q4 q40 q41 q42 q43 q44 q45 q46 q47 q48 q49 q5 q50 q51 q52 q53 q54 q55 q56 q57 q58 q59 q6 q60 q61 q62 q63 q64 q65 q66 q67 q68 q69 q7 q70 q71 q72 q73 q74 q75 q76 q77 q78 q79 q8 q80 q81 q82 q83 q84 q85 q86 q87 q88 q89 q9 q90 q91 q92 q93 q94 q95 q96 q97 q98 q99 q999 tempfile)
(if (setq pgpfile (findfile "acad.pgp"))
    (progn
(setq pgppath (vl-filename-directory pgpfile))
(setq fn (open pgpfile "r"))
(setq line1 (read-line fn))
(close fn)
(setq Q1 "1`,	*zhl_1`	")
(setq Q2 "az,	*zhl_az	")
(setq Q3 "aa,	*zhl_aa	")
(setq Q4 "y,	*zhl_y	")
(setq Q5 "yy,	*zhl_yy")
(setq Q6 "tg,	*draw_line")
(setq Q7 "SS,	*zhl_SS")
(setq Q8 "xx,	*zhl_xx")
(setq Q9 "bg,	*zhl_bg")
(setq Q10 "bc,	*zhl_bc")
(setq Q11 "dx,	*zhl_dx")
(setq Q12 "Gra,	*zhl_grass")
(setq Q13 "jt,	*zhl_jt")
(setq Q14 "jtt,	*zhl_jtt")
(setq Q15 "BX,	*zhl_BX")
(setq Q16 "fd,	*zhl_fd")
(setq Q17 "spi,	*zhl_spiral")
(setq Q18 "stpo, *zhl_stpo")
(setq Q19 "zdz,	*zhl_grids")
(setq Q20 "bz,	*zhl_bz")
(setq Q21 "tm,	*zhl_tm")
(setq Q22 "hh,	*zhl_hh")
(setq Q23 "qqq,	*zhl_qqq")
(setq Q24 "ol,	*zhl_col")
(setq Q25 "zj,	*zhl_cp")
(setq Q26 "ttt,	*zhl_ttt")
(setq Q27 "txt,	*zhl_txt")
(setq Q28 "ft,	*zhl_ft")
(setq Q29 "gl,	*zhl_gl")
(setq Q30 "fi,	*zhl_fi")
(setq Q31 "Thh,	*zhl_thh")
(setq Q32 "ad,	*zhl_ad")
(setq Q33 "tta,	*zhl_tta")
(setq Q34 "add,	*zhl_add")
(setq Q35 "ddx,	*zhl_ddx")
(setq Q36 "jk,	*zhl_jk")
(setq Q37 "kh,	*zhl_kh")
(setq Q38 "pz,	*zhl_pz")
(setq Q39 "tv,	*zhl_tv")
(setq Q40 "SXX,	*zhl_SXX")
(setq Q41 "TA,	*zhl_TA")
(setq Q42 "ao,	*zhl_ao")
(setq Q43 "eo,	*zhl_eo")
(setq Q44 "tp,	*zhl_tp")
(setq Q45 "at,	*zhl_at")
(setq Q46 "xz,	*zhl_xz")
(setq Q47 "mit,	*textmirrorfix")
(setq Q48 "Ed,	*zhl_ed")
(setq Q49 "b,	*zhl_b")
(setq Q50 "CX,	*zhl_CX")
(setq Q51 "xs,	*zhl_xs")
(setq Q52 "xa,	*zhl_x")
(setq Q53 "EF,	*zhl_EF")
(setq Q54 "zx,	*zhl_zx")
(setq Q55 "nm,	*zhl_nm")
(setq Q56 "sj,	*zhl_sj")
(setq Q57 "bl,	*zhl_bl")
(setq Q58 "bn,	*zhl_bn")
(setq Q59 "ab,	*zhl_ab")
(setq Q60 "ef,	*ZHL_ef")
(setq Q61 "gt,	*zhl_gt")
(setq Q62 "gA,	*zhl_gA")
(setq Q63 "gc,	*zhl_gc")
(setq Q64 "ge,	*zhl_ge")
(setq Q65 "gd,	*zhl_gd")
(setq Q66 "gF,	*zhl_gF")
(setq Q67 "vC,	*zhl_vC")
(setq Q68 "vvv,	*zhl_vvv")
(setq Q69 "vw,	*zhl_vw")
(setq Q70 "sw,	*zhl_sw")
(setq Q71 "fw,	*zhl_fw")
(setq Q72 "rw,	*zhl_rw")
(setq Q73 "Dw,	*zhl_dw")
(setq Q74 "xw,	*zhl_xw")
(setq Q75 "CW,	*zhl_Cw")
(setq Q76 "JD,	*zhl_JD")
(setq Q77 "SJD,	*zhl_SJD")
(setq Q78 "jda,	*zhl_jda")
(setq Q79 "dja,	*zhl_dja")
(setq Q80 "k,	*zhl_k")
(setq Q81 "aaa,	*zhl_aaa")
(setq Q82 "cC,	*zhl_c")
(setq Q83 "d,	*zhl_d")
(setq Q84 "dd,	*zhl_dd")
(setq Q85 "ff,	*zhl_ff")
(setq Q86 "fff,	*zhl_fff")
(setq Q87 "ffff,	*zhl_ffff")
(setq Q88 "zz,	*zhl_zz")
(setq Q89 "Ms,	*zhl_ms")
(setq Q90 "mst,	*zhl_mst")
(setq Q91 "sjB,	*zhl_sjB")
(setq Q92 "LG,  *ZHL_LG")
(setq Q93 "UP,  *ZHL_UP")
(setq Q94 "KB,  *ZHL_KB")
(setq Q95 "TQ,  *ZHL_TQ")
(setq Q96 "NB,  *ZHL_NB")
(setq Q97 "DDQ,  *ZHL_DDQ")
(setq Q98 "DDR,  *ZHL_DDR")
(setq Q999 "DDE,  *ZHL_DDE")
(setq Q99 "cb,	*zhl_cb")
(setq Q100 "sl,	*zhl_sl")
(setq Q101 "ssl,	*zhl_ssl")
(setq Q102 "EEE,	*zhl_EEE")
(setq Q103 "sz,	*zhl_sz")
(setq Q104 "sld,	*zhl_sld")
(setq Q105 "cr,	*zhl_cr")
(setq Q106 "-,	*zhl_-")
(setq Q107 "rv,	*zhl_rv")
(setq Q108 "AW,	*zhl_AW")
(setq Q109 "bb,	*SSBrk")
(setq Q110 "brr,	*zhl_brr")
(setq Q111 "dm,	*zhl_dm")
(setq Q112 "xy,	*zhl_xy")
(setq Q113 "xd,	*zhl_xd")
(setq Q114 "cv,	*zhl_cv")
(setq Q115 "t,	*zhl_t")
(setq Q116 "tt,	*zhl_tt")
(setq Q117 "tEE,	*zhl_tEE")
(setq Q118 "qa,	*zhl_qa")
(setq Q119 "qq,	*zhl_qq")
(setq Q120 "sb,	*zhl_sb")
(setq Q121 "wb,	*zhl_wb")
(setq Q122 "exd,	*export_dwg")
(setq Q123 "er,	*zhl_er")
(setq Q124 "lo,	*zhl_lo")
(setq Q125 "HX,     *ZHL_HX")
(setq Q126 "z0,	*zhl_z0")
(setq Q127 "cf,	*zhl_cf")
(setq Q128 "```,	*zhl_```")
(setq Q129 "``,	*zhl_``")
(setq Q130 "`,	*zhl_`")
(setq Q131 "`1,	*zhl_`1")
(setq Q132 "hr,	*zhl_hr")
(setq Q133 "xo,	*zhl_xo")
(setq Q134 "fg,	*zhl_fg")
(setq Q135 "j,	*zhl_j")
(setq Q136 "JJ,	*zhl_jj")
(setq Q137 "xg,	*zhl_xg")
(setq Q138 "CHS,	*ZHL_CHS")
(setq Q139 "pn,     *zhl_pn")
(setq Q140 "a2c,    *zhl_a2c")
(setq Q141 "tw,	*zhl_tw")
(setq Q142 "rrr,	*zhl_rrr")
(setq Q143 "hi,	*zhl_hi")
(setq Q144 "yt,	*zhl_yt")
(setq Q145 "ty,	*zhl_ty")
(setq Q146 "tyy,	*zhl_tyy")
(setq Q147 "tya,	*zhl_tya")
(setq Q148 "mn,	*zhl_mn")
(setq Q149 "SL,     *ZHL_SL")
(setq Q150 "SSL,    *ZHL_SSL")
(setq Q151 "0,      *ZHL_0 ")
(setq Q152 "SST,    *ZHL_SST ")
(setq Q153 "SSC,    *ZHL_SSC ")
(setq Q154 "SZ,     *ZHL_SZ ")
(setq Q155 "-,	*zhl_-")
(setq Q156 "uo,	*zhl_uo")
(setq Q157 "an,	*zhl_an")
(setq Q158 "ob,	*zhl_ob")
(setq Q159 "un,	*zhl_un")
(setq Q160 "setup,	*zhl_setup")
(setq Q161 "aq,	*zhl_aq")
(setq Q162 "qqq,	*zhl_qqq")
(setq Q163 "zzz,	*zhl_zzz")
(setq Q164 "vz,	*zhl_vz")
(setq Q165 "Car,	*zHL_CAR")
(setq Q166 "are,	*ZHL_ARE")
(setq Q167 "cd,	*zhl_cd")
(setq Q168 "btj,	*zhl_btj")
(setq Q169 "sa,	*zhl_sa")
(setq Q170 "ZW,	*zhl_ZW")
(setq Q171 "tt,	*zhl_tt")
(setq Q172 "qt,	*zhl_qt")
(setq Q173 "pm,	*zhl_pm")
(setq Q174 "DXFIN, *OPEN")
(setq Q175 "DBT,	*zhl_Dbt")
(setq Q176 "CHT,	*zhl_CHT")
(setq Q177 "JB,	*ZHL_jb")
(setq Q178 "DQQ,	*ZHL_DQQ")
(setq Q179 "TZ,	*zhl_Z")
(setq Q180 "bat,	*zhl_bat")
(setq Q181 "QC,	*zhl_QC")
(setq Q182 "11,	*zhl_11")
(setq Q183 "22,	*zhl_22")
(setq Q184 "33,	*zhl_33")
(setq Q185 "44,	*zhl_44")
(setq Q186 "55,	*zhl_55")
(setq Q187 "66,	*zhl_66")
(setq Q188 "77,	*zhl_77")
(setq Q189 "88,	*zhl_88")
(setq Q190 "99,	*zhl_99")
(setq Q191 "t1,	*zhl_t1")
(setq Q192 "T2,	*zhl_t2")
(setq Q193 "t3,	*zhl_t3")
(setq Q194 "t4,	*zhl_t4")
(setq Q195 "T5,	*zhl_t5")
(setq Q196 "t7,	*zhl_t7")
(setq Q197 "t8,	*zhl_t8")
(setq Q198 "t9,	*zhl_t9")
(setq Q199 "ll,	*zhl_ll")
(setq Q200 "lay,	*zhl_lay")
(setq Q201 "000,	*zhl_0")
(setq Q202 "00,	*zhl_00")
(setq Q203 "pu,	*zhl_pu")
(setq Q204 "ZB,	*zhl_ZB")
(setq Q205 "123,	*zhl_123")
(setq Q206 "1234,	*zhl_1234")
(setq Q207 "vb,	*zhl_vb")
(setq Q208 "ew,	*zhl_ew")
(setq Q209 "EC,	*zhl_EC")
(setq Q210 "se,	*zhl_se")
(setq Q211 "sea,	*zhl_sea")
(setq Q212 "sx,	*zhl_sx")
(setq Q213 "df,	*zhl_df")
(setq Q214 "DFF,  *ZHL_DFF")
(setq Q215 "da,	*zhl_da")
(setq Q216 "de,	*zhl_de")
(setq Q217 "dq,	*zhl_dq")
(setq Q218 "dl,	*zhl_dl")
(setq Q219 "gw,	*zhl_gw")
(setq Q220 "sd,	*zhl_sd")
(setq Q221 "SF, *ZHL_SF")
(setq Q222 "zs,	*zhl_zs")
(setq Q223 "db,	*zhl_db")
(setq Q224 "dv,	*zhl_dv")
(setq Q225 "dg,	*zhl_dg")
(setq Q226 "ddd,	*zhl_ddd")
(setq Q227 "dt,	*zhl_dt")
(setq Q228 "dh,	*zhl_dh")
(setq Q229 "dhr,	*zhl_dhr")
(setq Q230 "DIMR,	*dimradius")
(setq Q231 "Yd,	*zhl_yd")
(setq Q232 "lm,	*zhl_lm")
(setq Q233 "kk1,	*zhl_kk1")
(setq Q234 "kk,	*zhl_kk")
(setq Q235 "mm,	*zhl_mm")
(setq Q236 "pk,	*zhl_pk")
(setq Q237 "epk,	*zhl_epk")
(setq Q238 "tl,	*zhl_tl")
(setq Q239 "tl2,	*zhl_tl2")
(setq Q240 "tl4,	*zhl_tl4")
(setq Q241 "lmm,	*zhl_lmm")
(setq Q242 "pc,	*zhl_pc")
(setq Q243 "tc,	*zhl_tc")
(setq Q244 "lmc,	*zhl_lmc")
(setq Q245 "ML,    *ZHL_ML")
(setq Q246 "pk1,	*zhl_pk1")
(setq Q247 "tl21,	*zhl_tl21")
(setq Q248 "tl41,	*zhl_tl41")
(setq Q249 "hc,	*zhl_hc")
(setq Q250 "pc1,	*zhl_pc1")
(setq Q251 "tc1,	*zhl_tc1")
(setq Q252 "Dc,	*zhl_dc")
(setq Q253 "ecd,	*zhl_ecd")
(setq Q254 "mf,	*zhl_mf")
(setq Q255 "pp,	*zhl_pp")
(setq Q256 "ct,	*zhl_ct")
(setq Q257 "gz,	*zhl_gz")
(setq Q258 "tx,	*properties")
(setq Q259 "ccc,	*revcloud")
(setq Q260 "dvw,	*dview")
(setq Q261 "ju,	*justifytext")
(setq Q262 "ggg,	*ellipse")
(setq Q263 "ee,	*extend")
(setq Q264 "gq, *zhl_gq")
(setq Q265 "hd,	*hide")
(setq Q266 "g,	*line")
(setq Q267 "QL,	*qleader")
(setq Q268 "v,	*move")
(setq Q269 "vv,	*matchprop")
(setq Q270 "ww,	*mirror")
(setq Q271 "mea,	*measure")
(setq Q272 "oo,	*oops")
(setq Q273 "q,	*offset")
(setq Q274 "gg,	*pline")
(setq Q275 "rec,	*rectangle")
(setq Q276 "rr,	*rotate")
(setq Q277 "xxx,	*sketch")
(setq Q278 "xxxx,	*skpoly")
(setq Q279 "sss,	*spline")
(setq Q280 "ttt,	*txt2mtxt")
(setq Q281 "tttt,	*arctext")
(setq Q282 "tx,	*zhl_tx")
(setq Q283 "rf,	*zhl_rf")
(setq Q284 "js,	*zhl_js")
(setq Q285 "dk,	*zhl_dk")
(setq Q286 "hb,	*zhl_hb")
(setq Q287 "fxx,	*zhl_fxx")
(setq Q288 "rb,	*zhl_rb")
(setq Q289 "qz,	*zhl_qz")
(setq Q290 "RT,	*zhl_RT")
(setq Q291 "cs,	*zhl_cs")
(setq Q292 "RD,	*zhl_RD")
(setq Q293 "DP,	*ZHL_DP")
(setq Q294 "PF,	*ZHL_PF")
(setq Q295 "BT,	*ZHL_BT")
(setq Q296 "BP,	*ZHL_BP")
(setq Q297 "KG,	*ZHL_KG")
(setq Q298 "ON,	*ZHL_OPEN")
(setq Q299 "QW,    *ZHL_QW")
(setq Q300 "SY,    *ZHL_SY")
(setq Q301 "DY,    *ZHL_DY")
(setq Q302 "STR,    *ZHL_STR")
(setq Q303 "VF,    *ZHL_VF")
(setq Q304 "GB,     *ZHL_GB")
(setq Q305 "GF,     *ZHL_GF")
(setq Q306 "GS,     *ZHL_GS")
(setq Q307 "ZBZ,    *ZHL_ZBZ")
(setq Q308 "ET,     *ZHL_ET")
(setq Q309 "WZ,     *ZHL_WZ")
(setq Q310 "DR,	    *ZHL_DR")
(setq Q311 "CZ,	    *ZHL_CZ")
(setq Q312 "TH,	    *ZHL_TH")
(setq Q313 "TK,	    *ZHL_TK")
(setq Q314 "DDC,	*ZHL_DDC")
(setq Q315 "DAR,	*ZHL_DAR")
(setq Q316 "QD,     *ZHL_QD")
(setq Q317 "AD,     *ZHL_AD")
(setq Q318 "HG,     *ZHL_HG")
(setq Q319 "TS,     *ZHL_TS")
(setq Q320 "DX2,    *ZHL_DX2")
(setq Q321 "AS,     *ZHL_AS")
(setq Q322 "ZXX,    *ZHL_ZXX")
(setq Q323 "EA,     *ZHL_EA")
(setq Q324 "HJ,     *ZHL_HJ")
(setq Q325 "DDF,    *ZHL_DDF")
(setq Q326 "HR,     *ZHL_HR")
(setq Q327 "HV,     *ZHL_HV")
(setq Q328 "HS,     *ZHL_HS")
(setq Q329 "GV,     *ZHL_GV")
(setq Q330 "MIT,    *ZHL_MIT")
(setq Q331 "II,     *ZHL_II")
(setq Q332 "VR,     *ZHL_VR")
(setq Q333 "GR,     *ZHL_GR")
(setq Q334 "DX,     *ZHL_DX")
(setq Q335 "DSX,    *ZHL_DSX")
(setq Q336 "DSZ,    *ZHL_DSZ")
(setq Q337 "DSC,    *ZHL_DSC")
(setq Q338 "DSD,    *ZHL_DSD")
(setq Q339 "DSS,    *ZHL_DSS")
(setq Q340 "DDX,    *ZHL_DDX")
(setq Q341 "DDZ,    *ZHL_DDZ")
(setq Q342 "DDC,    *ZHL_DDC")
(setq Q343 "DDD,    *ZHL_DDD")
(setq Q344 "DDS,    *ZHL_DDS")
(setq Q345 "RG,     *ZHL_RG")
(setq Q346 "VG,     *ZHL_VG")
(setq Q347 "HK,     *ZHL_HK")
(setq Q348 "DSA,    *ZHL_DSA")
(setq Q349 "ZA,     *ZHL_ZA")
(setq Q350 "ZD,     *ZHL_ZD")
(setq Q351 "ZE,     *ZHL_ZE")
(setq Q352 "GX,     *ZHL_GX")
(setq Q353 "UU,     *ZHL_UU")
(setq Q354 "EDC,    *ZHL_EDC")
(setq Q355 "KI,     *ZHL_KI")
(setq Q356 "AF,     *ZHL_AF")
(setq Q357 "FA,     *ZHL_FA")
(setq Q358 "FS,     *ZHL_FS")
(setq Q359 "BGG,    *ZHL_BGG")
(setq Q360 "2lsp,   *ZHL_2lsp")
(setq Q361 "SP,     *ZHL_SP")
(setq Q362 "GH,     *ZHL_GH")
(setq Q363 "WS,     *ZHL_WS")
(setq Q364 "RE,     *REW")
(setq Q365 "BSC,    *ZHL_BSC")
(setq Q366 "DTT,    *ZHL_DTT")
(setq Q367 "AV,     *ZHL_AV")
(setq Q368 "RC,     *ZHL_RC")
(setq Q369 "DK,     *ZHL_DK")
(setq Q370 "FB,    *ZHL_FB")
(setq Q371 "ZC,    *ZHL_ZC")
(setq Q372 "EQ,    *ZHL_EQ")
(setq Q373 "FR,    *ZHL_FR")
(setq Q374 "ZM,    *ZHL_ZM")
(setq Q375 "DZ,    *ZHL_DZ")
(setq Q376 "LX,    *ZHL_LX")
(setq Q377 "JB,    *ZHL_JB")
(setq Q378 "MW,    *ZHL_MW")
(setq Q379 "DXB,   *ZHL_DXB")
(setq Q380 "LB,    *ZHL_LB")
(setq Q381 "BTT,   *ZHL_BTT")
(setq Q382 "SG,    *ZHL_SG")
(setq Q383 "CL,    *ZHL_CL")
(setq Q384 "FV,    *ZHL_FV")
(setq Q385 "DKK,   *ZHL_DKK")
(setq Q386 "YG,    *ZHL_YG")
(setq Q387 "PK2,   *ZHL_PK2")
(setq Q388 "N,     *ZHL_N")
(setq Q389 "TTB,   *ZHL_TTB")
(setq Q390 "WBB,   *ZHL_WBB")
(setq Q391 "FX,    *ZHL_FX")
(setq Q392 "ZQ,	   *ZHL_ZQ")
(setq Q393 "HT,    *ZHL_HT")
(setq Q394 "DJ,    *zhl_dj")
(setq Q395 "CK,    *zhl_CK")
(setq Q396 "jsm,   *zhl_jsm")
(setq Q397 "zpm,   *zhl_zpm")
(setq Q398 "sm,   *zhl_sm")
(setq Q399 "ttr,   *zhl_ttr")
(setq Q400 "HY,    *ZHL_HY")
(progn
(setq tempfile (strcat pgppath "\\t-pgp.txt"))
(setq fn1 (open tempfile "w"))
(setq i 0)
(repeat 391
 (write-line (eval (read (strcat "Q" (itoa (setq i (1+ i)))))) fn1)
)
(close fn1)
(vl-file-copy pgpfile tempfile t)
(vl-file-delete pgpfile)
(vl-file-rename tempfile pgpfile)
(vl-cmdf "re-init" "16")
      )
    )
  )
)
(defun c:add_ACADPGP ()
  (copypgp)
  (wrACADPGP)
)
