home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug107.arc / REFERENC.LBR / INIT.RQF / INIT.REF
Text File  |  1979-12-31  |  4KB  |  146 lines
  1. * DATE 02/24/85  20:07
  2. * initialization program
  3. ERAS
  4. TEXT
  5.  ***************************************************************************** 
  6.    This is a first time initialization program. It sets the defaults for all  
  7.    operations.  You can change any of the defaults on the maintenance menu.
  8.  *****************************************************************************
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25. ENDT
  26. IF .NOT. file ("REF.DAT")
  27.  STOR 'A' TO dr
  28.  STOR 'Y' TO bells
  29.  STOR 'I' TO bright
  30.  STOR 'Y' TO escap
  31.  STOR 'N' TO I
  32.  STOR 'N' TO C
  33.  STOR 'Y' TO shift
  34.  STOR 00 TO chr121
  35.  STOR 00 TO chr122
  36.  STOR 00 TO chr123
  37.  STOR 00 TO chrreg1
  38.  STOR 00 TO chrreg2
  39.  STOR 00 TO chrreg3
  40. ELSE
  41.  REST from ref.dat
  42. ENDI .NOT. file
  43. @ 05,00 SAY "On what drive will you store the data files ?"
  44. @ 05,50 GET dr PICTURE '!'
  45. READ
  46. @ 06,00 SAY'Do you wish to use signal beep ? '
  47. @ 06,38 GET bells PICTURE '!'
  48. READ
  49. DO WHIL @(bells,'YN')=0
  50.  @ 06,38 GET bells PICTURE '!'
  51.  READ
  52. ENDD WHILE @(bells)
  53. @ 08,00 SAY "You can have bright and dim intensity at <A>ll points in the program"
  54. @ 09,00 SAY "or just on the <I>nput screen. Answer 'A' or 'I' "
  55. @ 09,50 GET bright PICTURE '!'
  56. READ
  57. DO WHIL @(bright,'AI')=0
  58.  @ 09,50 GET bright PICTURE '!'
  59.  READ
  60. ENDD WHILE @(bright)
  61. @ 10,00 SAY "If you leave the escape key on it is possible to break out of the program"
  62. @ 11,00 SAY "at any time. Some people prefer to not allow this. Shall we leave it on ?"
  63. @ 11,75 GET escap PICTURE '!'
  64. READ
  65. DO WHIL @(escap,'YN')=0
  66.  @ 11,75 GET escap PICTURE '!'
  67.  READ
  68. ENDD WHILE @(escap)
  69. @ 13,00 SAY "Are you using an IBM PC or comparable with a clock board ?"
  70. @ 13,70 GET I picture '!'
  71. READ
  72. @ 14,00 SAY "Are you using a Compupro Systems Support Board with clock ?"
  73. @ 14,70 GET C PICTURE '!'
  74. READ
  75. @ 15,00 SAY "Can your printer shift to a 12 cpi for report printing ?"
  76. @ 15,70 GET shift PICTURE '!'
  77. READ
  78. DO WHIL @(shift,'YN')=0
  79.  @ 15,70 GET shift PICTURE '!'
  80.  READ
  81. ENDD WHILE @(shift)
  82. IF SHIFT = 'Y'
  83.  @ 16,00 SAY "What is the FIRST decimal value sent to the printer for 12 cpi ?"
  84.  @ 16,68 GET chr121
  85.  READ
  86.  @ 17,00 SAY "What is the SECOND decimal value sent to the printer for 12 cpi ?"
  87.  @ 17,68 GET chr122
  88.  READ
  89.  @ 18,00 SAY "What is the THIRD decimal value sent to the printer for 12 cpi ?"
  90.  @ 18,68 GET chr123
  91.  READ
  92.  @ 19,00 SAY "What is the FIRST decimal value to return to regular print ?"
  93.  @ 19,68 GET chrreg1
  94.  READ
  95.  @ 20,00 SAY "What is the SECOND decimal value to return to regular print ?"
  96.  @ 20,68 GET chrreg2
  97.  READ
  98.  @ 21,00 SAY "What is the THIRD decimal value to return to regular print ?"
  99.  @ 21,68 GET chrreg3
  100.  READ
  101. ENDI SHIFT = 'Y'
  102. STOR 'Y' TO goagain
  103. @ 22,30 SAY "IS THE ABOVE CORRECT ? "
  104. @ 22,55 GET goagain PICTURE '!'
  105. READ
  106. IF goagain = 'N'
  107.  @ 22,00
  108.  @ 05,50 GET dr PICTURE '!'
  109.  @ 06,38 GET bells PICTURE '!'
  110.  @ 09,50 GET bright PICTURE '!'
  111.  @ 11,75 GET escap PICTURE '!'
  112.  @ 13,70 GET I picture '!'
  113.  @ 14,70 GET C PICTURE '!'
  114.  @ 15,70 GET shift PICTURE '!'
  115.  READ
  116.  IF SHIFT = 'Y'
  117.   @ 16,00 SAY "What is the FIRST decimal value sent to the printer for 12 cpi ?"
  118.   @ 16,68 GET chr121
  119.   READ
  120.   @ 17,00 SAY "What is the SECOND decimal value sent to the printer for 12 cpi ?"
  121.   @ 17,68 GET chr122
  122.   READ
  123.   @ 18,00 SAY "What is the THIRD decimal value sent to the printer for 12 cpi ?"
  124.   @ 18,68 GET chr123
  125.   READ
  126.   @ 19,00 SAY "What is the FIRST decimal value to return to regular print ?"
  127.   @ 19,68 GET chrreg1
  128.   READ
  129.   @ 20,00 SAY "What is the SECOND decimal value to return to regular print ?"
  130.   @ 20,68 GET chrreg2
  131.   READ
  132.   @ 21,00 SAY "What is the THIRD decimal value to return to regular print ?"
  133.   @ 21,68 GET chrreg3
  134.   READ
  135.  ENDI SHIFT = 'Y'
  136. ENDI goagain
  137. RELE goagain
  138. CLEA GETS
  139. SAVE TO ref.dat
  140. RELE bright, dr, escap, bells, I, C
  141. SAVE TO printrf.dat
  142. RELE shift, chrreg1, chrereg2, chrreg3, chr121, chr122, chr123
  143. ERAS
  144. STOR t TO more
  145. RETU
  146.