home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol110 / init.acg < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.8 KB  |  61 lines
  1. * init.cmd 02/12/83
  2. * this program is run once, when main.cmd is first start 
  3. * it will initialize the variables, set up environment, 
  4. * place all command which affect the entire system here 
  5.  
  6. * define environment with set commands 
  7. * place your choice of intensity, bell, confirm, etc 
  8. SET talk OFF 
  9. SET intensity OFF 
  10.  
  11. * check for add.mem 
  12. * if it isn ' t there, re-initialize the memory variables 
  13. * then same them to a mem files, and clear memory 
  14. IF .not. FILE( "add.mem" ) 
  15.   STORE '                         ' TO mlastname 
  16.   STORE '                    ' TO mfname 
  17.   STORE '               ' TO mspouse 
  18.   STORE '              ' TO mmr 
  19.   STORE '                                             ' TO mtitle
  20.   STORE '                                             ' TO mcompany1
  21.   STORE '                                             ' TO mcompany2
  22.   STORE '                                        ' TO mcaddress
  23.   STORE '          ' TO msuite
  24.   STORE '                    ' TO mccity 
  25.   STORE '  ' TO mcst 
  26.   STORE '     ' TO mczip 
  27.   STORE '                                        ' TO maddress
  28.   STORE '          ' TO mapt
  29.   STORE '                    ' TO mcity 
  30.   STORE '  ' TO mst 
  31.   STORE '     ' TO mzip 
  32.   STORE '             ' TO mophone 
  33.   STORE '             ' TO mphone
  34.   STORE '                      ' TO mdear
  35.   STORE ' ' TO msend
  36.   STORE '                                             ' TO mmisc
  37.   STORE '   ' TO mcs1 
  38.   STORE '   ' TO mcs2
  39.   STORE '   ' TO mcs3
  40.   STORE '   ' TO mcs4
  41.   STORE '   ' TO mcs5
  42.   STORE '   ' TO mcs6
  43.   STORE '        ' TO mupdate
  44.   SAVE TO ADD
  45.   RELEASE ALL
  46. ENDIF .not. FILE( "add.mem" )  
  47.  
  48. * set up bell
  49.  
  50. STORE 'Y' TO command
  51. @ 20,10 SAY 'Do you wish to use signal beep ? ' GET command PICTURE '!' 
  52. READ
  53. IF command = 'N' 
  54.   SET bell OFF
  55. ENDIF command = 'N'  
  56.  
  57.  
  58. * lets use first the name index
  59.  
  60. USE acg INDEX lastname,company, zip 
  61.