home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / EDITORES / VEDT.ZIP / COMPILE.VDM < prev    next >
Encoding:
Text File  |  1990-10-17  |  16.6 KB  |  973 lines
  1. R*
  2. R*    Compiler Support Macro - Version 1.41
  3. R*        Last Change: 10/16/90
  4. R*    To save disk space, all comments have been stripped.  However, the
  5. R*    COMPILE.VDM supplied with the real VEDIT and VEDIT PLUS are fully
  6. R*    commented.
  7. R*
  8. ES 7 1
  9. ES 8 2
  10. ES 9 1
  11. ES 10 1
  12.  
  13. .waXS(92)
  14. +7YEA
  15. 0XS(101)
  16. "E XS(102)
  17. 21[ (.rt(#102)==2)[ 1XA(101) ] 1XA(102) ]
  18. Q101[
  19.     YA YEN
  20.     YT"Registers E - Y may contain files. Do you want to Save them?" YEN
  21.     YT"[S]ave files; [A]bandon files; [C]ancel macro : "
  22.     [ XK(100)"" Q100&95XS(100) (Q100=="S | Q100=="A | Q100=="C)JL YA ] Q100YD
  23.  
  24.     (Q100=="C)[ JO ]
  25.     "E XS(102)
  26.     21[
  27.     (.rt(#102)==2)[
  28.         EE(#102)
  29.         ((Q100=="S) & .of)[ EY ]
  30.         @EQY
  31.         ]
  32.     1XA(102)
  33.     ]
  34.     ]
  35. RI(y)"EE(z) B 2F/!START!/ 0L -#K #:$S/R*|B|Y|>// EE(@) RJ(z)"
  36. RJ(y)
  37.  
  38. !START!
  39. (Q81<>302110 & Q81<>302111)[
  40.     0XS(99)
  41.     0XS(93)
  42.     0XS(82)
  43.     1XS(83)
  44.     302110XS(81)
  45.     -1XS(80)
  46.     0XS(79)
  47.     RE(k)
  48.     RI(t)"Error in COMPILE.CNF parameter: "
  49.     +RL(u) COMPILE.CNF
  50.     EE(u)
  51.  
  52.     B :N"SUPPORTPATH="
  53.     .es[ RI(+t)"SUPPORTPATH" JP"CNFERROR" ]
  54.     .pXBB :$N"|{|B,|>}" .es[ JP"CNFERROR" ]
  55.     -(.n+1)C $EM"\" .er[ C I"\" ]
  56.     .bb,.pRC(p) -XBB
  57.     .ed[ RE(p) ]
  58.  
  59.     0XS(101)
  60.     "NXS(100)
  61.     (.sd==3)[
  62.     B :N"COLORDISPLAY=" .cXS(100)
  63.     .es[ 1XA(101) RI(+t)"COLORDISPLAY" ]
  64.     (Q100=="?)[
  65.         YEC YEN
  66.         YT"Do you have a Color display on your computer (Y/N)? "
  67.         [ XK(100)"" Q100&95XS(100) (Q100=="Y | Q100=="N)JL YA ] Q100YD
  68.         ]
  69.     (Q100=="N)[ YYM ]
  70.     ]
  71.  
  72.     (Q100=="Y | .ed==0)[
  73.     B :N"INCLUDECOLOR=" .vXS(87) .es[ 1XA(101) RI(+t)"INCLUDECOLOR" ]
  74.     B :N"OPTIONSCOLOR=" .vXS(88) .es[ 1XA(101) RI(+t)"OPTIONSCOLOR" ]
  75.     B :N"HELPCOLOR="    .vXS(89) .es[ 1XA(101) RI(+t)"HELPCOLOR" ]
  76.     B :N"ERRORCOLOR="   .vXS(90) .es[ 1XA(101) RI(+t)"ERRORCOLOR" ]
  77.     B :N"MENUCOLOR="    .vXS(91) .es[ 1XA(101) RI(+t)"MENUCOLOR" ]
  78.     +Q92YEA
  79.     ][
  80.     7 XS(87)
  81.     7 XS(88)
  82.     112 XS(89)
  83.     112 XS(90)
  84.     15 XS(91)
  85.     ]
  86.  
  87.     B :N"ERRORBEEP=" (.c=="Y)XS(78) .es[ 1XA(101) RI(+t)"ERRORBEEP" ]
  88.     Q101[ RI(+t)" not found" JP"CNFERROR" ]
  89.  
  90.     :ED COMPILE.VCO
  91.     ~.rv[
  92.     :ED |RpCOMPILE.VCO
  93.     ~.rv[
  94.         B :N"DEFCOMPILE="
  95.         .es[ RI(+t)"DEFCOMPILE" JP"CNFERROR" ]
  96.         .pXBB :$N"|>" .es[JP"CNFERROR" ]
  97.         .bb,.pRC(r) -XBB
  98.         ][ +RL(r) |RpCOMPILE.VCO ]
  99.     ][ +RL(r) COMPILE.VCO ]
  100.  
  101.     RR(r,j)
  102.     EE(v) B#K RG(r)
  103.     B :$N"|{|B,|>}"
  104.     0,.p-.nRC(q)
  105.     EE(u)
  106.     :ED |Rp|Rq.VCS
  107.     ~.rv[ RI(t)"Support not found" JP"CNFERROR"]
  108.  
  109.     :ED LINK.VCO
  110.     ~.rv[
  111.     :ED |RpLINK.VCO
  112.     ~.rv[
  113.         B :N"DEFLINK="
  114.         .es[ RI(+t)"DEFLINK" JP"CNFERROR" ]
  115.         .pXBB :$N"|>" .es[JP"CNFERROR" ]
  116.         .bb,.pRC(l) -XBB
  117.         ][ +RL(l) |RpLINK.VCO ]
  118.     ][ +RL(l) LINK.VCO ]
  119.  
  120.     :ED DEBUG.VCO
  121.     ~.rv[
  122.     :ED |RpDEBUG.VCO
  123.     ~.rv[
  124.         B :N"DEFDEBUG="
  125.         .es[ RI(+t)"DEFDEBUG" JP"CNFERROR" ]
  126.         .pXBB :$N"|>" .es[JP"CNFERROR" ]
  127.         .bb,.pRC(o) -XBB
  128.         ][ +RL(o) |RpDEBUG.VCO ]
  129.     ][ +RL(o) DEBUG.VCO ]
  130.  
  131.     :ED MAKE.VCO
  132.     ~.rv[
  133.     :ED |RpMAKE.VCO
  134.     ~.rv[
  135.         B :N"DEFMAKE="
  136.         .es[ RI(+t)"DEFMAKE" JP"CNFERROR" ]
  137.         .pXBB :$N"|>" .es[JP"CNFERROR" ]
  138.         .bb,.pRC(m) -XBB
  139.         ][ +RL(m) |RpMAKE.VCO ]
  140.     ][ +RL(m) MAKE.VCO ]
  141.  
  142.     EQY
  143.     ]
  144.  
  145. (Q81==302110)[
  146.     302111XS(81)
  147.     +RA(z)
  148.     JO
  149.     ]
  150.  
  151. (Q99==1)[ JP"OP-O-E-1" ]
  152.  
  153. Q82>0[
  154.     YEN XK(100)"BREAKOUT! - Press any key to continue..."
  155.     Q100=24[ -RA JO ]
  156.     0XS(79)
  157.     ]
  158.  
  159. !MAIN!
  160. +RA(z)
  161. ES 8 2
  162. ES 5 1
  163. 1RPROT(f,z)
  164. Q79>0[ JP"MAKE_LOOP" ]
  165.  
  166. 0XS(98)
  167. 1XS(82)
  168. 22085YYE
  169. .rt(g)=2[ EE(g) EQY ]
  170. .rt(h)=2[ EE(h) EQY ]
  171. .rt(n)=2[ EE(n) EQY ]
  172. .rt(u)=2[ EE(u) EQY ]
  173. .rt(v)=2[ EE(v) EQY ]
  174. RE(t)
  175. EE(@)
  176. Q80>-1[
  177.     :EZY
  178.     .u(x)>0[ EB |Rx Q80EJ .c=10[ -1c ] ]
  179.     -1XS(80)
  180. ]
  181.  
  182. RE(x)
  183. .of[
  184.     YR(x) +:EW -YR
  185.     ~.u(w)[ RR(x,w) ]
  186. ]
  187. Q83>0[
  188.     0XS(83)
  189.     +RL(y) |Rp|Rq.VCS
  190.     RR(j,r)
  191.     ]
  192. (Q86==302110)[
  193.     0XS(86)
  194.     1XS(93)
  195.     JP"OPTION-R"
  196.     ]
  197.  
  198. YWI YWB(h) 1 YWR(m) 45
  199. -V
  200.  
  201. YWS(h) Q89YEA YEC YT" Select desired option"
  202. YWS(m) Q91YEA YEC
  203. YT"      COMPILER SUPPORT Ver. 1.41"
  204. YEN YT"---------------------------------------------"
  205. YEN YT" Compiler Name.." 0XS(96) M(y)
  206. YEN YT" Compiler......." RD(r)
  207. YEN YT" Linker........." RD(l)
  208. YEN YT" Debugger......." RD(o)
  209. YEN YT" Make..........." RD(m)
  210. YEN YT" Project File..." RD(w)
  211. YEN YT" Edit File......" RD(x)
  212. YEN YT" Default Ext... Edit="
  213. EE(v) EQY 4XS(96) M(y) RT(v)
  214. YT" Proj="
  215. EE(v) EQY 5XS(96) M(y) RT(v)
  216. YT"
  217.  
  218.  E..Edit current file  S..Select compiler
  219.  N..Edit new file      O..Change options
  220.  P..Specify project    G..Goto DOS
  221.  C..Run Compiler       R..Reexamine errors
  222.  L..Run Linker         Q..Quit support
  223.  D..Run Debugger       X..Exit VEDIT
  224.  M..Run Make
  225.  Enter Letter: "
  226.  
  227. [
  228.     :XK(84)//
  229.     Q84&95XS(84) Q84=26[ JN ]
  230.     EE(v) B #K Q84EI B
  231.     $N"|{E,N,P,C,L,D,M,S,O,G,R,Q,X,}"
  232.     ~.es[ JL ]
  233.     Q78[ YA ]
  234. ]
  235. -1T
  236. YEN
  237. JP"OPTION-|Rv"
  238.  
  239. !CONTBEEP!
  240. Q78[ YA ] YEN YEB
  241. !CONTMAIN!
  242. XK(84)"Press any key to continue..." YEN
  243. JP"MAIN"
  244.  
  245. !OPTION-!
  246. 0RPROT(f,z)
  247. -RA JO
  248.  
  249. !OPTION-E!
  250. 12XS(98)
  251. ~.u(x)[
  252.     EE(v) EQY :RQ(v)" File: "
  253.     ~.u(v)[ 4XS(96) M(y) ]
  254.     RF(v) |Rv
  255.     ~.u(v)[ JP"MAIN" ]
  256.     RR(v,x)
  257.     EE(@) EB|Rx
  258.     ]
  259.  
  260. YWD(m)
  261. YWS(h) Q89YEA YEC
  262. YT"Edit file; press ESC to return to Compiler Support menu"
  263. 0XS(82) EE(@) V
  264. JP"START"
  265.  
  266. !OPTION-N!
  267. 13XS(98)
  268. EE(@)
  269. .oa[
  270.     YT" Save current file (Y/N)? "
  271.     #[
  272.     XK(84)"" Q84&95XS(84)
  273.     Q84="Y[ YT"Y" :EY JL ]
  274.     Q84="N[ YT"N" EZY JL ]
  275.     Q78[ YA ]
  276.     ]
  277.     YEN
  278. ][
  279.     EZY
  280. ]
  281. RE(x)
  282. JP"OPTION-E"
  283.  
  284. !OPTION-G!
  285. :RQ(i)" DOS Command: "
  286. .u(i)>0[
  287.     YWS(@) YEB -YWZ
  288.     @OC"|Ri"
  289.     ][
  290.     YWI    .sl-1YEV
  291.     OS
  292.     ]
  293. JP"MAIN"
  294.  
  295. !OPTION-X!
  296. -:EK |RkVCS.TMP
  297. YWI
  298. EE(@) .oa[
  299.     Q78[ YA ] YEN
  300.     YT"The Edit File has not been saved! Do you want to save it?" 2YEN
  301.     YT"[S]ave file; [A]bandon file; [C]ancel, return to main menu : "
  302.     [ XK(100)"" Q100&95XS(100) (Q100=="S | Q100=="A | Q100=="C)JL Q78[ YA ] ] Q100YD
  303.  
  304.     Q100="C[ JP"MAIN" ]
  305.     Q100="S[ EY ]
  306.     Q100="A[ EQY ]
  307.     ]
  308.  
  309. (.rt(a)==2 | .rt(b)==2 | .rt(c)==2 | .rt(d)==2) [
  310.     Q78[ YA ] YEN
  311.     YT"Registers A - D may contain files. Do you want to Save them?" 2YEN
  312.     YT"[S]ave files; [A]bandon files; [C]ancel, return to main menu : "
  313.     [ XK(100)"" Q100&95XS(100) (Q100=="S | Q100=="A | Q100=="C)JL Q78[ YA ] ] Q100YD
  314.  
  315.     Q100="C[ JP"MAIN" ]
  316.     .sl-2YEV YT"VEDIT - Compiler Support" YEN
  317.     Q100="S[ EXA ]
  318.     Q100="A[ EQAY ]
  319.     ]
  320.  
  321. .sl-2YEV YT"VEDIT - Compiler Support" YEN
  322. EQAY
  323.  
  324. !OPTION-Q!
  325. YWD(m) YWD(h)
  326. -:EK |RkVCS.TMP
  327. EE(s) EQY EE(v) @EQY
  328. ES 8 0
  329. 0XS(81)
  330. 0RPROT(f,z)
  331. 0YYE
  332. -RA
  333. RI(y)"EE(z) @EQY +JO"
  334. RJ(y)
  335.  
  336. !OPTION-P!
  337. 14XS(98)
  338. 0XS(93)
  339. EE(v) EQY :RQ(v)" File: "
  340. ~.u(v)[ 5XS(96) M(y) ]
  341. RF(v) |Rv
  342. ~.u(v)[ JP"MAIN" ]
  343. :ED |Rv
  344. ~.rv[
  345.     YEN YT" Project file not found!"
  346.     JP"CONTBEEP"
  347.     ]
  348. RR(v,w)
  349. ~.u(x)[
  350.     RR(w,x)
  351.     EE(@) EB|Rx
  352.     ]
  353. JP"MAIN"
  354.  
  355. !OPTION-R!
  356. 25XS(98)
  357. Q93=0[
  358.     YEN YT" Errors unavailable!" YEN
  359.     JP"CONTMAIN"
  360. ]
  361. YWD(m)
  362. JP"OP-C-COMM"
  363.  
  364. !OPTION-S!
  365. 16XS(98)
  366. EE(v) EQY
  367. .wl-1YEV YEL
  368. :RQ(v)" (Do not include path or .VCS extension)
  369.  Compiler: "
  370. EE(u) B #K RG(v) B $N"|{:,\,.}"
  371. ~.es[
  372.     YEN YT"Paths and extensions not allowed!"
  373.     JP"CONTBEEP"
  374.     ]
  375. ~.u(v)[ RI(v)"*" ]
  376. RF(v) |Rp|Rv.VCS
  377. ~.u(v)[ JP"MAIN" ]
  378. :ED |Rv
  379. ~.rv[
  380.     YWS(m) YEN YT" Specified compiler not found!"
  381.     JP"CONTBEEP"
  382.     ]
  383. EE(v) B
  384. $N"|{ ,.,|>}" -.nC #D
  385. Z -$N"|{\,:,|<}" .nC 0K
  386. EE(@)
  387. RR(v,q)
  388. :ED |Rq.VCO
  389. ~.rv[
  390.     :ED |Rp|Rq.VCO
  391.     ~.rv[ RI(r)"|Rq -proj.ext"
  392.     ][
  393.     +RL(r) |Rp|Rq.VCO
  394.     ]
  395.     ][
  396.     +RL(r) |Rq.VCO
  397.     ]
  398. EE(u) B #K
  399. RG(r)
  400. B .pXBB N"|>" .bb,.pRC(r)
  401. L .eofJP"OPTION-S-1"
  402. .pXBB N"|>"
  403. (.p>.bb)[ .bb,.pRC(l) ]
  404. L .eofJP"OPTION-S-1"
  405. .pXBB N"|>"
  406. (.p>.bb)[ .bb,.pRC(o) ]
  407. L .eofJP"OPTION-S-1"
  408. .pXBB N"|>"
  409. (.p>.bb)[ .bb,.pRC(m) ]
  410.         
  411. !OPTION-S-1!
  412. -XBB
  413. RR(r,j)
  414. 1XS(83)
  415. 0XS(93)
  416. JP"MAIN"
  417.  
  418. !OPTION-O!
  419. 20XS(98)
  420. 0XS(99)
  421. YWD(o)
  422. YWS(m) Q91YEA YEC
  423. YEN YT"           Change Options Sub-menu"
  424. YEN YT"---------------------------------------------" YEN
  425. YEN YT" Compiler Name.." 0XS(96) M(y)
  426. YEN YT" Compiler......." RD(r)
  427. YEN YT" Linker........." RD(l)
  428. YEN YT" Debugger......." RD(o)
  429. YEN YT" Make..........." RD(m)
  430. YT"
  431.  
  432.  C....Compiler command
  433.  L....Linker command
  434.  D....Debugger command
  435.  M....Make command
  436.  X....Exit Options Menu
  437.  
  438.  Enter Letter: "
  439. [
  440.     :XK(84)//
  441.     Q84&95XS(84)
  442.     Q84="C [ 21XS(98) JP/OP-O/ ]
  443.     Q84="M [ 22XS(98) JP/OP-O/ ]
  444.     Q84="D [ 23XS(98) JP/OP-O/ ]
  445.     Q84="L [ 24XS(98) JP/OP-O/ ]
  446.     Q84="X [ JP/MAIN/ ]
  447.     Q78[ YA ]
  448. ]
  449.  
  450. !OP-O!
  451. YWD(m)
  452. YWB(o) 1
  453. YWR(m) 45
  454.  
  455. !OP-O-1!
  456. YWS(o) Q88YEA YEC
  457. YT" Current command: "
  458. Q98=21[ RT(r) ]
  459. Q98=22[ RT(m) ]
  460. Q98=23[ RT(o) ]
  461. Q98=24[ RT(l) ]
  462.  
  463. YWS(h) Q89YEA YEC YT" Select desired option"
  464. EE(@) -V
  465. YWS(m) Q91YEA YEC
  466.  
  467. YEN
  468. Q98=21[ YT"    Change Compiler command" ]
  469. Q98=22[ YT"    Change Make command" ]
  470. Q98=23[ YT"    Change Debugger command" ]
  471. Q98=24[ YT"    Change Linker command" ]
  472. YEN YT"---------------------------------------------"
  473. 2YEN YT" Compiler Name: " 0XS(96) M(y)
  474.  
  475. YT"
  476.  
  477.  E....Edit command
  478.  H....Help with compiler options
  479.  L....Load command
  480.  S....Save command
  481.  X....Exit Command Menu
  482.  
  483.  Enter Letter: "
  484.  
  485. [
  486.     :XK(84)//
  487.     Q84&95XS(84)
  488.     Q84="E [ JP/OP-O-E/ ]
  489.     Q84="H [ JP/OP-O-H/ ]
  490.     Q84="L [ JP/OP-O-L/ ]
  491.     Q84="S [ JP/OP-O-S/ ]
  492.     Q84="X [ JP/OPTION-O/ ]
  493.     Q78[ YA ]
  494. ]
  495.  
  496. !OP-O-E!
  497. 1XS(99)
  498.  
  499. YWS(h) Q89YEA YEC
  500. YT"Press ESC when done, -PROJ.EXT=place project file -PROJ=project no ext."
  501. YWS(o) YEC
  502. EE(v) B #K YI
  503. Q98=21[ RT(r) ]
  504. Q98=22[ RT(m) ]
  505. Q98=23[ RT(o) ]
  506. Q98=24[ RT(l) ]
  507. -YI B
  508. 0XS(82) V
  509.  
  510. !OP-O-E-1!
  511. 0XS(99)
  512. EE(v)
  513. B #:$S/|L/ / B
  514. Q98=21[ 1RC(r) ]
  515. Q98=22[ 1RC(m) ]
  516. Q98=23[ 1RC(o) ]
  517. Q98=24[ 1RC(l) ]
  518. EQY
  519. JP"OP-O-1"
  520.  
  521. !OP-O-H!
  522. 2XS(99)
  523. EE(u) EQY
  524. Q98=21[ RR(q,u) RR(p,-u) ]
  525. Q98=22[ RI(u)"MAKE" RR(p,-u) ]
  526. Q98=23[ RI(u)"DEBUG" RR(p,-u) ]
  527. Q98=24[ RI(u)"LINK" RR(p,-u) ]
  528.  
  529. :ED |Ru.VCH
  530. ~.rv[
  531.     :XK(100)"
  532.  No help available!
  533.  Press any key to continue..."
  534.     ][
  535.     YWZ YEC
  536.     EE(v) EQY RL(v) |Ru.VCH RT(v)
  537.     YWS(o)
  538.     ]
  539. JP"OP-O-1"
  540.  
  541. !OP-O-L!
  542. 3XS(99)
  543. EE(v) EQY
  544. 0YYE
  545. :RQ(v)"
  546.  (Do not include .VCO extension)
  547.  File: "
  548. EE(u) B #K RG(v) B N"."
  549. ~.es[ JP"OP-O-ERR" ]
  550. 22085YYE
  551. ~.u(v)[ RI(v)"*" ]
  552. RI(+v)".VCO"
  553. EE(u) B #K RG(v) B $N"|{*,?}"
  554. .es[
  555.     :ED |Rv
  556.     ~.rv[
  557.     B $N"|{\,:}"
  558.     .es[ RR(p,-v) ]
  559.     ]
  560.     JP"OP-O-L-1"
  561.     ]
  562. :ED |Rv
  563. .rv>0[
  564.     YWS(m) :XK(84)"
  565.  Load from Current Directory? (Y/N) "
  566.     (Q84&95)<>"Y[ RR(p,-v) ]
  567.     ][
  568.     RR(p,-v)
  569.     ]
  570. RF(v) |Rv
  571. ~.u(v)[ JP"OP-O-1" ]
  572.  
  573. !OP-O-L-1!
  574. :ED |Rv
  575. ~.rv[
  576.     Q78[ YA ]
  577.     YWS(m) :XK(100)"
  578.  Options file not found!
  579.  Press any key to continue..."
  580.     ][
  581.     EE(u) EQY RL(u) |Rv
  582.     EE(u) B #:$S/|L/ / B
  583.     Q98=21[ 1RC(r) ]
  584.     Q98=22[ 1RC(m) ]
  585.     Q98=23[ 1RC(o) ]
  586.     Q98=24[ 1RC(l) ]
  587.     ]
  588. JP"OP-O-1"
  589.  
  590. !OP-O-S!
  591. 4XS(99)
  592. EE(v) EQY
  593. :RQ(v)"
  594.  (Do not include .VCO extension)
  595.  File: "
  596. EE(u) B #K RG(v) B N"."
  597. ~.es[ JP"OP-O-ERR" ]
  598. ~.u(v)[ RI(v)"*" ]
  599. EE(u) B #K RG(v) B $N"|{\,:}"
  600. .es[
  601.     YWS(m) :XK(84)"
  602.  Save in Current Directory? (Y/N) "
  603.     (Q84&95)<>"Y[ RR(p,-v) ]
  604.     ]
  605. RF(v) |Rv.VCO
  606. ~.u(v)[ JP"OP-O-1" ]
  607. :ED |Rv
  608. .rv[
  609.     YWS(m) :XK(84)"
  610.  File already exists!
  611.  Overwrite (Y/N)?...."
  612.     (Q84&95)<>"Y[ JP"OP-O-1" ]
  613.     ]
  614. Q98=21[ -RS(r) |Rv ]
  615. Q98=22[ -RS(m) |Rv ]
  616. Q98=23[ -RS(o) |Rv ]
  617. Q98=24[ -RS(l) |Rv ]
  618. JP"OP-O-1"
  619.  
  620. !OP-O-ERR!
  621. Q78 [ YA ]
  622. XK(100)"
  623.  Extensions not allowed!
  624.  Press any key to continue..."
  625. JP"OP-O-1"
  626.  
  627. !OPTION-D!
  628. 18XS(98)
  629. EE(@) .oa[ :EA ]
  630. EE(u) B #K RG(o)
  631. JP"ADD_PROJECT"
  632.  
  633. !OP-D-1!
  634. Z 0,.pRC(i)
  635. YWI .sl-1YEV
  636. RT(i)
  637. @OC"|Ri"
  638. JP"MAIN"
  639.  
  640. !OPTION-L!
  641. 17XS(98)
  642. EE(@) .oa[ :EA ]
  643. EE(u) B #K RG(l)
  644. JP"ADD_PROJECT"
  645.  
  646. !OP-L-1!
  647. Z 0,.pRC(i)
  648. YWI .sl-1YEV
  649. RT(i)
  650. -:EK |RkVCS.TMP
  651. @OC"|Ri > |RkVCS.TMP"
  652. JP"OP-C-COMM"
  653.  
  654. !OPTION-M!
  655. 19XS(98)
  656. RR(j,f)
  657. EE(@) .oa[ :EA ]
  658. EE(u) B #K RG(m)
  659. JP"ADD_PROJECT"
  660.  
  661. !OP-M-1!
  662. Z 0,.pRC(i)
  663. 1XS(83)
  664. YWI .sl-1YEV
  665. RT(i)
  666. -:EK |RkVCS.TMP
  667. -@OC"|Ri > |RkVCS.TMP"
  668. JP"OP-C-COMM"
  669.  
  670. !OP-M-2!
  671. .rc>0[
  672.     JP"OP-C-DISPLAY"
  673.     ]
  674. EE(s)
  675. B #S"=(noexec)>""
  676. B :$N"|<|W"
  677. .es[ JP"OP-C-DISPLAY" ]
  678. B [ F"|<|N|W" ; 0KK ]
  679. B #:$S"|<|W""
  680. B #:$S"
  681.  
  682. "
  683. "
  684. B #RC(n)
  685. 1XS(79)
  686.  
  687. !MAKE_LOOP!
  688. .wt>1[ YWI ]
  689. [
  690.     -:EK |RkVCS.TMP
  691.     EE(u) EQY
  692.     EE(n)
  693.     _B Q79-1L .eof[ JL ]
  694.     $N"|{|B,|>}" -C
  695.     -$N"|{|<,:,\,|B}"
  696.     (.c="\)^(.c=":)[ C ] .pXBB
  697.     $N"|{|B,|>,.}" .pXBE
  698.     RE(t) .bb,.be-1RC(t)
  699.     0L .pXBB
  700.     :$N"|>" .pXBE
  701.     .bb,.beRC(u)
  702.     0L EM"echo"
  703.     ~.es [
  704.     EO 16 0
  705.     .rvXS(100)
  706.     -@OC"|Ru"
  707.     EO 16 Q100
  708.     1XA(79)
  709.     JN
  710.     ]
  711.     .sl-1YEV RT(u)
  712.     EE(v) B #K
  713.     RG(t) B RM(f)
  714.     EQY EE(n)
  715.     (.rv<>0)[
  716.     :ED |Rp|Rt.VCS
  717.     ~.rv[
  718.         -@OC"|Ru"
  719.         1XA(79)
  720.         _B Q79-1L .eof[ JL ]
  721.  
  722.         .rc>0[ JP"CONTMAIN" ]
  723.         JN
  724.         ]
  725.     +:RL(y) |Rp|Rt.VCS
  726.     RR(t,f)
  727.     ]
  728.  
  729.     -@OC"|Ru > |RkVCS.TMP"
  730.     :ED |RkVCS.TMP
  731.     ~.rv[ 1XA(79) JN ]
  732.     EE(g) EQY EE(h) EQY
  733.     EE(s) EZY EB |RkVCS.TMP
  734.     2XS(96) M(y)
  735.     ~.rt(h)[ 1XA(79) JN ][
  736.     JP"OP-C-ERR"
  737.     ]
  738.     ]
  739.  
  740. 0XS(79)
  741. 0XS(93)
  742. JP"CONTMAIN"
  743.  
  744. !OPTION-C!
  745. 15XS(98)
  746. 0XS(93)
  747. EE(u) B #K RG(r)
  748.  
  749. !ADD_PROJECT!
  750. EE(@) .oa[ :EA ]
  751. EE(u) B
  752. N"-proj"
  753. ~.es[
  754.     ~.rt(w)[
  755.     EE(v) EQY YEN :RQ(v)" Project file: "
  756.     ~.u(v)[ 4XS(96) M(y) ]
  757.     RF(v) |Rv
  758.     ~.u(v)[ JP"MAIN" ]
  759.     :ED |Rv
  760.     ~.rv[ JP"MAIN" ][ RR(v,w) ]
  761.     ~.u(x)[
  762.         RR(w,x)
  763.         EE(@) EB|Rx
  764.         ]
  765.     ]
  766.     EE(u)
  767.     EM".ext"
  768.     ~.es[
  769.     -9D RG(w)
  770.     ][
  771.     -5d RG(w)
  772.     .pXBB
  773.     -4C N"."
  774.     ~.es[ .p-1,.bbK ]
  775.     ]
  776.     ]
  777.  
  778. (Q98=17)[ JP"OP-L-1" ]
  779. (Q98=18)[ JP"OP-D-1" ]
  780. (Q98=19)[ JP"OP-M-1" ]
  781.  
  782. !OP-C-1!
  783. .wt>1[ YWI ]
  784. .sl-1YEV
  785. 0XS(96) M(y) YT" - " RT(u)
  786. -:EK |RkVCS.TMP
  787. 1XS(96) M(y)
  788.  
  789. !OP-C-COMM!
  790. :ED |RkVCS.TMP
  791. ~.rv[
  792.     YWS(@) Q87YEA YEC
  793.     3YEV YT"
  794.     No Error file created or
  795.     cannot run specified compiler/tool.
  796.  
  797.     Possible causes:      Can't find COMMAND.COM
  798.                 Insufficient free memory
  799.                 Compiler/tool not found" YEN
  800.     JP"CONTBEEP"
  801.     ]
  802. EE(s) EZY EB |RkVCS.TMP
  803. _B #\S"\r"
  804. "
  805. _B
  806.  
  807. (Q98=15 | Q98=25)[ JP"OP-C-ERR" ]
  808. (Q98=19)[ JP"OP-M-2" ]
  809.  
  810. !OP-C-DISPLAY!
  811. ~.ws(h)[ YWI YWB(h) 1 ]
  812. YWS(@) Q87YEA
  813. EE(s) -V
  814. YWS(h) Q89YEA YEC YT'Press "V" to view output; any other key to continue: '
  815. XK(100)"" Q100&95XS(100)
  816. Q100="V[
  817.     YWS(h) Q89YEA YEC
  818.     YT"View file; press ESC to return to main menu"
  819.     V
  820.     ]
  821.  
  822. JP"MAIN"
  823.  
  824. !OP-C-ERR!
  825. 1XS(93)
  826. _Z 13EI 10EI
  827. _B
  828. RE(t)
  829. EE(g) EQY EE(h) EQY
  830. 2XS(96)
  831. EE(s) M(y)
  832. ~.u(h)[ JP"OP-C-DISPLAY" ]
  833. EE(@) .of[
  834.     :EY
  835.     Q80=-1[ .pXS(80) ]
  836.  
  837.     ]
  838. 2XS(96)    EE(s) _B
  839.  
  840. ~.ws(h)[ YWI YWB(h) 1 ]
  841. YWS(@) Q87YEA
  842.  
  843. #[
  844.     0XS(75)
  845.     EE(g) EQY EE(h) EQY
  846.     EE(s) M(y)
  847.     ~.u(h)[
  848.     YWS(@) YWB(e) 1 YWS(e) Q90YEA YEC
  849.     YT"No more errors"
  850.     EE(@) .of[ :EX ] RE(t)
  851.     ][
  852.     .rt(g)[
  853.         EE(g) B #$S"/"\" B
  854.         RM(t) .rv>0[
  855.         EE(@) .of[ :EY ]
  856.         EB |Rg
  857.         ]
  858.         ][
  859.         EE(@) .of[ :EY ]
  860.         ]
  861.     RR(g,t)
  862.     EE(h)
  863.     Z .lnXS(94)
  864.     EP 7 (.wc-1) .rvXS(85)
  865.     Q94XS(97) Q97[
  866.         B (Q97-1)L $N"|>"
  867.         (.cn>.mr)[
  868.         13EI 10EI -1L 13EI 10EI
  869.         .pXS(84) 1YF
  870.         -2D Q84EJ -2D
  871.         ]
  872.         -1XA(97)
  873.         ]
  874.     Z .lnXS(94) EP 7 Q85
  875.     Q94>8[ 8XS(94) ]
  876.     YWS(@) YWB(e) Q94
  877.     YWS(e) Q90YEA YEC RT(h)
  878.     EE(v) EQY
  879.     EE(@) _B 6XS(96) M(y)
  880.     [ .cn>=Q75JL 1C ]
  881.     ]
  882.  
  883. !OP-C-4!
  884.     EE(@) YWS(@) Q87YEA
  885.     .u(h)>0[
  886.     ~.u(g)[
  887.         YWS(@) YEC YT"
  888.     Error not related to a particular source file.
  889.  
  890.     See error message below or press B to examine error list."
  891.         ][
  892.         YWS(h) Q89YEA YEC
  893.         YT"Edit file; press <Esc> for other options"
  894.         V
  895.         ]
  896.     ]
  897.     #[
  898.     YWS(h) Q89YEA YEC YT" Select option from status line"
  899.     Q79>0[
  900. +:XK(84)" (N)ext  (P)rev  (F)irst  (B)rowse  (M)ake  (R)etry  (S)kip  (E)xit to Menu "
  901.         ][
  902. +:XK(84)" (N)ext  (P)revious  (F)irst  (B)rowse  (R)ecompile  (E)xit to Menu "
  903.         ]
  904.     Q84&95XS(84)
  905.  
  906.     Q84=27[ JP"OP-C-4" ]
  907.     Q84="N[ 2XS(96) JL ]
  908.     Q84="P[ 3XS(96) JL ]
  909.     Q84="F[ 2XS(96) EE(s) _B JL ]
  910.     Q84="B[
  911.         YWD(e)
  912.         YWS(h) Q89YEA YEC
  913.         YT"Position on desired error and press <Esc> "
  914.         YWS(@) EE(s) 2XS(96) V 0L JL
  915.         ]
  916.  
  917.     ((Q84="R) | (Q84="E) | (Q84="X) | (((Q84="M) | (Q84="S)) & Q79))[
  918.         EE(@) .oa[ :EA ]
  919.         ][
  920.         Q78[ YA ]
  921.         JP"OP-C-4"
  922.         ]
  923.  
  924.     (((Q84="E) | (Q84="X)) & Q79)[
  925.         0XS(79)
  926.         0XS(93)
  927.         ]
  928.  
  929.     (Q84="R) & (Q79=0)[
  930.         RE(t)
  931.         Q98=19[ JP"OPTION-M" ]
  932.         JP"OPTION-C"
  933.         ]
  934.  
  935.     (Q84="M)[
  936.         0XS(79)
  937.         0XS(93)
  938.            EE(n) EQY EE(s) EQY
  939.         JP"OPTION-M"
  940.         ]
  941.  
  942.     (Q84="S)[
  943.         1XA(79)
  944.         ]
  945.  
  946.     JP"MAIN"
  947.  
  948.     ]
  949.  
  950.     .ws(e)[ YWD(e) ]
  951.     ]
  952.  
  953. JP"MAIN"
  954.  
  955. !ERROR!
  956. !CNFERROR!
  957. YWI
  958. -RA
  959. 0YYE
  960. YEN YT"Fatal compiler support error!" 2YEN
  961. RI(+t)"
  962.  
  963.            ERROR: Possible Compiler Support Configuration Error!
  964.      Check the COMPILE.CNF file for an incorrect path or default compiler.
  965.            (COMPILE.CNF will be loaded for you)"
  966.  
  967. RT(t) 2YEN
  968. XK(84)"Press any key to continue..."
  969. "AXS(85) 25[ EE(#85) EQY 1XA(85) ]
  970. EE(@) .of[ EY ]
  971. EB |RpCOMPILE.CNF
  972. V
  973. JO