home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / tile / tele.bat < prev    next >
DOS Batch File  |  1983-06-30  |  785b  |  40 lines
  1. bat * Telephone quick list *
  2.  
  3. bat    IF .%1 <> . SKIP 4
  4. bat    BEGTYPE
  5.  You did not enter a name to lookup
  6.  Enter "TELE <name1> <name2> ... <name5>"
  7. end
  8.  
  9. bat -fill.list IF .%1 = . EXIT
  10.  
  11. bat    * THIS BEGINS THE TELEPHONE LIST TO LOOK UP
  12. bat    BEGSTACK
  13. 284-3408 JOHN SMITH
  14. 987-2429 EVA DOBBS
  15. 255-5234 ED JOURNAL
  16. 232-1123 ROBERT ANDERSON
  17. end
  18.  
  19. bat -read.list
  20. bat    READ %A %B %C
  21. bat    IF %A = %1 GOTO -print.entry
  22. bat    IF %B = %1 GOTO -print.entry
  23. bat    IF %C = %1 GOTO -print.entry
  24. bat    IF %Q = S GOTO -read.list
  25. bat    TYPE %1         :Could not be found in the telephone list!
  26.  
  27. bat -prep.4.next
  28. bat    %1 = %2
  29. bat    %2 = %3
  30. bat    %3 = %4
  31. bat    %4 = %5
  32. bat    %5 =
  33. bat    GOTO -fill.list
  34.  
  35. bat -print.entry
  36. bat    TYPE %B     %C    :TELEPHONE NUMBER IS: %A
  37. bat    STACK.PURGE
  38. bat    GOTO -prep.4.next
  39.  
  40.