home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug090.ark / CHECK.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  1KB  |  43 lines
  1.     rem This is CHECK.BAS used to check for needed files
  2.  
  3.  
  4.     IF BIZMII.FLAG=1 THEN CHECK5=1 :GOTO 50.6
  5. 10    CHECK1=SIZE("B:DATE")
  6.     CHECK2=SIZE("B:GLF")
  7.     CHECK3=SIZE("B:GLT")
  8.     CHECK4=SIZE("B:NM")
  9.     CHECK5=1
  10.     IF CHECK1<1 OR CHECK2<1 OR CHECK3<1 OR CHECK4<1 THEN CHECK5=0
  11.     IF CHECK5 THEN 50.8
  12.     AAA=AAA+1
  13.     IF AAA>1 THEN 50.6
  14.     print clear$
  15.     print "Here are the files that are missing from your data disk."
  16.     print "That's drive 'B':"
  17.     print
  18.     IF CHECK1<1 THEN PRINT "1 - CHANGE REPORT DATE"
  19.     IF CHECK2<1 THEN PRINT "2 - CHANGE DOLLAR VALUE"
  20.     IF CHECK3<1 THEN PRINT "3 - CHANGE PAGE WIDTH ,TABS OR COMPANY"
  21.     IF CHECK4<1 THEN PRINT "5 - ADD NEW COMPANY NAMES"
  22.     PRINT
  23.     print "You can get to these programs by typing '7' in the"
  24.     print "main menu. If you have already used these programs,"
  25.     print "then the files you need are on your data disk #5"
  26.     print
  27.     print "Remember that these four files must be on your ";
  28.     print "data disk #5 :"
  29.     print
  30.     print "            DATE"
  31.     print "            GLF"
  32.     print "            GLT"
  33.     print "            NM"
  34.     print
  35.     PRINT "Put the appropriate disk in ";
  36.     input "drive 'B' then (return)";LINE JRF$
  37.     print clear$
  38.     INITIALIZE
  39.     GOTO 10
  40. 50.8    REM WE MADE IT
  41.     IF BIZMII.FLAG<>1 THEN CHAIN "READFILE"
  42. 50.6    REM
  43.