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

Text File | 1989-11-10 | 598 b | 15 lines

@  1,10 say '    ****  ╬─╝■┐Γ  ****     '
@  1,col()+1 say '╝╟┬╝║┼: ['+str(recno(),3)+']'
@  2,0 say '  ╬─ ╝■ ║┼' get F_NO
@  2,col()+1 say '╬─╝■├√' get F_NAME
@  2,col()+1 say '║║╫╓├√' get C_FNAME
@  2,col()+1 say '╜¿┴ó╚╒╞┌' get F_DATE
@  3,0 say '  ╝╟┬╝│ñ╢╚' get REC_BYTE
@  3,col()+1 say '╫╓╢╬╩²' get FIELD_NUM
@  3,col()+6 say '╬─╝■├Φ╩÷' get F_DEC
@  4,0 say '░µ╩╜╬─╝■├√' get F_FMT
@  4,col()+12 say '╦≈╥²╩²' get IDX_NUM
@  4,col()+3 say '╬─╝■└α╨═' get SYSFILE
@  4,col()+1 say '1-╧╡═│,2-╣½╙├,3-╙├╗º,'
@  5,15 say '  ╩Σ╚δ═Ω▒╧, ╟δ░┤ Ctrl-W ╝ⁿ'