home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / SSBCOND.INC < prev    next >
Encoding:
Text File  |  1992-04-01  |  2.3 KB  |  77 lines
  1. <<* SSBCOND.INC *>>
  2. <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY  *>>
  3.  
  4. <<#
  5. procedure GenCondEdit  <<*Everyone can edit*>>
  6. string keys,token
  7. integer i,line
  8. #>>
  9. <<begin>>
  10. PRIVATE ROW,mreplfield,mrepldata,mreplcond
  11. ROW = 1
  12. mreplfield = SPACE(10)
  13. mrepldata  = SPACE(50)
  14. mreplcond  = SPACE(50)
  15.  
  16. << GenColor( 0,'SCREEN' ) >>
  17. CLEAR
  18. << GenColor( 0,'PROMPT' ) >>
  19. @ ROW, 0 SAY SPACE(80)
  20. @ ROW,35 SAY '╫╓  ╢╬  ▒φ'
  21. << GenColor( 0,'SCREEN' ) >>
  22. @ ROW+1, 0 SAY REPLICATE( '⌐Ñ',40 )
  23. @ ROW+2, 0 SAY '    '+'     ╫╓  ╢╬  ├√     '+' ⌐º '+' ╫╓╢╬▒Ω╩╛ '+;
  24.                ' ⌐º '+'     ╫╓  ╢╬  ├√     '+' ⌐º '+' ╫╓╢╬▒Ω╩╛ '
  25. ROW = ROW + 3
  26. <<#
  27. select database 1
  28. select fields on ( fldtyp $ 'CDLN' ) and ( fldals <> 'M' )
  29. while not eof( fields )
  30.    line := len( fldlab )
  31.    if line > 20
  32.       token := substr( fldlab,1,20 )
  33.    else
  34.       token := fldlab
  35.    endif
  36.    genln( '@ ROW+' + str(i,2) + ', 4 SAY "' + token +'" ' )
  37.    genln( '@ ROW+' + str(i,2) + ',24 SAY " ⌐º "' ) 
  38.    genln( '@ ROW+' + str(i,2) + ',28 SAY "' + fldnam + '" ' ) 
  39.    genln( '@ ROW+' + str(i,2) + ',38 SAY " ⌐º "' )
  40.    skip field
  41.    line := len( fldlab )
  42.    if line > 20
  43.       token := substr( fldlab,1,20 )
  44.    else
  45.       token := fldlab
  46.    endif
  47.    genln( '@ ROW+' + str(i,2) + ',42 SAY "' + token + '" ' )
  48.    genln( '@ ROW+' + str(i,2) + ',62 SAY " ⌐º "' )
  49.    genln( '@ ROW+' + str(i,2) + ',66 SAY "' + fldnam + '" ' ) 
  50.    skip field
  51.    i := i + 1
  52. endwhile
  53. #>>
  54. ROW = ROW + {i}
  55. <<#
  56. genln( '@ ROW  ' + ', 0 SAY REPLICATE( "⌐Ñ",40 )' )
  57. genln( '@ ROW+1' + ', 9 SAY "╦π╩⌡╘╦╦π╖√ : + - * / "' )
  58. genln( '@ ROW+2' + ', 9 SAY "┬▀╝¡╘╦╦π╖√ : .and. .or. .not. "' )
  59. genln( '@ ROW+3' + ', 9 SAY "╠µ┤·─┌╚▌▒φ┤∩╩╜ = <╫╓╢╬▒Ω╩╛[╩²╓╡]> [╦π╩⌡╘╦╦π╖√ <╫╓╢╬▒Ω╩╛[╩²╓╡]> ]"' )
  60. genln( '@ ROW+4' + ', 9 SAY "╠⌡╝■▒φ┤∩╩╜ = [<╦π╩⌡▒φ┤∩> [┬▀╝¡╘╦╦π╖√ <╦π╩⌡▒φ┤∩╩╜>]]"' )
  61. genln( '@ ROW+5' + ', 0 SAY REPLICATE( "⌐Ñ",40 )' )
  62. genln( '@ ROW+6' + ', 9 SAY "╠µ┤·╫╓╢╬▒Ω╩╛ :" GET mreplfield' )
  63. genln( '@ ROW+7' + ', 9 SAY "╠µ┤·─┌╚▌▒φ┤∩╩╜ = " GET mrepldata' )
  64. genln( '@ ROW+8' + ', 9 SAY "╠⌡╝■▒φ┤∩╩╜ = " GET mreplcond' )
  65. #>>
  66. READ
  67. IF .NOT.( mreplfield = "      " .OR. mrepldata = "          " )
  68.   IF .NOT. ( mreplcond = "        " )
  69.      mreplcond = "for " + mreplcond 
  70.   ENDIF
  71.   REPL ALL &mreplfield WITH &mrepldata &mreplcond
  72. ENDIF
  73. GO TOP
  74. <<end>> <<* GenCondEdit.INC *>>
  75.  
  76. <<* EOF: GenCondEdit *>>
  77.