script 3 GET THE LAMP! 
ECHO OFF
:main
CLEAR
NOTE "                 Get The Lamp!" 
NOTE "                 ''''''''''''' "
NOTE "This script will capture the current ASCII issue of" 
NOTE "GEnieLamp.  Capturing GEnieLamp from the menu is " 
NOTE "included in your GEnie*Basic package."
NOTE 
NOTE "    Press ESC to exit (abort the script)." 
NOTE
NOTE
NOTE " Enter path & file name to save the issue under."
NOTE "        Press RETURN for Current Path." 
NOTE 
NOTE "Enter path\file name: (ie E:\FILES\)" 
GETSTRING 9
IF SUCCESS
  SETSTRING 2 "TTTTXEA.TXT"
  CAPTURE "%9%2"
  ENDCAPTURE
  IF EXIST "%9%2"
  ERASEFILE "%9%2"
  ELSE 
    NOTE "ERROR in Path Try Again!"
    PAUSE 2
    GOTO main
  ENDIF
  NOTE
  NOTE
  NOTE "Call Now or Later?  1=NOW  2=Later"
  GETKEY 1
  IF STRING 1 IS "2"
     NOTE
     NOTE "Make sure system clock is set correctly!"
     NOTE "Time to call? (00:00 to 24:00)"
     GETSTRING 5
  ELSE
     SETSTRING 5 "Now"
  ENDIF 
  CLEAR
  NOTE
  NOTE
  NOTE
  NOTE "     GET THE LAMP!" 
  NOTE "     ''''''''''''' "
  NOTE 
  NOTE "   1. GEnieLamp Mac" 
  NOTE "   2. GEnieLamp IBM" 
  NOTE "   3. GEnieLamp Atari ST" 
  NOTE "   4. GEnieLamp Apple II" 
  NOTE "   5. GEnieLamp (Elsewhere)" 
  NOTE "   6. Capture ALL GEnieLamps" 
  NOTE
  NOTE "To receive multiple issues type each number on one line."
  NOTE "    --> Example: 135"
  NOTE "Choice:
  GETSTRING 4
  NOTE "What to do after capturing the issue(s)?" 
  NOTE 
  NOTE "   1.  Do AutoPass 1" 
  NOTE "   2.  Do AutoPass 2" 
  NOTE "   3.  Log Off"
  NOTE "   4.  Go to GEnie*Basic"
  NOTE "   5.  Remain in GEnieLamp RT." 
  NOTE 
  NOTE "Choice:"
  GETSTRING 3
  IF SUCCESS
    CLEAR
    NOTE "The following magazines are selected for capture:"
    NOTE
    IF STRING 5 IS "Now"
      NOTE "Time to call is Now"
    Else
      NOTE "Time to call.......%5 hr"
    ENDIF
    IF STRING 4 HAS "6"
      SETSTRING 4 "12345"
    ENDIF
    IF STRING 4 HAS "1"              Mac Version 
      NOTE  
      NOTE "1. GEnieLamp Mac            %9MACLMP.TXT"
    ENDIF 
    IF STRING 4 HAS "2"              IBM Version 
      NOTE "2. GEnieLamp IBM            %9IBMLMP.TXT" 
    ENDIF 
    IF STRING 4 HAS "3"              ATARI Version 
      NOTE "3. GEnieLamp ATARI          %9ATARILMP.TXT"
    ENDIF 
    IF STRING 4 HAS "4"              APPLE 2 Version 
      NOTE "4. GEnieLamp Apple II       %9APPLELMP.TXT"
    ENDIF 
    IF STRING 4 HAS "5"              Elsewhere 
      NOTE "5. GEnieLamp Elsewhere      %9ELSELMP.TXT"
    ENDIF
    NOTE
    NOTE
    NOTE "After capturing issue you have chosen to:"
    NOTE
    IF STRING 3 HAS "1" 
      NOTE "  Do an AutoPass 1." 
    ENDIF 
    IF STRING 3 HAS "2" 
      NOTE "  Do an Autopass 2." 
    ENDIF 
    IF STRING 3 HAS "4" 
      NOTE "  Go to GEnie*Basic." 
    ENDIF
    IF STRING 3 HAS "3" 
      NOTE "  Log off." 
    ENDIF 
    IF STRING 3 IS "5"
      NOTE "  Remain in GEnieLamp"
    ENDIF    
    NOTE 
    NOTE
    BEEP
    NOTE "Is this Correct?  (Y/N)"
    GETKEY 6
    IF STRING 6 HAS "N"
      GOTO main
    ENDIF
    IF STRING 6 HAS "n"
      GOTO main
    ENDIF
  ENDIF
  :Logon 
  IF STRING 1 IS "1"
    NOTE "Starting Script..."
  ELSE
    WAITUNTIL %5
  ENDIF
  PAUSE 4 
  LOG ONTO "515" 
  IF STRING 4 HAS "1" 
    SETSTRING 2 "MACLMP.TXT"      Default name MAC
    SENDLINE "6" 
    CALL cap 
  ENDIF 
  IF STRING 4 HAS "2" 
    SETSTRING 2 "IBMLMP.TXT"      Default name IBM
    SENDLINE "7" 
    CALL cap 
  ENDIF 
  IF STRING 4 HAS "3" 
    SETSTRING 2 "ATARILMP.TXT"     Default name ATARI
    SENDLINE "8" 
    CALL cap 
  ENDIF 
  IF STRING 4 HAS "4" 
    SETSTRING 2 "APPLELMP.TXT"      Default name APPLE II
    SENDLINE "9" 
    CALL cap 
  ENDIF 
  IF STRING 4 HAS "5" 
    SETSTRING 2 "ELSELMP.TXT"      Default name Elsewhere
    SENDLINE "10" 
    CALL cap 
  ENDIF 
  GOTO pass
  :cap 
  CAPTURE "%9%2" 
  WAITFORPROMPT
  ENDCAPTURE
  RETURN
  :pass
  IF STRING 3 HAS "1" 
    PERFORM 1                       Perform AutoPass 1
  ENDIF 
  IF STRING 3 HAS "2" 
    PERFORM 2                       Perform AutoPass 2
  ENDIF
  IF STRING 3 HAS "4" 
    SENDLINE "M100"
    BEEP
  ENDIF
  IF STRING 3 HAS "5"
    ALARM
  ENDIF
  IF STRING 3 HAS "3" 
    SENDLINE "BYE"
    LOG OFF
    BEEP
  ENDIF
ELSE
  CLEAR
  NOTE
  NOTE
  NOTE
  NOTE
  NOTE "--> Script Aborted! <--"
ENDIF
ENDSCRIPT
ATDT649-7369
WAITFOR "CONNECT"
HHH
XTY86642,YLJGFMLB




