home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 04 / MOD48H.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-10-29  |  31KB  |  908 lines
  1. sta_mes
  2. Statistika spot
  3. eby - m
  4. sta_obr
  5. Statistika obrat
  6.  za rok F
  7. P_DRUH
  8. horW_PRGSTA
  9. aW_NAZ
  10. , naPRE_IDE
  11. atW_ROKA
  12. eGET_ROK
  13. p1_rada
  14. xp1_rada
  15. m1_obr
  16. ident
  17. m1_obr_a
  18. ident
  19. m1_zas
  20. x1_zas
  21. m1_kalk
  22. x1_kalk
  23. m1_ident
  24. ident
  25. material
  26. Zadejte 
  27. slo polo
  28. Statist.
  29. RIIS 4.8
  30. mod48c
  31. Identifikace
  32. ident
  33. ident
  34. Ident.odb
  35. ratele
  36. m1_ident.ident_odb
  37. m1_ident.ident_odb
  38. zev polo
  39. m1_ident.nazev
  40. m1_ident.nazev
  41. ' '+m1_ident.kod_pol+' '
  42. m1_ident.kod_pol
  43. m1_ident.typ
  44. m1_ident.typ
  45. m1_ident.rada
  46. m1_ident.rada
  47. m1_ident.mj
  48. m1_ident.mj
  49. P1_RADA
  50. orXP1_RADA
  51. aM1_OBR
  52.  naIDENT
  53. atM1_OBR_A
  54. eM1_ZAS
  55.  sX1_ZAS
  56. M1_KALK
  57. itX1_KALK
  58. coM1_IDENT
  59. pID_ORG
  60. 0,fMATERIAL
  61. ,POLEX
  62. 9,f1PROCX
  63. te fRTOP
  64. f1on,RBOT
  65.  f4_jCLEFT
  66. g, tCRIGHT
  67. 7_jFREEZE
  68. prORDER
  69. 9prgHOR
  70. ey, f9DOL
  71.  f10_jLEVA
  72. pPRAVA
  73. rameNADPIS
  74. s, ZAHL
  75. , kliJMENO
  76. az, HODN
  77. prSOUC
  78. tr_hlPSOUC
  79. l2,tTITLE
  80. tr_hTITLECOLORPOC0
  81. 6,tr_F0
  82.  tr_hl8F1
  83. priF2
  84.  det_jmF3
  85. er,detaF4
  86. etprg, F6
  87. ine, psF7
  88. urn, psF9
  89. f1  F10
  90. f2F0PRG
  91.  = .tF1PRG
  92.   = F4_JM
  93.     F4PRG
  94. 7   TISKPRG
  95. 9 F7_JM
  96. fF7PRG
  97.  'ZaF9PRG
  98. sloF9KEY
  99. y :'F9KEY1
  100. F10_JM
  101. F10PRG
  102. RAMECEK
  103. edRIIS
  104. NAZEVT
  105. ---KLICO
  106. ----KLNAZ
  107. ----SPACEBAR
  108. -TR_HL1
  109.  stTR_HL2
  110.  spTR_HL3
  111.  --TR_HL4
  112. ---TR_HL5
  113. ---TR_HL6
  114. ---TR_HL7
  115. ---TR_HL8
  116. eteTR_HL9
  117. DET_JM
  118. tabENTER
  119. o caDETAIL
  120. se DETPRG
  121.  'mPS_LINE
  122.  wPS_RETURN
  123. PS_ZAZN
  124.   W_PRGSTA
  125.  W_NAZ
  126. eMOD_PSV
  127. c_oznac
  128. Nebyl ozna
  129. znam.
  130.  statistika 
  131.  Podle polo
  132. ek             
  133.  Podle st
  134. edisek a polo
  135. IDENT
  136. ZASOBA
  137. ZASOBA_C
  138. c_sta
  139. c_str
  140. c_str
  141. c_oznac,
  142. &w_nazpro = 0
  143. m1_obr
  144. m1_obr_a
  145. c_sta.F
  146. replace &w_nazpol with &w_nazpro
  147. m1_obr
  148. m1_obr_a
  149. c_str
  150. HLASKA
  151. orW_SCR
  152. aW_MOD
  153.  naW_OREC
  154. atW_MESA
  155. eW_ROKA
  156.  sW_ROKM
  157. W_NPOL
  158. itW_NMES
  159. coW_ZPOL
  160. pW_TAB
  161. 0,fW_POS
  162. ,W_MES
  163. ,f1W_ROK
  164. e fC_STA
  165. on,IDENT
  166. f4_jSTR
  167. g, tC_STR
  168. 7_jC_OZNAC
  169. prZ_MAX
  170. rgM1_IDENT
  171. 9M1_ZAS
  172. jM1_KALK
  173. pW_RAD
  174. meW_PROC
  175. s, W_POC
  176.  kliPRUBEH
  177. z, W_IDENT
  178. prW_ZASOBM
  179. lZASOBA
  180. 2,tW_ZASOBC
  181. RW_NAZPRO
  182. _SPOTREBA
  183. 8ZASOBA_C
  184. iW_NAZPOL
  185. mSPO_STR
  186. aPRE_STA
  187.  PS_RETURN
  188. select &w_dbf
  189. &w_dbf..ident == w_ident
  190. if (&w_dbf..rok = w_rokm) .or.  (&w_dbf..rok = w_roka .and. &w_dbf..mesic <= w_mesa)
  191. w_nazev   = str(&w_dbf..rok, 4) + padl(&w_dbf..mesic, 2, '0')
  192. &w_nazpro = &w_nazpro + &w_dbf..skut_mnoz
  193. &w_nazpro = &w_nazpro + (&w_dbf..skut_mnoz * &w_dbf..naklad)
  194. W_DBF
  195. orW_IDENT
  196. aKOD_OB
  197.  naW_NAZPRO
  198. tW_NAZEV
  199. select &w_dbf
  200. &w_dbf..ident == w_ident
  201. if (&w_dbf..rok = w_rokm) .or.  (&w_dbf..rok = w_roka .and. &w_dbf..mesic <= w_mesa)
  202. w_str     = &w_dbf..stred_obr
  203. w_nazev   = str(&w_dbf..rok, 4) + padl(&w_dbf..mesic, 2, '0')
  204. c_str.m
  205. c_str.c
  206. replace &w_nazplm with &w_nazplm +  &w_dbf..skut_mnoz,  &w_nazplc with &w_nazplc + (&w_dbf..skut_mnoz * &w_dbf..naklad)
  207. select &w_dbf
  208. W_DBF
  209. orW_IDENT
  210. aKOD_OB
  211.  naC_STR
  212. tW_STR
  213. eIDENT
  214. sZASOBA
  215. W_ZASOBM
  216. tZASOBA_C
  217. oW_ZASOBC
  218. 0,fW_NAZPLM
  219. ,W_NAZEV
  220. f1W_NAZPLC
  221. Zadejte ident:
  222. Zadejte st
  223. edisko a ident:
  224. |...|...........
  225. fun_str
  226. RIIS 4.8
  227. mod48h
  228. C_STA
  229. orIDENT
  230. aM1_IDENT
  231. aM1_KALK
  232. tM1_ZAS
  233. ePOLEX
  234. sPROCX
  235. tRBOT
  236. oCLEFT
  237. pCRIGHT
  238. 0,fFREEZE
  239. ,ORDER
  240. f1HOR
  241. n,LEVA
  242. f4_jPRAVA
  243. g, tNADPIS
  244. 7_jZAHL
  245. prJMENO
  246. rgHODN
  247. 9SOUC
  248. jPSOUC
  249. pTITLE
  250. meTITLECOLORPOC0
  251.  kliF0
  252. z, F1
  253. ASOBM
  254. 2,tF4
  255. ASOBC
  256. AZPRO
  257. TREBA
  258. iF0PRG
  259. mF1ON
  260. aF1PRG
  261.  F4_JM
  262. F4PRG
  263. , psTISKPRG
  264.   F7_JM
  265. f2F7PRG
  266. F9PRG
  267. = .tF9KEY
  268.   = F9KEY1
  269.    F10_JM
  270.    F10PRG
  271. 9 RAMECEK
  272. fRIIS
  273.  'ZaNAZEVT
  274. sloKLICO
  275. y :'KLNAZ
  276. SPACEBAR
  277. TR_HL1
  278. TR_HL2
  279. edTR_HL3
  280. TR_HL4
  281. ---TR_HL5
  282. ---TR_HL6
  283. ---TR_HL7
  284. -TR_HL8
  285.  stTR_HL9
  286.  spDET_JM
  287.  --ENTER
  288. ---DETAIL
  289. ---DETPRG
  290. ---PS_LINE
  291. --PS_RETURN
  292. PS_ZAZN
  293. tabF8
  294. o caW_MOD
  295. se W_NAZ
  296. 'mW_NPOL
  297.  wPRE_MSPO
  298. MOD_PSV
  299. Hodnot.K
  300. pre_cspo
  301.  v MJ
  302. Ident       
  303. ident
  304. ident
  305. Ident odb
  306. ratele    
  307. m1_ident.ident_odb
  308. m1_ident.ident_odb
  309. zev                    
  310. m1_ident.nazev
  311. m1_ident.nazev
  312. Typ            
  313. m1_ident.typ
  314. m1_ident.typ
  315. m1_ident.rada
  316. m1_ident.rada
  317. m1_ident.mj
  318. m1_ident.mj
  319. m1_zas.skl_hlavni
  320. m1_zas.skl_hlavni
  321.      Cena
  322.       
  323. str(m1_kalk.uvn,9,2)
  324. m1_kalk.uvn
  325.       Z
  326. str(zasoba,12,3)
  327. zasoba
  328. ,12,3)
  329. F10_JM
  330. orF10PRG
  331. aTITLE
  332. aTR_HL1
  333. eW_MOD
  334. sZAHL
  335. JMENO
  336. tHODN
  337. oID_ORG
  338. pSOUC
  339. 0,fW_POS
  340. ,W_NPOL
  341. f1W_NAZPOL
  342. fW_TAB
  343. n,W_ZPOL
  344. 4_jPS_RETURN
  345. st.MJ
  346. pre_mspo
  347. Hodnoty v K
  348. Ident       
  349. ident
  350. ident
  351. Ident odb
  352. ratele    
  353. m1_ident.ident_odb
  354. m1_ident.ident_odb
  355. zev                    
  356. m1_ident.nazev
  357. m1_ident.nazev
  358. Typ            
  359. m1_ident.typ
  360. m1_ident.typ
  361. m1_ident.rada
  362. m1_ident.rada
  363. m1_ident.mj
  364. m1_ident.mj
  365. m1_zas.skl_hlavni
  366. m1_zas.skl_hlavni
  367.      Cena
  368.       
  369. str(m1_kalk.uvn,9,2)
  370. m1_kalk.uvn
  371.       Z
  372. str(zasoba_c,12,2)
  373. zasoba_c
  374. ,12,2)
  375. F10_JM
  376. orF10PRG
  377. aTITLE
  378. aTR_HL1
  379. eW_MOD
  380. sZAHL
  381. JMENO
  382. tHODN
  383. oID_ORG
  384. pSOUC
  385. 0,fW_POS
  386. ,W_NPOL
  387. f1W_NAZPOL
  388. fW_TAB
  389. n,W_ZPOL
  390. 4_jPS_RETURN
  391.  Podle st
  392. edisek 
  393.  Celkem          
  394. W_SCRFUN
  395. rW_MODSUM
  396. aSUM_STR
  397. Nenalezen 
  398. znam.
  399.  - sou
  400. ty podle st
  401. edisek
  402. et ... 
  403. c_strsum
  404. c_strsum
  405.  - sou
  406. et celkem
  407. et ... 
  408. c_strcel
  409. c_strcel
  410. Zadejte st
  411. edisko:
  412. sum_str with 2
  413. RIIS 4.8
  414. mod48h
  415. W_SUM
  416. rHLASKA
  417. aW_SCRSTR
  418. aW_SELSTR
  419. tW_RECSTR
  420. eW_NAZSUM
  421. sMESS
  422. C_STRSUM
  423. oW_SCRCEL
  424. pW_SELCEL
  425. fW_RECCEL
  426. ,C_STRCEL
  427. 1POLEX
  428. fPROCX
  429. n,RTOP
  430. 4_jRBOT
  431. CLEFT
  432. 7_jCRIGHT
  433. prFREEZE
  434. rgORDER
  435. pLEVA
  436. mePRAVA
  437. OLORNADPIS
  438. kliZAHL
  439. z, JMENO
  440. prHODN
  441. lSOUC
  442. 2,tPSOUC
  443. hTITLE
  444. RTITLECOLORPOC0
  445. , psF7
  446. f2F10
  447. F0PRG
  448. = .tF1ON
  449.   = F1PRG
  450.    F4_JM
  451.    F4PRG
  452. 9 TISKPRG
  453. fF7_JM
  454.  'ZaF7PRG
  455. sloF9PRG
  456. y :'F9KEY
  457. F9KEY1
  458. F10_JM
  459. F10PRG
  460. edRAMECEK
  461. ---NAZEVT
  462. ---KLICO
  463. ---KLNAZ
  464. -SPACEBAR
  465. tTR_HL1
  466.  spTR_HL2
  467.  --TR_HL3
  468. ---TR_HL4
  469. ---TR_HL5
  470. ---TR_HL6
  471. --TR_HL7
  472. TR_HL8
  473. TR_HL9
  474. tabDET_JM
  475.  caENTER
  476. se DETAIL
  477. 'mDETPRG
  478.  wPS_LINE
  479. PS_RETURN
  480. PS_ZAZN
  481. eW_NAZ
  482. nW_NPOL
  483.  doPRE_CSTR
  484.  MOD_PSV
  485. Hodnot.K
  486. pre_cstr
  487.  v MJ
  488. ,12,3)
  489. F10_JM
  490. rF10PRG
  491. aTITLE
  492. aW_NAZSUM
  493. tTR_HL1
  494. sW_SUM
  495. tJMENO
  496. oHODN
  497. pW_POS
  498. fW_NPOL
  499. ,W_NAZPOL
  500. 1W_TAB
  501. fW_ZPOL
  502. n,SOUC
  503. jPS_RETURN
  504. Hodnoty v K
  505. ,12,2)
  506. TITLE
  507. rW_NAZSUM
  508. aTR_HL1
  509. tW_SUM
  510. eZAHL
  511. sJMENO
  512. tW_POS
  513. oW_NPOL
  514. pW_NAZPOL
  515. fW_TAB
  516. ,W_ZPOL
  517. 1SOUC
  518. fPS_RETURN
  519. set color to w+/bg
  520. set color to w+/w
  521. set color to n/w
  522. set color to w+/w
  523. set color to w+/rb
  524. set color to w+/bg
  525. &z_barini
  526. &z_baremp
  527. &z_bar1
  528. &z_bar2
  529. &z_barini
  530. Z_MAX
  531. rZ_AKT
  532. aZ_RAD
  533. aZ_PROC
  534. tZ_TXT
  535. eZ_BARINI
  536. sZ_BAREMP
  537. Z_CHAR
  538. tZ_BAR1
  539. oZ_BAR2
  540. pZ_SKUTXT
  541. fZ_SLPTXT
  542. ,Z_POCAKT
  543. 1Z_STPROC
  544. fZ_TXPROC
  545. Z_SLPROC
  546. jZ_STRING
  547. RIIS 4.8
  548. Zadejte rok:
  549. W_SCRROK
  550. rW_ROKA
  551. c_oznac
  552. Nebyl ozna
  553. znam.
  554. IDENT
  555. ZASOBA_M
  556. ZASOBA_C
  557. c_sta
  558. ident
  559. c_oznac,
  560. &w_nazpro = 0
  561. m1_obr
  562. m1_obr_a
  563. c_sta.F
  564. replace &w_nazpol with &w_nazpro
  565. HLASKA
  566. rW_SCR
  567. aW_ROKA
  568. aW_MESA
  569. tW_OREC
  570. eW_NPOL
  571. sW_NMES
  572. W_TAB
  573. tW_POS
  574. oW_MES
  575. pC_STA
  576. fIDENT
  577. ,RADA
  578. 1C_OZNAC
  579. fZ_MAX
  580. M1_IDENT
  581. jM1_ZAS
  582. M1_KALK
  583. jW_RAD
  584. prW_PROC
  585. rgW_POC
  586. 9PRUBEH
  587. jW_IDENT
  588. pW_ZASOB
  589. eZASOBA
  590. LORW_RADA
  591. kliW_CENA
  592. prW_NAZPRO
  593. lOBRATY
  594. 2,tZASOBA_M
  595. hZASOBA_C
  596. RW_NAZPOL
  597. RPRE_OBR
  598. 8PS_RETURN
  599. select &w_dbf
  600. &w_dbf..ident == w_ident
  601. if (&w_dbf..rok = w_roka .and. &w_dbf..mesic <= w_mesa)
  602. w_nazev   = padl(&w_dbf..mesic, 2, '0')
  603. &w_nazpro = &w_nazpro + &w_dbf..skut_mnoz
  604. &w_nazpro = &w_nazpro + (&w_dbf..skut_mnoz * &w_dbf..naklad)
  605. w_nazev   = padl(&w_dbf..mesic, 2, '0')
  606. &w_nazpro = &w_nazpro + &w_dbf..skut_mnoz
  607. &w_nazpro = &w_nazpro + (&w_dbf..skut_mnoz * &w_dbf..naklad)
  608. W_DBF
  609. rW_IDENT
  610. aKOD_OB
  611. aW_NAZPRO
  612. tW_NAZEV
  613. ident
  614. Zadejte ident:
  615. pre_rad
  616. RIIS 4.8
  617. mod48h
  618. C_STA
  619. rIDENT
  620. aM1_IDENT
  621. aM1_KALK
  622. tM1_ZAS
  623. ePOLEX
  624. sPROCX
  625. tRBOT
  626. oCLEFT
  627. pCRIGHT
  628. fFREEZE
  629. ,ORDER
  630. jPRAVA
  631. NADPIS
  632. jZAHL
  633. prJMENO
  634. rgHODN
  635. 9SOUC
  636. jPSOUC
  637. pTITLE
  638. eTITLECOLORPOC0
  639. kliF0
  640. AZPRO
  641. 2,tF4
  642. OBA_M
  643. OBA_C
  644. AZPOL
  645. ETURN
  646. F0PRG
  647. mF1ON
  648. aF1PRG
  649.  F4_JM
  650. F4PRG
  651. , psTISKPRG
  652.   F7_JM
  653. f2F7PRG
  654. F9PRG
  655. = .tF9KEY
  656.   = F9KEY1
  657.    F10_JM
  658.    F10PRG
  659. 9 RAMECEK
  660. fRIIS
  661.  'ZaNAZEVT
  662. sloKLICO
  663. y :'KLNAZ
  664. SPACEBAR
  665. TR_HL1
  666. TR_HL2
  667. edTR_HL3
  668. TR_HL4
  669. ---TR_HL5
  670. ---TR_HL6
  671. ---TR_HL7
  672. -TR_HL8
  673. tTR_HL9
  674.  spDET_JM
  675.  --ENTER
  676. ---DETAIL
  677. ---DETPRG
  678. ---PS_LINE
  679. --PS_RETURN
  680. PS_ZAZN
  681. tabF8
  682.  caW_NAZ
  683. e W_NPOL
  684. 'mPRE_MOBR
  685. wMOD_PSV
  686. Hodnot.K
  687. pre_cobr
  688.  v MJ
  689. Ident       
  690. ident
  691. ident
  692. zev                    
  693. m1_ident.nazev
  694. m1_ident.nazev
  695. m1_ident.mj
  696. m1_ident.mj
  697.      Cena
  698.       
  699. str(m1_kalk.uvn,9,2)
  700. m1_kalk.uvn
  701.       Z
  702. str(zasoba_m,12,3)
  703. zasoba_m
  704. ,12,3)
  705. ,12,3)
  706. F10_JM
  707. rF10PRG
  708. aTITLE
  709. aTR_HL1
  710. eZAHL
  711. sJMENO
  712. tID_ORG
  713. oSOUC
  714. pW_POS
  715. fW_NPOL
  716. ,W_NAZPOL
  717. 1W_TAB
  718. fPS_RETURN
  719. st.MJ
  720. pre_mobr
  721. Hodnota v K
  722. Ident       
  723. ident
  724. ident
  725. zev                    
  726. m1_ident.nazev
  727. m1_ident.nazev
  728. m1_ident.mj
  729. m1_ident.mj
  730.      Cena
  731.       
  732. str(m1_kalk.uvn,9,2)
  733. m1_kalk.uvn
  734.       Z
  735. str(zasoba_c,12,2)
  736. zasoba_c
  737. ,12,2)
  738. ,12,2)
  739. F10_JM
  740. rF10PRG
  741. aTITLE
  742. aTR_HL1
  743. eZAHL
  744. sJMENO
  745. tID_ORG
  746. oSOUC
  747. pW_POS
  748. fW_NPOL
  749. ,W_NAZPOL
  750. 1W_TAB
  751. fPS_RETURN
  752. et ... 
  753. c_stasum
  754. c_stasum
  755. Zadejte 
  756. RIIS 4.8
  757. mod48h
  758. ident
  759. W_SCRRAD
  760. rW_RECSTA
  761. aMESS
  762. aRADA
  763. tC_STASUM
  764. eP1_RADA
  765. sPOLEX
  766. PROCX
  767. tRTOP
  768. oRBOT
  769. pCLEFT
  770. fCRIGHT
  771. ,FREEZE
  772. 1ORDER
  773. ETURN
  774. jLEVA
  775. PRAVA
  776. jNADPIS
  777. prZAHL
  778. rgJMENO
  779. 9HODN
  780. jSOUC
  781. pPSOUC
  782. eTITLE
  783. OLORTITLECOLORPOC0
  784. AZPRO
  785. 2,tF3
  786. OBA_M
  787. OBA_C
  788. AZPOL
  789. ETURN
  790. mF0PRG
  791. aF1ON
  792.  F1PRG
  793. F4_JM
  794. , psF4PRG
  795.   TISKPRG
  796. f2F7_JM
  797. F7PRG
  798. = .tF9PRG
  799.   = F9KEY
  800.    F9KEY1
  801.    F10_JM
  802. 9 F10PRG
  803. fRAMECEK
  804. ZaRIIS
  805. sloNAZEVT
  806.  :'KLICO
  807. KLNAZ
  808. SPACEBAR
  809. TR_HL1
  810. edTR_HL2
  811. TR_HL3
  812. ---TR_HL4
  813. ---TR_HL5
  814. ---TR_HL6
  815. -TR_HL7
  816. tTR_HL8
  817.  spTR_HL9
  818.  --DET_JM
  819. ---ENTER
  820. ---DETAIL
  821. ---DETPRG
  822. --PS_LINE
  823. PS_RETURN
  824. PS_ZAZN
  825.  caF8
  826. e W_NAZ
  827. 'mW_NPOL
  828. wPRE_MRAD
  829. MOD_PSV
  830. C_STA
  831.  IDENT
  832. Hodnot.K
  833. pre_crad
  834.  v MJ - sou
  835. ty za 
  836. zev                
  837. p1_rada.nazev
  838. nazev
  839.       Z
  840. str(zasoba_m,12,3)
  841. zasoba_m
  842. ,12,3)
  843. ,12,3)
  844. F10_JM
  845. rF10PRG
  846. aTITLE
  847. aTR_HL1
  848. eZAHL
  849. sJMENO
  850. tSOUC
  851. oW_POS
  852. pW_NPOL
  853. fW_NAZPOL
  854. ,W_TAB
  855. 1PS_RETURN
  856. st.MJ
  857. pre_mrad
  858. Hodnota v K
  859.  - sou
  860. ty za 
  861. zev                
  862. p1_rada.nazev
  863. nazev
  864.       Z
  865. str(zasoba_c,12,2)
  866. zasoba_c
  867. ,12,2)
  868. ,12,2)
  869. F10_JM
  870. rF10PRG
  871. aTITLE
  872. aTR_HL1
  873. eZAHL
  874. sJMENO
  875. tSOUC
  876. oW_POS
  877. pW_NPOL
  878. fW_NAZPOL
  879. ,W_TAB
  880. 1PS_RETURN
  881. MOD48H
  882. PRE_IDE
  883. STA_MES
  884. SPOTREBA
  885. SPO_STR
  886. PRE_STA
  887. PRE_MSPO
  888. PRE_CSPO
  889. FUN_STR
  890. SUM_STR
  891. PRE_MSTR
  892. PRE_CSTR
  893. PRUBEH
  894. GET_ROK
  895. STA_OBR
  896. OBRATY
  897. PRE_OBR
  898. idesN
  899. PRE_MOBR
  900. PRE_COBR
  901. PRE_RAD
  902. (i))_
  903. PRE_MRAD
  904. PRE_CRAD
  905. X:\OBEC\04\
  906. MOD48H.FXP
  907. X:\OBEC\04\MOD48H.PRG
  908.