(Message "Problems have been found with your Workbench.\n\nFiles are either missing or are the incorrect version for this computer's Kickstart.\n\nThese are serious errors that MUST be fixed before the installation can proceed.\n\nThe way to fix these errors is to install the correct and COMPLETE Workbench for your Amiga.\n\nYou may select either Proceed or Abort to exit the installation.")
(exit (quiet))
)
)
(IF (= ERRORVALUE 2)
(
(run "run Net&Web1:more RAM:WBERRORFILE")
(Message "Some problems have been found with your Workbench.\n\nThe files listed are too old/new for the Kickstart(ROMs) in your machine. These are serious errors that should be fixed.\n\nPlease reinstall Workbench or fix the appropriate files.\n\nYou may continue the installation however, if you experience problems when running the package, we would recommend that you reinstall Workbench.")
(exit (quiet))
)
)
(IF (= ERRORVALUE 3)
(
(run "run Net&Web1:more RAM:WBERRORFILE")
(Message "Some problems have been found with your Workbench.\nThe files listed are too new/old for the Kickstart in your machine.\n\nThese errors may not be a problem.\n\nHowever if you experience problems when running the package, we would recommend that you reinstall Workbench.\n\nSelect proceed to continue.")
)
)
)
)
(PROCEDURE NAME&PASSWORD
(user 2)
(SET NODENAME
(askstring
(Prompt "Enter the nodename(Demon/CIX) or login name (Frontier) for your account")
(help @askstring-help)
(default "nodename or login name")
)
)
(SET PASSWORD
(askstring
(Prompt "Enter the password for your account\n\n**Note:** This is case sensitive i.e. XYzzy42 is not the same as xyzzy42")
(help @askstring-help)
(default "Enter your login password")
)
)
(set n
(askbool
(Prompt ("Your Nodename: %s\n Your password: %s\n\n Are these correct?" NODENAME PASSWORD))
(Help "These entries must be correct for internet access to work, please check that they are correct.\n*Important*\nMake sure you note down your NODENAME and password")
(Choices "Yes" "No")
(default 1)
)
)
(user @user-level)
)
(SET n 0)
(while (= n 0)
(NAME&PASSWORD)
)
(debug NODENAME PASSWORD)
(PROCEDURE MODEMPORT
(user 2)
(SET SERIALPORT
(askchoice
(Prompt "Is the modem connected to the 9-pin Surf Squirrel serial, the Amiga's 25-pin serial port, or another \"extra\" serial port.\nPlease check now!\nIf your modem is not connected, turn off your Amiga, connect the modem and re-run the installation.")
(help @askstring-help)
(Choices "Surf Squirrel serial port" "Amiga serial port" "Other serial port")
(default 1)
)
)
(IF (= SERIALPORT 0)
(
(set BAUD "115200")
(set SERIALDRIVER "squirrelserial.device")
)
)
(IF (= SERIALPORT 1)
(
(If (= processor "68000")
(set BAUD "19200")
(set BAUD "38400")
)
(set SERIALDRIVER "serial.device")
)
)
(IF (= SERIALPORT 2)
(
(PROCEDURE SRDRIVER
(SET SERIALDRIVER
(Askfile
(Prompt "Select the serial driver from the DEVS: directory to use with your serial port")
(help "Select the serial driver to use\nThis file must be in DEVS:")
(Message ("Modem Test Failed using the serial device:\n\n%s\n\nPlease check that the modem is plugged in, turned on, and you are using the correct serial port." SERIALDRIVER))
(MODEMPORT)
(user @user-level)
)
)
(PROCEDURE GETNUMBER
(user 2)
(run "RAM:delete ENV:po#?")
(SET LOCALNUMBER
(Askstring
(Prompt "About to look-up your access numbers, please enter your local dialing code. e.g. If your phone number is 01525 718181 then your local code is 01525.")
(help "You must enter a code as this is used to find your local access number.")
(Prompt "Enter the initialisation string to be sent to the modem. Note: This string must stop the modem from hanging up when DTR goes away. Most modems use AT&D0, some use AT&D - check your modem manual.")
(help "Enter the initialisation string to be sent to the modem")
(default "AT&D0")
)
)
)
)
(SET HOST NODENAME)
(user 2)
(set PROVIDER
(Askchoice
(Help @askchoice-help)
(Prompt "What service provider are are you using?")
(Prompt ("Enter the username you would like to use? This is the name used for email e.g. if you want to be richard@%s.%s, enter richard" NODENAME DOMAINNAME))
(help ("Enter the username you would like to use? This is the name used for email e.g. if you want to be richard@%s.%s, enter richard" NODENAME DOMAINNAME))
(default "yourname")
)
)
)
(
(SET USERNAME NODENAME)
)
)
(SET REALNAME
(Askstring
(Prompt "Enter your real name, this will appear in your email messages to other people.")
(help "Enter your real name, this will appear in your email messages to other people.")
(default "Your Real name")
)
)
(SET ORGANIZATION NODENAME)
(user 2)
(SET TONEDIAL
(Askbool
(Prompt "Does your phone system support tone dialing (virtually all modern phone systems do)")
(help @askbool-help)
(choices "Tone Dial" "Pulse Dial")
(default 1)
)
)
(If (= TONEDIAL 1)
(SET TONEDIAL "ATDT")
(SET TONEDIAL "ATPT")
)
(SET PABX
(Askoptions
(prompt "Do you need to dial a special number to get an outside line or do you use a phone account that requires an account number (e.g. Mercury or AT&T). If you require neither option, just select proceed.")
(choices "Special outside line number" "Account number needed")
(help @askoptions-help)
(default 0)
)
)
(PROCEDURE GETPABX
(SET PABX
(Askstring
(Prompt "Enter the number(s) required to obtain and outside line.")
(help "If you are required to enter a number to obtain an external line, enter it here.")
(default "9")
)
)
(If (<> PABX "")
(SET PABX (cat PABX "w"))
)
)
(PROCEDURE GETACCOUNT
(SET ACCOUNT
(Askstring
(Prompt "Enter the numbers required to use your phone account.\nNote: Some phone companies require a pause between the access number and the account number. If this is required enter a \",\" where required. e.g. 131,1234567")
(help "Enter the numbers required to use your phone account.\nNote: Some phone companies require a pause between the access number and the account number. If this is required enter a \",\" where required. e.g. 131,1234567")