
                ПРОГРАММА УЧЁТА ПОЛЬЗОВАТЕЛЕЙ ПЭВМ

                              UU

       Настоящая программа является тривиальным примером того,
    как за короткое время можно оснастить ваш многопользовательский
    "персональный" компьютер простым средством учета пользователей.

        При загрузке на экран выдается строка с вежливой просьбой
    дать информацию о себе и виде выполняемой работы.
        Дату и время можно не заполнять,эти данные берутся в системе.

        После накопления 55 строк программа предлагает распечатать их и,
    если вы согласны на распечатку,системный журнал чистится.
        Если работающий отказывается от распечатки,то удаляется первая
    строка системного журнала и работа продолжается.
        Если вы желаете исправить последнюю запись в журнале,то это мож-
    но сделать в режиме "корректировка".

        Системный журнал в любое время можно просмотреть с помощью
    NORTON COMANDER

         Такая программа,естественно,не защитит от злоумышленника,
    но дисциплинирует рядовых пользователей.
       _______________________________________________
        Автор примера:    Шнайдер Л.С.   т. 274-91-87


**************************************
* ПРИМЕР ПРОСТЕЙШЕЙ ПРОГРАММЫ        *
* ДЛЯ УЧЕТА ПОЛЬЗОВАТЕЛЕЙ В MS DOS   *
*     ШНАЙДЕР Л.С.                   *
*      т. 274-91-87                  *
**************************************
set talk off
set confirm on
m=1
clear
d='        '
f='                   '
su=25
n='      '
k='      '
v='                        '
h='y'
mm=55
set color to w+/b,n/gr+,r
clear
@ 5,1 say 'РАБОТАЕТ ПРОГРАММА РЕГИСТРАЦИИ ПОЛЬЗОВАТЕЛЕЙ'
@ 7,1 say 'сейчас вы можете исправить свою предыдущую запись'
@ 8,1 say ' '
accept 'корректировка?(y/n)' to h
use uu
count all to su
d=date()
n=time()
n=substr(n,1,5)+' '
  if su=0
    h='n'
  endif
   if h='y'
     go bottom
     d=date
     f=name
     n=begin
     k=end
     v=work
   endif
clear
@ 20,15 say 'ПОЖАЛУЙСТА, ЗАПОЛНИТЕ УЧЁТНЫЕ ДАННЫЕ.'
@ 22,8 say 'ЭТИ ДАННЫЕ МОЖНО ОТКОРРЕКТИТОВАТЬ , ВНОВЬ ВОЙДЯ В ПРОГРАММУ.'
@ 24,12 say 'УЧЁТНЫЕ ДАННЫЕ МОЖНО ПРОСМОТРЕТЬ С ПОМОЩЬЮ   NC'
@ 1,1 say '  дата  :       фамилия       :начало:конец :     вид работы          :'
@ 5,1 get d picture '@e'
@ 5,10 get f picture 'xxxxxxxxxxxxxxxxxxxx'
@ 5,32 get n picture 'xxxxxx'
@ 5,39 get k picture 'xxxxxx'
@ 5,46 get v picture 'xxxxxxxxxxxxxxxxxxxxxxxxx'
read
   if h='y'
     delete
     pack
   endif
append blank
replace date with d
replace name with f
replace begin with n
replace end with k
replace work with v
count all to su
mm=2
clear
    if su>55
      accept 'Журнал переполнен.Напечатать его?(y/n)' to b
      if b='y'
       mm=su+1
       report form uthet to print
      endif
       do while m<mm
        go m
        delete
        m=m+1
       enddo
      pack
     else
    endif
use
*конец программы
