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

Text File | 1980-01-01 | 259 b | 7 lines

@  1,10 say '    ****  ╦≈╥²┐Γ  ****     '
@  1,col()+1 say '╝╟┬╝║┼: ['+str(recno(),3)+']'
@  2,0 say '╬─  ╝■  ║┼' get F_NO
@  2,col()+1 say '╦≈╥²╬─╝■├√' get IDX_NAME
@  3,0 say '╦≈╥²▒φ┤∩╩╜' get IDX_EXP
@  5,0 say '  ╦≈╥²├Φ╩÷' get IDX_DES