home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 216.lha / RexxArpLib_v2.1 / rexx / PhoneBook / startphone.txed < prev   
Encoding:
Text File  |  1996-02-15  |  972 b   |  35 lines
  1. /* this startsup  the phonebook */
  2.  
  3. WINDOW 0 0 695 130
  4.  
  5. OV 1
  6. MENU Clear
  7. MENU 0 "Q" "QUIT" '"QUIT 1;exit"'
  8. MENU 1 "A" '"Add  entry "' '"PhoneBook/addentry.txed"'
  9. MENU 1 "C" '"Change entry "' '"PhoneBook/changeentry.txed"'
  10. MENU 1 "D" '"Delete entry "' '"PhoneBook/deleteentry.txed"'
  11. MENU 1 "L" '"Phone Listings"' '"PhoneBook/listphoneentries.txed"'
  12. MENU 1 "S" '"Dial Host"'    '"PhoneBook/dialvlt.txed"'
  13.   
  14. MACRO "+N" "'OPTIONS RESULTS;STATUS R;parse var result "row" x rest;if x<12 then do;down;sol;right 9;end;else JUMP 1 9'"
  15.  
  16.  
  17. fill = copies('20'x,71)||'0a'x
  18. text =       "    Name:"||fill
  19. text = text||" Address:"||fill
  20. text = text||"        :"||fill
  21. text = text||"        :"||fill
  22. text = text||"        :"||fill
  23. text = text||"   Phone:"||fill
  24. text = text||"   Notes:"||fill
  25. text = text||"        :"||fill
  26. text = text||"        :"||fill
  27. text = text||"        :"||fill
  28. text = text||"        :"||fill
  29. text = text||"    Dial:"||fill
  30. INSERT '"'||text||'"'
  31. TOP
  32. JUMP 1 9
  33.  
  34. exit
  35.