Antic Magazine 1987 June/Antic_Magazine_1987_06_Antic.atr/mail.lgo

Text File | 2023-02-26 | 3KB | 1 lines

TO ADDRESS¢CS CT TS¢SETCURSOR [12 10] PRINT [LOGO ADDRESS BOOK]¢SETCURSOR [18 14] PRINT [by]¢SETCURSOR [9 16] PRINT [M. Lorenz / A. Moose]¢SETCURSOR [11 18] PRINT [December , 1986]¢SETCURSOR [7 20] PRINT [c.1986, Antic Publishing]¢PRESS.C¢END¢¢TO PRESS.C¢SETCURSOR [4 22] PRINT [Press C to continue]¢CHOOSE¢END¢¢TO CHOOSE¢MAKE "CHOICE ( RC )¢IF :CHOICE = "C [CT MENU]¢IF :CHOICE = "1 [CT MAKE "DATA [] INPUT MENU]¢IF :CHOICE = "2 [CT ADD MENU]¢IF :CHOICE = "3 [CT MAKE "DATA [] UPDATE MENU]¢IF :CHOICE = "4 [CT GETMAIL PRINT.ALL MENU]¢IF :CHOICE = "5 [CT SELECT MENU]¢IF :CHOICE = "6 [CT QUIT STOP]¢CT PR [YOU ENTERED AN INCORRECT NUMBER]¢WAIT 100 MENU¢END¢¢TO MENU¢CT¢PR [YOUR CHOICES ARE...]¢PR []¢PR [* 1 - CREATE A NEW MAILING LIST]¢PR []¢PR [* 2 - ADD TO THE EXISTING LIST]¢PR []¢PR [* 3 - UPDATE AN ENTRY]¢PR []¢PR [* 4 - PRINT OUT THE WHOLE LIST]¢PR []¢PR [* 5 - PRINT OUT A SELECTED NAME]¢PR []¢PR [* 6 - QUIT]¢PR []¢CHOOSE¢END¢¢TO ADD¢GETMAIL¢MAKE "DATA BL :NEWDATA¢INPUT¢END¢¢TO UPDATE¢GETMAIL¢MAKE "NEWDATA BL :NEWDATA¢PR [GIVE FIRST AND LAST NAME]¢MAKE "TAG ( RL )¢FIND¢END¢¢TO INPUT¢CT¢PR [ENTER FIRST AND LAST NAME]¢PR [( Or END for Main Menu )]¢MAKE "NAMELIST RL¢IF EQUALP :NAMELIST [END] [DATASAVE STOP]¢PR [ENTER STREET ADDRESS]¢MAKE "STLIST RL¢PR [ENTER CITY, STATE ZIP]¢MAKE "CITYLIST RL¢PR [DO YOU WANT TO MAKE CORRECTIONS? ( Y / N )]¢MAKE "CHOICE RC¢IF EQUALP :CHOICE "Y [INPUT STOP]¢MAKE "DATA LPUT :NAMELIST :DATA¢MAKE "DATA LPUT :STLIST :DATA¢MAKE "DATA LPUT :CITYLIST :DATA¢INPUT¢END¢¢TO PRINT.ALL¢SETWRITE "P:¢PR FIRST :NEWDATA¢PR FIRST BF :NEWDATA¢PR FIRST BF BF :NEWDATA¢PR []¢MAKE "NEWDATA BF BF BF :NEWDATA¢IF EQUALP FIRST :NEWDATA "* [SETWRITE [] PRESS.C STOP]¢PRINT.ALL¢END¢¢TO GETMAIL¢SETREAD "D:MAILIST"¢MAKE "NEWDATA RL¢SETREAD []¢END¢¢TO SELECT¢PR [GIVE FIRST AND LAST NAME]¢MAKE "TAG RL¢GETMAIL¢SELECTPRNT¢END¢¢TO QUIT¢CT¢PR [THAT IS ALL, FOLKS]¢WAIT 50¢CT¢END¢¢TO FIND¢IF EQUALP :TAG FIRST :NEWDATA [CORRECT STOP]¢MAKE "DATA LPUT FIRST :NEWDATA :DATA¢MAKE "DATA LPUT FIRST BF :NEWDATA :DATA¢MAKE "DATA LPUT FIRST BF BF :NEWDATA :DATA¢MAKE "NEWDATA BF BF BF :NEWDATA¢IF EMPTYP :NEWDATA [PR [NO MATCHING NAME] WAIT 100 STOP]¢FIND¢END¢¢TO CORRECT¢PR [HERE IS THE CURRENT ENTRY]¢PR []¢PR FIRST :NEWDATA¢PR FIRST BF :NEWDATA¢PR FIRST BF BF :NEWDATA¢PR []¢PR [ENTER NAME]¢MAKE "NAMELIST RL¢PR [ENTER STREET ADDRESS]¢MAKE "STLIST RL¢PR [ENTER CITY, STAT ZIP]¢MAKE "CITYLIST RL¢PR []¢PR [DO YOU WANT TO MAKE CORRECTIONS? ( Y / N )]¢MAKE "CHOICE RC¢IF EQUALP :CHOICE "Y [CORRECT STOP]¢MAKE "NEWDATA BF BF BF :NEWDATA¢MAKE "NEWDATA FPUT :CITYLIST :NEWDATA¢MAKE "NEWDATA FPUT :STLIST :NEWDATA¢MAKE "NEWDATA FPUT :NAMELIST :NEWDATA¢CREATELIST¢END¢¢TO DATASAVE¢MAKE "FILEND "*¢MAKE "DATA LPUT :FILEND :DATA¢SETWRITE "D:MAILIST¢PR :DATA¢SETWRITE []¢QUIT¢END¢¢TO CREATELIST¢MAKE "DATA LPUT FIRST :NEWDATA :DATA¢MAKE "DATA LPUT FIRST BF :NEWDATA :DATA¢MAKE "DATA LPUT FIRST BF BF :NEWDATA :DATA¢MAKE "NEWDATA BF BF BF :NEWDATA¢IF EMPTYP :NEWDATA [DATASAVE STOP]¢CREATELIST¢END¢¢TO PRINT.SOME¢SETWRITE "P:¢PR FIRST :NEWDATA¢PR FIRST BF :NEWDATA¢PR FIRST BF BF :NEWDATA¢SETWRITE []¢END¢¢TO SELECTPRNT¢IF EQUALP :TAG FIRST :NEWDATA [PRINT.SOME PRESS.C STOP]¢MAKE "NEWDATA BF BF BF :NEWDATA¢IF EQUALP FIRST :NEWDATA "* [PR [NO MATCHING NAME FOUND] PRESS.C STOP]¢SELECTPRNT¢END¢