Liren Large Software Subsidy 6/06.iso/b/b007/2.ddi/AMISG/DBD.FMT

Text File | 1990-03-18 | 719 b | 16 lines

@  1,10 say ' == ╟δ╩Σ╚δ╩²╛▌┐Γ╡─║║╫╓╫╓╢╬├√╙δ┤·┬δ╔Φ╝╞ =='
@  1,60 say '╫╓╢╬║┼: ['+str(recno(),3)+']'
@  2,4 say '╫╓  ╢╬  ├√: ['+FIELD_NAME+']'
@  2,col()+3 say '╫╓╢╬└α╨═: [ '+FIELD_TYPE+' ]'
@  2,col()+1 say '│ñ╢╚: ['+str(FIELD_LEN,3)+' ]'
@  2,col()+1 say '╨í╩²╬╗: ['+str(FIELD_DEC,2)+' ]'
@  3,4 say '║║╫╓╫╓╢╬├√: ' get C_NAME
@  4,4 say '  ┤·┬δ▒Ω╓╛: ' get CODE pict '9'
@  4,col()+1 say '0-╖╟┤·┬δ,1-┤·┬δ,'
@  5,4 say '  ┤·┬δ│ñ╢╚: ' get LEN
@  5,col()+1 say '-<┤·┬δ╦∙▒φ╩╛─┌╚▌╡─╫ε┤≤│ñ╢╚>'
@  6,1 say '┤·┬δ╔Φ╝╞/▒╕╫ó: ' get NOTE
@  7,1 say '  └²╚τ, ╚⌠┤·┬δ╔Φ╝╞╬¬: 1-╣▄└φ╣ñ│╠╧╡,2-╣▄└φ╨┼╧ó╧╡,3-═Γ╙∩╧╡    ,4-╛¡╝├╣▄└φ╧╡,'
@  8,1 say '        ╘≥┤·┬δ│ñ╢╚╬¬: 10.'
@  9,15 say '  ╩Σ╚δ═Ω▒╧, ╟δ░┤ Ctrl-W ╝ⁿ'