PC-Online 1998 February

home *** CD-ROM | disk | FTP | other *** search

/ PC-Online 1998 February / PCOnline_02_1998.iso / filesbbs / dos / page_123.exe / PAGE_123.EXE / DOC / FS_PL.DOC < prev next >

Wrap

Text File | 1997-10-22 | 30.8 KB | 819 lines

────────────────────────────────────────────────────────────────────────────── ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▀ ▀▄▄▄▄ ▄██████ ▄▀▀▀▀▀ ▄█████▄ ▀▀▀▀▀▀▄ ██▄▄▄▄ ▄█▀▀▀█▄ ▄█████▄ █████ ██▄▄▄▄ ▄█████▄ ██▀▀▀█ ▐██▌▀██▀▀▀█ █████ ██▀▀▀█▀▀██▄▄▄██ ██▄▄▄▄▄ ▐█▌ ▀▀▀▀██ ██ ██▀█▀▀ ██ ██▀▀▀▀▄ ▐█▌ ██ █ ██▀▀▀██ ▄▄▄▄▄▄█ ▐█▌ ▀█████▀ ▀█████▀ ██ ▀█ ▐██▌ ██ █▐█▌ ▀▄▄ ▄▄▀ ▀▀▄▄▄▄ ▄▄▄▄▀▀▀ ▀▄▄▄▄▄ ▄█▀ ██▀▀▀█ ██ ▀█▄ ▄▄▄▄▄▄▀ ▀▀▀▀▀██ ██▀▀▀▀ ██ ██▀▀▀ ▀█▄ ██ █████ ▄█▀ (c)1996/97 Stefan Dietzel -------────────────────────────────────────────────────────[Version: 1.23]──── FastScript Programing Language (PL) ==================================== FastScript(PL) is a powerful real-time compiler-extension for FastScript. With FastScript (PL) you are able to write online-programs directly in the script-language FastScript. Therefore many commands of a modern programing language are included. FastScript(PL) is a mixture between Pascal and Assembler. The commands are understandable and no unclear abbreviations are used. The command-names are orientated on pascal and the program-style is similar to assembler. With this combination you are able to write one part of the program more abstrac and the other part you can file out up to the smallest detail. If you are missing commands for the harddisk-access and so on, you have to consider that the secutity of FastScript(PL) towards the sysop of the bbs-system was a major part in my thoughts when I have developed this programing language. In later versions I will include some "data-save"-functions, but now I have to plan how I can include them without creating a security-leak for the bbs-system (and the harddisk of the sysop). Commands: ======== Declaration of variables: ------------------------- VAR CLOSEVAR Fundamental operations of arithmetic: ------------------------------------- INCREMENT DECREMENT MULTIPLY DIVIDE Assignment: ----------- EQUATE Input: ------ READ READLN Output: --------- WRITE WRITELN Querys and loops: ----------------- IF WHILE Programsubdivision/Blocks: -------------------------- PROCEDURE GOTO STOP Stringworking: -------------- UP DELSPACE DELSTRING INSSTRING POSSTRING LENGTHSTRING Calculating-functions: ---------------------- SIN COS TAN ARCTAN LN EXP SQR SQRT Bit-Operators ------------- OR XOR AND NOT Screen-Commands --------------- WHEREX WHEREY Explanation of the commands: ---------------------------- Declaration of variables: ------------------------- VAR --- This command is needed for creating and declarating new variables. Syntax: VAR VARNAME:VARTYP VARNAME = The name which addresses the variable. VARTYP = There are existing the following variable-types: STRING (character string) CHAR (one character of the ASCII-table) INTEGER (whole number -2147483648..2147483647) REAL (a comma number 2.9e-39..1.7e38) Information: You can max. create per VAR command one variable. If you want to create more variables you have to use the VAR command several times. Important: You can max. create 40 variables per vartiable-type. If you need one more variable you can close another with the CLOSEVAR command. You can also close systemvariables. There are existing the following systemvariables: Variablename Variabletyp Content $userlevel Integer Level of the actual homepagevisitor $username String Name of the actual homepageuser $systemdate String Actual Date $systemtime String Actual Time $baudrate String Connectrate of the homepage-visitor $bbsname String Name of the bbs-system where STD-PAGE (and your homepage) is installed. $sysopname String Name des Mailbox-Sysops, in welcher STD-PAGE (und Ihre Homepage) ablaufen. $pi Real The number of Pi (3.141...) Example: VAR TestVariable:STRING VAR SecondVariable:INTEGER With the two commands above you create two variables with the addressnames TestVariable and SecondVariable. The variables have the following types: TestVariable = STRING SecondVariable = INTEGER If you want to access one variable it does not matter if you write the name with big or small letters. See also: CLOSEVAR CLOSEVAR -------- With this command you can release/close variables. Syntax: CLOSEVAR VARNAME Remark: You also can close systemvariables. There contents will be lost until the user stays in your homepage. If he starts your page from new on the systemvariables will be created once more. With one CLOSEVAR command you only can close one variable (same as VAR). Example: CLOSEVAR TestVariable CLOSEVAR SecondVariable See also: VAR Fundamental operations of arithmetic: ------------------------------------- INCREMENT --------- With this command you can either increase the content of an INTEGER or REAL variable or you can add to a STRING variable another string. Syntax: INCREMENT VARNAME,DATA VARNAME = The name of the variable which content should be increased. DATA = The data could be a direct value or another variable whose content should be interpretated like a direct value. Information: This function is comparable with the PASCAL-expression INC or the PASCAL-expression VARNAME:=VARNAME+DATA; Example: VAR TestVariable:STRING VAR SecondVariable:INTEGER INCREMENT TestVariable,Hallo INCREMENT TestVariable,! {TestVariable now contains: Hallo!} INCREMENT SecondVariable,10 INCREMENT SecondVariable,101 {ZweiteVariable now contains: 111) See also: DECREMENT DECREMENT --------- With this command you can reduce the content of a REAL or INTERGER variable. Syntax: DECREMENT VARNAME,DATA VARNAME = The name of the variable which content should be reduced. DATA = The data could be a direct value or another variable whose content should be interpretated like a direct value. Information: This function is comparable with the PASCAL-expression DEC. Example: VAR SecondVariable:INTEGER DECREMENT SecondVariable,10 {The value of the SecondVariable has be reduced by 10.} See also: INCREMENT MULTIPLY -------- With this command you can multiply a REAL or INTERGER variable. Syntax: MULTIPLY VARNAME,DATA VARNAME = The name of the variable which content should be multiplied with the content of DATA. DATA = The data could be a direct value or another variable whose content should be interpretated like a direct value. Information: This function is comparable with the PASCAL-expression VARNAME:=VARNAME*DATA; Example: VAR SecondVariable:INTEGER MULTIPLY SecondVariable,10 {The content of SecondVariable will be multiplied with 10.} See also: DIVIDE DIVIDE ------ With this command you can divide a REAL or INTEGER variable. Syntax: MULTIPLY VARNAME,DATA VARNAME = The name of the variable which content should be divided with the content of DATA. DATA = The data could be a direct value or another variable whose content should be interpretated like a direct value. Information: This function is comparable with the PASCAL-expressions VARNAME:=VARNAME / DATA; or VARNAME:=VARNAME div DATA; Example: VAR SecondVariable:INTEGER DIVIDE SecondVariable,10 {The content of SecondVariable will be divided by 10.} See also: MULTIPLY Assignment: ----------- EQUATE ------ With this command you can assign to one variable the value of another variable or the value of a direct data. Syntax: EQUATE VARNAME,DATA VARNAME = The name of the variable to which should be assigned the content of DATA. DATA = The data could be a direct value or another variable whose content should be interpretated like a direct value. Information: This function is comparable with the PASCAL-expression VARNAME:=DATA; By using this command you can also carry out type-conversions. Example: If you have a variable S (=STRING) and a variable R (REAL) you can convert R to S by the following command: EQUATE S,R Now the string-variable S contains the string of the arithmetic expression of R (REAL). Surely, you can also use EQUATE for other type-conversions. Beispiel: VAR TestVariable:STRING VAR SecondVariable:INTEGER EQUATE TestVariable,This is a small test {The string-variable TestVariable now contains the value "This is a small test".} EQUATE SecondVariable,111 {The integer-variable SecondVariable now contains the value 111.} EQUATE TestVariable,SecondVariable {The string-variable TestVariable nor contains the value of SecondVariable. TestVariable="111"} Input: ------ READ / READLN ------------- By using this command you can ask the user for a data or value of a variable. Syntax: READ VARNAME READLN VARNAME Information: This function is comparable with the PASCAL-expression READ and READLN. Unlike READ the command READLN carries out a carriage return and a line feed after the user has pressed enter (like WRITE and WRITELN). Beispiel: VAR TestVariable:STRING VAR SecondVariable:INTEGER READ TestVariable READLN TestVariable READ SecondVariable READLN SecondVariable See also: WRITE / WRITELN Output: ------- WRITE / WRITELN --------------- By using this command you can make outputs to the display screen. Syntax: WRITE Output-text or &VARNAME& or bith WRITELN Output-text or &VARNAME& or both Information: This function is comparable with the PASCAL-expression WRITE and WRITELN. Unlike WRITE the command WRITELN carries out a carriage return and a line feed after the outpur has been finished (like READ and READLN). With the above-mentioned command you also can output the values of variables. The only thing you have to do is to write the variable-name surrounded by the & char (e.g. &VARNAME&) into your output-text. This name (incl. the & chars) will be replaced by the content of the variable. Example: VAR TestVariable:STRING VAR SecondVariable:INTEGER EQUATE TestVariable,Stefan Dietzel WRITELN Hello, &TestVariable&. Nice to meet you. {Output: Hello, Stefan Dietzel. Nice to meet you.} EQUATE SecondVariable,10 SIN SecondVariable,SecondVariable WRITELN The result is &SecondVariable&. {Output: The result is 0.1736481777.} See also: REAL / READLN Querys and loops: ----------------- IF -- With this command you can form case querys. Syntax: IF VARNAME,OPERATOR,DATA,ACTION VARNAME = The name of the variable which content should be checked out for something. OPERATOR = There are existing the following check-operators: < smaller > greater = equal ! not equal DATA = The data could be a direct value or another variable whose content should be interpretated like a direct value. ACTION = A FastScript or FastScript(PL) command, which should be carried out if the VARNAME come true with the operator an the data. Information: If you want to hand over a direct value instead of a variable at the position of DATA you have so set the direct value into quotation marks (like: IF A,=,"HELLO",write Hi). Example: IF $userlevel,<,2,end {If the actual userlevel is smaller than 2 the homepage will automatically be finished.} IF $userlevel,>,2,procedure test {If the actual userlevel is greater than 2 the sub-script TEST.SCR will be called.} If $username,=,"STEFAN DIETZEL",write Hi, Creator. {If the username = STEFAN DIETZEL the text "Hi, Creator." will be diplayed} see also: PROCEDURE / WHILE WHILE ----- With the command WHILE you can realise loops (and counting loops). Syntax: WHILE VARNAME,OPERATOR,DATA,ACTION VARNAME = The name of the variable which content should be checked out for something. OPERATOR = There are existing the following check-operators: < smaller > greater = equal ! not equal DATA = The data could be a direct value or another variable whose content should be interpretated like a direct value. ACTION = A FastScript or FastScript(PL) command, which should be carried out if the VARNAME come true with the operator an the data. Information: If you want to hand over a direct value instead of a variable at the position of DATA you have so set the direct value into quotation marks (like: WHILE A,!,"HELLO",write Say hello to me.). Example : VAR TestVariable:STRING VAR Password:STRING WHILE TestVariable,!,Password,Procedure ASK_PW {While the content of TestVariable is not equal with the content of Password the Procedure PW_FRAGN (File: ASK_PW.SCR) will be called. WHILE TestVariable,!,"Hello",readln TestVariable {While TestVariable is not equal to the string Hello the user will be asked for a new string.} See also: IF / PROCEDURE Programsubdivision/Blocks: -------------------------- PROCEDURE --------- This command calls another script-file in which the bevor created variable are active an can be used (by using the command LOAD all variables will be closed). Syntax: PROCEDURE SCRIPTNAME SCRIPTNAME = Name of the script-file which should be called. Information: After ending a with PROCEDURE called script-file FastScript(PL) will return back into the calling script-file. If you want to stop the work out of a PROCEDURE you can use the command STOP. Do not use END in a PROCEDURE. The END- command will close the whole homepage. Example: PROCEDURE TEST {The script-file TEST.SCR will be called} VAR TestVariable:STRING VAR Password:STRING WHILE TestVariable,!,Password,Procedure ASK_PW {While the content of TestVariable is not equal with the content of Password the script-file PW_FRAGN.SCR will be called. See also: STOP GOTO ---- This command can be used for a subdivision of a script-file into blocks. With the help of loops and case sensitive querys (while/if) you can create a controlling algorithm for jumpint to different blocks at different situations. Syntax: :jumpmark .... .... .... GOTO jumpmark Information: This command is important for working out a specific Script-file until a specific situation. Example: VAR Input:CHAR :Startingmark writeln Hi, &$username&. write Do you want to be greeted again? (Y/N) readln Input up Input if Input,=,"J",GOTO Startingmark {You can also use the GOTO command without IF or WHILE.} See also: STOP / IF / WHILE STOP ---- This command can be used for ending script-files which have been called with the command PROCEDURE. Syntax: STOP Information: If you want to go back to the script-file which has called the actual script with the command PROCEDURE the command STOP is the only command you should use. The STOP command can be used stand alone or in combination with IF and WHILE. Do not use the command END if you do not want to exit your complete homepage. Example: SCHREIBE Hi, the actual procedure will be ended now! STOP See also: IF / WHILE / GOTO Stringworking: -------------- UP -- This command changes a string into a big letter-string (it converts Hello to HELLO). Syntax: UP VARNAME VARNAME = The name of the string-variable, which content should be transformed into a big letter-string. Examples: EQUATE TestVariable,This is a short test. {Content TestVariable: This is a short test.} UP TestVariable {Content TestVariable: THIS IS A SHORT TEST.} DELSPACE -------- This command delets all blank charaters from a string. Syntax: DELSPACE VARNAME VARNAME = The name of the variable which content should be freed from spaces. Example: VAR TestVariable:STRING EQUATE TestVariable,This is a short test. {Content TestVariable: This is a short test.} DELSPACE TestVariable {Content TestVariable: Thisisashorttest.} UP TestVariable {Content TestVariable: THISISASHORTTEST.} See also: UP DELSTRING --------- By using this command you can delete a substring from a string. Syntax: DELSTRING VARNAME,STARTPOSITION,ENDPOSITION VARNAME = The name of the string-variable which content should be partly deleted. STARTPOSITION = The number of the first charecter which should be deleted (where the deletion should start). ENDPOSITION = The number of the last character in the string, which should be deleted (were the deletion should end). Information: This function is comparable with the PASCAL-expression DELETE(varname,startpotision,endposition); Example: VAR TestVariable:STRING EQUATE TestVariable,This is a short test. {Content TestVariable:This is a short Test.} DELSTRING TestVariable,11,16 {Inhalt TestVariable:This is a test.} See also: INSSTRING INSSTRING --------- By using this command you can include a sub-string into another string at a defined position. Syntax: INSSTRING VARNAME,POSITION,SUBSTRING VARNAME = The variable where the substring should be inserted. POSITION = The position at the variable where the substring should start. TEILSTRING = The substring which shoud be inserted. Information: As substring you can also use another variable which you have to put between the & char (like WRITE and WRITELN). You can aso include a macro like %MS% for a space (see pageuser.doc for a complete macro-list). Dieser Befehl ist aehnlich dem PASCAL-Befehl INSERT. This function is comparable with the PASCAL-command INSERT(substring,varname,position); Example: VAR TestVariable:STRING EQUATE TestVariable,Hello ! {Content TestVariable:Hello !} INSSTRING TestVariable,6,&$username& {e.g. contains $username the name STEFAN DIETZEL: Content TestVariable:Hello STEFAN DIETZEL!} See also: DELSTRING POSSTRING --------- This command makes ist possible to find a defined substring in a string-variable Syntax: POSSTRING VARNAME,SUBSTRING,POSITIONVARIABLE VARNAME = STRING-variable where the substring should be searched. SUBSTRING = The substring which should be searched in VARNAME. POSITIONVARIABLE = A INTEGER-variable in which the position of SUBSTRING in VARNAME should be stored. Information: If the substring will not be found in VARNAME the value of POSITIONVARIABLE will be 0. The checkup is depends on big and small letters. The substring "this" will not be found in the string "This is a test." because the first character is different. Therefore you should use the function UP on both strings (converts both strings into big letters) before checking. This function is comparable with the PASCAL-command positionsvariable:=POS(substring,varname); Example: VAR TestVariable:STRING VAR SecondVariable:INTEGER EQUATE TestVariable,This is a small test. {Content TestVariable:This is a small test.} POSSTRING TestVariable,small,SecondVariable, {Content SecondVariable: 11} LENGTHSTRING ------------ Mit diesem Befehl kann man die Laenge einer Zeichenkette feststellen. With this command you can detect the length of a string-variable. Syntax: LENGTHSTRING VARNAME,LENGTHVARIABLE VARNAME = String-variable whose string should be detected. LENGTHVARIABLE = INTEGER-variable in which the length of VARNAME should be transfered. Information: This function is comparable with the PASCAL-command lengthvariable:=LENGTH(varname); Example: VAR TestVariable:STRING VAR SecondVariable:INTEGER EQUATE TestVariable,This is a small test. LENGTHSTRING TestVariable,SecondVariable {Content ZweiteVariable: 21} Calculating-functions: ---------------------- SIN --- This commands calculates the SINUS of a number. Syntax: SIN DATA,VARNAME DATA = Number or variable whose sinus should be calculated. ! Important: The unit of DATA must be RAD ! VARNAME = Variable in which the result should be stored. (VARNAME should be a REAL-type) Information: This function is comparable with the PASCAL-command varname:=SIN(data); Example: VAR Result:REAL VAR SecondVariable:INTEGER EQUATE SecondVariable,10 {Content ZweiteVariable: 10} SIN SecondVariable,Result {Content Result: 0.1736481777} See also: COS / TAN / ARCTAN COS --- This commands calculates the COSINUS of a number. Syntax: COS DATA,VARNAME DATA = Number or variable whose cosinus should be calculated. ! Important: The unit of DATA must be RAD ! VARNAME = Variable in which the result should be stored. (VARNAME should be a REAL-type) Information: This function is comparable with the PASCAL-command varname:=COS(data); Example: VAR Result:REAL VAR SecondVariable:INTEGER EQUATE SecondVariable,10 {Contend SecondVariable: 10} COS SecondVariable,Result {Content Result: 0.984807753} See also: SIN / TAN / ARCTAN TAN --- This commands calculates the TANGENS of a number. Syntax: TAN DATA,VARNAME DATA = Number or variable whose tangens should be calculated. ! Important: The unit of DATA must be RAD ! VARNAME = Variable in which the result should be stored. (VARNAME should be a REAL-type) Information: This function is comparable with the PASCAL-command varname:=TAN(data); Example: VAR Result:REAL VAR SecondVariable:INTEGER EQUATE SecondVariable,10 {Content SecondVariable: 10} TAN SecondVariable,Result {Content Result: 0.1763269807} See also: SIN / COS / ARCTAN ARCTAN ------ This commands calculates the ARCUS-TANGENS of a number. Syntax: ARCTAN DATA,VARNAME DATA = Number or variable whose arcus-tangens should be calculated. ! Important: The unit of DATA must be RAD ! VARNAME = Variable in which the result should be stored. (VARNAME should be a REAL-type) Information: This function is comparable with the PASCAL-command varname:=ARCTAN(data); Example: VAR Result:REAL VAR SecondVariable:INTEGER EQUATE SecondVariable,10 {Content SecondVariable: 10} ARCTAN SecondVariable,Result {Content Result: 0.1745329252} See also: SIN / COS / TAN LN -- By using this command you can calculatr the natural logarithm of a number. Syntax: ARCTAN DATA,VARNAME DATA = Number or variable whose LN should be calculated. VARNAME = Variable in which the result should be stored. (VARNAME should be a REAL-type) Information: This function is comparable with the PASCAL-command varname:=LN(data); Example: VAR Result:REAL VAR SecondVariable:INTEGER EQUATE SecondVariable,10 {Content ZweiteVariable: 10} LN SecondVariable,Ergebnis {Content Result: 2.302585093} See also: EXP EXP --- With this command you can calculate the e^x of a number. Syntax: EXP DATA,VARNAME DATA = Number or variable whose e^x should be calculated. VARNAME = Variable in which the result should be stored. (VARNAME should be a REAL-type) Information: This function is comparable with the PASCAL-command varname:=EXP(data); Beispiel: VAR Result:REAL VAR SecondVariable:INTEGER EQUATE SecondVariable,10 {Content SecondVariable: 10} EXP SecondVariable,Result {Content Result: 22026.4657948017} See also: LN SQR --- You can use this command for squaring a number. Syntax: SQR DATA,VARNAME DATA = Number or variable which should be squared. VARNAME = Variable in which the result should be stored. (VARNAME should be a REAL-type) Information: This function is comparable with the PASCAL-command varname:=SQR(data); Example: VAR Result:REAL VAR SecondVariable:INTEGER EQUATE SecondVariable,10 {Content SecondVariable: 10} SQR SecondVariable,Result {Content Result: 100.0} See also: SQRT SQRT ---- With this command you can calculate the square root of an argument. Syntax: SQRT DATA,VARNAME DATA = Number or variable whose square root should be calculated. VARNAME = Variable in which the result should be stored. (VARNAME should be a REAL-type) Information: This function is comparable with the PASCAL-command varname:=SQRT(data); Example: VAR Result:REAL VAR SecondVariable:INTEGER EQUATE SecondVariable,10 {Content SecondVariable: 10} SQRT SecondVariable,Result {Content Result: 3.1622776602} See also: SQR Boolsche Funktionen ------------------- OR -- With this command you can make an or-checking with an INTEGER-variable. Syntax: OR VARNAME,DATA VARNAME = The variablename whose content should checked with OR. The result will be stored in VARNAME. DATA = DATA could be a direct number or a variable whose content should be interpretated as a number. Information: This function is similar to the PASCAL command VARNAME:=VARNAME or DATA; Example: VAR SecondVariable:INTEGER EQUATE SecondVariable,1 OR SecondVariable,0 See also: XOR, AND, NOT XOR --- With this command you can make an xor-checking with an INTEGER-variable. Syntax: XOR VARNAME,DATA VARNAME = The variablename whose content should checked with XOR. The result will be stored in VARNAME. DATA = DATA could be a direct number or a variable whose content should be interpretated as a number. Information: This function is similar to the PASCAL command VARNAME:=VARNAME xor DATA; Example: VAR SecondVariable:INTEGER EQUATE SecondVariable,1 XOR SecondVariable,0 See also: OR, AND, NOT AND --- With this command you can make an and-checking with an INTEGER-variable. Syntax: AND VARNAME,DATA VARNAME = The variablename whose content should checked with AND. The result will be stored in VARNAME. DATA = DATA could be a direct number or a variable whose content should be interpretated as a number. Information: This function is similar to the PASCAL command VARNAME:=VARNAME and DATA; Example: VAR SecondVariable:INTEGER EQUATE SecondVariable,1 AND SecondVariable,0 See also: OR, XOR, NOT NOT --- With this command you can make an not-checking with an INTEGER-variable. Syntax: NOT VARNAME,DATA VARNAME = The variablename whose content should checked with NOT. The result will be stored in VARNAME. DATA = DATA could be a direct number or a variable whose content should be interpretated as a number. Information: This function is similar to the PASCAL command VARNAME:=VARNAME not DATA; Example: VAR SecondVariable:INTEGER EQUATE SecondVariable,1 NOT SecondVariable,0 See also: OR, XOR, AND Screen-Commands --------------- WHEREX ------ With this command you can save the X-coordinate of the actual cursor-position to a variable. Syntax: WHEREX VARNAME VARNAME = The variable in which the x-position should be stored. Information: This function is similar to the PASCAL command VARNAME:=wherex; Example: VAR SecondVariable:INTEGER WHEREX SecondVariable See also: WHEREY WHEREY ------ With this command you can save the Y-coordinate of the actual cursor-position to a variable. Syntax: WHEREY VARNAME VARNAME = The variable in which the y-position should be stored. Information: This function is similar to the PASCAL command VARNAME:=wherey; Example: VAR SecondVariable:INTEGER WHEREY SecondVariable See also: WHEREX ─────────────────────────────────────────────────────────────────────[EOF]────